// SoundScape 2024

Int RSD=2024 // 乱数の種
Int tpo=20 // テンポ
Int trk=2 // トラック数
Int nlw=64 // 音程の下限
Int nup=78 // 音程の上限

Int i=1 Int j=1
TempoChange(tpo)
[8
  RSD=RSD+j
  System.RandomSeed=RSD
  [(trk) TR(i)
    @(Random(1,118)) 
    v.Random=48 t.Random=240 q(Random(90,160))
    [(16*(16/trk))
      Time(16*(j-1)+Random(16)+1:Random(4)+1:0) n(Random(nlw,nup))
    ]
    i++
  ]
  j++ i=1
]

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