//-----------------------------------------------
// sway in moonlight
// (C)Yax
//-----------------------------------------------

TrackName     = {"sway in moonlight"}
Copyright     = {"Yax"}

ResetGM();                 // GM音源リセット
r2
TrackSync;                 // 全てのトラックを同期


//------------------------------------------------
// アルペジオ関数
//  D - 1音あたりのずらし幅
//  L - 全体の長さ
//  S - 鳴らす音、{}内に音階を記述(>と<は利用可能)
//------------------------------------------------
Function ARP(Int D, Int L, Str S) {
  Int LNG = L
  Int STP = 0
  Int TEMP = 127
  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でリタルダンド、B>Eでアッチェラダンド)
//  B   - 開始時のテンポ(bpm)
//  E   - 終了時のテンポ(bpm)
//  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)
}

//------------------------------------------------
// 転調関数
//------------------------------------------------
// 転調
//  VAL - 転調幅
FUNCTION EDTRANS(VAL) {
  TrackKey(VAL)
}

// 転調を戻す
FUNCTION EDTRANS_REV() {
  TrackKey(0)        // 普通に戻すなら0で(Keyで指定したとこに戻る)
}


//------------------------------------------------
// 全体の調整
//------------------------------------------------
TR(1)  V(110) REV(30) CHO(50)
TR(2)  V(99)  REV(33) CHO(40)
TR(22) V(99)  REV(90) CHO(90)
TR(3)  V(110) REV(35) CHO(40)
TR(4)  V(95)  REV(90) CHO(20)
TR(5)  V(103) REV(60) CHO(20)
TR(6)  V(110) REV(20) CHO(0)
TR(7)  V(108) REV(25) CHO(10)
TR(8)  V(107) REV(25) CHO(10)
TR(9)  V(110) REV(20) CHO(0)
TR(11) V(100) REV(45) CHO(60)
TR(12) V(100) REV(45) CHO(60)
TR(13) V(90)  REV(80) CHO(60)
TR(10) V(118) REV(30) CHO(0)


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

INT T2 = 114
INT T3 = 60
INT T4 = 50


//------------------------------------------------
// キー
//------------------------------------------------
INT KEY=1

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



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

//------------------------------------
// Track 1 : 
//------------------------------------
TR(1) CH(1) P(62)
@34 v96

 o2 l8
 Slur(3)
 v(MML(v)-10)
 q90
 [3 r1]
 r2..b->
 g&e-&<g16&b-16&>e- a&>f&c16&<a16&f
 b-&>d&f&d16&<b-16 b-&g&>d16&<b-16&g
 g&e-&g&&b-16&e-16> c&<a16&f16&>c&<a
 >f&<a&f16&d16&<a>
 q73
 [4 <b->] 
 v(MML(v)+10)

 [2
  e-e-e-e- ffff
  dddd e-e-e-e-
  e-e-e-e- ffff
  :
  dddd gggf
 ]
 <b-2.f4

 [2
  [2
   [8 g v(MML(v)-10) g v(MML(v)+10)]
   [8 b- v(MML(v)-10) b- v(MML(v)+10)]
   [8 g v(MML(v)-10) g v(MML(v)+10)]
   >[4 c v(MML(v)-10) c v(MML(v)+10)]< : [4 f v(MML(v)-10) f v(MML(v)+10)]
  ]
  [2 f v(MML(v)-10) f v(MML(v)+10)] ffga

  b-b-rr rrrb-
  ffrr rrrf
  e-e-rr rrre-
  ffrr ffga

  [4 b- v(MML(v)-10) b- v(MML(v)+10)]
  [4 f v(MML(v)-10) f v(MML(v)+10)] > 
  [4 c v(MML(v)-10) c v(MML(v)+10)]
  [4 d v(MML(v)-10) d v(MML(v)+10)]

  [2
   e-e-e-e- ffff
   dddd e-e-e-e-
   e-e-e-e- ffff
   :
   dddd gggf
  ]
  :
  <b-2.f4
 ]
  <b-1
  rggg gggg

  [2
   >cccc cccc<
   ffff ffff
   :
   b-b-b-b- b-b-b-b-
   gggg gggg
  ]
  >dddd dddd<
  b-b-b-b- b-b-b-b-

  [2
   >cccc cccc<
   :
   ffff ffff
   b-b-b-b- b-b-b-b-
   gggg gggg
  ]
  >ffff ffff
  dddd dddd
  <gggg gggg

  >e-4.d16&e-16 f4.c8
  b-2&!4g4.d
  e-4.>d16&e-16f4.c8<
  a2g4<b-g
  e-4e-4f4f4
  f4f4g4g4
  g4g4a4a4
  b-1
  a2>a&f+g&a

 [2
  [2
   e-e-e-e- ffff
   dddd e-e-e-e-
   e-e-e-e- ffff
   :
   dddd gggf
  ]
  :
  <b-b-b-b- b-b->cd
 ]
 <b-1




//------------------------------------
// Track 2 : 
//------------------------------------
TR(2) CH(2) P(32)
@26,8,0 v95
Slur(3)
FineTune(65)
M.onNoteWave(5,70,!1^4)

 o3 q90 l8

 [2
  [2
   g&>e-&g&b-< a&>f&a&>c<<
   f&>d&f&a< g&b-&>g16&d16&<b-
   g&>e-&g&b-< a&>f&a&>c<<
   :
   a&>d&f&a< g&b-&>b-16&g16&d<
  ]
  :
  a&>d&f&a< v(MML(v)-40) [4 ARP(1,!8,{gb->dg<}) v(MML(v)+10)]
 ]
 f&b-&>d&f4&<b-4.>

 [2
  [2
   y64,1; ARP(2,!1,{dgb-}) rrrr >d<b-gd  y64,0;
   y64,1; ARP(2,!1,{dfb-}) rrrd b-fd4 y64,0;
   :
   y64,1; ARP(2,!1,{dgb-}) rrrr >d<dgb- y64,0;
   y64,1; ARP(2,!1,{fa>c<}) 'fc'<a>c'f4c4'f'a4f4' y64,0;
  ]
  y64,1; ARP(2,!1,{e-gb-}) rrrr >e-<b-e-g y64,0;
  y64,1; ARP(2,!1,{fa>c<}) 'a>c<'a>c'f4c4'c'c4<a4' y64,0;

  v(MML(v)-10)
  q95
  ARP(2,!1,{dgb->f<})
  ARP(2,!1,{a>cdf<})
  ARP(2,!1,{gb->ce-<})
  ARP(2,!1,{a>cdf<})
  q70 ARP(0,!4,{dgb->f<})  v(MML(v)-10) ARP(0,!8,{dgb->f<})  q40 d  q70 ARP(0,!8,{dgb->f<})  q40 d  q70 ARP(1,!4,{dgb->f<})  v(MML(v)+10)
  q70 ARP(0,!4,{a>cdf<})   v(MML(v)-10) ARP(0,!8,{a>cdf<})   q40 f  q70 ARP(0,!8,{a>cdf<})   q40 f  q70 ARP(1,!4,{a>cdf<})  v(MML(v)+10)
  q70 ARP(0,!4,{gb->ce-<}) v(MML(v)-10) ARP(0,!8,{gb->ce-<}) q40 e- q70 ARP(0,!8,{gb->ce-<}) q40 e- q70 ARP(1,!4,{gb->ce-<})  v(MML(v)+10)
  q70 ARP(0,!4,{a>cdfa<})  v(MML(v)-10) ARP(0,!8,{a>cdfa<})  q40 f  q70 ARP(0,!8,{a>cdfa<})  q40 f  q70 ARP(1,!4,{a>cdfa<})  v(MML(v)+10)
  <
  q90
  v(MML(v)+10)

  v(MML(v)+10)
  [2
   g&>e-&g&b-< a&>f&a&>c<<
   f&>d&f&a< g&b-&>g16&d16&<b-
   g&>e-&g&b-< a&>f&a&>c<<
   :
   a&>d&f&a< g&b-&>b-16&g16&d<
  ]
  :
  f&b-&>d&f4&<b-4.>
  v(MML(v)-10)
 ]
 ARP(1,!1,{fb->dfb-<})
 v(MML(v)-18)
 r q70 [7 ARP(0,!8,{b->dg<})]
 v(MML(v)+18)

 q80
 [2
  [2
   g.&>c.&g&e-.&b-.&g<
   f.&a.&>f&c.&f.&a<
   :
   f.&b-.&>f&d.&b-.&g<
   e-.&b-.&>e-&<b-.&>e-.&g<
  ]
  a.&>d.&f&d.&f.&a<
  b-.&>d.&g&b-.&g.&d<
 ]

 [2
  g&>e-&g&b-< a&>f&a&>c<<
  f&>d&f&a< g&b-&>g16&d16&<b-
  g&>e-&g&b-< a&>f&a&>c<<
  :
  a&>d&f&a< g&b-&>b-16&g16&d<
 ]
 ARP(1,!1,{fb->dfb-<})
 >
 ARP(1,!2,{df+a>c<})
 q60
 v(MML(v)-17)
 [4 ARP(0,!8,{df+a>c<})] <
 v(MML(v)+17)

 q90
 v(MML(v)+10)
 [2
  [2
   g&>e-&g&b-< a&>f&a&>c<<
   f&>d&f&a< g&b-&>g16&d16&<b-
   :
   g&>e-&g&b-< a&>f&a&>c<<
   a&>d&f&a< g&b-&>b-16&g16&d<
  ]
  :
   g&>e-&g&b-< a&>f&a&>c<<
  f&b-&>d&f&<b-&>d&f&d16&<b-16
 ]
 g&>e-&g&b-< DANDO(T,T4,!1^2,!8) a&>f&a&>c<<
 v(MML(v)-5)
 ARP(1,!1,{fb->dfb-<})
 v(MML(v)-5)

 Tempo(T2)
 v(MML(v)-11)
  [2
   g&>e-&g&b-< a&>f&a&>c<<
   f&>d&f&a< g&b-&>g16&d16&<b-
   :
   g&>e-&g&b-< a&>f&a&>c<<
   a&>d&f&a< g&b-&>b-16&g16&d<
  ]
  DANDO(T2,T3,!1^4,!16)
  g&>e-&g&b-< a&>f&a&>c<<
  v(MML(v)-5)
  
  ARP(!32,!1^1,{fb->dfb-<})


//------------------------------------
// Track 22 : 
//------------------------------------
TR(22) CH(16) P(48)
@28 v95
Slur(3)
FineTune(63)
M.onNoteWave(5,70,!1^4)
 o3 q90 l8

 [2
  [2
   g&>e-&g&b-< a&>f&a&>c<<
   f&>d&f&a< g&b-&>g16&d16&<b-
   g&>e-&g&b-< a&>f&a&>c<<
   :
   a&>d&f&a< g&b-&>b-16&g16&d<
  ]
  :
  a&>d&f&a< v(MML(v)-40) [4 ARP(1,!8,{gb->dg<}) v(MML(v)+10)]
 ]
 f&b-&>d&f4&<b-4.>

 [2
  [2
   y64,1; ARP(2,!1,{dgb-}) rrrr >d<b-gd  y64,0;
   y64,1; ARP(2,!1,{dfb-}) rrrd b-fd4 y64,0;
   :
   y64,1; ARP(2,!1,{dgb-}) rrrr >d<dgb- y64,0;
   y64,1; ARP(2,!1,{fa>c<}) 'fc'<a>c'f4c4'f'a4f4' y64,0;
  ]
  y64,1; ARP(2,!1,{e-gb-}) rrrr >e-<b-e-g y64,0;
  y64,1; ARP(2,!1,{fa>c<}) 'a>c<'a>c'f4c4'c'c4<a4' y64,0;

  v(MML(v)-10)
  q95
  ARP(2,!1,{dgb->f<})
  ARP(2,!1,{a>cdf<})
  ARP(2,!1,{gb->ce-<})
  ARP(2,!1,{a>cdf<})
  q70 ARP(0,!4,{dgb->f<})  v(MML(v)-10) ARP(0,!8,{dgb->f<})  q40 d  q70 ARP(0,!8,{dgb->f<})  q40 d  q70 ARP(1,!4,{dgb->f<})  v(MML(v)+10)
  q70 ARP(0,!4,{a>cdf<})   v(MML(v)-10) ARP(0,!8,{a>cdf<})   q40 f  q70 ARP(0,!8,{a>cdf<})   q40 f  q70 ARP(1,!4,{a>cdf<})  v(MML(v)+10)
  q70 ARP(0,!4,{gb->ce-<}) v(MML(v)-10) ARP(0,!8,{gb->ce-<}) q40 e- q70 ARP(0,!8,{gb->ce-<}) q40 e- q70 ARP(1,!4,{gb->ce-<})  v(MML(v)+10)
  q70 ARP(0,!4,{a>cdfa<})  v(MML(v)-10) ARP(0,!8,{a>cdfa<})  q40 f  q70 ARP(0,!8,{a>cdfa<})  q40 f  q70 ARP(1,!4,{a>cdfa<})  v(MML(v)+10)
  <
  q90
  v(MML(v)+10)

  v(MML(v)+10)
  [2
   g&>e-&g&b-< a&>f&a&>c<<
   f&>d&f&a< g&b-&>g16&d16&<b-
   g&>e-&g&b-< a&>f&a&>c<<
   :
   a&>d&f&a< g&b-&>b-16&g16&d<
  ]
  :
  f&b-&>d&f4&<b-4.>
  v(MML(v)-10)
 ]
 ARP(1,!1,{fb->dfb-<})
 v(MML(v)-18)
 r q70 [7 ARP(0,!8,{b->dg<})]
 v(MML(v)+18)

 q80
 [2
  [2
   g.&>c.&g&e-.&b-.&g<
   f.&a.&>f&c.&f.&a<
   :
   f.&b-.&>f&d.&b-.&g<
   e-.&b-.&>e-&<b-.&>e-.&g<
  ]
  a.&>d.&f&d.&f.&a<
  b-.&>d.&g&b-.&g.&d<
 ]

 [2
  g&>e-&g&b-< a&>f&a&>c<<
  f&>d&f&a< g&b-&>g16&d16&<b-
  g&>e-&g&b-< a&>f&a&>c<<
  :
  a&>d&f&a< g&b-&>b-16&g16&d<
 ]
 ARP(1,!1,{fb->dfb-<})
 >
 ARP(1,!2,{df+a>c<})
 q60
 v(MML(v)-17)
 [4 ARP(0,!8,{df+a>c<})] <
 v(MML(v)+17)

 q90
 v(MML(v)+10)
 [2
  [2
   g&>e-&g&b-< a&>f&a&>c<<
   f&>d&f&a< g&b-&>g16&d16&<b-
   :
   g&>e-&g&b-< a&>f&a&>c<<
   a&>d&f&a< g&b-&>b-16&g16&d<
  ]
  :
   g&>e-&g&b-< a&>f&a&>c<<
  f&b-&>d&f&<b-&>d&f&d16&<b-16
 ]
 g&>e-&g&b-< a&>f&a&>c<<
 v(MML(v)-5)
 ARP(1,!1,{fb->dfb-<})
 v(MML(v)-5)

 v(MML(v)-11)
  [2
   g&>e-&g&b-< a&>f&a&>c<<
   f&>d&f&a< g&b-&>g16&d16&<b-
   :
   g&>e-&g&b-< a&>f&a&>c<<
   a&>d&f&a< g&b-&>b-16&g16&d<
  ]
  g&>e-&g&b-< a&>f&a&>c<<
  v(MML(v)-5)
  
  ARP(!32,!1^1,{fb->dfb-<})


//------------------------------------
// Track 3 : 
//------------------------------------
TR(3) CH(3) P(96)
@25 v90
Slur(3)
FineTune(63)
M.onNoteWave(0,50,!1)

 o4 l8 q90
 
 [2
  rb-&>e-&g 'f4.c4.'<a>
  'd4<b-4>'e-f 'd2<b-2'
  :
  rb-&>e-&g 'f4.c4.' g
  'a4.f4.'d 'b-2g2'<
 ]
 rb-&>e-&g 'a4.f4.' g
 'f4.c4.<a4.>' e- 
 < v(MML(v)-40) [4 ARP(1,!8,{gb->df<}) v(MML(v)+10)] 

 [2
  rb-&>e-&g 'f4.c4.'<a>
  'd4<b-4>'e-f 'd2<b-2'
  :
  rb-&>e-&g 'f4.c4.' g
  'a4.f4.'d 'b-2g2'<
 ]
 rb-&>e-&g 'f4.c4.' e-
 ARP(1,!1,{dfb-})<

 [2
  v(MML(v)-10)
  [2
   r4.g4.&>d4&<b-1
   r4.f4.&>f4&d1<
   :
   r4.g4.&>d4&<b-1
   r4.a4.&>f4&c1<
  ]
  r4.g4.&>e-4&<b-1
  r4.a4.&>f4&c2&a2<

  rg&>d&f^2<
  ra&>c&a^2<
  rg&b-&>e-^2<
  ra&>c&f^2<
  rg&>d&f4&f&d<b-
  ra&>c&a4&f&d&c<
  rg&b-&>g4&e-&<b-&g
  r>c&f&a4&f&d&c<
 v(MML(v)+10)

  [2
   rb-&>e-&g 'f4.c4.'<a>
   'd4<b-4>'e-f 'd2<b-2'
   :
   rb-&>e-&g 'f4.c4.' g
   'a4.f4.'d 'b-2g2'<
  ]
  rb-&>e-&g 'f4.c4.' e-
  ARP(1,!1,{dfb-})<
 ]
 r q70 v(MML(v)-20)[7 ARP(0,!8,{gb->d<})]

 q90 v(MML(v)+20)
 [2
  [2
   y64,1; 'c4.e-4.'b-4.g4 y64,0;
   y64,1; 'c4.a4.'>c4.<a4 y64,0;
   :
   y64,1; 'd4.f4.'b-4.>d4< y64,0;
   y64,1; 'e-4.<b-4.>'g4.b-4 y64,0;
  ]
  y64,1; 'd4.a4.'f4.a4 y64,0;
  y64,1; 'd4.g4.'b-4.>d4< y64,0;
 ]

  [2
   rb-&>e-&g 'f4.c4.'<a>
   'd4<b-4>'e-f 'd2<b-2'
   :
   rb-&>e-&g 'f4.c4.' g
   'a4.f4.'d 'b-2g2'<
  ]
  rb-&>e-&g 'f4.c4.' e-
  ARP(1,!1,{dfb-})<

  ARP(!8,!1,{da>cf+<})

 [2
  [2
   rb-&>e-&g 'f4.c4.'<a>
   'd4<b-4>'e-f 'd2<b-2'
   :
   rb-&>e-&g 'f4.c4.' g
   'a4.f4.'d 'b-2g2'<
  ]
  :
  rb-&>e-&g 'f4.c4.' e-
  'f4b-4'd&<b-f&b-&>f&d<
 ]
 rb-&>e-&g 'f4.c4.' a
 ARP(1,!1,{dfb-})<

  > v(MML(v)-16)
  re-4&g f2
  rf4&a g2
  r<b-4&>e- c2
  d4.e-16f16 g4fd
  re-4&g f4ga
  b-2g2
  rb-4&g a4f4
  v(MML(v)-10) 
  ARP(!32,!1^1,{dfb->c<}) r-1^1 
  v(MML(v)-18) 
  r2>d2^1




//------------------------------------
// Track 4 : 
//------------------------------------
TR(4) CH(4) P(64)
@49 v65
M.onNoteWave(5,90,!1.)

 [7 r1]
 o5 l16 
 q195
 EP.onTime(70,127,!2..)
 <a>df<a> dfad a>df<a >cdfa
 q99
 b-4..b-32b32 >'c2<a2'
 a4..g-32a32 'b-2g2'
 g4..g32a-32 'a2f2'
 >c4..c32d-32 'd2<b-2>'
 e-4..d32d-32 'c2<a2>'
 c4..c32d-32 'd2<b-2>'
 <b-4..b32b-32 'a2f2'
 '<b-2..>f2..d2..'r8<

 [2
  [8 r1]
  [8 r1]
  [7 r1]

  q195
  EP.onTime(70,127,!2..)
 <a>df<a> dfad a>df<a >cdfa

  q99
  b-4..b-32b32 >'c2<a2'
  a4..g-32a32 'b-2g2'
  g4..g32a-32 'a2f2'
  >c4..c32d-32 'd2<b-2>'
  e-4..d32d-32 'c2<a2>'
  c4..c32d-32 'd2<b-2>'
  <b-4..b32b-32 'a2f2'
  '<b-2..>f2..d2..'r8<
 ]

 r1
 [8 r1]
 [8 r1]

 [8 r1]

 q195
 EP.onTime(70,127,!2..)
 <a>df<a> dfad a>df<a >cdfa

 [2
  q99
  b-4..b-32b32 >'c2<a2'
  a4..g-32a32 'b-2g2'
  g4..g32a-32 'a2f2'
  >c4..c32d-32 'd2<b-2>'
  e-4..d32d-32 'c2<a2>'
  c4..c32d-32 'd2<b-2>'
  <b-4..b32b-32 'a2f2'
  '<b-2..>f2..d2..'r8
 ]


//------------------------------------
// Track 5 : 
//------------------------------------
TR(5) CH(5) P(70)
@74 v75
M.onNoteWave(0,70,!1)

  o6 l8 q99

  [8 r1]

  g4fg a4.f
  a4ga b-2
  b-4ab- >c4.<a>
  d4c<b- g2
  g4fg a4.f
  a4b->c d4.c<
  b-2>c2< b-1

  [2
   // [A]
   [8 r1]
   << v(MML(v)-15)
   g1 >d4.<b-4.>c4
   d1 f4.d4.<b-4
   g1 b-4.>c4.<b-4
   a1 >c2<f2
   >> v(MML(v)+15)

   // [B]
   [8 r1]

   // [C]
   v(MML(v)+5)
   <<
   g4.e- a2    r-1  c2 d2
   f4.d  g2    r-1 <a2> d2
   e-4.c f2    r-1 <b-2> d2
   f4.d  g2    r-1 <a2>d2
   g4.e- a2    r-1 <b-2> f2
   a4.f  b-2   r-1 d2 g2
   g4.e- f4.e- r-1 e-2 d2
   d2.rr       r-1 <b-2.rr>
   >>
   v(MML(v)-5)
  ]
  r1

  [16 r1]   // [D]

  g4fg a4.f
  a4ga b-2
  b-4ab- >c4.<a>
  d4c<b- g2
  g4fg a4.f
  a4b->c d4.c<
  b-2>c2< b-1
  EP.onTime(127,50,!2..)
  a2..r
  EP(127)
  <<
  v(MML(v)+5)
  [2
   g4.e- a2    r-1  c2 d2
   f4.d  g2    r-1 <a2> d2
   e-4.c f2    r-1 <b-2> d2
   f4.d  g2    r-1 <a2>d2
   g4.e- a2    r-1 <b-2> f2
   a4.f  b-2   r-1 d2 g2
   g4.e- f4.e- r-1 e-2 d2
   d2.rr       r-1 <b-2.rr>
  ]
  >>
  v(MML(v)-5)



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



//------------------------------------
// Track 7 : 
//------------------------------------
TR(7) CH(7) P(62)
@69 v100
M.onNoteWave(0,90,!1.)

 [8 r1]
 [8 r1]

 o4 l8 q80
 [2
  [2
   rb-b-a b-4a4 b-2rb-ab-
   >c4.<b-4.a4 f2..r
   :
   rb-b-a b-4a4 b-2rb-ab-
   >c4.d4.f4 c4.d2r<
  ]
  r>cc<b->c4<b-4>c2rcde-
  f1 g2a4.d

  g2d4.e- f2c2
  d2rcde- f2c2
  d2f4.g a2raga
  b-4.ag4ab- >c2.<f4

  v(MML(v)+8)
  >e-e-e-e-4e-dc dddd2<b->
  cccc4c<b->c d4<ag4. f4
  >e-e-e-e-4e-de- ffff2<b->
  cccc4c<b-a b-2..r<
  v(MML(v)-8)
 ]

 r1
 [16 r1]
 [8 r1]
> r2.f4

  v(MML(v)+8)
 >e-e-e-e-4e-dc dddd2<b->
 cccc4c<b->c d4<ag4. f4
 >e-e-e-e-4e-de- ffff2<b->
 cccc4c<b-a b-2.f4

 >e-e-e-e-4e-de- ffff2<b->
 cccc4cde- f4e-d4. <b-4
 >e-e-e-e-4e-ga ffff2<b->
 cccc4c<b-a b-1



//------------------------------------
// Track 8 : 
//------------------------------------
TR(8) CH(8) P(66)
@69 v90
M.onNoteWave(0,90,!1^4)

 [8 r1]
 [8 r1]

 o4 l8 q80

 [2
  [16 r1]

  [7 r1]
  r2.>c4

  >cccc4c<b-a b-b-b-b-2g
  aaaa4aga a4fd4.c4
  b-b-b-b-4b-ab- >dddd2<g
  aaaa4age- f2..r<
 ]

 r1
 [16 r1]
 [8 r1]
 r2.>c4

  >cccc4c<b-a b-b-b-b-2g
  aaaa4aga a4fd4.c4
  b-b-b-b-4b-ab- >dddd2<g
  aaaa4age- f2.c4

  >cccc4c<b->c dddd2<g
  aaaa4ab->c d4c<b-4.g4
  b-b-b-b-4b->ce- dddd2<g
  aaaa4age- f1


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




//------------------------------------
// Track 11 : 
//------------------------------------
TR(11) CH(11) P(117)
@30 v100
M.onNoteWave(0,100,!1)
FineTune(67)
Slur(0)
BR(2)
PitchBend(0)

 [8 r1]
 [8 r1]
 
 [2
  [16 r1]
  [8 r1]
  [8 r1]
 ]

 o5 l16 q70
 PitchBend(0)
  r2.. v(MML(v)-15) <b-b-> v(MML(v)+15)

  q90 e&!32.f2.^64&!32e64 r32 f+16&!16g16
  f2 q90 e-8 q80 e-d c8 q70 e-8 q90
  c+32&d8^32 c8.d.r32 d32&e-8^32 d8.c.r32
  <b-4.>d16&e-4^32.&!32d64 <b-8..&!32.a64>r64

  c4.cd d16&!16e-4.^32.&!32d64
  d32&e-4^16. e-f g4f8e-d
  e32&f16. q80 v(MML(v)-10) df v(MML(v)+10) q90 f+32&g16. q80 v(MML(v)-10) dg v(MML(v)+10) q90 g+32&a16. q80 fa q90 b32&>c16.<q80 b-a
  q90 a16&b-4^32&a64r64 g4...&!32.e-64r64 ab->

  c4.cd c4.de-
  c4 q80 v(MML(v)-10) c<a>cd v(MML(v)+10) q90 e32&f8..f8fe-
  d4.<b->d e32&f4^16.ga
  a16&!16b-2..^32&!32a64 r64

  b32&>c8.. c8< q80 v(MML(v)-10) b-a ge-gb- gdgb- v(MML(v)+10)
  q90 g+32&a16. q80 v(MML(v)-10) af dfaf dfd<a fa>df v(MML(v)+10)
  q90 g+32&a4^16. fa b32&>c8^32< b-8.a8
  a32&b-4^16.g4.a4

  EP.onTime(127,60,!1)
  a16&!16b-2..^32.&!16e-64



//------------------------------------
// Track 12 : 
//------------------------------------
TR(12) CH(12) P(10)
@30 v100
M.onNoteWave(0,100,!1)
FineTune(61)
Slur(0)
BR(2)
PitchBend(0)
r64

 [8 r1]
 [8 r1]
 
 [2
  [16 r1]
  [8 r1]
  [8 r1]
 ]

 o5 l16 q70
 PitchBend(0)
  r2.. v(MML(v)-15) <b-b-> v(MML(v)+15)

  q90 e&!32.f2.^64&!32e64 r32 f+16&!16g16
  f2 q90 e-8 q80 e-d c8 q70 e-8 q90
  c+32&d8^32 c8.d.r32 d32&e-8^32 d8.c.r32
  <b-4.>d16&e-4^32.&!32d64 <b-8..&!32.a64>r64

  c4.cd d16&!16e-4.^32.&!32d64
  d32&e-4^16. e-f g4f8e-d
  e32&f16. q80 v(MML(v)-10) df v(MML(v)+10) q90 f+32&g16. q80 v(MML(v)-10) dg v(MML(v)+10) q90 g+32&a16. q80 fa q90 b32&>c16.<q80 b-a
  q90 a16&b-4^32&a64r64 g4...&!32.e-64r64 ab->

  c4.cd c4.de-
  c4 q80 v(MML(v)-10) c<a>cd v(MML(v)+10) q90 e32&f8..f8fe-
  d4.<b->d e32&f4^16.ga
  a16&!16b-2..^32&!32a64 r64

  b32&>c8.. c8< q80 v(MML(v)-10) b-a ge-gb- gdgb- v(MML(v)+10)
  q90 g+32&a16. q80 v(MML(v)-10) af dfaf dfd<a fa>df v(MML(v)+10)
  q90 g+32&a4^16. fa b32&>c8^32< b-8.a8
  a32&b-4^16.g4.a4

  EP.onTime(127,60,!1)
  a16&!16b-2..^32.&!16e-64



//------------------------------------
// Track 13 : 
//------------------------------------
TR(13) CH(13) P(64)
@30 v75
M.onNoteWave(0,100,!1)
FineTune(64)
Slur(0)
BR(2)
PitchBend(0)
r16.

 [8 r1]
 [8 r1]
 
 [2
  [16 r1]
  [8 r1]
  [8 r1]
 ]

 o5 l16 q70
 PitchBend(0)
  r2.. v(MML(v)-15) <b-b-> v(MML(v)+15)

  q90 e&!32.f2.^64&!32e64 r32 f+16&!16g16
  f2 q90 e-8 q80 e-d c8 q70 e-8 q90
  c+32&d8^32 c8.d.r32 d32&e-8^32 d8.c.r32
  <b-4.>d16&e-4^32.&!32d64 <b-8..&!32.a64>r64

  c4.cd d16&!16e-4.^32.&!32d64
  d32&e-4^16. e-f g4f8e-d
  e32&f16. q80 v(MML(v)-10) df v(MML(v)+10) q90 f+32&g16. q80 v(MML(v)-10) dg v(MML(v)+10) q90 g+32&a16. q80 fa q90 b32&>c16.<q80 b-a
  q90 a16&b-4^32&a64r64 g4...&!32.e-64r64 ab->

  c4.cd c4.de-
  c4 q80 v(MML(v)-10) c<a>cd v(MML(v)+10) q90 e32&f8..f8fe-
  d4.<b->d e32&f4^16.ga
  a16&!16b-2..^32&!32a64 r64

  b32&>c8.. c8< q80 v(MML(v)-10) b-a ge-gb- gdgb- v(MML(v)+10)
  q90 g+32&a16. q80 v(MML(v)-10) af dfaf dfd<a fa>df v(MML(v)+10)
  q90 g+32&a4^16. fa b32&>c8^32< b-8.a8
  a32&b-4^16.g4.a4

  EP.onTime(127,60,!1)
  a16&!16b-2..^32.&!16e-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,}

@9,90,1
l8
Rhythm {

 [6 r1]
 r1
 v80 rrrb brbr r-2 v40'sw'v55'sw'v70'sw' v80s16s16

  [2
   v80 brrr bbrr r-1 v80 rrs4rrs4 r-1 v127 e v70c [3 v90c v70c]
   v80 brrr bbrb r-1 v80 rrs4rrs4 r-1 [4 v90c v70 : c] o
   v80 brrr bbrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70c]
   :
   v80 brrr bbrb r-1 v80 rrs4rrs4 r-1 [4 v90c v70 : c] o
  ]
  v80 brrb brrr r-1 v80 rrrr l16 srss v90 aa v80ss l8 r-1 v100 d v70c v90c v70c v60f4f4

 [2
  [2
   v80 brrr brrr r-1 v80 rrs4rrs4 r-1 v127 e v70c [3 v90c v70c]
   v80 brrr bbrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70 c]
   v80 brrr brrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70c]
   v80 brrr bbrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70 : c] o
   v80 brrr brrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70c]
   v80 brrr bbrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70c]
   v80 brrr brrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70c]
   :
   v80 brrr bbrb r-1 v80 rrs4rrs4 r-1 [3 v90c v70 c] v110j4
  ]
  v80 brrr brbr r-1 v90 rqa16az16 zz16w16 w16w16 v80 s16s16 r-1 [3 v90c v70 c] v110j4

  v80 brrr rrrb r-1 v80 rrrrs4rr r-1 v127 y4 v100j4j4j4
  v80 bbrr rrrr r-1 v80 rrrrs4.v60s r-1 v100j4j4j4j4
  v80 brrb rrrb r-1 v80 rrrrs4rr r-1 v100j4j4j4j4
  v80 bbrb rbrb r-1 v90 rq64q16..a v80 s szss16s16 r-1 v100j4j4j4j4

  v80 brrr rbrr r-1 v80 rrs4rrs4 r-1 v127 e v70j [3 v90j v70j]
  v80 brrb rbrr r-1 v80 rrs4rrs4 r-1 [4 v90j v70 j]
  v80 brrr rbrr r-1 v80 rrs4rrs4 r-1 [4 v90j v70 j]
  v80 brrb rbrb r-1 v80 rrs4s16s16rs16s16z16z16 r-1 [4 v90j v70 : j] t

  [2
   v80 brrr bbrr r-1 v80 rrs4rrs4 r-1 v127 e v70c [3 v90c v70c]
   v80 brrr bbrb r-1 v80 rrs4rrs4 r-1 [4 v90c v70 : c] o
   v80 brrr bbrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70c]
   :
   v80 brrr bbrb r-1 v80 rrs4rr'sz'w r-1 [4 v90c v70 : c] o
  ]
  :
  v80 brrb brrr r-1 v80 rrrr l16 srss v90 aa v80ss l8 r-1 v100 d v70c v90c v70c v60f4f4
 ]
 v80 brrb brrr  r-1 v127 y4 v60f4f4f4

 v80 brrr brbr r-1 v100j v60 'aw' v70[2 'sw'] v80[2 'sw'] v90'sw' s16s16

 [2
  [2
   v80 bbrr rbrr r-1 v80 rrs4rrs4 r-1 v127 e v70c [3 v90c v70c]
   v80 bbrr bbrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70 c]
   :
   v80 bbrr rbrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70c]
   v80 bbrr bbrb r-1 v80 rrs4rrs.v60s16 r-1 [4 v90c v70 c]
  ]
  :
  v80 bbrr rbrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70c]
  v80 brbr bbbb r-1 l16 rv70s8v55s v90s8v70ss v90qqaa zzss l8 r-1 v100j v60fff ffff
 ]
 v80 bbrb rbrr r-1 v80 rrs4srs16s16z16z16 r-1 [3 v90c v70c] v90d4
 v80 brbr [3 b6] r-1 l16 v90 qasa qsqa  l12 szs [3 'sw'] l8 r-1 v60ffff [3 f6]

 v80 brrr rrrr r-1 v127 y1
 r1r1r2.v60c16c16o
 v90 S4S4S4S4 r-1 [4 v90 c v80c]
 v90 S4S4S4S4 r-1 [4 v90 c v80c]
 v90 S4S4S4S4 r-1 [4 v90 c v80c]
 v80 brrr rrrb r-1 v127 'e1y1'
 v80 brbr brrb r-1 l16 v100 qqzz aass qazs azss l8 r-1 v60 f4f4f4f4

 [2
  [2
   v80 brrr bbrr r-1 v80 rrs4rrs4 r-1 v127 e v70c [3 v90c v70c]
   v80 brrr bbrb r-1 v80 rrs4rrs4 r-1 [4 v90c v70 : c] o
   :
   v80 brrr bbrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70c]
   v80 brrr bbrb r-1 v80 rrs4rr'sz'w r-1 [4 v90c v70 : c] o
  ]
  :
  v80 brrr bbrr r-1 v80 rrs4rrs4 r-1 [4 v90c v70c]
  v80 brbr bbbb r-1 v80 l16 rrss rsss v100 qqaa zz v80 ss l8 r-1 v100j4j4 v70f4f4
 ]
 v80 brrb16b16 bbbb r-1 v80 rrs16s. l16 v100 q64q32.qzz aass l8 r-1 [4 v90c v70c]
 v80 brrr rrrr r-1 v127 'y1e1'

}