// 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+" 秒)