//-----------------------------------------------
// Tail of sorrows
// (C)Yax
//-----------------------------------------------
ResetGM();

TrackName     = {"Tail of sorrows"}
Copyright     = {"Yax"}

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 DANDO(B, E, LEN, STP) {
  Int _STEP = 24
  Int _DIFF = 0
  Int _CNT = 0
  Int _TMP = 0
  Int _LAP = 0

  IF( STP != 0 ) {
    _STEP = STP
  }

  _CNT = LEN/_STEP
  _DIFF = (E - B)/_CNT

  _TMP = B
  Tempo = %(B)

  For(Int I = 1; I < _CNT; I++ ){
    r%(_STEP)
    _TMP = _TMP + _DIFF
    Tempo = %(_TMP)
    _LAP = _LAP + _STEP
  }

  r%(LEN-_LAP)
  Tempo = %(E)
  r-%(LEN)
}


// 全体の調整
TR(1)  V(110) REV(30) CHO(10)
TR(2)  V(111) REV(28) CHO(10)
TR(3)  V(109) REV(20) CHO(0)
TR(4)  V(96)  REV(50) CHO(40)
TR(5)  V(105) REV(35) CHO(80)
TR(6)  V(110) REV(20) CHO(0)
TR(7)  V(94)  REV(30) CHO(70)
TR(8)  V(85)  REV(60) CHO(40)
TR(9)  V(110) REV(20) CHO(0)
TR(10) V(115) REV(50) CHO(0)


// テンポ
INT T   = 92    // 通常のテンポ
INT TE  = 36    // 最後のリタルダンド後のテンポ
INT TE2 = 55    // 最後のテンポ

Tempo=(T)


// キー

INT KEY=0

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


//------------------------------------
// Track 1 : 
//------------------------------------
TR(1) CH(1) P(54)
@1 v90 q98

 o5 l8

 v(MML(v)+5)
 [2
  y64,1; '>d.<b-.>''a8.'g16a16 y64,0; 'g2e2' 
  y64,1; 'e.c.'f.g y64,0; 'f2d2' r-4 v(MML(v)-12) <a4 v(MML(v)+12)
  y64,1; '>d.<b-.>''a8.'g16a16 y64,0; 'g2e2' r-4 >c4<
  :
  'a1f1' r-4 v(MML(v)-12) <a4 v(MML(v)+12)
 ]
 v(MML(v)-5)
 ARP(!64,!1,{fa>d<})<

 [2
  y64,1; ARP(1,!4.,{dfa}) ARP(0,!8^2,{a>df<}) y64,0;
  y64,1; ARP(2,!1,{ea>c<}) r-4 v(MML(v)-12) ARP(!16,!4,{eg}) r-4 c4 v(MML(v)+12) y64,0;
  ARP(1,!4.,{dfa}) ARP(0,!8^2,{a>df<})
  ARP(2,!1,{a>ce<})
  y64,1; ARP(1,!4.,{dfa}) ARP(0,!8^2,{a>df<}) y64,0;
  y64,1; ARP(2,!1,{ea>c<}) r-4 v(MML(v)-12) ARP(0,!4,{ec}) v(MML(v)+12) y64,0;
  ARP(2,!2,{gb->d<}) ARP(0,!2,{a>ce<})
  :
  ARP(1,!1,{fa>d<}) r-2 v(MML(v)-12) > ARP(!32,!2,{fa>d<}) < v(MML(v)+12)
 ]
 ARP(1,!1,{fa>df<})

 ARP(0,!2,{dfb-}) ARP(1,!2,{fb->d<})
 ARP(0,!2,{g>ce<}) ARP(1,!2,{eg>c<})   r-4 v(MML(v)-15) b-4 v(MML(v)+15)
 ARP(0,!2,{cea})   ARP(1,!2,{ea>c<})
 ARP(0,!2,{fa>d<}) v(MML(v)-10) ARP(3,!2,{a>dfa<}) v(MML(v)+10) r-4 v(MML(v)-15) 'f4d4' v(MML(v)+15)

 ARP(0,!2.,{dfb-}) r16 v(MML(v)-10) ARP(0,!8.,{dfb->d<}) v(MML(v)+10)
 ARP(0,!1,{ea>c<}) r-2 v(MML(v)-15) r> ARP(3,!4.,{ca})< v(MML(v)+15)
 ARP(0,!2,{b->df<}) v(MML(v)-10) ARP(0,!4,{fb->d<}) v(MML(v)+10) ARP(0,!4,{fb->f<})
 ARP(0,!2,{eg>ce<}) v(MML(v)-10) ARP(0,!2,{eg>c<}) v(MML(v)+10)
 v(MML(v)-30)
 [4 v(MML(v)+5) ARP(0,!8,{gb->ce<})]
 v(MML(v)-10)
 [4 v(MML(v)+5) ARP(0,!8,{b->eg<})]

 v(MML(v)+6)
 ARP(0,!4,{dgb-})ARP(0,!4,{dgb-}) ARP(0,!4,{ceg})ARP(0,!4,{ceg})
 ARP(0,!4,{cea})ARP(0,!4,{cea}) ARP(0,!4,{dfa})ARP(0,!4,{dfa})
 ARP(0,!4,{dgb-})ARP(0,!4,{dgb-}) ARP(0,!4,{eg>c<})ARP(0,!4,{eg>c<})
 ARP(0,!4,{cfa})ARP(0,!4,{cfa}) ARP(0,!4,{cea})ARP(0,!4,{cea})

 ARP(0,!4,{dgb-})ARP(0,!4,{dgb-}) ARP(0,!4,{ceg})ARP(0,!4,{ceg})
 ARP(0,!4,{cea})ARP(0,!4,{cea}) ARP(0,!4,{dfa})ARP(0,!4,{dfa})
 ARP(0,!4,{cfa})ARP(0,!4,{cfa}) ARP(0,!4,{ceg})ARP(0,!4,{ceg}) 
 ARP(!64,!1,{a>fa>d<<})
 v(MML(v)-6)


 v(MML(v)+5)
 y64,1; '>d.<b-.>''a8.'g16a16 y64,0; 'g2e2' 
 y64,1; 'e.c.'f.g y64,0; 'f2d2' r-4 v(MML(v)-12) <a4 v(MML(v)+12)
 y64,1; '>d.<b-.>''a8.'g16a16 y64,0; 'g2e2' r-4 >c4<
 ARP(!64,!1,{defa})<
 v(MML(v)-5)

 y64,1; ARP(1,!4.,{dfa}) ARP(0,!8^2,{a>df<}) y64,0;
 y64,1; ARP(2,!1,{ea>c<}) r-4 v(MML(v)-12) ARP(!16,!4,{eg}) r-4 c4 v(MML(v)+12) y64,0;
 ARP(1,!4.,{dfa}) ARP(0,!8^2,{a>df<})
 ARP(2,!1,{a>ce<})
 y64,1; ARP(1,!4.,{dfa}) ARP(0,!8^2,{a>df<}) y64,0;
 y64,1; ARP(2,!1,{ea>c<}) r-4 v(MML(v)-12) ARP(0,!4,{ec}) v(MML(v)+12) y64,0;
 ARP(2,!2,{gb->d<}) ARP(0,!2,{a>ce<})
 ARP(1,!1,{fa>df<})

 ARP(0,!2,{dfb-})  ARP(1,!2,{fb->d<})
 ARP(0,!2,{g>ce<}) ARP(1,!2,{eg>c<})   r-4 v(MML(v)-15) b-4 v(MML(v)+15)
 ARP(0,!2,{cea})   ARP(1,!2,{ea>c<})
 ARP(0,!2,{fa>d<}) v(MML(v)-10) ARP(3,!2,{a>dfa<}) v(MML(v)+10) r-4 v(MML(v)-15) 'f4d4' v(MML(v)+15)

 ARP(0,!2.,{dfb-}) r16 v(MML(v)-10) ARP(0,!8.,{dfb->d<}) v(MML(v)+10)
 ARP(0,!1,{ea>c<}) r-2 v(MML(v)-15) r> ARP(3,!4.,{ca})< v(MML(v)+15)
 ARP(0,!2,{b->df<}) v(MML(v)-10) ARP(0,!4,{fb->d<}) v(MML(v)+10) ARP(0,!4,{fb->f<})
 ARP(0,!2,{eg>ce<}) v(MML(v)-10) ARP(0,!2,{eg>c<}) v(MML(v)+10)
 v(MML(v)-30)
 [4 v(MML(v)+5) ARP(0,!8,{gb->ce<})]
 v(MML(v)-10)
 [4 v(MML(v)+5) ARP(0,!8,{b->eg<})]

 v(MML(v)+6)
 ARP(0,!4,{dgb-})ARP(0,!4,{dgb-}) ARP(0,!4,{ceg})ARP(0,!4,{ceg})
 ARP(0,!4,{cea})ARP(0,!4,{cea}) ARP(0,!4,{dfa})ARP(0,!4,{dfa})
 ARP(0,!4,{dgb-})ARP(0,!4,{dgb-}) ARP(0,!4,{eg>c<})ARP(0,!4,{eg>c<})
 ARP(0,!4,{cfa})ARP(0,!4,{cfa}) ARP(0,!4,{cea})ARP(0,!4,{cea})

 ARP(0,!4,{dgb-})ARP(0,!4,{dgb-}) ARP(0,!4,{ceg})ARP(0,!4,{ceg})
 ARP(0,!4,{cea})ARP(0,!4,{cea}) ARP(0,!4,{dfa})ARP(0,!4,{dfa})
 ARP(0,!4,{cfa})ARP(0,!4,{cfa}) ARP(0,!4,{ceg})ARP(0,!4,{ceg}) 
 ARP(!64,!2.,{a>fa>d<<}) v(MML(v)-15) ARP(2,!4,{eg>c<}) v(MML(v)+15)
 v(MML(v)-6)

 v(MML(v)-6)
 [2
  [4 ARP(0,!4,{dfb-})]
  [4 ARP(0,!4,{eg>c<})]
  [4 ARP(0,!4,{cfa})]
  [4 ARP(0,!4,{dfa})]
  [4 ARP(0,!4,{dfb-})]
  [4 ARP(0,!4,{eg>c<})]
  :
  [4 ARP(0,!4,{fa>d<})]
  [3 ARP(0,!4,{fa>d<})] ARP(1,!4,{eg>c<})
 ]
 [3 ARP(0,!4,{fa>d<})] ARP(1,!4,{eg>c<})
 ARP(2,!1,{fa>dfa}) <
 v(MML(v)+6)

 ARP(0,!2,{dfb-})  ARP(1,!2,{fb->d<})
 ARP(0,!2,{g>ce<}) ARP(1,!2,{eg>c<})   r-4 v(MML(v)-15) b-4 v(MML(v)+15)
 ARP(0,!2,{cea})   ARP(1,!2,{ea>c<})
 ARP(0,!2,{fa>d<}) v(MML(v)-10) ARP(3,!2,{a>dfa<}) v(MML(v)+10) r-4 v(MML(v)-15) 'f4d4' v(MML(v)+15)

 ARP(0,!2.,{dfb-}) r16 v(MML(v)-10) ARP(0,!8.,{dfb->d<}) v(MML(v)+10)
 ARP(0,!1,{ea>c<}) r-2 v(MML(v)-15) r> ARP(3,!4.,{ca})< v(MML(v)+15)
 ARP(0,!2,{b->df<}) v(MML(v)-10) ARP(0,!4,{fb->d<}) v(MML(v)+10) ARP(0,!4,{fb->f<})
 ARP(0,!2,{eg>ce<}) v(MML(v)-10) ARP(0,!2,{eg>c<}) v(MML(v)+10)
 v(MML(v)-30)
 [4 v(MML(v)+5) ARP(0,!8,{gb->ce<})]
 v(MML(v)-10)
 [4 v(MML(v)+5) ARP(0,!8,{b->eg<})]
 ARP(4,!1,{b->egb-<})

 v(MML(v)+6)
 [2
  ARP(0,!4,{dgb-})ARP(0,!4,{dgb-}) ARP(0,!4,{ceg})ARP(0,!4,{ceg})
  ARP(0,!4,{cea})ARP(0,!4,{cea}) ARP(0,!4,{dfa})ARP(0,!4,{dfa})
  ARP(0,!4,{dgb-})ARP(0,!4,{dgb-}) ARP(0,!4,{eg>c<})ARP(0,!4,{eg>c<})
  ARP(0,!4,{cfa})ARP(0,!4,{cfa}) ARP(0,!4,{cea})ARP(0,!4,{cea})

  ARP(0,!4,{dgb-})ARP(0,!4,{dgb-}) ARP(0,!4,{ceg})ARP(0,!4,{ceg})
  ARP(0,!4,{cea})ARP(0,!4,{cea}) ARP(0,!4,{dfa})ARP(0,!4,{dfa})
  ARP(0,!4,{cfa})ARP(0,!4,{cfa}) ARP(0,!4,{ceg})ARP(0,!4,{ceg}) 
  :
  ARP(0,!4,{dfa})ARP(0,!4,{dfa})ARP(0,!4,{dfa})ARP(0,!4,{eg>c<})
 ]
 ARP(!64,!1,{a>fa>d<<})
 v(MML(v)-6)

 v(MML(v)+5)
 [2
  y64,1; '>d.<b-.>''a8.'g16a16 y64,0; 'g2e2' 
  y64,1; 'e.c.'f.g y64,0; 'f2d2' r-4 v(MML(v)-12) <a4 v(MML(v)+12)
  y64,1; '>d.<b-.>''a8.'g16a16 y64,0; 'g2e2' r-4 >c4<
  :
  'a1f1' r-4 v(MML(v)-12) <a4 v(MML(v)+12)
 ]
 v(MML(v)-5)
 ARP(!64,!1,{fa>d<})<


//------------------------------------
// Track 2 : 
//------------------------------------
TR(2) CH(2) P(64)
@1 v90 q98
Slur(3)

 o4 l8 v90
 v(MML(v)-10)
 d&a&>c&d4<a&>e&g4
 c&f&g f&c&<a&f
 d&a&>d&e4 c&f&g4
 <a&>f&g a&g&f&c <

 d&a&>c&d4<a&>e&g4
 c&f&g f&c&<a&f
 <b-&>d&f&a c4&<g4>
 <'a1>d1<'>
 v(MML(v)+10)

 [2
  <d&a&>d&f^2
  <e4&a&>c^2
  <d&a&>d&f^2
  <a4.&>e^2
  <d&a&>d&f^2
  <e4&a&>c4<a4&e>
  <g&b-&>d4 <a&>c&e4
  <d&f&a&>d&f2
 ]

 <b-4&f4&>d4&<b-&b>
 c4&e4&<g4&>e&c<
 a4&e4&>e4&c&c+
 d4&f4&<a4&f4
 'b-1<b-1>'
 'a1<a1>'
 d&f&b-4&>d4&f4
 'e1<e1>'
 v(MML(v)-24)
 [2 v(MML(v)+6)'e4c4<e4>'][2 v(MML(v)+6)'e4c4<g4>']

 <
 d&g&b-4 c&e&g4
 e&a&>c4< d&f&a&f
 d&g&b-4 c&e&g4
 f&a&>c&f4&c&<a&f

 d&g&b-4 c&e&g4
 e&a&>c4< d&f&a&d
 f&a&>c4< e&g&>c4<
 'a1>d1a1<'
 >

 v(MML(v)-10)
 d&a&>c&d4<a&>e&g4
 c&f&g f&c&<a&f
 <b-&>d&f&a c4&<g4>
 <'a1>d1<'>
 v(MML(v)+10)

 <d&a&>d&f^2
 <e4&a&>c^2
 <d&a&>d&f^2
 <a4.&>e^2
 <d&a&>d&f^2
 <e4&a&>c4<a4&e>
 <g&b-&>d4 <a&>c&e4
 <d&f&a&>d&f2

 <b-4&f4&>d4&<b-&b>
 c4&e4&<g4&>e&c<
 a4&e4&>e4&c&c+
 d4&f4&<a4&f4
 'b-1<b-1>'
 'a1<a1>'
 d&f&b-4&>d4&f4
 'e1<e1>'
 v(MML(v)-24)
 [2 v(MML(v)+6)'e4c4<e4>'][2 v(MML(v)+6)'e4c4<g4>']

 <
 d&g&b-4 c&e&g4
 e&a&>c4< d&f&a&f
 d&g&b-4 c&e&g4
 f&a&>c&f4&c&<a&f

 d&g&b-4 c&e&g4
 e&a&>c4< d&f&a&d
 f&a&>c4< e&g&>c4<
 [4 'a4>d4<']

 [2
  b-2f4.f16f+16
  g2>c4<b-4
  a2f2
  a2..g16a16
  b-2f4.a16b-16>
  c2<g4.b-16>c16
  d2<f2
  :
  a2 [2 'a4>d4<']
 ]
 a1>

 <b-4&f4&>d4&<b-&b>
 c4&e4&<g4&>e&c<
 a4&e4&>e4&c&c+
 d4&f4&<a4&f4
 'b-1<b-1>'
 'a1<a1>'
 d&f&b-4&>d4&f4
 'e1<e1>'
 v(MML(v)-24)
 [2 v(MML(v)+6)'e4c4<e4>'][2 v(MML(v)+6)'e4c4<g4>']
 v(MML(v)-10)
 ARP(4,!1,{d<b-g>})
 v(MML(v)+10)

 <
 [2
  d&g&b-4 c&e&g4
  e&a&>c4< d&f&a&f
  d&g&b-4 c&e&g4
  f&a&>c&f4&c&<a&f

  d&g&b-4 c&e&g4
  e&a&>c4< d&f&a&d
  f&a&>c4< e&g&>c4<
  :
  d&f&a&>d4&f&e&c<
 ]
 'a1>d1a1<'
 >

 v(MML(v)-10)
 d&a&>c&d4<a&>e&g4
 c&f&g f&c&<a&f
 d&a&>d&e4 c&f&g4
 <a&>f&g a&g&f&c <

 d&a&>c&d4<a&>e&g4
 c&f&g f&c&<a&f
 DANDO(T,TE,!1,!16)
 <b-&>d&f&a c4&<g4>
 Tempo=(TE2)
 <'a1>d1<'>
 v(MML(v)+10)
 r1


//------------------------------------
// Track 3 : 
//------------------------------------
TR(3) CH(3) P(64)
//@82,110,4
@74 v70
M.onNoteWave(0,60,!2.)

 o6 l8
 [8 r1]

 [2
  r4.ffed16e. c4.<a16a16^2>
  r4.ffef16g. e1
  r4.ffed16e. c4.<a16>d16^4.d16e16
  :
  fede4c4 d^1 
 ]
 fef16g16^4e4c d2..<a

 b-8.>f16^2e8f8 e1
 c8.g16^2f8g8 f2..f16g16
 a4.f16d16 f2 g4.ef4.f16g16
 a2 a.b-.a g1
 >c2.. <  v(MML(v)+8) c16c16

 l16
 d8.a8.ga g8f8e8c8
 d8.e8.f8 e8cc8.<a8>
 d8.a8.ga g8f8>c4<
 a2..c16c16

 d8.a8.ga g8f8e8f8
 g8.>c8.<b->c<b-8a8g8e8
 f8.a8.ga g4>c4
 d1<
 v(MML(v)-8)

 l8
 [4 r1]

 r4.ffed16e. c4.<a16a16^2>
 r4.ffef16g. e1
 r4.ffed16e. c4.<a16>d16^4.d16e16
 fef16g16^4e4c d2..<a

 b-8.>f16^2e8f8 e1
 c8.g16^2f8g8 f2..f16g16
 a4.f16d16 f2 g4.ef4.f16g16
 a2 a.b-.a g1
 >c2.. < v(MML(v)+8) c16c16

 l16
 d8.a8.ga g8f8e8c8
 d8.e8.f8 e8cc8.<a8>
 d8.a8.ga g8f8>c4<
 a2.. c16c16

 d8.a8.ga g8f8e8f8
 g8.>c8.<b->c<b-8a8g8e8
 f8.a8.ga g4>c4
 d1<
 v(MML(v)-8)

 [15 r1]
 l8
 r2..<a

 b-8.>f16^2e8f8 e1
 c8.g16^2f8g8 f2..f16g16
 a4.f16d16 f2 g4.ef4.f16g16
 a2 a.b-.a g1
 >c1. r4. < v(MML(v)+8) c16c16

 l16
 [2
  d8.a8.ga g8f8e8c8
  d8.e8.f8 e8cc8.<a8>
  d8.a8.ga g8f8>c4<
  a2.. c16c16

  d8.a8.ga g8f8e8f8
  g8.>c8.<b->c<b-8a8g8e8
  f8.a8.ga g4>c4
  :
  d2 e4.< c16c16
 ]
 d1<
 r1


//------------------------------------
// Track 4 : 
//------------------------------------
TR(4) CH(4) P(68)
@49 l8 v65 q99
Slur(3)
M.onNoteWave(0,70,!1^1)

 o4
 v(MML(v)-7)
 d1^1^1^1 r-1^1^1^1 a1^1 v(MML(v)-10) y64,1; b-2g2 y64,0; y64,1; a2. >d16e16f16g16< y64,0; v(MML(v)+10)
 ARP(0,!1^1,{da>df}) r-2 v(MML(v)-15) 'a2>d2<' v(MML(v)+15)
 'b-2d2g2''>e2c2<e2'
 '>d1<a1f1d1'<
 v(MML(v)+7)

 v(MML(v)-15)
 a1&>c1< a1&>c1<
 a1&>c1< b-2a2 '>d1<a1'

 v(MML(v)+5)
 ARP(1,!1,{a>df<})
 ARP(1,!1,{a>ce<})
 ARP(1,!1,{a>df<})
 ARP(1,!1,{a>ce<})
 ARP(1,!1,{a>df<})
 ARP(1,!1,{a>ce<})
 ARP(1,!2,{gb->d<})ARP(2,!2,{a>ce<})
 ARP(4,!1,{a>df<})

 v(MML(v)+5)
 ARP(1,!1,{fb->d<})
 ARP(1,!1,{g>ce<})
 ARP(1,!1,{a>ce<})
 ARP(1,!1,{a>df<})
 ARP(1,!1,{b->df<})
 ARP(1,!1,{a>ce<})
 ARP(1,!1,{b->df<})
 ARP(1,!1,{g>ce<})
 ARP(1,!1,{gb->ce<})

 v(MML(v)+5)
 ARP(1,!2,{gb->d<}) ARP(1,!2,{g>ce<})
 ARP(1,!2,{a>ce<})  ARP(1,!2,{a>df<})
 ARP(1,!2,{gb->d<}) ARP(1,!2,{g>ce<})
 ARP(1,!2,{a>cf<})  ARP(1,!2,{a>ce<})
 ARP(1,!2,{gb->d<}) ARP(1,!2,{g>ce<})
 ARP(1,!2,{a>ce<})  ARP(1,!2,{a>df<})
 ARP(1,!2,{a>cf<}) ARP(1,!2,{g>ce<})
 EP.onTime(127,30,!1) ARP(1,!1,{fa>d<}) EP(127)

 v(MML(v)-7)
 ARP(0,!1^1,{da>df}) r-2 v(MML(v)-15) 'a2>d2<' v(MML(v)+15)
 'b-2d2g2''>e2c2<e2'
 '>d1<a1f1d1'<
 v(MML(v)+7)

 v(MML(v)-10)
 ARP(1,!1,{a>df<})
 ARP(1,!1,{a>ce<})
 ARP(1,!1,{a>df<})
 ARP(1,!1,{a>ce<})
 ARP(1,!1,{a>df<})
 ARP(1,!1,{a>ce<})
 ARP(1,!2,{gb->d<})ARP(2,!2,{a>ce<})
 ARP(4,!1,{a>df<})

 v(MML(v)+5)
 ARP(1,!1,{fb->d<})
 ARP(1,!1,{g>ce<})
 ARP(1,!1,{a>ce<})
 ARP(1,!1,{a>df<})
 ARP(1,!1,{b->df<})
 ARP(1,!1,{a>ce<})
 ARP(1,!1,{b->df<})
 ARP(1,!1,{g>ce<})
 ARP(1,!1,{gb->ce<})

 v(MML(v)+5)
 ARP(1,!2,{gb->d<}) ARP(1,!2,{g>ce<})
 ARP(1,!2,{a>ce<})  ARP(1,!2,{a>df<})
 ARP(1,!2,{gb->d<}) ARP(1,!2,{g>ce<})
 ARP(1,!2,{a>cf<})  ARP(1,!2,{a>ce<})
 ARP(1,!2,{gb->d<}) ARP(1,!2,{g>ce<})
 ARP(1,!2,{a>ce<})  ARP(1,!2,{a>df<})
 ARP(1,!2,{a>cf<}) ARP(1,!2,{g>ce<})
 EP.onTime(127,30,!1) ARP(1,!1,{fa>d<}) EP(127)

 v(MML(v)-10)
 [2
  ARP(1,!1,{fb-})
  ARP(1,!1,{g>c<})
  ARP(1,!1,{a>c<})
  ARP(1,!1,{fa})
  ARP(1,!1,{fb-})
  ARP(1,!1,{g>c<})
  :
  ARP(1,!1^1,{a>d<}) r-2 >c2<
 ]
 ARP(1,!1^1,{fa>d<}) r-1 EP.onTime(127,40,!1) r1
 EP(127)

 v(MML(v)+5)
 [8 r1]
 EP.onTime(80,127,!1^2)
 ARP(1,!1^2.,{gb->ce<}) r4

 v(MML(v)+5)
 [2
  ARP(1,!2,{gb->d<}) ARP(1,!2,{g>ce<})
  ARP(1,!2,{a>ce<})  ARP(1,!2,{a>df<})
  ARP(1,!2,{gb->d<}) ARP(1,!2,{g>ce<})
  ARP(1,!2,{a>cf<})  ARP(1,!2,{a>ce<})
  ARP(1,!2,{gb->d<}) ARP(1,!2,{g>ce<})
  ARP(1,!2,{a>ce<})  ARP(1,!2,{a>df<})
  ARP(1,!2,{a>cf<}) ARP(1,!2,{g>ce<})
  :
  ARP(1,!2,{fa>d<}) ARP(1,!2,{g>ce<})
 ]
 EP.onTime(127,30,!1) ARP(1,!1,{fa>d<}) EP(127)

 v(MML(v)-10)
 d1^1^1^1 r-1^1^1^1 a1^1 v(MML(v)-10) y64,1; b-2g2 y64,0; y64,1; a2. >d16e16f16g16< y64,0; v(MML(v)+10)
 ARP(0,!1^1,{da>df}) r-2 v(MML(v)-15) 'a2>d2<' v(MML(v)+15)
 v(MML(v)-7)
 EP.onTime(127,108,!1)
 'b-2d2g2'
 '>e2c2<e2'
 EP.onTime(108,60,!1)
 '>d1<a1f1d1'<



TR(14) CH(4)
 l16 o6 v64 q99

 v(MML(v)-30)
 'd1^1^1^1>d1^1^1^1<'
 'a1^1^1^1>a1^1^1^1<'
 v(MML(v)+30)
 
 [8 r1]
 [8 r1]

 [8 r1]
 q110
 r2.fgab->

 q70
 [28 c4]
 'd1<a1>'

 q99
 v(MML(v)-30)
 '<a1^1^1^1>a1^1^1^1<'
 v(MML(v)+30)

 [8 r1]

 [8 r1]
 q110
 r2.fgab->

 q70
 [28 c4]
 'd1<a1'

 [16 r1]

 q99
 [8 r1]
 q110
 r1
 r2. fgab->

 q70
 [60 c4]
 'd1<a1>'

 q99
 v(MML(v)-30)
 'd1^1^1^1>d1^1^1^1<'
 'a1^1^1^1>a1^1^1^1<'
 v(MML(v)+30)


//------------------------------------
// Track 5 : 
//------------------------------------
TR(5) CH(5) P(60)
@34
M.onNoteWave(0,90,!1)
Slur(0)
BR(2)

 o3 q99 l8 v80

  c8&!8d1^2^8 e16&!16f16&e24&d24&c24
  <b-2 b16&!16>c4^16&<b24&a24&g24 f4.>e16&!16f8. e8..&c+32c
  c8&!8d1^4.>c8&!8d8 c<b16&a16
  g4..&f16 e4.c16&<a16 f+8&!8f2..

  [8 r1]
  [7 r1]
  l16
  r2..
  ga

  b-2^8 gb->c32&d32<b-g&!16b-
  g4.ab-b&!16>c8.e8c&!16<b-
  a4.>d8&!8e4a8f&!16e
  d4.f&d<a4f8g&!16a
  b-2..gb-
  a2.f4
  b-2..a&!16g+
  g2..f+&f
  e4e4 v(MML(v)+5) g4b-8a&!16g+

  v(MML(v)+10)
  l8 q95
  gggg16f16 eeee
  aaaa16g16 ffaf
  gggg16b-16 >ccc<g
  aaaa ffaf
  gggg16f16 ee>c<e
  aaab-16>c16 ddd<a16g16
  ffff16f+16 ggge
  v(MML(v)-5)
  g8&!8a2.. r-1 d1
  v(MML(v)-10)

  > q99
  c8&!8d2..^2>c8&!8d8 c<b16&a16
  g4..&f16 e4.c16&<a16 f+8&!8f2..

  v(MML(v)-10)
  l16
  a2..b-&b
  >c2.<b-ag&g+
  a2^8 f&a>f&!16ed8<
  b8&!8>c4<a4.e8f&!16g
  a2.a8>c&!16<b-
  >c2.<b-ab&!16>c
   d2c2
  <a1 r-1 >e8&!8f2..<
  v(MML(v)+10)

  q93
  b-4b-4b-4b-8g&!16b-
  >c4c4c4<b-4
  a4a4a4b-8>c&!16c+<
  >d4d4d4c4<
  b-2..gb-
  a2.f4
  g4g8g+&!16a b-4b-8b-&!16b
  >c4c4c4c8<b-&!16g
  e8e8e8e8 v(MML(v)+5) g4b-8a&!16g+

  v(MML(v)+10)
  l8 q95
  gggg16f16 eeee
  aaaa16g16 ffaf
  gggg16b-16 >ccc<g
  aaaa ffaf
  gggg16f16 ee>c<e
  aaab-16>c16 ddd<a16g16
  ffff16f+16 ggge
  v(MML(v)-5)
  a2 fe16&!16f16 a8g16&!16a16
  v(MML(v)-10)

  q90
  [2
   ggb-g gg>d<b-
   gg>c<g gg>ec<
   aa>c<a aa>c<f
   aa>d<a >dc<b-a

   b-b->d<b- b-b->d<a
   gg>c<g gg>e<g
   :
   aa>d<a >f<a>a<a
   ff>c<f >fde<a
  ]
  aa>d<a aa>f<f
  >d1<

  [8 r1]

  q93 l16
  e8e8e8e8 g8g8g8g8 b-2  v(MML(v)-5) >g4b-8g&!16e< v(MML(v)+5)

  v(MML(v)+15)
  l8 q95
  [2
   gggg16f16 eeee
   aaaa16g16 ffaf
   gggg16b-16 >ccc<g
   aaaa ffaf
   gggg16f16 ee>c<e
   aaab-16>c16 ddd<a16g16
   ffff16f+16 ggge
   :
   aaab-16&!16>c16 ddc<b-16&!16a16
  ]
  q99
  v(MML(v)-5)
  d1 r-1 g8&!8d2..
  v(MML(v)-10)

  v(MML(v)-18)
  >
  c8&!8d1^1^1^2.. r-1^1^1^1 <d1^1^1^1>
  <
  c8&!8d1^2..
  v(MML(v)-10)
  f8&!8g4. f32&e4...
  c4&!4d2.


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



//------------------------------------
// Track 7 : 
//------------------------------------
TR(7) CH(7) P(64)
@30
M.onNoteWave(0,120,!1)
Slur(0)
BR(2)
FineTune(68)
EP.onNoteWave(127,110,!1)

 [8 r1]
 
 [8 r1]
 [8 r1]

 [8 r1]
 r1

 [8 r1]

 [4 r1]

 [8 r1]

 [8 r1]
 r1

 [7 r1]
 o5 l16 v100 q99
 r2.
 v(MML(v)-8)
 q70rd&ef
 v(MML(v)+8)

 q99
 g8&!8a2^8^16&!16g32r32 g&!16a g4....&!32f+64rr v(MML(v)+5) b-16&!16>c4^32.&!32<b-64 v(MML(v)-5)
 g&!16a4..r v(MML(v)-6) q60 >c<ab-q70 >cd32&e&d32<b- v(MML(v)+6) q99 g8&!6a2^16.&f32 q70 rfg&a q99
 a16&!16b-8..&a32r q70 ga q99 a32&b-4&a32r q70 ab- q99 b16&!16>c4.r d16&!16e4.&d32 r32
 c16&!16d4.rr v(MML(v)-6) q70 c<b-ab->cde v(MML(v)+6) q99 d8&!8f2.^16.r32

 q76 v(MML(v)-6) rg32&a32&gf gfef< v(MML(v)+3) q99b-8>c&!16d c8d&!16f v(MML(v)+3) d8&!8e2&!16dr c32&d8.r32
 d32&e4.&d+32r d16&!16e8 d8r d32&e8&d32 r e8&!8f2^16r fg
 g8&!8a4 gf g8 q80 v(MML(v)-5) fe fd&ec <ab->q99 c8 q80 <b->c&de cd ec de&!16g&!16e v(MML(v)+5)
 f2 q70 v(MML(v)-4) l24 e&fg fga gab- v(MML(v)+2) a&b-&>c q99 v(MML(v)+2)

 EP.onTime(127,10,!1^1^2.)
 c8&!8d1^1^2..



//------------------------------------
// Track 8 : 
//------------------------------------
TR(8) CH(8) P(80)
@81
M.onNoteWave(0,120,!2)
Slur(0)
BR(2)
FineTune(60)
EP.onNoteWave(90,127,!2)
r64

 [8 r1]
 
 [8 r1]
 [8 r1]

 [8 r1]
 r1

 [8 r1]

 [4 r1]

 [8 r1]

 [8 r1]
 r1

 [7 r1]
 o5 l16 v99 q99
 r2.
 v(MML(v)-8)
 q70rd&ef
 v(MML(v)+8)
 q99
 g8&!8a2^8^16&!16g32r32 g&!16a g4....&!32f+64rr v(MML(v)+5) b-16&!16>c4^32.&!32<b-64 v(MML(v)-5)
 g&!16a4..r v(MML(v)-14) q60 >c<ab-q70 >cd32&e&d32<b- v(MML(v)+14) q99 a2^8..&f32 q70 rfg&a q99
 a16&!16b-8..&a32r q70 ga q99 a32&b-4&a32r q70 ab- q99 b16&!16>c4.r d16&!16e4.&d32 r32
 c16&!16d4.rr v(MML(v)-10) q70 c<b-ab->cde v(MML(v)+10) q99 d8&!8f2.^16.r32

 q76 v(MML(v)-12) rg32&a32&gf gfef< v(MML(v)+6) q99b-8>c&!16d c8d&!16f v(MML(v)+6) d8&!8e2&!16dr c32&d8.r32
 d32&e4.&d+32r d16&!16e8 d8r d32&e8&d32 r e8&!8f2^16r fg
 g8&!8a4 gf g8 q80 v(MML(v)-10) fe fd&ec <ab->q99 c8 q80 <b->c&de cd ec de&!16g&!16e v(MML(v)+10)
 f2 q70 v(MML(v)-12) l24 e&fg fga gab- v(MML(v)+4) a&b-&>c q99 v(MML(v)+8)
 
 c8&!8d1^1^2.. r-1^1 EP.onTime(127,10,!1^2.) r1r1


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



//------------------------------------
// Track 10 : ドラム系
//------------------------------------
TR(10) CH(10)
// マクロ定義
// b = bass / s = Snare
$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,}


@33,90,1
l8
Rhythm {

  [8 r1]

  [7 v40m4r4v120n4r4]
  r2..v60b r-1 r4r4v120n4r4 r-8 v70u24v75u24v80u24

  v70 b1       r-1 r4r4v120n4r4 r-1 v100 u1
  v70 brrb^2   r-1 r4r4v120n4r4 r-4 v65r8c16c16
  v70 b2..b    r-1 r4r4v120n4r4 r-1 v55o1
  v70 brrb^4b4 r-1 r4r4v120n4r4 r-8 v70u24v75u24v80u24
  v70 b1       r-1 r4r4v120n4r4 r-1 v100 u1
  v70 brrb^2   r-1 r4r4v120n4r4 r-4 v65r8c16c16
  v70 b2..b    r-1 r4r4v120n4r4 r-1 v55o2 v100u2
  v70 brrbbrrb r-1 r4r4v120n4r8 v55s16v65s16 r-1 v100 j2 r4 v65c8c16c16

  v80 brrbrrrr r-1 r2v110S4r4      r-1 v80 j4j4j4j4 r-1 v120r4r4n4r4
  v80 brrbrrrb r-1 r2.v60s16v80s.  r-1 v80 j4j4j4j4 r-1 v120r4r4n4r4
  v80 brrbrrrr r-1 r2v110S4r4      r-1 v80 j4j4j4j4 r-1 v120r4r4n4r4
  v80 brrbrrrb r-1 r2v60r16s.v70s16s16z16w16  r-1 v80 j4j4j4j4 r-1 v120r4r4n4r4
  v80 brrrrrrb r-1 r2v110S4r4          r-1 v80 j4j4j4j4 r-1 v120r4r4n4r4
  v80 brrbbrrr r-1 r2.v60s16v70s16v80w r-1 v80 j4j4j4j4 r-1 v120r4r4n4r4
  v80 brrrrrrb r-1 v110r4S4r4S4        r-1 v80 j4j4j4j4 r-1 v120r4r4n4r4
  v80 brrbbrrb r-1 v110r4S4r4 v60s16v70s16v80s16s16 r-1 v80 j4j4j4j4 r-1 v120r4r4n4r4
  v80 brrrbrrb16b16 r-1 v65's8w8''s8w8' v75's8w8''s8w8' v85's8w8''s8w8' v95[4 s16] r-4 v70w4

  v90 brrrbbrr r-1 v100 r4s4r4s4 r-1 v120 e v60c [3 v90c v60c]
  v90 brrrbrrb r-1 v100 r4s4r4s. v80s16 r-1 [4 v90c v60c]
  v90 brrrbbrr r-1 v100 r4s4r4s4 r-1 [4 v90c v60c]
  v90 brrrbbrb16b16 r-1 v100 r4s4r16v75s.v100s16s16v90z16w16 r-1 [4 v90c v60c]
  v90 brrrbbrr r-1 v100 r4s4r4s4 r-1 v120 e v60c [3 v90c v60c]
  v90 brrrbrrb r-1 v100 r4s4r4s. v80s16 r-1 [4 v90c v60c]
  v90 brrrbbrb r-1 v100 r4s8.v75ss.v90a16z16v100w16s16 r-1 [4 v90c v60c]
  v90 brrrrrrr r-1 v120 y1

  v70 brrbbrrr r-4 v90 S4 r-1 v100 e v60c [3 v90c v60c]
  v70 brrbbrrr r-4 v90 S4 r-1 [3 v90c v60c] v90c16v70c16 v60o
  v70 brrbbrrr r-4 v90 S v60 s16s16 r-1 [4 v90c : v60c] v70u24v75u24v80u24
  v70 brrrrrrr r-1 v110 j2.. l24 v50uv65uv80u l8

  v70 brrrrrrr r-1 v100 r2.S4       r-1 r4r4v120n4r4 r-1 [4 v90c v30c]
  v70 brrbrrrr r-1 v70  r2.s16v50s. r-1 r4r4v120n4r4 r-1 [4 v90c v30c]
  v70 brrrrrrb r-1 v100 r2.S4       r-1 r4r4v120n4r4 r-1 [4 v90c v30c]
  v70 brrbrrrr r-1 v70  r2.sw       r-1 r4r4v120n4r4 r-1 [4 v90c v30c]
  v70 brrrrrrr r-1 v100 r2.S4       r-1 r4r4v120n4r4 r-1 [4 v90c v30c]
  v70 brrbrrrr r-1 v70  r2.s16v50s16s r-1 r4r4v120n4r4 r-1 [4 v90c v30c]
  v70 brrrbrrr r-1 v100 r4S4 r4v70sv55s16s16  r-1 r4r4v120n4r4 r-1 [4 v90c v30c]
  v70 brrrbrbr r-1 r4v80s.v60s16 l16 rv85 s64s32.ssaazw l8 r-1 r4r4v120n4r4 r-1 [4 v90c v30c]

  v80 brrbbrrr r-1 v110r4S4r4v90s4 r-1 v100 y v60c[3 v90c v60c] r-1 r4r4v120n4r4
  v80 brrbbrrr r-1 v110r4S4r4v90s4 r-1 [4 v90c v60c] r-1 r4r4v120n4r4
  v80 brrbbrrr r-1 v110r4S4r4v90s4 r-1 [4 v90c v60c] r-1 r4r4v120n4r4
  v80 brrbbrrb r-1 v110r4S.v70s16r16s.v90s.v60s16 r-1 [4 v90c v60c] r-1 r4r4v120n4r4
  v80 brrrrrrb r-1 r2.v90s4        r-1 [4 v90c v60c] r-1 r4r4v120n4r4
  v80 brrrbrrr r-1 r2.v90a16z16w   r-1 [4 v90c v60c] r-1 r4r4v120n4r4
  v80 brrrbbrr r-1 v90r4s.v60ss.v90s4     r-1 [4 v90c v60c] r-1 r4r4v120n4r4
  v80 brrrbbrb r-1 v90r4s.v60ss.v90s16s16z16w16  r-1 [4 v90c v60c] r-1 r4r4v120n4r4
  v80 brrrbrrb16b16 r-1 v65's8w8''s8w8' v75's8w8''s8w8' v85's8w8'w r-8 v94 s64s32.s16 v98[4 s16] r-4 v70w4

  v90 brrrbbrr r-1 v100 r4s4r4s4 r-1 v120 e v60c [3 v90c v60c]
  v90 brrrbrrb r-1 v100 r4s4r4s. v80s16 r-1 [4 v90c v60c]
  v90 brrrbbrr r-1 v100 r4s4r4s4 r-1 [4 v90c v60c]
  v90 brrrbbrb16b16 r-1 v100 r4s4r16v75s.v100s16s16v90z16w16 r-1 [4 v90c v60c]
  v90 brrrbbrr r-1 v100 r4s4r4s4 r-1 v120 e v60c [3 v90c v60c]
  v90 brrrbrrb r-1 v100 r4s4r4s. v80s16 r-1 [4 v90c v60c]
  v90 brrrbbrb r-1 v100 r4s8.v75ss.v90a16z16v100w16s16 r-1 [4 v90c v60c]
  v90 brrrbrbr r-2 l16 v70rs64s32.v83ss v95s64s32.sv105ss  l8 r-1 v120 y4 v100 u4j2

  [2
   v90 brrrrbrr r-1 v100 r4s4r4s4        r-1 v120 e v60c [3 v90c v60c]
   v90 brrrbbrr r-1 v100 r4s4r4s4        r-1 [4 v90c v60c]
   v90 brrrrbrr r-1 v100 r4s4r4s4        r-1 [4 v90c v60c]
   v90 brrrbbrr r-1 v100 r4s4r4s. v80s16 r-1 [4 v90c v60c]
   v90 brrrrbrr r-1 v100 r4s4r4s4        r-1 [4 v90c v60c]
   v90 brrrbbrr r-1 v100 r4s4r4s4        r-1 [4 v90c v60c]
   :
   v90 brrrrbrr r-1 v100 r4s4r4s4        r-1 [4 v90c v60c]
   v90 brrrbbrr r-1 v100 r4s.v75ss. v100s v80s16s16 r-1 [4 v90c v60c]
  ]
  v90 brrbbrbr r-1 v100 r4s.v75ss. v100s16s16z16z16 r-1 [4 v90c v60c]
  v90 brrrrrrb r-1 v120 j1 r-2 l24 v80wss l16 v90s32s32s v100 v90 zzrg l8

  v80 b1 r-1 v100 y1 r-1 v40m4r4v120n4r4
  [3 v40m4r4v120n4r4]

  v80 brrrrrrb r-1 v40m4r4v120n4r4
  v80 brrrbrrr r-1 v40m4r4v120n4r4
  v80 brrrrrrb r-1 v40m4r4v120n4r4
  v80 brrrbrrr r-1 v40m4r4v120n4r4
  v80 brrbbrrb16b16 r-1 v90r4S4r4S4 r-1 v40m4r4v120n4r4
  v90 brrrbrbr r-1 r4. l16 v68s64s32.s v95 l24 sss v98 qqa azz l16 wg l8 r-1 v120 y1
  [2
   v90 brrrbbrr r-1 v100 r4s4r4s4 r-1 v120 e v60c [3 v90c v60c]
   v90 brrrbrrb r-1 v100 r4s4r4s. v80s16 r-1 [4 v90c v60c]
   v90 brrrbbrr r-1 v100 r4s4r4s4 r-1 [4 v90c v60c]
   v90 brrrbbrb16b16 r-1 v100 r4s4r16v75s.v100s16s16v90z16w16 r-1 [4 v90c v60c]
   v90 brrrbbrr r-1 v100 r4s4r4s4 r-1 v120 e v60c [3 v90c v60c]
   v90 brrrbrrb r-1 v100 r4s4r4s. v80s16 r-1 [4 v90c v60c]
   v90 brrrbbrb r-1 v100 r4s8.v75ss.v90a16z16v100w16s16 r-1 [4 v90c v60c]
   :
   v90 brrbbrbr r-1 r16v60s.v97s. l16 v80s v70rs64s32.v83ss v95s64s32.sv105ss l8 r-1 v120 y4 v100 u4j2
  ]
  v90 brrrrrrr r-1 v120 e2.. l24 v50uv65uv80u 

  v90j1
}