SoundScape 2020 音楽プログラム

0

SoundScape 2020(Piano Version)
https://youtu.be/wuN38GKMJvE

// SoundScape 2020 生成プログラム

Int rsd=Random(2020) // 乱数の種
Int tpo=Random(20,40) // テンポ
Int trk=Random(1,9) // トラック数
Int nlw=Random(36,60) // 音程の下限
Int nup=Random(48,86) // 音程の上限
Array PC=(1) // 音色配列 Piano Solo version
//Array PC=(1,1,5,7,9,12,13,25,42,47,48,49,50,51,52,53,58,61,69,71,72,74,78,107,108,117) // GMの例 
Print("Seed="+rsd,"Tempo="+tpo,"Trk="+trk,"Note="+nlw,nup,"PC="+PC)

System.RandomSeed=rsd
ResetGM; Int i=1
TempoChange(tpo)
[(trk) TR(i) // CH(1) for no multi timbre
@(RandomSelect(PC)) v.Random=24 t.Random=240 q(Random(90,160))
[(16*(16/trk))
Time(Random(16)+1:Random(4)+1:0) n(Random(nlw,nup))
]
i++
]
Time(17:1:0) l1r

Int TM=Time/TimeBase*(600000/Tempo)/10000 Print("演奏は "+TM/60+" 分 "+ TM%60+" 秒)

Default