-
- mugen Museum
- 33F 習作
- KOTEKAN
KOTEKAN
音楽生成スクリプト
// Kotekan
System.RandomSeed=(2018-1)
Array SC=("c","e","f","g","b")
Str S_H="10100100100100100100100100100100"
Str S_L="01001001001001001010010010010010"
Str P_H="00010010010010010001001001001001"
Str P_L="10100100100100100100100100100100"
Int i Int Gm_1 Int Gm_2
[8
#M1="l16 o6" #M2="l16 o5" #M3="l16 o5" #M4="l16 o4"
i=1
[32
IF (MID(S_H,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M1=#M1+#W
IF (MID(S_L,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M2=#M2+#W
IF (MID(P_H,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M3=#M3+#W
IF (MID(P_L,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M4=#M4+#W
i++
]
Gm_1=RandomSelect(10,12,13,14) Gm_2=RandomSelect(10,12,13,14)
Tempo=RandomSelect(30,45,60,75,90)
TR=1 @(Gm_1) P(64-48) v.Random(40) q(200) [4 #M1] "r4"
TR=2 @(Gm_1) P(64+16) v.Random(40) q(200) [4 #M2] "r4"
TR=3 @(Gm_2) P(64-16) v.Random(40) q(200) [4 #M3] "r4"
TR=4 @(Gm_2) P(64+48) v.Random(40) q(200) [4 #M4] "r4
]
https://youtu.be/zxTH0yIOXME
