x0. 期末課題

import javax.sound.sampled._

/**

 * @author kobashi.kazuhide

 */

object Test2 extends App {

  // オーディオ形式を指定

  val SAMPLE_RATE = 44100; // 44.1KHz

  val audio_format = new AudioFormat(SAMPLE_RATE, 8, 1, true, true)

  val line = AudioSystem.getSourceDataLine(audio_format)

  line.open()

  line.start()

  // 基準となる音の高さ

  val BaseFrequency = 440

  // ド レ ミ ファ  ソ ラ シ ド

  val Fseq = List(1.0, 9.0/8, 5.0/4, 4.0/3, 3.0/2, 5.0/3, 15.0/8, 2.0/1)

  // 音階再生用のデータ（1オクターブ分）音階 ｘ 1秒分のデータの長さ

  // 一つ一つの音の長さを変更すると、再生テンポ全体を変更できる

  // 例 SAMPLE_RATE を SAMPLE_RATE*2 にする

  val notes = Array.ofDim[Byte](Fseq.size,SAMPLE_RATE)

  // バイト列に適当な矩形波を作成

  for ( (note, n) <- notes.zipWithIndex; i <- 0 until note.size) {

    val r = i / (SAMPLE_RATE / BaseFrequency / Fseq(n) ).toInt

    if (r % 2 == 0) { note(i) = 100 } else { note(i) = -100 }

  }

  // 再生

  notes.foreach( note => line.write(note, 0, note.size) )

  line.write(notes(0),0,notes(0).size)

  line.write(notes(0),0,notes(0).size)

  line.write(notes(0),0,notes(0).size)

  line.drain() // 終了まで待機

}

  // 2音の合成

  def chord2(note1:Array[Byte],note2:Array[Byte]):Array[Byte] ={

    note1.zip(note2).map {case (b1,b2) => ((b1+b2)/2).toByte}

  }

  line.write(chord2(notes(0),notes(2)) ,0, notes(0).size)

  // 3音の合成

  def chord3(note1:Array[Byte], note2:Array[Byte], note3:Array[Byte]):Array[Byte] ={

    val tri_chord=note1.zip(note2).zip(note3)

    tri_chord.map {case ((b1,b2),b3) => ((b1+b2+b3)/3).toByte}

  }

  line.write(chord3(notes(0),notes(2),notes(4)) ,0, notes(0).size)

 def effect2(note:Array[Byte]) = {

    note.zipWithIndex.map {case (b,i) => (b*(note.size-i)/note.size).toByte}.toArray

  }

  // ド レ ミ ファ  ソ ラ シ ド      1オクターブ上の音は、元の数値の2倍の値で作成

  val Fseq = List(1.0, 9.0/8, 5.0/4, 4.0/3, 3.0/2, 5.0/3, 15.0/8, 2*1.0 , 2*9.0/8, 2*5.0/4 )

  // エンベロープ 無しの音と 有りの音 を交互に3回再生

  line.write(notes(0),0,notes(0).size) // エンベロープ無し（音は絞られない）

  line.write(effect2(notes(0)),0,notes(0).size) //  エンベロープ有り（音は絞られる）

  line.write(notes(0),0,notes(0).size)

  line.write(effect2(notes(0)),0,notes(0).size)

  line.write(notes(0),0,notes(0).size)

  line.write(effect2(notes(0)),0,notes(0).size)

  // 2分音符でドレミ （1小節＝１秒）

  line.write(effect2(notes(0)),0,notes(0).size/2)

  line.write(effect2(notes(1)),0,notes(0).size/2)

  line.write(effect2(notes(2)),0,notes(0).size/2)

  // 4分音符でドレミ （1小節＝１秒）

  line.write(effect2(notes(0)),0,notes(0).size/4)

  line.write(effect2(notes(1)),0,notes(0).size/4)

  line.write(effect2(notes(2)),0,notes(0).size/4)

  // 16分音符で連続２０回ドレミを再生

  for(i <- 0 to 20) {

    line.write(effect2(notes(0)),0,notes(0).size/16)

    line.write(effect2(notes(1)),0,notes(0).size/16)

    line.write(effect2(notes(2)),0,notes(0).size/16)

  }

  // 4分音符から16分音符へ、だんだんと早く演奏

  for(i <- 4 to 16) {

    line.write(effect2(notes(0)),0,notes(0).size/i)

    line.write(effect2(notes(1)),0,notes(0).size/i)

    line.write(effect2(notes(2)),0,notes(0).size/i)

  }

def MelodyA = {

    line.write(effect2(notes(7)),0,notes(0).size/4)

    line.write(effect2(notes(7)),0,notes(0).size/4)

    line.write(effect2(notes(7)),0,notes(0).size/2)

    line.write(effect2(notes(6)),0,notes(0).size/4)

    line.write(effect2(notes(6)),0,notes(0).size/4)

    line.write(effect2(notes(6)),0,notes(0).size/2)

    line.write(effect2(notes(5)),0,notes(0).size/4)

    line.write(effect2(notes(5)),0,notes(0).size/4)

    line.write(effect2(notes(5)),0,notes(0).size/4)

    line.write(effect2(notes(4)),0,notes(0).size/1)

  }

  MelodyA

  MelodyA

  def play(note:(Int,Int)) = {

    line.write(effect2(notes(note._1)),0,notes(note._1).size/note._2)

  }

  play(0,8)

  play(1,8)

  play(2,8)

  play(3,8)

  play(2,8)

  play(1,8)

  play(0,8)

  val Music = List((4,4),(4,4),(4,4),(1,2), (3,4),(3,4),(3,4),(0,2))

  Music.foreach(note => play(note))

import javax.sound.sampled._

import scala.util.Random

// オーディオ形式を指定

val SAMPLE_RATE = 44100; // 44.1KHz

val audio_format = new AudioFormat(SAMPLE_RATE, 8, 1, true, true)

val line = AudioSystem.getSourceDataLine(audio_format)

line.open()

line.start()

// 三角波を高さと長さを変えて繰り返し再生。だんだん 高く 短く

for(k <- 1 to 5; j <- 1 to 10) line.write(Array.tabulate(SAMPLE_RATE)(i => (i*j).toByte) , 0 , SAMPLE_RATE/10/k)

line.write(Array.tabulate(SAMPLE_RATE)(i => (i*1).toByte) , 0 , SAMPLE_RATE)

val C1 = 1.0;

val G1 = 3.0/2.0;

val C2 = 2.0;

val SEQ = List( (C1,2) , (G1, 1) , (C2, 1) );

def play(p:Double, len:Int) = line.write(Array.tabulate(SAMPLE_RATE/len)(i => (i*p).toByte) , 0 , SAMPLE_RATE/len);

play(C1,1)

play(G1,2)

for( note <- SEQ ) { play(note._1, note._2) }

 for( note <- SEQ.reverse ) { play(note._1, note._2) }

 for( note <- SEQ ) { play(note._1 *2, note._2 *3) }

import scala.util.Random

val r = new Random

scala> r.nextDouble()

res4: Double = 0.8725661424461074

for( i <- 1 to 20) play(r.nextDouble()*8, 8)

def updown = {

    for(k <- 1 to 15 by 1) line.write(Array.tabulate(SAMPLE_RATE)(i => (i*k).toByte) , 0 , SAMPLE_RATE/30);

    for(k <- 15 to 1 by -1) line.write(Array.tabulate(SAMPLE_RATE)(i => (i*k).toByte) , 0 , SAMPLE_RATE/30);

}

updown