「SoundScape 2016」のための作曲プログラム

MIDIデータ生成（SS2016.awk）

BEGIN{

 OFS=","

 srand(seed)

 f="mml/" seed ".mml"

 print "System.RandomSeed=" seed > f

 print "TrackName{\"" "Soundscape 2016 (No." seed ")\"}" > f

 print "System.TimeSignature=16,16" > f

 print "Int p1=Random(1,116) y20,p1" > f

 print "Int p2=Random(1,116) y21,p2" > f

 print "@RandomSelect(95,10,95,15,95,90,95)" > f

 print "Tempo=30" > f

 print "seq","bar","beat","note","v","q","t"

 for (i=1; i<=(16*16); i++){

   bar=int(rand()*16)+1

   beat=int(rand()*16)+1

   note=int(rand()*(96-12)+12)

   v=int(rand()*32)+80

   q=int(rand()*(160-90)+90)

   t=int(rand()*16)

   print i,bar,beat,note,v,q,t

   print "Time(" bar ":" beat ":0) n(" note "),," q "," v "," t > f

 }

 close(f)

 system("start cSakura " f)

 system("start mml/" seed ".mid")

}

# f.e.　gawk -f SS2016.awk -v seed=00001 > 00001.csv

#プログラミング