//ドラムのグリッチがやりたかっただけなので，曲は非常に適当です


TrackName={ "Love in DustBox (グリッチの実験)" }
Copyright={ "R*3" }



// ChorusSetting     Wave  Mix Dpth   FB Freq  Dly  Phs
CuePoint={"TwmChorus(   1, 127,  800,  90,   1,  50,   170)"}

TR=10 REV=10 P=64 @27,90 CHO=0
Str DR1={  v110n49,0
		Sub{ 	l16 v110n42v40n42v50n42v110n42	v40n42n42v70n42v90n46	v70n42v100n46v70n44v80n46	v70n42v40n42v80n42v110v42 } 	//Hihat
		Sub{ 	l16 v100 n36rrr			 rrv70n36v100n36		 rrrv80n36 				rrrr } 				// Kick
		Sub{ 	l16 v40 rn44rv110n40		rv40n37v60n40r		v40n38n38rr				v110n40v40rn37r	}		//Snare
			l16 [4v90 n82 v20 n82 v60n42 v40n82]
		
		Sub{ 	l16 v110n42v40n42v50n42v110n42	v40n42n42v70n42v90n46	v70n42v100n46v70n44v80n46	v70n42v40n42v80n42v110v42 } 	//Hihat
		Sub{ 	l16 v100 n36rrr			 rrv70n36v100n36		 rrrv80n36 				rrrr } 				// Kick
		Sub{ 	l16 v40 rn44rv110n40		rv40n37v60n40r		v40n38n38rr				v110n40v40rn37r	}		//Snare
			l16 [4v90 n82 v20 n82 v60n42 v40n82]
	 }
	 
	 
Str DR2={   Sub{	l4 v90 n49n49n49n49 }
		Sub{ 	l16 v110n42v40n42v50n42v110n42	v40n42n42v70n42v90n46	v70n42v100n46v70n44v80n46	v70n42v40n42v80n42v110v42 } 	//Hihat
		Sub{ 	l16 v100 n36rrr			 rrv70n36v100n36		 rrrv80n36 				rrrr } 				// Kick
		Sub{ 	l16 v40 rn44rv110n40		n38v40n37v60n40n38	v40n38n38rr				v110n40v40n38n37n47	}		//Snare
			l16 [4v90 n82 v20 n82 v60n42 v40n82]
			
		
		Sub{ 	l16 v110n42v40n42v50n42v110n42	v40n42n42l32v80[4n42]l16	v70n42v100n46v70n44v80n46	v70n42v40n42v80n42v110v42 } 	//Hihat
		Sub{ 	l16 v100 n36rrr			 rrv70n36v100n36		 rrrv80n36 				rrrr } 				// Kick
		Sub{ 	l16 v40 rn44rv110n40		n38v40n37v60n40n38	v40n38n38rr				v110n40v40n38n37n47	}		//Snare
			l16 [4v90 n82 v20 n82 v60n42 v40n82]
			
	 }

	 
	 
	 
	 
	 
	 
/*-=============================================================================
Glitch
-===============================================================================*/


//Pitch Down
Str PD2={BR=24  p.T(64,0,!2,64)r2 p64}
Str PD4={BR=16  p.T(64,0,!4,64)r4 p64}
Str PD8={BR=12  p.T(70,0,!8,64)r8 p64}

//Pitch Up
Str PU2={BR=24 p.T(0,127,!2)r2 p64}
Str PU4={BR=16 p.T(0, 64,!4)r4 p64}

//Bit Crush
Str BCA4={BR=12 p0 r4 p64 }
Str BCB4={BR=24 p0 r4 p64 }

//Gate
Str Gt8 ={V.T(127,127,!32,0,0,!32.)r8 V=127 }
Str Gt16={V.T(127,127,!32,0,0,!32)r16 V=127 }
Str Gt32={V.T(127,127,!64.,0,0,!128) r32 V=127 }

//Stutter(l8)
Str StA_CH ={ Sub{l128 [12  'v0n36n40n44n46n38n37v80n42']r}r8l16  }
Str StA_OH ={ Sub{l128 [12  'v0n36n40n44n42n38n37v80n46']r}r8l16  }
Str StA_Kc ={ Sub{l128 [12  'v0n42n40n44n46n38n37v80n36']r}r8l16  }
Str StA_Sn ={ Sub{l128 [12  'v0n42n36n44n46n38n37v80n40']r}r8l16  }

Str StB_CH ={ Sub{ BR=2 p80 l128. [16  'v0n36n40n44n46n38n37v80n42'] }r8 l16  }
Str StB_OH ={ Sub{ BR=2 p80 l128. [16  'v0n36n40n44n42n38n37v80n46'] }r8 l16  }
Str StB_Kc ={ Sub{ BR=2 p80 l128. [16  'v0n42n40n44n46n38n37v80n36'] }r8 l16  }
Str StB_Sn ={ Sub{ BR=2 p80 l128. [16  'v0n42n36n44n46n38n37v80n40'] }r8 l16  }

//Reverb
Str RV4={REV=127 r4 REV=10}

//Doubling
Str DB4={ [16 P.T(0,127,!128,127,0,!128) r64 ] P=64 }

//Flanger
Str Fl2={ CHO=127 r2 CHO=0} 





Sub{[12 DR1 ]}
//Glitch Perform
[3
PD8 PD8			[4 Gt16]			BCA4	 			RV4
StA_CH StA_OH		r4 				DB4				PD4
StB_OH PD8			Fl2								PU4
[8 Gt32 ]			Sub{DB4} BCB4		PD2				

PU2								Sub{BCA4}RV4		Sub{DB4}StB_Kc StB_Sn
[4Gt16] 			Fl2				Sub{DB4} Sub{PU2} StA_Sn r8 		StA_CH StB_Sn
RV4				[4Gt16]			BCA4				Gt8
Sub{Fl2} DB4		StB_OH StA_Kc		PD2			
]


[4r1]

v110 
[16 n37,4]





Sub{[8 DR2 ]}
//Glitch Perform
[2
PD8 PD8			[4 Gt16]			BCA4	 			RV4
StA_CH StA_OH		r4 				DB4				PD4
StB_OH PD8			Fl2								PU4
[8 Gt32 ]			Sub{DB4} BCB4		PD2				

PU2								Sub{BCA4}RV4		Sub{DB4}StB_Kc StB_Sn
[4Gt16] 			Fl2				Sub{DB4} Sub{PU2} StA_Sn r8 		StA_CH StB_Sn
RV4				[4Gt16]			BCA4				Gt8
Sub{Fl2} DB4		StB_OH StA_Kc		PD2			
]




/*-============================
Click
-==============================*/
TR=1 @82 q5 o6  REV=127 V.T(60,127,!1+1+1+1+1+1+1+1)
[30`cccc]
r1+1 r8
q5
Sub{o7v80
[16`cccc]
}
v100 o6
[16`cccc]

v110
[8`cccc]

V.T(127,127,!1,127,0,!1+1+1+1+1)
[6`cccc]


/*-============================
Guit
-==============================*/
TR=2 @30 [8r1] q100 o3    EP=110

Sub{ ['"b-f``d'1+1+1+1+1+1+1+1]  [8'"b-e-g``d'1+1 '"fe-g`a-'1 'ce-g`b-'1 ] }
[5
PD8 PD8		 	Fl2							RV4
StA_CH StA_OH		DB4				Sub{DB4} BCB4	PD4
StB_OH PD8										PU4
Sub{BCA4}RV4		[8 Gt32 ]				PD2				

[4Gt16]			 PU2							Sub{DB4}StB_Kc StB_Sn
Fl2								Sub{DB4} Sub{PU2} StA_Sn r8 		BCA4
StA_CH StB_Sn		RV4				[4Gt16]			BCA4
Gt8				Sub{Fl2} DB4		StB_OH StA_Kc		PD2			
]




/*-============================
Guit
-==============================*/
TR=3 @31 [8r1] q100 o3 EP=120

Sub{ ['"b-f``d'1+1+1+1+1+1+1+1]  [8'"b-e-g``d'1+1 '"fe-g`a-'1 'ce-g`b-'1 ] }
[5
PD8 PD8		 	Fl2							RV4
StA_CH StA_OH		DB4				Sub{DB4} BCB4	PD4
StB_OH PD8										PU4
Sub{BCA4}RV4		[8 Gt32 ]				PD2				

[4Gt16]			 PU2							Sub{DB4}StB_Kc StB_Sn
Fl2								Sub{DB4} Sub{PU2} StA_Sn r8 		BCA4
StA_CH StB_Sn		RV4				[4Gt16]			BCA4
Gt8				Sub{Fl2} DB4		StB_OH StA_Kc		PD2			
]






/*-============================
Bass
-==============================*/
TR=5 @82 [8r1] q100 o2 

Sub{ ['"b-'1+1+1+1+1+1+1+1]  [8'"b-'1+1 '"f'1 'c'1 ] }
[5
PD8 PD8		 	Fl2							RV4
StA_CH StA_OH		DB4				Sub{DB4} BCB4	PD4
StB_OH PD8										PU4
Sub{BCA4}RV4		[8 Gt32 ]				PD2				

[4Gt16]			 PU2							Sub{DB4}StB_Kc StB_Sn
Fl2								Sub{DB4} Sub{PU2} StA_Sn r8 		BCA4
StA_CH StB_Sn		RV4				[4Gt16]			BCA4
Gt8				Sub{Fl2} DB4		StB_OH StA_Kc		PD2			
]