//-----------------------------------------------
// shadows on heart
// (C)Yax
//-----------------------------------------------

ResetGM();
TrackName     = {"shadows on heart"}
Copyright     = {"Yax"}

r4
TrackSync;


/*
 * アルペジオ記号用関数
 *  D : ずれ幅
 *  L : 全体長
 *  S : 構成音
 */
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)
}

/*
 * ××ダンド関数
 * B : 開始時のテンポ
 * E : 終了時のテンポ
 * LEN : 開始〜終了までの長さ
 * STP : 変換タイミング(音長)
 */
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(25) CHO(30)
TR(2)  V(107) REV(55) CHO(60)
TR(3)  V(110) REV(40) CHO(60)
TR(4)  V(100) REV(50) CHO(40)
TR(5)  V(114) REV(34) CHO(10)
TR(6)  V(110) REV(20) CHO(0)
TR(7)  V(98)  REV(40) CHO(70)
TR(8)  V(98)  REV(40) CHO(80)
TR(9)  V(110) REV(20) CHO(0)
TR(10) V(112) REV(25) CHO(0)


// テンポ
INT T  = 143
INT TE = 90
INT TS  = 113
INT TSE = 77

Tempo=(T)


// キー

INT KEY=0

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




//------------------------------------
// Track 1 : 
//------------------------------------
TR(1) CH(1) P(64)
@34 v105
M.onNoteWave(1,60,!2.)

 o2 l8

 [16 r1]
 
[2
 q95
 g1&!4>g1<
 f2.. q60 v(MML(v)+10)>f16f16<v(MML(v)-10) q70 f4f4f4f4
 [2
  [4 gggg16g16]
  [4 ffff16f16]
 ]
 q95
 g1&!4>g2.<d4
 f1 q70 ffff ffff16f16

 [2
  gggg gggg16g16 gggg gggg16g+16
  a-a-a-a- a-a-a-a-16a-16 a-a-a-a- a-b->c<a
  b-b-b-b- b-b-b-b-16b-16 b-b-b-b- b-b-b-b-16b-16
  aaaa aaaa16g16 f+f+f+f+ aaaf+
 ]

 [2
  q90
  g.b-.>e-g.e-.<b-
  f+.a.>df+.d.<a
  q70
  gggg16g16 ggge-16e-16
  :
  gggg16g16 g>g<a>a<
 ]
 gggg16g16 b-b-b-a

 [4
  >cccc16c16 cccc16<b-16 aaaa16a16 aaaa16f16
  :
  b-b-b-b-16b-16 b-b-b-b-16a16 gggg16g16 ggga16b-16
 ]
]
 q95
 f8&!8g2. b-16&!16>c16 c+16&!16dc.d e-16&!16f e-.d16&!16c+16
 c4^16.&<b-32 a-4^16.&f32 >cd16&!16e-16 c16&!16dc.a-16&!16b-16 a-.g.e-16c16
 <b-4.>c16&!16d16 e-8d16e-16f12e-12f12 f&!8g4 b&!8>c4<b-4
 f16&!16a-4^16a-16&g16 f4.f16&e-16 d4.>c&!8d8..&c32<< q70 e-f

 [4
  [4 gggg16g16]
  :
  [4 ffff16f16]
 ]
 [4 ff : ff16f16] f16g16a16b-16

 [2
  [4
   >cccc16c16 cccc16<b-16 aaaa16a16 aaaa16f16
   :
   b-b-b-b-16b-16 b-b-b-b-16a16 gggg16g16 ggga16b-16
  ]
  :
  b-b-b-b-16g16 b-b-b-b-16d16 b-b-b-b-16a16 ggg16&a16b-16&>d16<
 ]
 g2.&!8. >g8.&!8<b-16 

 [2
  [4 gggg16g16]
  [3 ffff16f16] ff16f16 f16f16>f16<f16
 ]

 q99
 g1&!4>g1<
 f1&!4>f1<
 g1^1
 f1^1

 c1^1


//------------------------------------
// Track 2 : 
//------------------------------------
TR(2) CH(2) P(34)
@26 v79

 [16 r1]

[2
 o4 l8 q90
 Slur(3)
 [4
  d.&b-.&>d&a.&d.&<b- d.&b-.&>d&a.&d.&a<
  c.&a-.&>c&g.&c.&<a- : c.&a-.&>c&g.&c.&g<
 ]
 c.&a-.&>c&>c&<a-&e-&c<

 v(MML(v)-10)
 [2
  ra&b-&>f4.&<b-4&>f4.&<b-^2
  ra-&b-&>e4.&<b-4&>e4.&<a-^2
  ra&b-&>f4.&<b-4&>f4.&<b-^2
  ra&b-&>f+4.&<b-4&>f+4.&<a4.>a4<
 ]

 Slur(1)
 >> l16
 v(MML(v)-5)
 [2
  [4 c&d&g&b-] [3 d&f+&a&b-] >c&<b-&g&d
  [7 c&d&g&b-] >c&<g&d&c
 ]
 v(MML(v)+5)
 << l8

 Slur(3)
 [2
  a.&>c.&f4&c&<a&>c16&f16< f.&a.>c4&<a&f&a16&>c16<
  f.&b-.>d4&<b-&f&b-16&>d16< g.&b-.>d4&<b-&g&b-16&>d16< 
  :
  a.&>c.&f4&c&<a&>c16&f16< f.&a.>c4&<a&f&a16&>c16<
  f.&b-.>d4&<b-&f&b-16&>d16< g.&b-.&>d4&<b-&>d&g16&<b-16
 ]
 a.&>c.&f4&c&<a&>c16&f16< a.&>c.&f&a2 r-2 >r32c4...< <
 v(MML(v)+10)
]

 [2
  d.&b-.&>d&a2^1<
  :
  c.&a-.&>c&g2^1<
 ]
 c.&a-.&>c&g2< a-.&>c.&e-&a-2<

 v(MML(v)-15)
 <
 [4
  ARP(4,!1,{b->da>d<})
  ARP(!4.,!1,{afc<})
  ARP(4,!1,{a->fa->c<})
  ARP(!4.,!1,{a-fc<})
 ]
 >
 v(MML(v)+5)
 [4
  a.&>c.&f4&c&<a&>c16&f16< f.&a.>c4&<a&f&a16&>c16<
  f.&b-.>d4&<b-&f&b-16&>d16< g.&b-.>d4&<b-&g&b-16&>d16< 
  :
  a.&>c.&f4&c&<a&>c16&f16< f.&a.>c4&<a&f&a16&>c16<
  f.&b-.>d4&<b-&f&b-16&>d16< g.&b-.&>d4&<b-&>d&g16&<b-16
 ]
 a.&>c.&f4&c&<a&>c16&f16< a.&>c.&f&a2 r-2 >r32c4...< <

 g.&b-.>d&<a2 r-2 r64 v(MML(v)-20) >c4.... r-2 r32 g4...< v(MML(v)+20)

 v(MML(v)+10)

 [4
  d.&b-.&>d&a.&d.&<b- d.&b-.&>d&a.&d.&a<
  :
  c.&a-.&>c&g.&c.&<a- c.&a-.&>c&g.&c.&g<
 ]
 c.&a-.&>c&g.&c.&<a- c.&a-.&>c&>c&<a-&e-&c<
 r-1^1 r2. DANDO((T),(TE),!1^4,!8) r4r1

 ARP(!64,!1^1,{ce-gb->df<})




//------------------------------------
// Track 3 : 
//------------------------------------
TR(3) CH(3) P(94)
@25 v72
Slur(3)

 [16 r1]

[2
 o4 l8 q90
 ARP(4,!1^1,{dg>da<}) r-1 > g2 f2 <
 ARP(4,!1^1,{ca->ce-<}) r-1 > f2 g2 <

 [2
  [2 q80 ARP(1,!4,{dg>da<}) [2 q50 'dg' : q80 ARP(1,!4,{dg>da<})]] q80 ARP(1,!8,{dg>da<}) 'dg' q80 ARP(1,!4,{g>dfa<})
  [2 q80 ARP(1,!4,{e-a->cg<}) [2 q50 'cf' : q80 ARP(1,!4,{e-a->cg<})]] q80 ARP(1,!8,{e-a->cg<}) 'cf' q80 ARP(1,!4,{a->ce-fg+<})
 ]
 ARP(4,!1^1,{dg>da<}) r-1 > g2 f2 <
 ARP(4,!1^1,{ca->ce-<}) r-1 > f2 g2 <

 v(MML(v)+10)
 [2
  ARP(2,!1^1,{ab->df<})  r-1 b-4.&>d4.&f4<
  ARP(2,!1^1,{a-b->ce<}) r-1 >c4.&<a-4.&>e4<
  ARP(2,!1^1,{gb->cf<})  r-1 g4.&b-4.&>f4<
  ARP(2,!1^1,{a>cdf+<})  r-1 >f+4.&d4.&<a4
 ]

 [2
  q90
  ARP(!48,!1,{e-gb->e-<})
  ARP(!48,!1,{f+a>df+<})
  q80
  v(MML(v)-10)
  ARP(1,!8,{gb->dg<})ARP(1,!8,{>gd<b-g})ARP(1,!8,{gb->dg<}) g16 ARP(1,!8.,{>gd<b-g})ARP (1,!8,{gb->dg<})ARP(1,!8,{gb->dg<})ARP(1,!8,{>fd<a})
  ARP(1,!8,{gb->dg<})ARP(1,!8,{>gd<b-g})ARP(1,!8,{gb->dg<}) g16 ARP(1,!8.,{>gd<b-g})ARP (1,!8,{gb->dg<})ARP(1,!8,{gb->dg<})ARP(1,!8,{>fd<a})
  v(MML(v)+10)
 ]

 v(MML(v)-10)
 [2
  [2 ARP(1,!4,{fa>cf<}) f >ARP(1,!4,{fc<af}) f16f16 ARP(1,!8,{fa>cf<}) f16f16]
  ARP(1,!4,{fb->df<}) f >ARP(1,!4,{fd<b-f}) f16f16 ARP(1,!8,{fb->df<}) f16f16
  ARP(1,!4,{gb->df<}) g >ARP(1,!4,{fd<b-g}) g16g16 ARP(1,!8,{gb->df<}) g16g16
  [2 ARP(1,!4,{fa>cf<}) f >ARP(1,!4,{fc<af}) f16f16 ARP(1,!8,{fa>cf<}) f16f16]
  :
  ARP(1,!4,{fb->df<}) f >ARP(1,!4,{fd<b-f}) f16f16 ARP(1,!8,{fb->df<}) f16f16
  ARP(1,!4,{fb->dg<}) g >ARP(1,!4,{gd<b-f}) g16g16 ARP(1,!8,{fb->dg<}) g16g16
 ]
]

 <ARP(4,!1^1,{g>dg>da<})
 <ARP(4,!1^1,{a->ca->ce-<})
 <ARP(4,!1^1,{g>dg>da<}) r-1 > g2 f2 <
 <ARP(4,!1^1,{a->ca->ce-<}) r-1 > f2 g2 <

 [4
  [2 q80 ARP(1,!4,{dg>da<}) [2 q50 'dg' : q80 ARP(1,!4,{dg>da<})]] q80 ARP(1,!8,{dg>da<}) 'dg' q80 ARP(1,!4,{g>dfa<})
  [2 q80 ARP(1,!4,{e-a->cg<}) [2 q50 'cf' : q80 ARP(1,!4,{e-a->cg<})]] q80 ARP(1,!8,{e-a->cg<}) 'cf' : q80 ARP(1,!4,{a->ce-fg+<})
 ]
 q80 ARP(1,!4,{gb->df+<})

 v(MML(v)-10)
 [4
  [2 ARP(1,!4,{fa>cf<}) f >ARP(1,!4,{fc<af}) f16f16 ARP(1,!8,{fa>cf<}) f16f16]
  ARP(1,!4,{fb->df<}) f >ARP(1,!4,{fd<b-f}) f16f16 ARP(1,!8,{fb->df<}) f16f16
  ARP(1,!4,{gb->df<}) g >ARP(1,!4,{fd<b-g}) g16g16 ARP(1,!8,{gb->df<}) g16g16
  [2 ARP(1,!4,{fa>cf<}) f >ARP(1,!4,{fc<af}) f16f16 ARP(1,!8,{fa>cf<}) f16f16]
  :
  ARP(1,!4,{fb->df<}) f >ARP(1,!4,{fd<b-f}) f16f16 ARP(1,!8,{fb->df<}) f16f16
  ARP(1,!4,{fb->dg<}) g >ARP(1,!4,{gd<b-f}) g16g16 ARP(1,!8,{fb->dg<}) g16g16
 ]

 ARP(7,!1,{dg>da<})

 v(MML(v)+10)
 [2
  [2 q80 ARP(1,!4,{dg>da<}) [2 q50 'dg' : q80 ARP(1,!4,{dg>da<})]] q80 ARP(1,!8,{dg>da<}) 'dg' q80 ARP(1,!4,{g>dfa<})
  [2 q80 ARP(1,!4,{e-a->cg<}) [2 q50 'cf' : q80 ARP(1,!4,{e-a->cg<})]] q80 ARP(1,!8,{e-a->cg<}) 'cf' q80 ARP(1,!4,{a->ce-fg+<})
 ]

 [2
  ARP(7,!1^1,{dg>da<}) r-1 > g2 f2 <
  ARP(7,!1^1,{ca->ce-<}) r-1 > f2 g2 <
 ]
 v(MML(v)-10)
 ARP(!64,!1^1,{e-fb->e-g<})



//------------------------------------
// Track 4 : 
//------------------------------------
TR(4) CH(4) P(54)
@49 v70
M.onNoteWave(4,60,!1)

 [14 r1]
 o6 q99
 EP.onTime(1,115,!1^2) 
 ARP(0,!1^1,{ab->dgab-})
 r-2 r8 EP.onTime(115,0,!4.) r4.
 EP(127)

[2
 o4 l8 q99
 [3
  'a1^1g1^1d1^1' r-1 b-2>c2<
  'g1^1e-1^1c1^1' r-1 f2g2
 ]
 r-1^1^1^1^1^1^1^1
 >>
 r-8c16c+16
 v(MML(v)-10)
 'd1^2.<b-1^2.>'e-4
 c1 r-1 f2..e-16d16 'c1<g1>'
 'd1^2.<b-1^2.>'e-d16d-16
 <a-1>r-1 c2..c+16d16 'e-1c1'
 v(MML(v)+10)
 <<
 EP.onTime(20,127,!1.)
 'd1^1g1^1>b-1^1>d1^1<<'
 EP.onTime(20,127,!1.)
 'c1^1f1^1>a-1^1>c1^1<<'

 'd1^1<b-1^1>'
 'e1^1<b-1^1>'
 'f1^1<b-1^1>'
 'f+1^1d1^1<a1^1>'
 'd1^1<b-1^1>'     r-1^1 v(MML(v)-10) g1b-2>d2< v(MML(v)+10)
 'e1^1<b-1^1>'     r-1^1 v(MML(v)-10) >c1<a-1 v(MML(v)+10)
 'f1^1<b-1^1>'     r-1^1 v(MML(v)-10) b-1>f4e-4d4c4< v(MML(v)+10)
 'f+1^1d1^1<a1^1>' r-1^1 v(MML(v)-10) >d1<a4.b-4.>c4< v(MML(v)+10)

 [2
  'b-1e-1g1<b-1>'
  'a1d1<a1f+1>'
  'g1^1d1^1<b-1^1>'
  r-1^1^1^1
  v(MML(v)-15)
  >>'e-1<b-1>' 'f+1d1' 'g1^1d1^1' r-1 <b-1 <
  v(MML(v)+15)
 ]

 [2
  'a1f1'  r-1 >'f2a2''>c2<a2'<
  'f1c1'  r-1 >'>e-2c2<''>c2<a2'<
  'b-1f1' r-1 >'>d2<b-2''c2a2'<
  'b-1g1' r-1 >'b-2g2' '>c2<g2'<
  'a1f1'  r-1 >'f2a2''>c2<a2'<
  'f1c1'  r-1 >'>e-2c2<''>c2<a2'<
  :
  'b-1f1' r-1 >'>d1<b-1'<
  'b-1g1' r-1 >'b-1g1'<
 ]
 :
 >'b-1^1g1^1d1^1'<<
 r-1^1
]
 <
 [2
  EP.onTime(10,110,!1.)
  'd1^1g1^1>b-1^1>d1^1<<'
  EP.onTime(10,110,!1.)
  'c1^1f1^1>a-1^1>c1^1<<'
 ]
 [4
  EP.onTime(30,127,!1.)
  'd1^1g1^1>d1^1b-1^1<'
  EP.onTime(30,127,!1.)
  'c1^1f1^1>c1^1a-1^1<'
 ]
 > EP(127)
 [2
  [2
   '<a1>a1f1'   r-1 >'f2a2''>c2<a2'<
   '<f1>f1c1'   r-1 >'>e-2c2<''>c2<a2'<
   '<b-1>b-1f1' r-1 >'>d2<b-2''c2a2'<
   '<g1>b-1g1'  r-1 >'b-2g2' '>c2<g2'<
   '<a1>a1f1'   r-1 >'f2a2''>c2<a2'<
   '<f1>f1c1'   r-1 >'>e-2c2<''>c2<a2'<
   :
   '<b-1>b-1f1' r-1 >'>d1<b-1'<
   '<g1>b-1g1'  r-1 >'b-1g1'<
  ]
  :
  '<b-1>b-1f1' r-1 >'>d1<b-1'<
  '<g1>b-1g1'  r-1 >'b-1>f1<'<
 ]
 >'b-1^1g1^1d1^1'<
 r-1^1
 '<g1>b-1g1'
 >

 [2
  '<<g1^1>g1^1>a1^1g1^1d1^1' r-1 b-2>c2<
  '<<f1^1>f^1>g1^1e-1^1c1^1' r-1 f2g2
 ]
 [3
  v(MML(v)-3)
  :
  '<<g1^1>>a1^1g1^1d1^1' r-1 b-2>c2<
  '<<f1^1>>g1^1e-1^1c1^1' r-1 f2g2
 ]
 EP.onTime(127,0,!1^1)
 'd1^1<b-1^1g1^1f1^1c1^1>'




//------------------------------------
// Track 5 : 
//------------------------------------
TR(5) CH(5) P(74)
//@1,16,0 v90
@5 v58
REV(75)
Slur(3)

Tempo(TS)
 o6 l8 q99
 ARP(4,!1,{a>cf<}) ARP(2,!1,{fa>c<}) r-2 >e-4..c32c+32<
  r-1^1 <<f&>c&&f&a^2&<a2&>c2>
 ARP(1,!1,{fb->d<}) r-2 >c2< ARP(1,!1,{dfgb-}) r-2 >c2<
  r-1^1 <<f&b-&>f&b-^2&d2&<b-4&g4>>
 ARP(4,!1,{a>cf<}) ARP(2,!1,{fa>c<}) r-2 >e-4..c32c+32<
  r-1^1 <<f&>c&&f&a^2&<a2&>c2>
 ARP(1,!1,{fb->d<}) r-2 >e-2< ARP(3,!1,{fgb->df<}) r-2 >e-4d4<
  r-1^1 <<f&b-&>f&b-^2 <b-&>g&b-&>d4&<b-&f&<b->>

 ARP(4,!1,{a>cf<}) ARP(2,!1,{fa>c<}) r-2 >e-4c8.c32c+32<
  r-1^1 <<f&>c&&f&a^2&<a2&>c2>
 ARP(1,!1,{fb->d<}) r-2 >c2< ARP(1,!1,{dfgb-}) r-2 >c2<
  r-1^1 <<f&b-&>f&b-^2&d2&<b-4&g4>>
 ARP(4,!1,{a>cf<}) ARP(2,!1,{fa>c<}) r-2 >e-4c4<
  r-1 DANDO((TS),(TSE),!1,!8) r-1 <<f&>c&&f&a^2&<a2&f2>>

 <<'g1^1>d1^1'> r-1^1 q120 [16 v(MML(v)-7) ARP(4,!8,{fgb->d<})]
 r-1 Tempo(T) r1

@5,8,0 v80
REV(38)

 [3 r1]
 o6 l8 q95
 r2..r32c32d32e-32

[2
 o6 l8 q95
 'f.d.''d.<b-.>''fd' 'a2f2' 'f.d.''d.<a.>''fd' d2 r-2 'a4f4' 'g4'
 'e-.c.''c.<g.>''e-c' 'g2e-2' 'e-.c.''c.<g.>''e-c' g2 r-2 >c4<b-8^32 c32d32e-32
 'f.d.''d.<b-.>''fd' 'a2f2' 'f.d.''d.<a.>''fd' d2 r-2 'a4f4' 'g4'
 'e-.c.''c.<g.>''e-c' 'g2e-2' 'e-.c.''c.<g.>''e-c' e-2 r-2 g4g+4
 q140
 [9 v(MML(v)-7) ARP(!64,!8.,{dfa})] r4^16 v(MML(v)+63)
 [9 v(MML(v)-7) ARP(!64,!8.,{ce-g})] r4^16 v(MML(v)+63)
 q95
 [2
  rr'f4.d4.''d4.<b-4.>''a4.f4.''af'<b->'d4.f4.'
  rr'e4.c4.''c4.<a-4.>''g1e1'
  rr'f4.d4.''d4.<b-4.>''a4.f4.''af'<b->'a4.d4.'
  rr'f+4.d4.''d4.<a4.>''a4.f+4.''>c^2<a^2f+^2'
 ]

 [2
  ARP(2,!1,{e-gb-}) r-1 r4.g4.>c32d8..<
  ARP(2,!1,{f+a>c<}) r-4 b-a
  :
  ARP(1,!1.,{dgb-})
  'g2e-2<b-2>' r-4 a4
 ]
 ARP(1,!1^1,{dgb-}) r-1 >d2.de-<

 [2
  '>f.c.<a.''>c.<a.''>f^2c^2<a^2'
  ARP(3,!1,{fa>c<}) r-2 >e-4c4<
  ARP(1,!1,{fb->d<}) r-2 >c2<
  ARP(1,!1,{dfgb-}) r-2 >c4.d16e-16<
  '>f.c.<a.''>c.<a.''>f^2c^2<a^2'
  ARP(3,!1,{fa>c<}) r-2 >e-4 :  cc16c+16<
  ARP(1,!1,{fb->d<}) r-2 >e-2<
  ARP(2,!1,{fgb->df<}) r-2 >e-4d4<
 ]
 c4<
 :
 ARP(3,!1^1,{dgb-})
 r1
 o6
 r2..r32c32d32e-32
]

 q140
 [2
  [9 v(MML(v)-7) ARP(!64,!8.,{dfa})]  r4^16 v(MML(v)+63)
  [9 v(MML(v)-7) ARP(!64,!8.,{ce-g})] r4^16 v(MML(v)+63)
 ]
 q95

 <
 [2
  ARP(!32,!1^1,{fa>df<})   r-1 b-4.>c4.d4<
  ARP(!32,!1^1,{e-g>ce-<}) r-1 >c4.e-4.<g4
  ARP(!32,!1^1,{fa>df<})   r-1 >b-4.a4.f4<
  :
  ARP(!32,!1^1,{e-g>ce-<}) r-1 >e-4.g4.a-4<
 ]
 >ARP(!24,!1^1,{e-c<ge-}) r-1 >g4.a-4.a4<
 >r-8d16e-16

 [2
  [2
   '>f.c.<a.''>c.<a.''>f^2c^2<a^2'
   ARP(3,!1,{fa>c<}) r-2 >e-4c4<
   ARP(1,!1,{fb->d<}) r-2 >c2<
   ARP(1,!1,{dfgb-}) r-2 >c4.d16e-16<
   '>f.c.<a.''>c.<a.''>f^2c^2<a^2'
   ARP(1,!1,{fa>c<})
   :
   r-2 >e-4  cc16c+16<
   ARP(1,!1,{fb->d<}) r-2 >e-2<
   ARP(3,!1,{fgb->df<}) r-2 >e-4dd16e-16<
  ]
  :
  r-2 >e-4  cc16c+16<
  ARP(1,!1,{fb->d<}) r-2 >e-2<
  ARP(3,!1,{fgb->df<}) r-2 >d4e-4<
 ]
 >r-2e-2 < v(MML(v)-10) ARP(3,!1,{gb->d<}) v(MML(v)+10)
 r-8 r32c32d32e-32

 'f.d.''d.<b-.>''fd' 'a2f2' 'f.d.''d.<a.>''fd' d2 r-2 'a4f4' 'g4'
 'e-.c.''c.<g.>''e-c' 'g2e-2' 'e-.c.''c.<g.>''e-c' g2 r-2 >c4<b-8^32 c32d32e-32
 'f.d.''d.<b-.>''fd' 'a2f2' 'f.d.''d.<a.>''fd' d2 r-2 'a4f4' 'g4'
 'e-.c.''c.<g.>''e-c' 'g2e-2' 'e-.c.''c.<g.>''e-c' e-2 r-2 g4g+4

 q140
 [2
  [9 v(MML(v)-7) ARP(!64,!8.,{dfa})]  r4^16 v(MML(v)+63)
  [9 v(MML(v)-7) ARP(!64,!8.,{ce-g})] r4^16 v(MML(v)+63)
 ]

 q100 v(MML(v)-9)
 < ARP(7,!1^1,{fab->df}) r-1 v(MML(v)-20) d1



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



//------------------------------------
// Track 7 : 
//------------------------------------
TR(7) CH(7) P(10)
@30 v90
M.onNoteWave(4,100,!2^8)
Slur(0)
BR(0)
FineTune(68)
 [16 r1]

 [108 r1]
 [7 r1]
 
 o5 l16
 r2.q70rab->c

 q95
 c8&!8d2^16.&c32 c4 e-8&!8f4 e-4.d4
 <b-16&!16>c4^32&<b-32> e-8&!8f4 e-4 q60 dc<b->c dcde- q95 c4...&!8.<a32
 a8&!8b-8..&a32 a4.f4 c&!16d4.^32&c32 c4...&!8.<b-32>
 c16.&!16.d2^8&c32 c4 c32&d4^16&c32 e-32&f4^16&e-32 f32&f+8.&f32

 q50 gg q95 >f8&!8g4^16.&f+32 f4^16.&e-32 q60 b-agf agfe- q70 l12 gfe- fe-d
 l12 c<b->c l16 q50 <b->de-f q95 f8&!8g8..&f32 f16.r32 a32&b-8^32 a-8.g8 g32&a-8^32 g8.f8
 f8&!8g8..&f32 d4.e-32&f16. q50e-d q95 d8&!8e-8..&d32d4.<b-8q50 ab->
 q95 <b-16&!16>c4^32&<b-32> f16&!16g4^32&f32 q50 fga-b- q95 a4&!4>c2^16.&<b-32> q60de-

 EP.onTime(127,0,!1^1^1)
 q99 d4&!4f1^1^2.<
 r1
 [10 r1]

 EP(105)
 r1
 r2..<q50 fg

 q95g8&!8a2. q60 ag q95 f4...&d32 c4..&!16<a16>
 c8&!8d2. q60 de- q95 e-8&!8f2. q60 fg
 q95 g8&!8a2^8..&g32 q60 fg q95 g16&!16a4^32&g32 q60 ab- q95 b-16&!16>c4^32&<b-32 q60 b-a
 q95 a8&!8b-2^8..&g32 q70 g8 q95 >c4&!4d2^8..&c32<

 q95g8&!8a2. q60 ab- q95 b-16&!16>c4.^32&<b-32 a4..&!16g16
 a8&!8b-2^8..&a32 q50 f8 q95 f16&!16g2^8^32&f32 a16&!16b-8^32&g32
 f8&!4a2.^16.&g32 e-16&!16f4.^32&e-32 g16&!16a4.^32&g32
 f4&!4g2^8&!8<b-8 r1
 r-1^8 EP.onTime(105,0,!2) r8r1


//------------------------------------
// Track 8 : 
//------------------------------------
TR(8) CH(8) P(117)
@30 v89
M.onNoteWave(4,110,!2..)
Slur(0)
BR(0)
FineTune(60)
r96
 [16 r1]

 [108 r1]
 [7 r1]
 
 o5 l16
 r2.q70rab->c

 q95
 c8&!8d2^16.&c32 c4 e-8&!8f4 e-4.d4
 <b-16&!16>c4^32&<b-32> e-8&!8f4 e-4 q60 dc<b->c dcde- q95 c4...&!8.<a32
 a8&!8b-8..&a32 a4.f4 c&!16d4.^32&c32 c4...&!8.<b-32>
 c16.&!16.d2^8&c32 c4 c32&d4^16&c32 e-32&f4^16&e-32 f32&f+8.&f32

 q50 gg q95 >f8&!8g4^16.&f+32 f4^16.&e-32 q60 b-agf agfe- q70 l12 gfe- fe-d
 l12 c<b->c l16 q50 <b->de-f q95 f8&!8g8..&f32 f16.r32 a32&b-8^32 a-8.g8 g32&a-8^32 g8.f8
 f8&!8g8..&f32 d4.e-32&f16. q50e-d q95 d8&!8e-8..&d32d4.<b-8q50 ab->
 q95 <b-16&!16>c4^32&<b-32> f16&!16g4^32&f32 q50 fga-b- q95 a4&!4>c2^16.&<b-32> q60de-

 EP.onTime(127,0,!1^1^1)
 q99 d4&!4f1^1^2.<
 r1
 [10 r1]

 EP(105)
 r1
 r2..<q50 fg

 q95g8&!8a2. q60 ag q95 f4...&d32 c4..&!16<a16>
 c8&!8d2. q60 de- q95 e-8&!8f2. q60 fg
 q95 g8&!8a2^8..&g32 q60 fg q95 g16&!16a4^32&g32 q60 ab- q95 b-16&!16>c4^32&<b-32 q60 b-a
 q95 a8&!8b-2^8..&g32 q70 g8 q95 >c4&!4d2^8..&c32<

 q95g8&!8a2. q60 ab- q95 b-16&!16>c4.^32&<b-32 a4..&!16g16
 a8&!8b-2^8..&a32 q50 f8 q95 f16&!16g2^8^32&f32 a16&!16b-8^32&g32
 f8&!4a2.^16.&g32 e-16&!16f4.^32&e-32 g16&!16a4.^32&g32
 f4&!4g2^8&!8<b-8 r1
 r-1^8 EP.onTime(105,0,!2) r8r1



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



//------------------------------------
// Track 10 : ドラム系
//------------------------------------
TR(10) CH(10)
// マクロ定義
// b = bass / s = Snare
$b{n36,} $s{n38,}
// 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]
 v90 j4j4j4j4
  
[2
 v100 b1             r-1 v127 'e1y1'
 v100 r2..b8         r-1 v90 r2.. s16s16
 v100 b4r4b4r8b16b16 r-1 v127 'ey' v70c16c16 [3 v100c v70c16c16]
 v100 b4b4b4bb16b16  r-1 v90 r2.. s16s16 r-1 [4 v100c v70c16c16]
 [2
  v100 bbrrrb16b16rr r-1 v110 rrs4rrs4 r-1 v127 e v70c16c16 [3 v100c v70c16c16]
  v100 bbrrbb16b16rr r-1 v110 rrs4rrs.v90s16 r-1 [4 v100c v70c16c16]
  v100 bbrrrb16b16rr r-1 v110 rrs4rrs4 r-1 [4 v100c v70c16c16]
  :
  v100 bbrrb16bb16rb16b16 r-1 v110 rrs4rr s16s16r r-1 [4 v100c v70c16c16]
 ]
 v100 bbrrb16bb16rb16b16 r-1 v110 rrs.l16 v80s v110 gqqa azzw l8 r-1 [4 v100c v70c16c16]
 v100 b1            r-1 v127 'e1y1'
 v100 r2..b8        r-1 v90 r2.. s16s16
 v100 b1            r-1 v127 'e1y1'
 v100 b4b4b4bb16b16 r-1 v50sv60sv70sv80s v90sv100sv110sv90s16s16

 [2
  [2
   v100 bbrrrb16b16rr r-1 v110 rrs4rrs4 r-1 v127 e v70c16c16 [3 v100c v70c16c16]
   v100 bbrbrb16b16rr r-1 v110 rrs4rrs4 r-1 [4 v100c v70c16c16]
   v100 bbrrrb16b16rr r-1 v110 rrs4rrs4 r-1 [4 v100c v70c16c16]
   :
   v100 bbrbrb16b16rr r-1 v110 rrs4rrs.v90s16 r-1 [4 v100c v70c16c16]
  ]
  :
  v100 bbrbrb16b16rb16b16 r-1 v110 rrs4rrs16s. r-1 [4 v100c v70c16c16]
 ]
 v100 [2 bb16b16]bbbb r-1 v110 l16 ssrr ssrr ssqq aazz l8 r-1 [4 v100c v70c16c16]

 v100 brrb  rrrr r-1 v110 rrrr s4.v70s r-1 v127y4 v100 j4j4j4
 v100 b.b.b16b16 rrrr r-1 v110 rrrr s.v70s16 v80s16v100s16v110w16w16 r-1 v100 j4j4j4j4
 v100 bbrr bbrr r-1 v110 rrs4rrs4 r-1 v127e v70c [3 v100c v70c]
 v100 bbrr bbrr r-1 v110 rrs.v70s16 r16sr16 v110sv90s16s16 r-1 [4 v100c v70c]
 v100 brrb  rrrr r-1 v110 rrrr s4.v70s r-1 v127y4 v100 j4j4j4
 v100 b.b.b16b16 rrrr r-1 v110 rrrr s.v70s16 v80s16v100s16v110s16s16 r-1 v100 j4j4j4j4
 v100 bbrr bbrr r-1 v110 rrs4rrs4 r-1 v127e v70c [3 v100c v70c]
 v100 bbrr bbrr r-1 v110 rrs.v70s16 v110rv90s16s16 v110q16a16z16w16 r-1 [4 v100c v70c]

 [2
  v100 brrb rbrr      r-1 v110 rrs4rrs4 r-1 v127 y v80c16c16 [3 v100c8v80c16c16]
  v100 bbrb rb16b16rr r-1 v110 rrs4rrs4 r-1 [4 v100c8v80c16c16]
  v100 brrb rbrr      r-1 v110 rrs4rrs4 r-1 [4 v100c8v80c16c16]
  v100 bbrb rb16b16rr r-1 v110 rrs4rrs v90s16s16 r-1 [4 v100c8v80c16c16]
  :
  v100 brrb rbrr      r-1 v110 rrs4rrs4 r-1 v127 y v80c16c16 [3 v100c8v80c16c16]
  v100 bbrb rb16b16rr r-1 v110 rrs4rrs4 r-1 [4 v100c8v80c16c16]
  v100 brrb rbrr      r-1 v110 rrs4rrs4 r-1 [4 v100c8v80c16c16]
  v100 bbrb rb16b16rr r-1 v110 rrs4rl16ss qazwl8 r-1 [4 v100c8v80c16c16]
 ]
 v100 brrb rbrr      r-1 v110 rrs4rrsv90s16s16 r-1 v127 y v80c16c16 [3 v100c8 : v80c16c16] v70o
 v100 brbr brbb16b16 r-1 v110 l16 rq32q32as azs64s32.s wazs azs64s32.s l8 r-1 v120 d1
]

 v100 b1     r-1 v127 e1           r-1 v50 [4 f4]
 v100 r2..b  r-1 r2.. v100 [3 d24] r-1 v50 [4 f4]
 v100 b1     r-1 v127 y1           r-1 v50 [4 f4]
 v100 b4.b2b r-1 r2.. v100 [3 d24] r-1 v50 [4 f4]
 v100 b2..b16b16 r-1 v127 e1           r-1 v50 [4 f4]
 v100 b4.bb4.b   r-1 v100 [2 a32q^32 z32a^32 w32z16.] r-1 r2.. v100 [3 d24] r-1 v50 [4 f4]
 v100 b4b4b4b4   r-1 rv50'sw'v60'sw'v70'sw'v80'sw'v90'sw'v100'sw'v110'sw' r-1 v127 y1 r-1 v50 [4 f4]
 v100 b4b4b4bb   r-1 l16 v80 [4 s32s32 (v(MML(v)-13)) sss (v(MML(v)+23))] l8 r-1 v50 [4 f4]

 [2
  [2
   v100 bbrrrb16b16rr r-1 v110 rrs4rrs4 r-1 v127 e v70c16c16 [3 v100c v70c16c16]
   v100 bbrrbb16b16rr r-1 v110 rrs4rrs.v90s16 r-1 [4 v100c v70c16c16]
   v100 bbrrrb16b16rr r-1 v110 rrs4rrs4 r-1 [4 v100c v70c16c16]
   :
   v100 bbrrb16bb16rb16b16 r-1 v110 rrs4rr s16s16r r-1 [4 v100c v70c16c16]
  ]
  :
  v100 bbrrb16bb16rb16b16 r-1 v110 rrs.l16 v80s v110 gqqa azzw l8 r-1 [4 v100c v70c16c16]
 ]
 v100 bbrrb16bb16rb16b16 r-1 v70r16[3s16] v110 sl16 v80ss v110 azss q64q32.qaz l8 r-1 [4 v100c v70c16c16]


 [2
  v100 brrb rbrr      r-1 v110 rrs4rrs4 r-1 v127 y v80c16c16 [3 v100c8v80c16c16]
  v100 bbrb rb16b16rr r-1 v110 rrs4rrs4 r-1 [4 v100c8v80c16c16]
  v100 brrb rbrr      r-1 v110 rrs4rrs4 r-1 [4 v100c8v80c16c16]
  v100 bbrb rb16b16rr r-1 v110 rrs4rrs v90s16s16 r-1 [4 v100c8v80c16c16]
  v100 brrb rbrr      r-1 v110 rrs4rrs4 r-1 v127 y v80c16c16 [3 v100c8v80c16c16]
  v100 bbrb rb16b16rr r-1 v110 rrs4rrs4 r-1 [4 v100c8v80c16c16]
  :
  v100 brrb rbrr      r-1 v110 rrs4rrs4 r-1 [4 v100c8v80c16c16]
  v100 bbrb rb16b16rr r-1 v110 rrs4r l16ss qazwl8 r-1 [4 v100c8v80c16c16]
 ]
 v100 brrb rbrr        r-1 v110 rrs4rrs4 r-1 [4 v100c8v80c16c16]
 v100 brbr [2 bb16b16] r-1 v110 l16 rv90s8v70s v110s8 v70ss v110 q64q32.qss zzss l8 r-1 [4 v100c8v80c16c16]

 [2
  v100 brrb16b16 rbrr  r-1 v110 rrs4rrs4 r-1 v127 y v80c16c16 [3 v100c8v80c16c16]
  v100 bbrb rb16b16rr  r-1 v110 rrs4rrs16v90s. r-1 [4 v100c8v80c16c16]
  v100 brrb rbr.b16    r-1 v110 rrs4rrs4 r-1 [4 v100c8v80c16c16]
  v100 bbrb rb16b16rr  r-1 v110 rrs4rrs16v90s16v100 w16w16 r-1 [4 v100c8v80c16c16]
  :
  v100 brrb rbrr       r-1 v110 rrs4rrs4 r-1 v127 y v80c16c16 [3 v100c8v80c16c16]
  v100 bbrb rb16b16rr  r-1 v110 rrs4rrs16s. r-1 [4 v100c8v80c16c16]
  v100 brrb rbr.b16    r-1 v110 rrs4rrs.v70v90s16 r-1 [4 v100c8v80c16c16]
  v100 brbr [2 bb16b16] r-1 v110 l16 qazs azss zzss aass l8 r-1 [4 v100c8v80c16c16]
 ]
 v100 brrb16b16 rbrr    r-1 v110 rrs4rrsv90s16s16 r-1 v127 y v80c16c16 [3 v100c8 : v80c16c16] v70o
 v100 [4 bb16b16] r-1 v110 l16 rsq64q32.a sa64a32.zs64s32. q64q32.az v90s s32s32v100ssv110s l8 r-1 v120 d1

 v100 b2.b4 r-4 r16v90s32s32v100s16v110s16 r-1 v127 'y1e1' r-1 v70 f4f4f4f4

 [2
  v100 bbrb16b16rb16b16rr r-1 v110 rrs4rrs.v70s16 r-1 v127 e v70c16c16 [3 v100c v70c16c16]
  v100 bb16b16rr16b16bb16b16rr r-1 v110 rrs4rrs16v90s16w r-1 [4 v100c v70c16c16]
  :
  v100 bbrb16b16rb16b16rr r-1 v110 rrs4rrs.v70s16 r-1 [4 v100c v70c16c16]
  v100 bb16b16r16bb16b16bb16rb16b16 r-1 v110 rrs.v70s16r16s. v110s16s16z r-1 [4 v100c v70c16c16]
 ]
 v100 bbrb16b16rb16b16rr r-1 v110 rrs4r16v70sr16v110sv80s16s16 r-1 [4 v100c v70c16c16]
 v100 bb16b16rrb16bb16rb16b16 r-1 l16 v90 [2 s32s32 (v(MML(v)-13)) sss (v(MML(v)+23))] q32q32qaa zzww l8 r-1 [4 v100c v70c16c16]

 v100 b1            r-1 v127 'e1y1'
 v100 r2..b16b16    r-1 v90 r2.. s16s16
 v100 b1            r-1 v117 'e1y1'
 v80  r2..b16b16
 v90  b1            r-1 v107 'e1y1'
 v80  r2..b16b16
 v70  b1            r-1 v97 'e1y1'
 r1
}
EP.onTime(127,0,!1.)
Rhythm {
 l48
 v50 [48 e24] r-1^1 r48[48 y24]
}