/*

GSでどこまでSuoer Sawできるか実験です。
曲自体はダサいですが、音色はそこそこ満足できるかな・・・
次は真面目に作ったやつ投稿します！


*/

TrackName={"Corsten"}
Copyright={"R*3"}



Tempo=137
ResetGS;r1;TrackSync
KeyFlag-(eab)

Int PB={12}

Str RF={ l16
'ce'r"c'ce'  r"c'ce'r "c'ce'r"c 'ce'r'ce'r
'cf'r"c'cf' r"c'cf'r "c'cg'r"c 'cg'r'cg'r
'"bf'r""b'"bf'  r""b'"bf'r ""b'"bf'r""b '"bf'r'"bf'r
'"bg'r""b'"bg'  r""b'"bg'r ""b'eb'r""b 'eb'r'eb'r
'"ae'r""a'"ae'  r""a'"ae'r ""a'"ae'r""a '"ae'r'"ae'r
'"af'r""a'"af'  r""a'"af'r ""a'"ag'r""a '"ag'r'"ag'r
'"ge'r""g'"ge'  r""g'"ge'r ""g'"ge'r""g '"ge'r'"ge'r
'"gd'r""g'"gd'  r""g'"gd'r ""g'"gd'r""g '"gd'r'"gd'r  }

Str RF2={ l16 [4
'ce'r"c'ce'  r"c'ce'r "c'ce'r"c 'ce'r'ce'r
'cf'r"c'cf' r"c'cf'r "c'cg'r"c 'cg'r'cg'r ]   [4'ce'r"c'ce'  r"c'ce'r "c'ce'r"c 'ce'r'ce'r] 
[4'ce'r"c'ce'  r"c'ce'r][8'ce'"c] [8'ce'] "e'cg'r"e 'cg'r'gb'r }

Str RF3={ l16 [4
'ce'r"c'ce'  r"c'ce'r "c'ce'r"c 'ce'r'ce'r
'cf'r"c'cf' r"c'cf'r "c'cg'r"c 'cg'r'cg'r ]   [4'ce'r"c'ce'  r"c'ce'r "c'ce'r"c 'ce'r'ce'r] 
[4'ce'r"c'ce'  r"c'ce'r][8'ce'"c] [8'ce']  }

Str RF4={ l16 [16
'ce'r"c'ce'  r"c'ce'r "c'ce'r"c 'ce'r'ce'r
'cf'r"c'cf' r"c'cf'r "c'cg'r"c 'cg'r'cg'r ]  }

Str SS1={ [2RF] V.T(100,100,!1+1,100,20,!1+1+1+1+1+1+1+1,20,60,!1+1 +1+1+1,60,100,!1) RF2 [4RF] V.T(100,40,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1)RF4}
Str SS2={ [2RF] V.T(080,080,!1+1,080,20,!1+1+1+1+1+1+1+1,20,50,!1+1 +1+1+1,50,080,!1) RF2 [4RF] V.T(080,30,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1)RF4}


TR=1  r1 [16r1]  V.T(10,100,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=2  r1 [16r1]  V.T(10,100,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=3  r1 [16r1]  V.T(10,100,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=4  r1 [16r1]  V.T(10,100,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=5  r1 [16r1]  V.T(10,100,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=6  r1 [16r1]  V.T(10,100,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=7  r1 [16r1]  V.T(10,100,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=11 r1 [16r1]  V.T(10,080,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=12 r1 [16r1]  V.T(10,080,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=13 r1 [16r1]  V.T(10,080,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=14 r1 [16r1]  V.T(10,080,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  
TR=15 r1 [16r1]  V.T(10,080,!1+1+1+1 +1+1+1+1 +1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) Sub{[16r1]q100}  


TR=1  @82,1 BR=1 p64 - PB*3 r64   P=0   o6 REV=60 Sub{ v60 r4+8 SS1 } Sub{ v80 r8 SS1 } v127 SS1
TR=2  @82,1 BR=1 p64 - PB*2 r128  P=34  o6 REV=60 Sub{ v60 r4+8 SS1 } Sub{ v80 r8 SS1 } v127 SS1
TR=3  @82,1 BR=1 p64 - PB*1 r256  P=50  o6 REV=60 Sub{ v60 r4+8 SS1 } Sub{ v80 r8 SS1 } v127 SS1
TR=4  @82,1 BR=1 p64 - PB*0       P=64  o6 REV=60                                       v127 SS1
TR=5  @82,1 BR=1 p64 + PB*1 r256  P=78  o6 REV=60 Sub{ v40 r4+4 SS1 } Sub{ v80 r4 SS1 } v127 SS1
TR=6  @82,1 BR=1 p64 + PB*2 r128  P=94  o6 REV=60 Sub{ v40 r4+4 SS1 } Sub{ v80 r4 SS1 } v127 SS1
TR=7  @82,1 BR=1 p64 + PB*3 r64   P=127 o6 REV=60 Sub{ v40 r4+4 SS1 } Sub{ v80 r4 SS1 } v127 SS1

TR=11 @82,1 BR=1 p64 + PB*3 r128  P=20  o5 REV=60 Sub{ v60 r4+8 SS2 } Sub{ v80 r8 SS2 } v127 SS2
TR=12 @82,1 BR=1 p64 + PB*1 r128  P=42  o5 REV=60 Sub{ v60 r4+8 SS2 } Sub{ v80 r8 SS2 } v127 SS2
TR=13 @82,1 BR=1 p64 + PB*0       P=64  o5 REV=60 SS2
TR=14 @82,1 BR=1 p64 - PB*1 r128  P=71  o5 REV=60 Sub{ v40 r4+4 SS2 } Sub{ v80 r4 SS2 } v127 SS2
TR=15 @82,1 BR=1 p64 - PB*3 r128  P=107 o5 REV=60 Sub{ v40 r4+4 SS2 } Sub{ v80 r4 SS2 } v127 SS2


Str Bass={ P=64 REV=5 p65 l16 o3 q70 [8rrcc]<[6rrbb]>[rree]<[8rraa][8rrgg]>}
Str Bass2={ l16 [60rrcc][4rree] }

Str Pluck={ r-8 l16 o5 v127 gb `e`dbg  v100 `e`dbg v80 `e`dbg v60 `e`dbg  v40 `e`dbg  v20 `e`dbg v10 `e`dbg rrrr
            r-8 l16 o5 v127 eg `e`dge  v100 `e`dge v80 `e`dge v60 `e`dge  v40 `e`dge  v20 `e`dge v10 `e`dge rrrr
		r-8 l16 o5 v127 gb `e`dbg  v100 `e`dbg v80 `e`dbg v60 `e`dbg  v40 `e`dbg  v20 `e`dbg v10 `e`dbg rrrr
            r-8 l16 o5 v127 eg `e`dge  v100 `e`dge v80 `e`dge v60 `e`dge  v40 `e`dge  v20 `e`dge v10 `e`dge rrrr v127 }

TR=8 @81,8 P=64   p63 r1 V.T(30,127,!1+1+1+1 +1+1,127,0,!1+1 +1+1+1+1+1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1)
              o4 Sub{[24r1]q100} REV=80 Sub{ v60 r4+8 [2RF] } Sub{ v80 r8 [2RF] } v127 [2RF] 
		  @39,1  V.T(20,127,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1)v127[Bass] Bass2 [2 Bass] Sub{ [4Pluck] } [2Bass] Bass2  [64rrcc]

TR=9 @39,1 P=64   p66 r1 V.T(10,30,!1+1+1+1,30,127,!1+1+1+1 +1+1+1+1 +1+1+1+1+1,127,0,!1+1+1+1 +1+1+1+1+1 +1+1+1+1 +1+1+1+1) q.T(20,100,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) 
              Sub{[16r1]q100} REV=80  o5  Sub{[8r1]q100} Sub{ v40 r4+4 [4RF] RF3 } Sub{ v80 r4 [4RF] RF3 } v127 [4RF] V.T(0,127,!1+1+1+1,127,127,!1+1+1+1,127,80,!1+1+1+1 +1+1+1,80,20,!1) RF2
		  @51,0 o6 REV=80 V=60 q100
		  [4'"cceg'1+1 '""b"beg'1+1 '""gceg'1+1 '""f"bdg'1+1]'"cceg'1+1+1+1+1+1+1+1
 

TR=16 @126,7 o10 V.T(0,127,!1) v127 P=64 g^^^ [r1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1:r1]g^^^  [3r1+1+1+1 +1+1+1+1 +1+1+1+1  +1+1+1 g^^^][7 r1+1+1+1 ]  r1+1+1 g^^^
 

TR=10 @27,90 REV=-1
r1
n36,0
[r1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1r1]
'n36n49'0
r1+1 V.T(0,127,!1+1 +1+1+1+1) REV.T(127,3,!1+1 +1+1+1+1) l16 Sub{ r1+1+1+1 +1+1 v0 [120 v+1 n38] n38 } v127 [216 n36 ] n36,0 r2

n49,0

l8
[31 n36n46'n36n39'n46]n36n46n39n46

n49,0 l8
[24 n36n46'n36n39'n46]n36,0[8rn46n39n46] r-2 l16 v40 [8n36v+10]  
v127
n49,0 l8
[24 n36n46'n36n39'n46]n36,0[8rn46n39n46]

v127
n49,0 l8
[24 n36n46'n36n39'n46]n36,0[8rn46n39n46] REV=-1 'n49n36'