■音を出す準備
import javax.sound.sampled._
import scala.util.Random
val line = AudioSystem.getSourceDataLine(new AudioFormat(44100, 8, 1, true, true))
line.open()
line.start()
def play(a:Array[Byte]) = line.write(a,0,a.length)
■８bitサウンドデータ化
Int 値を Byteの範囲(-128 - + 127)
+128 → -128 に
def lim0(x:Int):Byte = x.toByte
127 > → 127 、 -128 < → -128
def lim1(x:Int):Byte = if(x > 127) 127 else if(x < -128) -128 else x.toByte
■音源データ
// ノコギリ波を高さと長さを変えて繰り返し再生。だんだん 高く 短く
for(k <- 1 to 5; j <- 1 to 10) line.write(Array.tabulate(44100)(i => lim0(i*j)) , 0 , 44100/10/k)
// ブザー音
line.write(Array.tabulate(44100)(i => lim0(i*1)) , 0 , 44100)
// サイン派
line.write(Array.tabulate(44100)(i => (128*Math.sin(2*Math.PI *i/44100/1000)).toByte), 0, 44100)
（以下破棄）
// x からスタートし、+1づつ増加するストリーム
def seq3(x:Int):Stream[Int] = x #:: seq3(x + 1)
seq3(0) take 10 foreach println
Int 値を Byteの範囲(-128 - + 127)
+128 → -128 に
def lim0(x:Int):Byte = x.toByte
127 > → 127 、 -128 < → -128
def lim1(x:Int):Byte = if(x > 127) 127 else if(x < -128) -128 else x.toByte
３秒間分のバイトデータ化
def toBuf0(s:Stream[Int]) = s map(lim0 _) take 44100*3 toArray
３秒間分のバイトデータ化
def toBuf1(s:Stream[Int]) = s map(lim1 _) take 44100*3 toArray
正弦波 0 127 0 -128 0
def seq4(x:Int):Stream[Int] = (128*Math.sin(2*Math.PI*x/128.0 )).toInt #:: seq4(x + 1)
利用例
play (toBuf0( seq3(0) ))
play (toBuf1( seq4(0) ))