//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}<c^^^ ^^rcc^cc^c^c>]

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]