//-----------------------------------------------
// wasteland view
// (C)Yax
//-----------------------------------------------

TrackName     = {"wasteland view"}
Copyright     = {"Yax"}

ResetGM();
r4
TrackSync;

Function ARP(Int D, Int L, Str S) {
  Int LNG = L
  Int STP = 0
  Int TEMP = 0
  Str X = ""
  Str RS = ""
  Str NS = ""
  Int J = 0
  Array NAR = ()

  For(Int I = 1; I <= 100; I++ ){
    X = MID(S,I,1)
    J = ASC(X)

    IF (X == "") {
      EXIT
    }

    IF ( J >= 97 ) {
      IF ( J <= 103 ) {
        IF ( NS != "" ) {
	    NS = Replace(NS,{@-},{-@},off)
	    NS = Replace(NS,{@+},{+@},off)
	    NS = Replace(NS,{@#},{#@},off)
	    NS = Replace(NS,{@*},{*@},off)
          NAR = (NAR,NS)
	    NS = ""
        }
	  X = X + "@"
	}
    }
    NS = NS + X
  }
  IF ( NS != "" ) {
    NS = Replace(NS,{@-},{-@},off)
    NS = Replace(NS,{@+},{+@},off)
    NS = Replace(NS,{@#},{#@},off)
    NS = Replace(NS,{@+},{*@},off)
    NAR = (NAR,NS)
    NS = ""
  }

  For(Int I=0;I<SizeOf(NAR);I++){
    TEMP = L - STP
    RS = "r%" + #STR(STP)
    NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
    Sub{ RS NS }
    STP = STP+D
  }
  r%(L)
}


FUNCTION FADEOUT() {
  EP.onTime(127,0,!1^1^1^1^1^1^1^1^4)
}


//------------------------------------------------
// 全体の調整
//------------------------------------------------
TR(1)  V(94)  REV(90) CHO(70)
TR(2)  V(101) REV(25) CHO(60)
TR(3)  V(104) REV(40) CHO(20)
TR(4)  V(113) REV(50) CHO(20)
TR(5)  V(119) REV(30) CHO(40)
TR(6)  V(100) REV(40) CHO(50)
TR(7)  V(110) REV(20) CHO(0)
TR(8)  V(110) REV(20) CHO(0)
TR(9)  V(110) REV(20) CHO(0)
TR(10) V(115) REV(25) CHO(0)


//------------------------------------------------
// テンポ
//------------------------------------------------
INT T = 135
Tempo=(T)


//------------------------------------------------
// キー
//------------------------------------------------
INT KEY=-2

Key(KEY)                    // 全体のキー
TR(10) TrackKey(KEY * -1)   // リズムトラックの調整用、Keyの符号を逆にしたものをセットしておく



//------------------------------------------------
// MML
//------------------------------------------------

//------------------------------------
// Track 1 : 
//------------------------------------
TR(1) CH(1) P(64)
@103 v40

 l16 o6 q95
 P.onNote(127,1,64,32,96)

  [2
   [4 ea>ec fce<a]
   [4 dg+>d<b> e<b>d<g+]
   [4 dg>d<b> e<b>d<g]
   [4 cf+>c<a> d<a>c<f+]
   [4 cf>c<a> d<a>c<f]
   [4 eg>ec< >fce<g]
   [4 d+f+>d+<a> e<b>d+<f+]
   [4 eg+>e<b> f<b>e<g+]
  ]

 [2
  [2
   EP.onTime(40,117,!1^1) [2 fcf>c< a>fac< afcf ca>c<a]
   EP.onTime(40,117,!1^1) [2 geg>e< b>gbe< ge<b>e b>g<be]
   EP.onTime(40,117,!1^1) [2 fdf>d< a>fad< afdf da>d<a]
   EP.onTime(40,117,!1^1) [2 gdb>d< b>gbd< gd<b>d b>gd<b]
  ]

  l4
  [2
   y64,1; rc<a>e y64,0;
   y64,1; rd<b>g y64,0;
   y64,1; ec<a>c y64,0;
   :
   y64,1; gf+ed y64,0;
  ]
  l16
  cdf+g df+ga ef+g+a f+g+aa+

  l16
  [4
   [4 >ec<af]
   [4 >d<bgf]
   [4 >ec<ag]
   :
   [4 >d<bg+e]
  ]
  >c8.e8.g8^2<
 ]

  [4 ea>ec fce<a]
  [4 dg+>d<b> e<b>d<g+]
  [4 dg>d<b> e<b>d<g]
  [4 cf+>c<a> d<a>c<f+]
  [4 cf>c<a> d<a>c<f]
  [4 eg>ec< >fce<g]
  [4 d+f+>d+<a> e<b>d+<f+]
  [4 eg+>e<b> f<b>e<g+]

  l4
  [2
   y64,1; rc<a>e y64,0;
   y64,1; rd<b>g y64,0;
   y64,1; ec<a>c y64,0;
   :
   y64,1; gf+ed y64,0;
  ]
  l16
  cdf+g df+ga 
  b2 r1

  l16
  [2
   [4
    [4 >ec<af]
    [4 >d<bgf]
    [4 >ec<ag]
    :
    [4 >d<bg+e]
   ]
   :
   [3 >ec<ag] >gec<g
  ]
  >c8.e8.g8^2<

  EP.onTime(110,0,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^4)
  [4 ea>ec fce<a]
  [4 dg+>d<b> e<b>d<g+]
  [4 dg>d<b> e<b>d<g]
  [4 cf+>c<a> d<a>c<f+]
  [4 cf>c<a> d<a>c<f]
  [4 eg>ec< >fce<g]
  [4 d+f+>d+<a> e<b>d+<f+]
  [4 eg+>e<b> f<b>e<g+]



//------------------------------------
// Track 2 : 
//------------------------------------
TR(2) CH(2) P(64)
M.onNoteWave(0,80,!1^1)

 @36 v100
 l8 o2 q98

  a1^1
  g+1^1
  g1^1
  f+1^1
  f1^1
  e1^1
  d+1^1
  e1^1

  a4.>g+16&a16 e.c.<a >e4.<e a2
  g+4.>a+16&b16 g+.d.g+ >d.<b.g+ d4<b4
  g4.a+16&b16 >db4g >d.<g.b g<b4g
  f+4.a>c4f+4 a6a-6g6 f+a4c<
  a4.>c f>c4<a f.>f.c <a.a-.f
  e4.f+16&g16 >c<g4g b2b-2
  a4.f+16a16 >cf+4g a.g+.g f+4<a4
  b4.g+16e16<b2>e2<e2

 [2
  q70
  [2
   [2
    [4 @37 q70 f q30f16f16 q70> @38 f16< @37 q40f q70 f16]
    :
    [4 @37 q70 e q30 e16e16 q70> @38 e16< @37 q40e q70 e16]
   ]
   [2 @37 q70 g q40 g16g16> q70 @38 g16< @37 q40 g q70 g16]  : [2 @37 b q40 b16b16> q70 @38 : b16< @37 q40 b q70b16] q60 b16c16d16e16<
  ]
  [2 @37 q70 g+ q40 g+16g+16> q70 @38 g+16< @37 q40 g+ q70 g+16] 

  f4.>c f.<a.a
  g4.>d g.<b.b
  a.a.a a.a.g
  >c.c.c< b.b.b
  f.a.>c f.c.<a
  g.b.>d g.d.<b
  a.a.a a.a.g
  >c.c.c d.<b.g+

  q70 @37
  [2
   [2
    q70 ff q40 f16 q70 fa16 ff q40 f16f16 q70 >d+16&e16<
    q70 gg q40 g16 q70 gb16 g q40g16>d16< q70 g>a+16&b16
    :
    q70 cc q40 c16 q70 ec16 <g>c16<g16>c16<g16b16&>c16<
    q70 b q40 b16b16b16 q70 >d<b16 g+g+ q40 g+16g+16 q70 >c+16&d16<
   ]
   :
   q70 cc q40 c16 q70 ge16 <g q40 >c16<g16 q70 >e16c16f+16&g16<
   q70 b q40 b16b16b16 q70 >g+d16< g+bg+16>d16a+16&b16<
  ]
  q70 c q40 c16e16 <g16>c16 q70 d+32&e16.  ge16c16 g<g>
  c1<
 ]

 @36 v100 q98
  a4.>g+16&a16 e.c.<a >e4.<e a2
  g+4.>a+16&b16 g+.d.g+ >d.<b.g+ d4<b4
  g4.a+16&b16 >db4g >d.<g.b g<b4g
  f+4.a>c4f+4 a6a-6g6 f+a4c<
  a4.>c f>c4<a f.>f.c <a.a-.f
  e4.f+16&g16 >c<g4g b2b-2
  a4.f+16a16 >cf+4g a.g+.g f+4<a4
  b4.g+16e16<b2>e2<e2

  q70 @37
  f4.>c f.<a.a
  g4.>d g.<b.b
  a.a.a a.a.g
  >c.c.c< b.b.b
  f.a.>c f.c.<a
  g.b.>d g.d.<b
  a.a.a a.a.g
  >c.c.c d2r1 <

 [2
  [2
   [2
    q70 ff q40 f16 q70 fa16 ff q40 f16f16 q70 >d+16&e16<
    q70 gg q40 g16 q70 gb16 g q40g16>d16< q70 g>a+16&b16
    :
    q70 cc q40 c16 q70 ec16 <g>c16<g16>c16<g16b16&>c16<
    q70 b q40 b16b16b16 q70 >d<b16 g+g+ q40 g+16g+16 q70 >c+16&d16<
   ]
   :
   q70 cc q40 c16 q70 ge16 <g q40 >c16<g16 q70 >e16c16f+16&g16<
   q70 b q40 b16b16b16 q70 >g+d16< g+bg+16>d16a+16&b16<
  ]
  q70 c q40 c16e16 q70 <g16>c16d+32&e16.  ge16c16 g<g>
  :
  q70 c q40 c16e16 <g16>c16 q70 d+32&e16.  g>d+32&e32c16< g16c16<g
 ]
 c1<

 @36 v100
 l8 o2 q98
  a1^1
  g+1^1
  g1^1
  f+1^1
  FADEOUT()
  f1^1
  e1^1
  d+1^1
  e1^1
  a1^1



//------------------------------------
// Track 3 : 
//------------------------------------
TR(3) CH(3) P(84)
@96 v70
M.onNoteWave(0,40,!1^1)

  o5 q95 l8
  [2
   'e1^1c1^1' r-1 a1
   'd1^1<b1^1>' r-1 g+1
   'd1^1<b1^1>' r-1 g1
   'c1^1<a1^1>' r-1 f+1
   'c1^1f1^1' r-1 a1
   'e1^1c1^1' r-1 g1
   'f+1^1c1^1' r-1 a1
   'g+1^1e1^1' r-1 b1
  ]

 [2
  [2
   ARP(0,!1^1,{<a>cf})
   ARP(0,!1^1,{<gb>e})
   ARP(0,!1^1,{<a>df})
   :
   ARP(0,!1^1,{<b>dg})
  ]
  ARP(0,!1,{<b>dg})  ARP(0,!1,{<b>eg+})

  [2
   'c1' r-1 >> v(MML(v)-5) [4 'ac'r] v(MML(v)+5) <<
   'd1' r-1 >> v(MML(v)-5) [4 'gd'r] v(MML(v)+5) <<
   'e1' r-1 >> v(MML(v)-5) [4 'ae'r] v(MML(v)+5) <<
   :
   'c2''<b2>' r-1 >> v(MML(v)-5) [4 'ec'r] v(MML(v)+5) <<
  ]
  'c2''d2' r-1 >> v(MML(v)-5) [2 'gd'r][2 'g+b'r]  v(MML(v)+5) <<

  [2
   [2
    y64,1; 'e1<a1>' y64,0; r-1 >c.e.ga2 <
    y64,1; 'd1<g1>' y64,0; r-1 b.>d.ga2<
    y64,1; 'e1c1'   y64,0;  r-1 g.>c.eg2<
    :
    y64,1; 'd1<g+1>' y64,0; r-1 g+.b.>eg+2<
   ]
   :
   y64,1; 'd1<g+1>' y64,0; r-1 g+.b.>eg+2<
  ]
  y64,1; 'c2.<g2.e2.>' y64,0; r4
 ]

   'e1^1c1^1' r-1 a1
   'd1^1<b1^1>' r-1 g+1
   'd1^1<b1^1>' r-1 g1
   'c1^1<a1^1>' r-1 f+1
   'c1^1f1^1' r-1 a1
   'e1^1c1^1' r-1 g1
   'f+1^1c1^1' r-1 a1
   'g+1^1e1^1' r-1 b1

  [2
   'c1' r-1 >> v(MML(v)-5) [4 'ac'r] v(MML(v)+5) <<
   'd1' r-1 >> v(MML(v)-5) [4 'gd'r] v(MML(v)+5) <<
   'e1' r-1 >> v(MML(v)-5) [4 'ae'r] v(MML(v)+5) <<
   :
   'c2''<b2>' r-1 >> v(MML(v)-5) [4 'ec'r] v(MML(v)+5) <<
  ]
  'c2''d2' r-1 >> v(MML(v)-5) [2 'gd'r]'g+b'rr4  v(MML(v)+5) <<
  r1

 [2
  [2
   [2
    y64,1; 'e1<a1>' y64,0; r-1 >c.e.ga2 <
    y64,1; 'd1<g1>' y64,0; r-1 b.>d.ga2<
    y64,1; 'e1c1'   y64,0;  r-1 g.>c.eg2<
    :
    y64,1; 'd1<g+1>' y64,0; r-1 g+.b.>eg+2<
   ]
   :
   y64,1; 'd1<g+1>' y64,0; r-1 g+.b.>eg+2<
  ]
  :
  y64,1; 'c1<g1e1>'  y64,0; r-2 g2
 ]
 y64,1; 'c2.<g2.e2.>' y64,0; r4




//------------------------------------
// Track 4 : 
//------------------------------------
TR(4) CH(4) P(44)
@5 v85

 o6 l6 q90
 
 v(MML(v)-10)
 [2
  y64,1; 'e<a>'ce< a>ec ac<a> e<ea> y64,0;
  y64,1; 'd<g+'b>d< g+>d<b> g+bd g+<bd> y64,0;
  y64,1; 'd<g'g>d< b>d<b> gd<b> d<bg> y64,0;
  y64,1; 'f+<a>'c<a> c<a>c af+c f+<a>c y64,0;
  y64,1; 'f<a>'cf <a>c<a> acf c<a>f<> y64,0;
  y64,1; 'e<g>'ce< g>ec gc<g> e<eg> y64,0;
  y64,1; 'f+<f+>'c<a> c<a>c af+c f+<a>c< y64,0;
  y64,1; 'b>d'dg+ dg+d bg+d <b>dg+ y64,0;
 ]
 v(MML(v)+10)

 [2
  l4
  [2
   y64,1; r'<a>f'c>c< a2f2 y64,0;
   y64,1; <g>e<b>b g2e2  y64,0;
   y64,1; r'f<a>'da f2>d2< y64,0;
   :
   y64,1; 'b2d2'g2 '>d2<g2'b2 y64,0;
  ]
  y64,1; 'b2d2'g2 r-4 <b4> y64,0; y64,1; '>e2<g+2d2' b2 y64,0;

  l8
  [2
   y64,1; 'f.c.'d.f a2 y64,0;
   y64,1; 'g.d.'a.b g4 d4 y64,0;
   y64,1; 'a4c4'<a4> e4 c4 y64,0;
   :
   y64,1; '>c4<g4'g4 b4g4 y64,0;
  ]
  y64,1; '>c4<g4'g4 '>d2<b2g+2' r-4 v(MML(v)-15) >d+4< v(MML(v)+15) y64,0;

  [2
   [2
    '>e1c1<a1'  r-2 >c2<
    '>d1<b1g1'  r-2 >f2<
    :
    '>e1c1<g1'  r-2 >c2<
    '>d1<b1g+1' r-2 b2 r-4>d4<
   ]
   :
   '>e1c1<g1'  r-2 >g2<
   '>g+1d1<b1'  r-2 >b2<
  ]
  '>e1c1<g1'
  r-64 ARP(3,!1^64,{eg>c<})
 ]

 v(MML(v)+11)
 l16
 y64,1; 'e4.c4.' <a>c ee-eg 'ae'cea  y64,0;  y64,1; '>c8.<a8.' b8.a8 'e2' y64,0;
 y64,1; 'g+4.d4.' gg+ bag+g g+12b12>c12< y64,0;  y64,1; 'b4.d4.' g+4.d4 y64,0;
 y64,1; 'g2d2'b4.b>c d.<b.g b.g.d g.d.<b>d4 y64,0; 
 y64,1; c8.f+8.a8 f+.a.>c< a.>d.f+ a4. f+4.c4<  y64,0;
 y64,1; 'f<a>'cdf <a>cdf dfa>c <a>cdf a8.f8.c8 f8.c8.<a8  y64,0;
 y64,1; 'e8c8'<b>c eceg bgeg e12g12>c12 y64,0; y64,1; r-64 ARP(4,!4.^64,{ceg}) f+f e2<  y64,0;
 y64,1; f+cf+a f+a>c<f+ a>cdf+ a>cdc< 'a8c8'f+c f+8c<a >c<af+d c12<a12f+12 y64,0;
 y64,1; b>de deg+ eg+b g+b>d< b12>e12g+12 < ARP(4,!1,{b>deg+b})< r-2 v(MML(v)-11) g+2 y64,0;

  l8
  [2
   y64,1; 'f.c.'d.f a2 y64,0;
   y64,1; 'g.d.'a.b g4 d4 y64,0;
   y64,1; 'a4c4'<a4> e4 c4 y64,0;
   :
   y64,1; '>c4<g4'g4 b4g4 y64,0;
  ]
  y64,1; '>c4<g4'g4 '>d2<b2g+2'  y64,0;
  r1

 [2
  [2
   [2
    '>e1c1<a1'  r-2 >c2<
    '>d1<b1g1'  r-2 >f2<
    :
    '>e1c1<g1'  r-2 >c2<
    '>d1<b1g+1' r-2 b2 r-4>d4<
   ]
   :
   '>e1c1<g1'  r-2 >g2<
   '>g+1d1<b1'  r-2 >b2<
  ]
  '>e1c1<g1'
  :
  y64,1; 'e8.c8.'g8.b8> d2< y64,0;
 ]
 r-64 ARP(3,!1^64,{eg>c<})

 v(MML(v)-10)
 l6
  y64,1; 'e<a>'ce< a>ec ac<a> e<ea> y64,0;
  y64,1; 'd<g+'b>d< g+>d<b> g+bd g+<bd> y64,0;
  y64,1; 'd<g'g>d< b>d<b> gd<b> d<bg> y64,0;
  y64,1; 'f+<a>'c<a> c<a>c af+c f+<a>c y64,0;
  FADEOUT()
  y64,1; 'f<a>'cf <a>c<a> acf c<a>f<> y64,0;
  y64,1; 'e<g>'ce< g>ec gc<g> e<eg> y64,0;
  y64,1; 'f+<f+>'c<a> c<a>c af+c f+<a>c< y64,0;
  y64,1; 'b>d'dg+ dg+d bg+d <b>dg+ y64,0;

  y64,1; 'e<a>'ce< a>ec ac<a> e<ea> y64,0;
 v(MML(v)+10)



//------------------------------------
// Track 5 : 
//------------------------------------
TR(5) CH(5) P(60)
@57 v102
M.onNoteWave(10,50,!2.)

 [16 r1]
 o6 l8 

  v(MML(v)-10)
  r4c4..r16<b>c dr16cr16<b16.r32 a4..r16
  b2..b16>c16 d4..r16<b4..r16>
  r4d2c<b a4..r16g4..r16
  f+2a4.a16b16>c2..r
  r4c2r<a32.r64a32.r64> f4..r16 fr16er16d16.r32
  e2d4.d16c+16 c4..r16d4..r16
  c2.r d+16e16 f+4..r16 d+4.d24c+24c24
  <b2..r >e4..r16<b4.r>
  v(MML(v)+10)

 [2
  [2
   f4.e24d+24d24 c2^2 cr16dr16f16r16
   e2<b2 g4.g+24a24a+24 b4..r16>
   f4.e24d+24d24 c2^2 cr16dr16f16r16
   :
   g2e2 b4.a+24a24g+24g4..r16
  ]
  g2e2 b4.a+16a16g+4..r16

  e2..r gr16fr16e16r16< b2>
  c2d4.c16d16 e2 g2
  e2..r gr16fr16e16r16 d4<b4>
  c2 g4..f+32f32 e4...r32 g+4^16.r32 e16g+16

  [2
   a2.>c.r16< baga.r16gfg
   e2 f4.e16f16 g2 e.r16g+.r16
   a2.>c.r16< baga.r16b>cd
   :
   e2edce rdr<brg+.r16e16g+16
  ]
  e2..d+24d24c+24
  c2.rr<
 ]

 [16 r1]

  e2..r gr16fr16e16r16< b2>
  c2d4.c16d16 e2 g2
  e2..r gr16fr16e16r16 d4<b4>
  c2g4..f+32f32 e2g+2
  r2..e16g+16

 [2
  [2
   a2.>c.r16< baga.r16gfg
   e2 f4.e16f16 g2 e.r16g+.r16
   a2.>c.r16< baga.r16b>cd
   :
   e2edce rdr<brg+.r16e16g+16
  ]
  :
  e2fedc
  g4.f+16f16e.r16<be16g+16
 ]
 e2..d+24d24c+24
 c1<

 EP.onTime(127,0,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^4)
 v(MML(v)-10)
 r4c2r<a16>c16
 g4.e4.c4
 <b2..>c16c+16
 d2<b2>
 d4.d16c16<
 b2^4.r b.a.b
 >c2..d16e16
 f+2 c.d.c
 f2a2
 c2f4.g16f16
 e1
 g2e4.d16e16
 f+1
 a2>c2<
 b1
 g+1



//------------------------------------
// Track 6 : 
//------------------------------------
TR(6) CH(6) P(70)
@64 v87
M.onNoteWave(17,70,!2.)

 [16 r1]
 [16 r1]

 o5 l8
 [2
  [2
   '>c2<a2' 'a2f2' '>c2<a2' [2 'af'r16] 'a16f16'r16
   'b2g2' 'g2e2' 'e2<b2>' 'g2e2'
   '>c2<a2' 'a2f2' '>c2<a2' [2 'af'r16] 'a16f16'r16
   :
   'b2g2' 'g2e2' 'b2g2' 'b2>e2<'
  ]
  'b2g2' 'g2e2' 'b2g+2' 'b2>e2<'

  a2>c2< b2g2
  a2 b2 >c2<b2
  f1 r-1 a2>c2<  d1 r-1 b2g2
  e1 r-1 a2 b2  '>c2<g2' '>d2<g+2'

  [2
   [2
    '>c2<a2'r'a4.e4.' 'b2g2' r'b4.g4.'
    '>c2<g2'r'>c4.<g4.' : 'b2g+2' 'g+d'r'bg+'r
   ]
   :
   'b2g+2'r'g+d'r'bg+'
  ]
  '>e2.g2.<'rr
 ]

 '>c2.<a2.' er '>e2c2<' '>c2<a2'
 '>d2.<b2.' g+r 'g+2.b2.' >cr<
 '>d2.<b2.' gr '>g2d2<' '>d2<b2'
 '>c2.<a2.' f+r 'a1f+1'
 'a2.>c2.<' ar '>c2f2<' '>c2<a2'
 'b2.g2.' er 'g2e2' 'b2g2'
 'a2.f+2.' f+r '>c2<a2' 'a2f+2'
 'b2g+2' 'g+2d2' 'b1>d1<'

  a2>c2< b2g2
  a2 b2 >c2<b2
  f1 r-1 a2>c2<  d1 r-1 b2g2
  e1 r-1 a2 b2  '>c2<g2' '>d2<g+2'
  r1

 [2
  [2
   [2
    '>c2<a2'r'a4.e4.' 'b2g2' r'b4.g4.'
    '>c2<g2'r'>c4.<g4.' : 'b2g+2' 'g+d'r'bg+'r
   ]
   :
   'b2g+2'r'g+d'r'bg+'
  ]
  '>e2.g2.<'rr
 ]





//------------------------------------
// Track 7 : 
//------------------------------------
TR(7) CH(7) P(64)



//------------------------------------
// Track 8 : 
//------------------------------------
TR(8) CH(8) P(64)



//------------------------------------
// Track 9 : 
//------------------------------------
TR(9) CH(9) P(64)



//------------------------------------
// Track 10 : ドラム系
//------------------------------------
TR(10) CH(10)
// マクロ定義
// b = bass / s = Snare / S = Rim
$b{n36,} $s{n38,} $S{n37,}
// h = HH Close / f = HH foot close / o = HH Open
$c{n42,} $f{n44,} $o{n46,}
// e = Crash / j = Ride / t = Ride Bell / d = China / i = Splash / y = Crash2 / u = Ride2
$e{n49,} $j{n51,} $t{n53,} $d{n52,} $i{n55,} $y{n57,} $u{n59,}
// q = High Tom / a = High-Middle / z = Low-Middle / w = Low / x = Floor high / g = Floor low
$q{n50,} $a{n48,} $z{n47,} $w{n45,} $x{n43,} $g{n41,}
// p = Crap / k = Cowbell / m = Tambourine / n = ?? / j = ??
$p{n39,} $k{n56,} $m{n54,} $n{n75,}

@1,90,1
l8
Rhythm {
  [15 r1]
  v80 r2..b16b16

  [2
   v80 brrr rrrr r-1 v90 rrrr s4rr r-1 v127 y4 v110 u4u4u4
   v80 bbrr rrrb r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   v80 brrr rrrr r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   v80 bbrr rbrb r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   v80 brrr rrrr r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   v80 bbrr rrrb r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   :
   v80 brrb rrrb r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   v80 rbrb rbrb r-1 v90 rrrr s4ss r-1 v110 u4u4 v120 j4 v90 t4
  ]
  v80 brrb16b16 rbrb r-1 v90 rrrr s v100 q64q16..a64a16..z64z16.. r-1 v110 u4u4u4u4 r-2 v127e2
  v80 rbrb brrb r-1 v90 srs16s16r 'sw'sss16s16 r-1 v127 y4 v110 u4u4u4

 [2
  [2
   [2
    [2 v80bv60b16b16 rv60b16b16] r-1 v90 rrs4 rrs4    r-1 v127 e v50c [3 v90c v50c]
    [2 v80bv60b16b16 rv60b16b16] r-1 v90 rrs4 rrs4    r-1 [4 v90c v50c]
    [2 v80bv60b16b16 rv60b16b16] r-1 v90 rrs4 rrs4    r-1 [4 v90c v50c]
    :
    [2 v80bv60b16b16 rv60b16b16] r-1 v90 rrs4 rrs16s. r-1 [4 v90c v50c]
   ]
   :
   [2 v80bv60b16b16 rv60b16b16] r-1 v90 rrs16ss16 l16 v100 [2 q64q32.az] v90ss l8 r-1 [4 v90c v50c]
  ]
  [2 v80bv60b16b16 rv60b16b16] r-1 r16 v70s. v90 s16s16l16 v100 az q64q32.qaa zs v90zs l8 r-1 [4 v90c v50c]

  v80 brrb b.b.r r-1 v127 y4 v110j4j4j4
  v80 b.b.b b.b.b r-1 rrrr rrv90s4 r-1 v110 j4j4j4 v110 u4
  v80 brbr b.b.b r-1 rrrs r16s.s.s16  r-1 v110j4j4j4j4
  v80 brbr b.b.b r-1 r.s.s r16s.ss16s16 r-1 v110j4j4j4j4
  v80 brrr b.b.r r-1 v90 rrs4rrs4 r-1 v127 e v60c16c16 [3 v90c v60c16c16]
  v80 brrr b.b.r r-1 v90 rrs4rrs4 r-1 [4 v90c v60c16c16]
  v80 brrr b.b.r r-1 v90 rrs4rrs4 r-1 [4 v90c v60c16c16]
  v80 brbr b.b.b   r-1 v90 rsr16sa16 l16 rssr ssrs l8 r-1 [4 v90c v60c16c16]

  [2
   [2
    v80 bbrr b.b.r   r-1 v90 rrs4r16v70s.v90s4 r-1 v127 e v60c16c16 [3 v90c v60c16c16]
    v80 bbrr b.b4b16 r-1 v90 rrs4r16v70s.v90s16s. r-1 [4 v90c v60 : c16c16] o
    :
    v80 bbrr b.b.r   r-1 v90 rrs4r16v70s.v90s4 r-1 [4 v90c v60c16c16]
    v80 bbrr b.b.r   r-1 v90 rrs4r16v70s16sv90s16s16z16z16 r-1 [2 v90c v60c16c16] v60 ffff
   ]
   :
   v80 bbrr b.b.r   r-1 v90 rrs4r16v70s.v90s16ss16 r-1 [4 v90c v60c16c16]
   v80 brbr b.b.b   r-1 l16 v90 rrss rsss v100 qazq azss l8 r-1 v90c v60c16c16 v60 ffffff
  ]
  v80 brbr b.b.b   r-1 l16 v100 razs qasa qsqa szss l8 r-1 v60 ffff ffff
  :
  v90 brrr rrbr r-1 v90 r2.rs16s16 r-1 v127 e1
 ]
 v90 brrr rrbr r-1 v90 r2.s64s32.s16s16s16 r-1 v127 e1

  [2
   v80 brrr rrrr r-1 v90 rrrr s4rr r-1 v127 y4 v110 u4u4u4
   v80 bbrr rrrb r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   v80 brrr rrrr r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   v80 bbrr rbrb r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   v80 brrr rrrr r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   v80 bbrr rrrb r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   :
   v80 brrb rrrb r-1 v90 rrrr s4rr r-1 v110 u4u4u4u4
   v80 rbrb rbrb r-1 v90 rrrr s4ss r-1 v110 u4u4 v120 j4 v90 t4
  ]
  v80 brrb16b16 rbrb r-1 v90 rrrr s v100 q64q16..a64a16..z64z16.. r-1 v110 u4u4u4u4 r-2 v127e2
  v80 rbrb brrb r-1 v90 srs16s16r 'sw'sss16s16 r-1 v127 y4 v110 u4u4u4

  v80 brrb b.b.r r-1 v127 y4 v110j4j4j4
  v80 b.b.b b.b.b r-1 rrrr rrv90s4 r-1 v110 j4j4j4 v110 u4
  v80 brbr b.b.b r-1 rrrs r16s.s.s16  r-1 v110j4j4j4j4
  v80 brbr b.b.b r-1 r.s.s r16s.ss16s16 r-1 v110j4j4j4j4
  v80 b.b.r b.b.r r-1 v90 rrs4rrs4 r-1 v127 e v60c16c16 [3 v90c v60c16c16]
  v80 b.b.b b.b.b r-1 v90 rrs4rrs4 r-1 [4 v90c v60c16c16]
  v80 brrr b.b.r r-1 v90 rrs4rrs4 r-1 [4 v90c v60c16c16]
  v80 brbr brrr   r-1 v90 l16 rssr ssrs r2 l8 r-1 [2 v90c v60c16c16] v127 e2
  v80 brrb rrbb r-1 v100 l16 q64q32.azq64q32. azq64q32.a qass wgs64s32.s l8

 [2
  [2
   [2
    v80 bbrr b.b.r   r-1 v90 rrs4r16v70s.v90s4 r-1 v127 e v60c16c16 [3 v90c v60c16c16]
    v80 bbr16b16r b.b4b16 r-1 v90 rrs4r16v70s.v90s16s. r-1 [4 v90c v60 : c16c16] o
    :
    v80 bbrr b.b.r   r-1 v90 rrs4r16v70s.v90s4 r-1 [4 v90c v60c16c16]
    v80 bbr16bb16 b.b.r   r-1 v90 rrs.v70s16 r16s16sv90s16s16z16z16 r-1 [2 v90c v60c16c16] v60 ffff
   ]
   :
   v80 bbrr b.b.r   r-1 v70r16ss16 v90 s4r16v70s.v90s16ss16 r-1 [4 v90c v60c16c16]
   v80 brbr b.b.b   r-1 l16 v90 rrss rsss v100 qazq azss l8 r-1 v90c v60c16c16 v60 ffffff
  ]
  :
  v80 bb16b16br bbbb   r-1 l16 v100 rrrr srrs rrss szss l8 r-1 v60 ffff ffff
  v90 brbr bbbb r-1 v90 l16 rsrs v100 q64q32.qaa zzww v90 ssss l8r-1 v127 e1
 ]
 v80 brbr b.b.b   r-1 l16 v100 razs qasa qsqa szss l8 r-1 v60 ffff ffff
 v90 brrr rrbr r-1 v90 r2.ss16s16 r-1 v127 e1
 
 v80 b1 r-1 
}

 EP.onTime(0,127,!4..)
Rhythm {
 v127 [12 d32] d2.^16
}