TrackName={"The Ocean Floor"}
Copyright={"R*3"}

/*

１時間で曲作ろうとしたら５時間経過してましたって感じです。
もともとフルレングスで作る気がないのでメインの部分だけで投稿しちゃいます。

*/


Tempo=133

ResetGS;TrackSync

KeyFlag-(eab)
Include(groove.h);
Include(gs.h);


//_ TR=1,2,3  *** Pluck

Str Pluck01={ l16  [
              ' "c cef'rr' "c cef'  rr' "c cef'r   r' "c ceg'rr   '"c ceg'r'"c ceg'r
              '""a"aef'rr'""a"aef'  rr'""a"aef'r   r'""a"aeg'rr   '""a"aeg'r'""a"aeg'r
              '""e"bef'rr'""e"bef'  rr'""e"bef'r   r'""e"beg'rr   '""e"beg'r'""e"beg'r
              '""b"gdf'rr'""b"gdf'  rr'""b"gdf'r   r'""b"geg'rr   '""b"gfb'r'""b"gfb'r  ] }

Str Pluck02={ l16  
              ' "c cef'rr' "c cef'  rr' "c cef'r   r' "c ceg'rr   '"c ceg'r'"c ceg'r
              '""a"aef'rr'""a"aef'  rr'""a"aef'r   r'""a"aeg'rr   '""a"aeg'r'""a"aeg'r
              '""e"bef'rr'""e"bef'  rr'""e"bef'r   r'""e"beg'rr   '""e"beg'r'""e"beg'r
              '""b"gdf'rr'""b"gdf'  rr'""b"gdf'r   r'""b"geg'rr   '""b"gfb'r'""b"gfb'r  q.T(80,500,!1+1+1+1)
		  ' "c cef'rr' "c cef'  rr' "c cef'r   r' "c ceg'rr   '"c ceg'r'"c ceg'r
              '""a"aef'rr'""a"aef'  rr'""a"aef'r   r'""a"aeg'rr   '""a"aeg'r'""a"aeg'r
              '""e"bef'rr'""e"bef'  rr'""e"bef'r   r'""e"beg'rr   '""e"beg'r'""e"beg'r
              '""b"gdf'rr'""b"gdf'  rr'""b"gdf'r   r'""b"geg'rr   '""b"gfb'r'""b"gfb'r  q.T(80,80,!1) }


TR=1 @40,16 q70    REV=50 P=64 BR=1 p64 Swing16(2) o5 [16r1] r1
V.T(40,120,!1+1+1+1) v100 [4 Pluck01 ] Pluck02 V=127 v127 [5 Pluck01] V.T(120,0,!1+1+1+1+1+1+1+1)Pluck01

TR=2 @40,16 q70 r8 REV=70 P=0   Swing16(2) o5 [16r1] r1
V.T(10,85,!1+1+1+1) Sub{ r4 v80 [4 Pluck01 ] Pluck02 [5 Pluck01] }  v100 [4 Pluck01 ] Pluck02 [5 Pluck01] V.T(85,0,!1+1+1+1+1+1+1+1)Pluck01

TR=3 @40,16 q70 r4 REV=70 P=127 Swing16(2) o5 [16r1] r1
V.T(10,70,!1+1+1+1) Sub{ r4 v80 [4 Pluck01 ] Pluck02 [5 Pluck01] }  v100 [4 Pluck01 ] Pluck02 [5 Pluck01] V.T(70,0,!1+1+1+1+1+1+1+1)Pluck01








//_ TR=5,6  *** Bass

Str Bass01={ l4  Sub{ [8 [4 EP.T(0,30,!16,30,127,!8) r4 ] ] }
                 Sub{ o3 v127 c^^r  a^^r e^^r "b^^r    c^^r  "a^^r e^^r "b^^r }
                      o2 v127 c^^r  a^^r e^^r "b^^r    c^^r  "a^^r e^^r "b^^r   }
TR=5 @82 q100 REV=0 V=127 P=64 [32r1] r1
[7 Bass01 ]

TR=6 @88 q100 REV=0 V=127 P=64 [32r1] r1
[7 Bass01 ]









//_ TR=7,12 *** Pad

Str Pad01={ l2 Sub{ o4 v127 l2 c^"a^"e^"b^  c^"a^"e^"b^ }
               Sub{ o6 v127 l2 e^^^ "b^c^   e^^f "b^c^  }
               Sub{ o5 v100 l2 g^a^  e^d^   g^a^  e^d^  }
               Sub{ o6 v100 l2 c^^^ "g^^^   c^^^ "g^^^  }
                    o6 v70  l2 "e^"f^d^e^  "e^"f^ g^ed       }    

TR=7  @90 q100 REV=90 BR=1 p65 r1 P=127  Sub{ V=80 [32r1] V=70 [16r1]  V=60 [8r1] V=55 [32r1] V=80 } [13 Pad01 ]
TR=12 @90 q100 REV=90 BR=1 p62 r1 P=0    Sub{ V=80 [32r1] V=70 [16r1]  V=60 [8r1] V=55 [32r1] V=80 } [13 Pad01 ]









//_ TR=16 *** Rev Cymbal
TR=16 @126,7 q100 REV=127 o10 e1 BR=24
[15 r1 ] e1
[15 r1 ] e1
[15 r1 ] e1 

@127,0 Sub{ [8 P.T(64,20,!4,20,107,!2,107,64,!4,64,20,!4,20,107,!2,107,64,!4,) r1 ] }
[4 r1 ] Sub{ o6 V.T(0,127,!1+1+1+1,127,0,!1+1) p.T(0,127,!1+1+1+2. ) r1'c`c'1+1+1+1+1 }r1+1+1

 @126,7 q100 REV=127 o10 e1 BR=24
[15 r1 ]V=127 p64 e1
[15 r1 ] e1
[15 r1 ] e1







//_ TR=8,9,11 *** Piano

Str Piano01={ crrr rrrr rrbf rrge  rrrr rrrr drrr rrrr 
              crrr rrrr rrbf rrg`c rrrr rrrr frrg rrdr
		  errr rrrr rrbf rrge  rrrr rrrr drrr rrrr 
              crrr rrrr rrbf rrg`c rrrr rrrr frrg rrdr   }
		  
Str Piano={  Piano01  c0 [24 r1 ] Piano01 c0 [16 r1 ] Piano01 Piano01 }

TR=8 @2 o6 q80 l8 V=127 v127 REV=90  r1 Piano

TR=9 @1 o6 q80 l8 V=127 v127 REV=90  r1 Piano

TR=11 @2 o6 q80 l8 V=100 v127 REV=127 P.onNote(127,0) r4  r1
Sub{ r2. v60  Piano }  
Sub{ r2  v80  Piano }
Sub{ r4 v100  Piano }
Sub{    v127  Piano }











//_ TR=10 *** 909 Drum

Str Kick01={ l4 v127 [8[4 'n36n27n33' ]]}
Str Shak01={ l16 [ [3 v40n82v40n69v127n82v40n69 rv40n69v127n82v40n69  v40n82v40n69v127n82v40n69 rv40n69v127n82v40n69 ]
                      v40n82v40n69v127n82v40n69 rv40n69v127n82v40n69  v40n82v40n69v127n82v40n69 rv60n69v127n82v70n70   ]  }
Str Clap01={ l16 v127 [4 rrrr 'v127n39v50n38'rrr   rrv70'n55n10'r 'v127n39v50n38'rrr
                         rrrr 'v127n39v50n38'rrr   rrv70'n38n28''n38n28' 'v127n39v50n38'rrr ] }
Str Hiha01={ l16 v110 [8 [ n44rn46r rn44n46r ] ]}
Str Hiha02={ l16 v110 [8 [ v110n44v40n44v110n46r rn44n46n44 ] ]}

TR=10 @27,90 Swing16(2) r1 REV=127 BR=20 p10 v127  
'v127n36v70n41'0 [16 r1 ]

'v127n36v70n41'0  [8r1]
REV=50 V.T(10,30,!1+1+1+1, 30,127,!1+1+1+2. ) p.T(30,30,!1+1+1+1 +1+1+2,30,70,!1.)
Sub{  Clap01  } Sub{  Shak01  }   Hiha01  

'v127n49n36'0
Sub{  [4 Clap01 ] } Sub{ [4  Shak01 ] } Sub{ [4 Hiha01 ] }  [16 r1 ]

v127 l4  Sub{ v127 [8 [4 'n33n62n32n27' ] ] }
     l16    v0  [96 n36 v+1 ] p.T(70,127,!1+1)[24 n36 v+1 ] l32 [8 n36 v+1] V.T(127,0,!4)n36,0[8r]

p70 REV=2 V=127 

v127 n49,0
Sub{ [4 Kick01 ] r-8 n36,8 'n36n49' }
Sub{ [4 Shak01 ] }
Sub{ [4 Clap01 ] }
Sub{ [4 Hiha02 ] }


[7 r1+1+1+1 ] r1+1 l16 v0 [24 n38  v+4 ] l24 [3 n38n38n38] l16 n38n38


[4r1+1+1+1]REV=127 p0 n36