//A_net cafe 音源初期化 // 2012.01.24 Bass Vol. 127 ~ 90 & Drums Vol. 120~100~80 TR 1 STR C={cefgb} //もとねた STR D={}// もとねたより1文字をランダムで切り出し代入 STR E={cg}// 3ch用 パッドにしようとした STR F={}//それの 切り出し代入用 INT R=0 // 元ネタのR文字目 INT Q=8 //音符長さの元ネタ INT N=0 //Dの音符のノート番号を代入 INT U=0 //オクターヴの元ネタ INT W=0 // 3chの長さ用 INT J=0 INT G=3//3 or 12 STR ZEN={} STR ZZ={} STR ZC={} INT I=1 @1 q229 P(90)Tempo=130 V 120 TR 3 @1 q99 P(90) V 120 t-2 [8 R=Random(1,6) D=MID(C,R,1) ZEN=ZEN+D] [8ZZ=MID(ZEN,I,1)Q=RandomSelect(1,2,4,8)/*(4,8,8,2,4,8,4,2,8)*/ U=RandomSelect(5,6,4,6) ZC=ZC+{l}+#STR(Q)+{o}+#STR(U)+ZZ I=I+1]PRINT(ZC) [108 R=Random(1,6) Q=RandomSelect(4,8,2,4,4,2,1,4,8,8) U=RandomSelect(5,5,4,6) W=RandomSelect(1,1,1,2,2)D=MID(C,R,1) N=NoteNo(D) F=MID(E,J,1) G=RandomSelect(3,9,12,15) TR 1 o(U) l(Q) Sub{D;}n(N+G); TR 3 o(U) v(Random(10,80)) l(Q) n(N-1); ] TR 6 @3 q 229 P(30) V 120 [16o(U) I=I+1ZC;] TR 2 @34 o4 l16 q 99 P(50) V 080 [36Sub{c^^^ ^^rc g^fg^f^g}] TR 4 @81 o3 l16 P(10)q 300 ~{え}={'cg`c`b-'} V 20 [36えrええ|えrええ|rええr|えええr] TR 5 @105 o2 l4 q99 V 20 P(110) p% 8192 [144'cgb-`````cb-'] TR 10 CH=10 v 80 V 090 l16 ~{た}={'n(40),,,127n(37),,,127n(65),,,80 | n(65),,,24,24'} ~{ず}={'n(35)n(36) n(41),,,50n(86),,,50'} //<リズムパターンの定義> #DRUM1 = { Sub{ つっつっ|つっつつ|っつっつ|っつっつ } Sub{ っっっっ|っっっっ|っっとっ|っっっっ } Sub{ っっっっ|っっっっ|っっっむ|っっっっ } Sub{ っっっっ|っっっっ|っっっっ|ろっっっ } Sub{ っっっっ|たっっっ|っっっっ|っっっっ } ずっっっ|っっずっ|ずっっっ|っっずっ } [9Sub{[4#DRUM1]}ぱrrrr2.|r1r1r1]