ド・レ・ファ・ソの4音だけで作った音楽

// Tetratonic #01
Tempo=60 System.RandomSeed=(2022-01)
Int N=12*4
Array M1=("c","d","f","g")
#T1 ="@(Kalimba) P(44) V(100) REV(69) t.Random(2) v.Random(50) q(100)" #T2 ="@(Marimba) P(54) V(100) REV(69) t.Random(2) v.Random(50) q(100)" #T3 ="@(SteelDrums) P(74) V(080) REV(96) t.Random(2) v.Random(50) q(100)" #T4 ="@(Kalimba) P(84) V(100) REV(69) t.Random(2) v.Random(50) q(100)" #T5 ="@(Sitar) P(64) V(040) REV(96) t.Random(2) v.Random(10) q(100)" #T6 ="@(Fiddle) P(68) V(040) REV(96) t.Random(4) v.Random(10) q(100)" #T7 ="@(Fiddle) P(68) V(040) REV(96) t.Random(4) v.Random(10) q(100)" #T10 ="@49 P(64) V(060) REV(96) t.Random(8) v.Random(10) q(100)" #PB ="p(64+Random(-8,+8))"

TR=1 #T1 [00 r1] [(8*N) #MML =#PB+"o6"+M1(Random(SizeOf(M1)))+"8" #MML ]
TR=2 #T2 [04 r1] [(8*N) #MML =#PB+"o5"+M1(Random(SizeOf(M1)))+"8" #MML ]
TR=3 #T3 [08 r1] [(4*N) #MML =#PB+"o4"+M1(Random(SizeOf(M1)))+"4" #MML ]
TR=4 #T4 [12 r1] [(8*N) #MML =#PB+"o6"+M1(Random(SizeOf(M1)))+"8" #MML ]
TR=5 #T5 [16 r1] [(2*(N-1)) #MML ="o"+RandomSelect(4,5)+M1(Random(SizeOf(M1)))+"2" #MML ]
TR=6 #T6 [16 r1] [(1*(N-1)) #MML ="o"+RandomSelect(4,5)+M1(Random(SizeOf(M1)))+"1" #MML ]
TR=7 #T7 [16 r1] [(2*(N-1)) #MML ="o"+RandomSelect(5,6)+M1(Random(SizeOf(M1)))+"2" #MML ]
TR=10 #T10 [16 r1] [(1*(N-1)) #MML ="n(59)"+"1" #MML ]