- mugen Museum
- 30F SoundScape 2020 (時の断片)
- SoundScape 2020 音楽プログラム
SoundScape 2020 音楽プログラム
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](https://d3caz7hhiepl95.cloudfront.net/assets/user/default-6344dcd9594efe2c770024a51c383175.png)