// Ht System.RandomSeed=20220101 Array Melo=("c","d","f","g","a") Array Len=() Tempo=44 #MML_1="q=100 o5d2 " #MML_2="q=100 o5d2 " #MML_3="q=100 o5d2 " #MML_4="q=100 o5d2 " [(32) Len=() Switch(RandomSelect(0,1,1,2,3,4,5)){ Case(0){Len(0)="2"} Case(1){Len(0)="4" Len(1)="4"} Case(2){Len(0)="4" Len(1)="8" Len(2)="8"} Case(3){Len(0)="8" Len(1)="8" Len(2)="8" Len(3)="8"} Case(4){Len(0)="8." Len(1)="16" Len(2)="8" Len(3)="8"} Case(5){Len(0)="4 BR(2) p%.T(-8000,0,!8)" Len(1)="8" Len(2)="8"} } [(SizeOf(Len)) #MML_1=#MML_1+"o"+RandomSelect(4,5,5)+Melo(Random(SizeOf(Melo)))+Len(Random(SizeOf(Len))) +" " #MML_2=#MML_2+"o"+RandomSelect(5,5,6)+Melo(Random(SizeOf(Melo)))+Len(Random(SizeOf(Len))) +" " #MML_3=#MML_3+"o"+RandomSelect(5,5,6)+Melo(Random(SizeOf(Melo)))+Len(Random(SizeOf(Len))) +" " #MML_4=#MML_4+"o"+RandomSelect(5,6,6)+Melo(Random(SizeOf(Melo)))+Len(Random(SizeOf(Len))) +" " ] ] #MML_1=#MML_1+"o5d2" //Print(#MML_1) #MML_2=#MML_2+"o5d2" //Print(#MML_2) #MML_3=#MML_3+"o5d2" //Print(#MML_3) #MML_4=#MML_4+"o5d2" //Print(#MML_4) TR(1) P(64-30) V(120) @Shamisen #MML_1 // Pipa TR(2) P(64-00) V(120) @Bassoon #MML_2 // Ban di TR(3) P(64+30) V(060) @Fiddle #MML_3 // Erhu TR(4) P(64+00) V(100) @TaikoDrum #MML_4 // Percussion