//-----------------------------------------------
// shooting star on the day
// (C)Yax
//-----------------------------------------------

ResetGM();
TrackName     = {"shooting star on the day"}
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(111) REV(30) CHO(50)
TR(2)  V(95)  REV(70) CHO(30)
TR(3)  V(106) REV(30) CHO(20)
TR(4)  V(106) REV(50) CHO(40)
TR(5)  V(95)  REV(40) CHO(30)
TR(15) V(101)  REV(40) CHO(50)
TR(14) V(90)  REV(70) CHO(90)
TR(6)  V(95)  REV(40) CHO(40)
TR(7)  V(112) REV(70) CHO(70)
TR(8)  V(110) REV(20) CHO(0)
TR(9)  V(110) REV(20) CHO(0)
TR(10) V(115) REV(35) CHO(0)


// テンポ
INT T  = 145   // 通常のテンポ
INT TE = 120   // 最後のリタルダンド後のテンポ
INT TB = 80    // エンディング

Tempo=(T)


// キー

INT KEY=-2

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




//------------------------------------
// Track 1 : 
//------------------------------------
TR(1) CH(1) P(64)
@34 v100
Slur(0)
BR(2)
PitchBend(0)
M.onNoteWave(0,80,!2)

 o3 l8

 r1

 [3
  [2
   [4 d v(MML(v)-10) d v(MML(v)+10)]
   [4 g v(MML(v)-10) g v(MML(v)+10)]
   [4 e v(MML(v)-10) e v(MML(v)+10)]
   [2 f v(MML(v)-10) f v(MML(v)+10)]  [2 e v(MML(v)-10) e v(MML(v)+10)]
   [4 d v(MML(v)-10) d v(MML(v)+10)]
  :
   [4 g v(MML(v)-10) g v(MML(v)+10)]
   [3 e v(MML(v)-10) e v(MML(v)+10)] g v(MML(v)-10) g v(MML(v)+10)
   [2 a v(MML(v)-10) a v(MML(v)+10)] g v(MML(v)-10) g v(MML(v)+10) e v(MML(v)-10) e v(MML(v)+10)
  ]
  [3 g v(MML(v)-10) g v(MML(v)+10)] d<b>
 :
  [4 c v(MML(v)-10) c v(MML(v)+10)]
  c2..<a16>c16

  drrfg+16&a16dr<a
  grgbgb>c+16&!16d.
  crref+16&g16crc<
  aa>ce ceg+16&!16a.
  drrfg+16&a16dr<a
  grgbgb>f+16&g.
  ecef+16g16 rec<g
  aab16&>c16<a>d+16&!16e16<a>cd+16&!16e16

  [4 d v(MML(v)-10) d v(MML(v)+10)]
  [4 g v(MML(v)-10) g v(MML(v)+10)]
  [4 e v(MML(v)-10) e 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)]
  [4 g v(MML(v)-10) g v(MML(v)+10)]
  [3 e v(MML(v)-10) e v(MML(v)+10)] g v(MML(v)-10) g v(MML(v)+10)
  [3 g+ v(MML(v)-10) g+ v(MML(v)+10)] e v(MML(v)-10) e v(MML(v)+10)

  drr<a>dfrg+16&a16
  ere<b> egra+16&b16
  <[4 a v(MML(v)-10) a v(MML(v)+10)]>
  [3 e v(MML(v)-10) e v(MML(v)+10)]  c v(MML(v)-10) c v(MML(v)+10)
  drr<a >dfrg+16&a16
  ere<b> egra+16&b16
  <[4 a v(MML(v)-10) a v(MML(v)+10)]>
  [2 c+ v(MML(v)-10) c+ v(MML(v)+10)] c+4....&!4.<e64>
 ]
 [6 c v(MML(v)-10) c v(MML(v)+10)]
 [2 c+ v(MML(v)-10) c+ v(MML(v)+10)]

 [2
  [8 d v(MML(v)-10) d v(MML(v)+10)]
  [8 c v(MML(v)-10) c v(MML(v)+10)]
  [8 d v(MML(v)-10) d v(MML(v)+10)]
  [4 e v(MML(v)-10) e v(MML(v)+10)]
  :
  <[4 b v(MML(v)-10) b v(MML(v)+10)]>
 ]
 [3 g+ v(MML(v)-10) g+ v(MML(v)+10)] e v(MML(v)-10) e v(MML(v)+10)

  drr<a>dfrg+16&a16
  ere<b> egra+16&b16
  <[4 a v(MML(v)-10) a v(MML(v)+10)]>
  [3 e v(MML(v)-10) e v(MML(v)+10)]  c v(MML(v)-10) c v(MML(v)+10)
  drr<a >dfrg+16&a16
  ere<b> egra+16&b16
  <[4 a v(MML(v)-10) a v(MML(v)+10)]>
  c+2.....&!2<e64>
  r2.<aa16>a16

  [2
   [2
    [4 d v(MML(v)-10) d v(MML(v)+10)]
    [4 g v(MML(v)-10) g v(MML(v)+10)]
    [4 e v(MML(v)-10) e v(MML(v)+10)]
    [2 f v(MML(v)-10) f v(MML(v)+10)]  [2 e v(MML(v)-10) e v(MML(v)+10)]
    [4 d v(MML(v)-10) d v(MML(v)+10)]
    :
    [4 g v(MML(v)-10) g v(MML(v)+10)]
    [3 e v(MML(v)-10) e v(MML(v)+10)] g v(MML(v)-10) g v(MML(v)+10)
    [2 a v(MML(v)-10) a v(MML(v)+10)] g v(MML(v)-10) g v(MML(v)+10) e v(MML(v)-10) e v(MML(v)+10)
   ]
   [3 g v(MML(v)-10) g v(MML(v)+10)] d<b>
   :
   [4 c v(MML(v)-10) c v(MML(v)+10)]
   c+r16c+r16c+ c+ c+16 v(MML(v)-10) >c+16 v(MML(v)+10)< < a a16 v(MML(v)-10) >a16 v(MML(v)+10)
  ]
  DANDO(T,TE,!1,!8)
  [4 c v(MML(v)-10) c v(MML(v)+10)]
  Tempo(TB)
  c1


//------------------------------------
// Track 2 : 
//------------------------------------
TR(2) CH(2) P(64)
@49 v74
M.onNoteWave(0,40,!1.)

 o4 q95

 r1

[3
 [2
  ARP(0,!1,{a>df<})
  ARP(0,!1,{b>dg<})
  ARP(0,!1,{g>ce<})
  ARP(0,!2,{>cfa<}) ARP(0,!2,{>ceg<})
  ARP(0,!1,{a>df<})
  ARP(0,!1,{b>dg<})
  :
  ARP(0,!1.,{g>ce<})
  ARP(0,!2,{a>cea<})
 ]
 ARP(0,!1,{eg>c<})
:
 ARP(0,!1,{ea>ce<})

 [2
  ARP(0,!1,{a>df<})
  ARP(0,!1,{gb>d<})
  ARP(0,!1,{g>ce<})
  ARP(0,!1,{ea>c<})
  ARP(0,!1,{a>df<})
  ARP(0,!1,{gb>d<})
  :
  ARP(0,!1,{g>ce<})
  ARP(0,!1,{a>ceg<})
 ]
 ARP(0,!1,{eg>c<})
 ARP(0,!1,{eg+>ce<})

 ARP(0,!1,{fa>d<})
 ARP(0,!1,{gb>e<})
 [4 ARP(0,!4,{a>ce<})]
 [4 ARP(0,!4,{a>cea<})]
 ARP(0,!1,{a>df<})
 ARP(0,!1,{b>eg<})
 [4 ARP(0,!4,{>cea<})]
 ARP(!8,!1,{a>c+ea<})
]
 ARP(0,!2,{ea>ce<})
 ARP(0,!2,{ea>c+e<})

 [4
  ARP(0,!1,{a>cdf<})
  ARP(0,!1,{>cdfa<})
  ARP(0,!1,{ga>ce<})
  :
  ARP(0,!1,{gb>ce<})
 ]
 ARP(0,!1,{a>ceg+<})

 ARP(0,!1,{fa>d<})
 ARP(0,!1,{gb>e<})
 [4 ARP(0,!4,{a>ce<})]
 [4 ARP(0,!4,{a>cea<})]
 ARP(0,!1,{a>df<})
 ARP(0,!1,{b>eg<})
 [4 ARP(0,!4,{>cea<})]
 ARP(!8,!1,{a>c+ea<})
 r1

 [2
  [2
   ARP(0,!1,{a>df<})
   ARP(0,!1,{b>dg<})
   ARP(0,!1,{g>ce<})
   ARP(0,!2,{>cfa<}) ARP(0,!2,{>ceg<})
   ARP(0,!1,{a>df<})
   ARP(0,!1,{b>dg<})
   :
   ARP(0,!1.,{g>ce<})
   ARP(0,!2,{a>cea<})
  ]
  ARP(0,!1,{eg>ce<})
  :
  ARP(0,!1,{eg+>ce<})
 ]
 ARP(0,!1,{ea>ceg<})




//------------------------------------
// Track 3 : 
//------------------------------------
TR(3) CH(3) P(64)
//@105 v100
@74 v80
M.onNoteWave(0,90,!2..)

 o6 l8 q90

 r1

 [16 r1]

[2
 [2
  rfedf4a4
  g4rg gfef
  e4rd c4<b>c<
  a4.r>c2
  rfedf4a4
  g4rg gab>c<
  :
  b4ra g4e4
  a4.re2
 ]
 b4ag e4g4
 g+4.r b4.r

 a4.b>c4.r<
 b2rbag
 a2.rr
 >c2.rr<

 a4.r>e4.r
 d2rdc<b
 a2.rr
 >c+2.<rr

 v(MML(v)+10)
 [2
  ab>ce4dcd<
  b2a4g4>
  cdeg4ede
  c2..r<
 :
  ab>ce4dcd<
  b2a4g4
  a2b2
  >c2d2<
 ]
 ab>ce4dcd<
 b2>d2
 :
 c1^4
 r2.<
 v(MML(v)-10)
]
 c1.
 r2<
v(MML(v)-10)
 [16 r1]

 a4.b>c4.r<
 b2rbag
 a2.rr
 >c2.rr<

 a2>e2
 d2rdc<b
 a2.rr
 >c+1<
  r1

 v(MML(v)+10)
 [2
  ab>ce4dcd<
  b2a4g4>
  cdeg4ede
  c2..r<
 :
  ab>ce4dcd<
  b2a4g4
  a2b2
  >c2d2<
 ]
 ab>ce4dcd<
 b2>d2
 c1
 c+1<

 ab>ce4dcd<
 b2a4b4>
 cdeg4edc
 a2..r<
 ab>ce4dcd<
 b2>g4.f
 e2d2
 c2<b2

 ab>ce4dcd<
 b2>c4d4
 cdeg4efg
 a2..r<
 ab>ce4gfe
 d2<b2>
 c1^4
 r2.<
 v(MML(v)-10)



//------------------------------------
// Track 4 : 
//------------------------------------
TR(4) CH(4) P(34)
@26,8,0 v99
Slur(3)

 o4 l8 q83

 r1

 [3
  [2
   ARP(1,!4,{dfa>df<}) q50 d q83 ARP(1,!4,{>fd<afd}) q50 d q83 ARP(1,!8,{>fd<afd}) q50 d16d16 q83
   ARP(1,!4,{dgb>dg<}) [2 ARP(1,!8,{dgb>dg<}) q50 d q83 ] ARP(1,!4,{dgb>dg<})
   ARP(1,!4,{ceg>ce<}) q50 c q83 ARP(1,!4,{>ec<gec}) q50 c q83 ARP(1,!8,{>ec<gec}) q50 c16c16 q83
   ARP(1,!4,{cfa>cf<}) [2 ARP(1,!8,{cfa>cf<}) q50 c q83 ] ARP(1,!4,{eg>ceg<})

   ARP(1,!4,{dfa>df<}) q50 d q83 ARP(1,!4,{>fd<afd}) q50 d q83 ARP(1,!8,{>fd<afd}) q50 d16d16 q83
   ARP(1,!4,{dgb>dg<}) [2 ARP(1,!8,{dgb>dg<}) q50 d q83 ] ARP(1,!4,{dgb>dg<})
   :
   ARP(1,!4,{ceg>ce<}) q50 c q83 ARP(1,!4,{>ec<gec}) q50 c q83 ARP(1,!8,{>ec<gec}) q50 c16c16 q83
   ARP(1,!4,{cea>ce<}) ARP(1,!8,{cea>ce<})a >e&c&<a&>e<
  ]
  :
  ARP(1,!4,{ceg>ce<}) [2 q50 c16c16 q83 ARP(1,!4,{>ec<gec})]
  ARP(!32,!1,{cega>c<}) r-1 >e.&c.&<g&e2
 <
  ARP(!8,!1,{fa>df<})
  ARP(!8,!1,{gb>eg<})
  ARP(!8,!1,{g>ceg<})
  ARP(!8,!1,{a>cea<}) r-4. >e&c4<
  ARP(!8,!1,{fa>df<})
  ARP(!8,!1,{gb>eg<})
  ARP(!8,!1,{g>ceg<})
  ARP(!8,!1,{a>cea<}) r-4. >g&e&c<

  ARP(!8,!1,{fa>df<}) r-4. >d&a4<
  ARP(!8,!1,{gb>eg<}) r-4. >e&c4<
  ARP(!8,!1,{g>ceg<}) r-4. >e&b4<
  ARP(!8,!1,{a>cea<}) r-4. >e&c&<a
  ARP(!8,!1,{fa>df<}) r-4. f&>d4<
  ARP(!8,!1,{gb>eg<}) r-4. b&>g4<
  ARP(!8,!1,{g>ceg<}) r-4. >e&c4<
  ARP(!8,!1,{g+>ceg+<}) r-4. >e&c&<g+

  >
  ARP(3,!1,{dfa>d<}) r-4. f&a&d
  ARP(!8,!1,{egb>e<})
  ARP(2,!8,{ea>c<}) q50 e16e16 e > q83 ARP(2,!4,{c<ae}) q50 e16e16 q83 ARP(2,!8,{ea>c<}) e
  ARP(2,!8,{ea>c<}) q50 e16e16 e > q83 ARP(2,!4,{c<ae}) q50 e16e16 q83 ARP(4,!4,{ea>c<})
  ARP(3,!1,{dfa>d<}) r-4. >d&<a&f
  ARP(!8,!1,{egb>e<}) r-4. b4.
  ARP(2,!8,{ea>c<}) q50 e16e16 e > q83 ARP(2,!4,{c<ae}) q50 e16e16 q83 ARP(2,!8,{ea>c<}) e
  ARP(7,!2.,{c+ea>c+e<}) rq50 c+16c+16 q90
 ]
 ARP(1,!4,{ceg>ce<}) [2 q50 c16c16 q83 ARP(1,!4,{>ec<gec})]
 ARP(!8,!2,{ega>c<})  ARP(!8,!2,{ega>c+<})

 [2
  [2
   q83 ARP(2,!8,{a>cd<}) q50 d16d16 d q83 >ARP(2,!8,{dc<a}) q50 f f16f16 q83 ARP(2,!8,{a>cd<}) q50 f
   q50 f16f16 q83 >ARP(2,!8,{dc<a}) q50 f16f16 f q83 >ARP(2,!8,{dc<a}) q50 f f16f16 q83 >ARP(2,!8,{dc<a})
   :
   q83 ARP(2,!8,{ga>c<}) q50 e16e16 e q83 >ARP(2,!8,{c<ag}) q50 e e16e16 q83 ARP(2,!8,{ga>c<}) q50 e
   q50 e16e16 q83 >ARP(2,!8,{c<bg}) q50 e16e16 e q83 >ARP(2,!8,{c<bg}) q50 e e16e16 q83 >ARP(2,!8,{c<bg})
  ]
  :
  q83 ARP(2,!8,{a>ce<}) q50 g16g16 g q83 >ARP(2,!8,{ec<a}) q50 g g16g16 q83 ARP(2,!8,{a>ce<}) q50 g
  q50 g16g16 q83 >ARP(2,!8,{ec<b}) q50 g16g16 g q83 >ARP(2,!8,{ec<b}) q50 g g16g16 q83 >ARP(2,!8,{ec<b})
 ]
 q83 ARP(2,!8,{a>ce<}) q50 g16g16 g q83 ARP(4,!2^8,{a>ceg<}) r-4. >c&<a&e
 ARP(!8,!1,{g+>ceg+<}) r-4. >e&c&<g+

 ARP(3,!1,{dfa>d<}) r-4. f&a&d
 ARP(!8,!1,{egb>e<})
 ARP(2,!8,{ea>c<}) q50 e16e16 e > q83 ARP(2,!4,{c<ae}) q50 e16e16 q83 ARP(2,!8,{ea>c<}) e
 ARP(2,!8,{ea>c<}) q50 e16e16 e > q83 ARP(2,!4,{c<ae}) q50 e16e16 q83 ARP(4,!4,{ea>c<})
 ARP(3,!1,{dfa>d<}) r-4. >d&<a&f
 ARP(!8,!1,{egb>e<}) r-4. b4.
 ARP(2,!8,{ea>c<}) q50 e16e16 e > q83 ARP(2,!4,{c<ae}) q50 e16e16 q83 ARP(2,!8,{ea>c<}) e
 ARP(7,!2.,{c+ea>c+e<}) r4
 r2. q30 rc+16c+16 q83

 [2
  [2
   ARP(1,!4,{dfa>df<}) q50 d q83 ARP(1,!4,{>fd<afd}) q50 d q83 ARP(1,!8,{>fd<afd}) q50 d16d16 q83
   ARP(1,!4,{dgb>dg<}) [2 ARP(1,!8,{dgb>dg<}) q50 d q83 ] ARP(1,!4,{dgb>dg<})
   ARP(1,!4,{ceg>ce<}) q50 c q83 ARP(1,!4,{>ec<gec}) q50 c q83 ARP(1,!8,{>ec<gec}) q50 c16c16 q83
   ARP(1,!4,{cfa>cf<}) [2 ARP(1,!8,{cfa>cf<}) q50 c q83 ] ARP(1,!4,{eg>ceg<})

   ARP(1,!4,{dfa>df<}) q50 d q83 ARP(1,!4,{>fd<afd}) q50 d q83 ARP(1,!8,{>fd<afd}) q50 d16d16 q83
   ARP(1,!4,{dgb>dg<}) [2 ARP(1,!8,{dgb>dg<}) q50 d q83 ] ARP(1,!4,{dgb>dg<})
   :
   ARP(1,!4,{ceg>ce<}) q50 c q83 ARP(1,!4,{>ec<gec}) q50 c q83 ARP(1,!8,{>ec<gec}) q50 c16c16 q83
   ARP(1,!4,{cea>ce<}) ARP(1,!8,{cea>ce<})a >e&c&<a&>e<
  ]
  :
  ARP(1,!4,{ceg>ce<}) [2 q50 c16c16 q83 ARP(1,!4,{>ec<gec})]
  [3 ARP(1,!8,{eg+>ce<}) : r16]  [3 ARP(1,!8,{eg+>ce<}) : r16]
 ]
 ARP(1,!4,{ceg>ce<}) [2 q50 c16c16 q83 ARP(1,!4,{>ec<gec})]
 ARP(4,!1,{ceg>c<})


//------------------------------------
// Track 5 : 
//------------------------------------
TR(5) CH(5) P(100)
@30 v95
FineTune(60)
Slur(0)
BR(2)
PitchBend(0)
M.onNoteWave(0,90,!4..)

 o5 l8
 r1

[3
 [2
  q80 e16&f16 q40 d<a> q80 f q40 d<a> q80 f q40 <a>
  q80 f+16&g16 q40 d<b> q80 g q40 d<b> q80 g q40 <b>
  q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
  q80 g+16&a16 q40 fc q80 a q40fc q80 b16&>c16< q40 a
  q80 e16&f16 q40 d<a> q80 f q40 d<a> q80 f q40 <a>
  q80 f+16&g16 q40 d<b> q80 g q40 d<b> q80 g q40 <b>
  :
  q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
  q80 g+16&a16 q40 ec q80 >c< q40ae q80 >c+16&d16< q40 a
 ]
 q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
 q80 f+&!8g2^8...&!16f+64 r

 :

 [7 r1]
 < r2..d+16&e16

 q40f q80>f< q40 ff q80>f< q40fff
 q40d q80>d< q40 dd q80>d< q40dd q80>d<
 q40e q80>e< q40 ee q80>e< q40eee
 q40c q80>c< q40 cc q80>c< q40cc q80>c<
 q40f q80>'df'< q40 ff q80>'df'< q40fff
 q40d q80>'d<b' q40 dd q80>'d<b' q40dd q80>'dg'<
 q40e q80>'ce'< q40 ee q80>'ec'< q40eee
 q40g+ q80>'g+e'< q40 g+g+ q80>'g+e'< q40g+g+g+
 >
 q90 'a2..f2..' < q40a16a16>
 q90 'g2e2' <q40 g16g16> q90 'g4.e4.'
 q40 <aa16a16> q80 'a4e4' q40<a> q80 'a4e4' q40<a>
 q40 <aa16a16> q80 'a4>c4<' q40<a> q80 'a4>c4<' q40<a>
 q90 'a2..f2..' < q40a16a16>
 q90 'g2..b2..' <q40 g16g16>
 q40 <aa16a16> q80 'a4>c4<' q40<a> q80 'a4>c4<' q40<a>
 q90 'a2.c+2.' c+16&f16&c+
]

 q90
 v(MML(v)+5)
 [8 r1]

 fgab16&!16>c.<bab16a16 g4a+32&b16.a4gfg16d16
 ab>cd+16&!16e8. c16<b16>c<b f+16&!16g2&!8e64r32. f16e16fg16a16
 a q40 ff16f16 q90 b q40 f16f16f q90>c< q40 ff16f16 q90>d< q40ff16f16 q90 >ec16<a16 >c16<a16e16a16
 b16&!16>c4&<b32r32>r c+16&!16d4&c+32r32 r d16&!16e4.&d32r32 d+&!8e4^16&d+32r32 <
 v(MML(v)-5)

 q90 'a2..f2..' < q40a16a16>
 q90 'g2e2' <q40 g16g16> q90 'g4.e4.'
 q40 <aa16a16> q80 'a4e4' q40<a> q80 'a4e4' q40<a>
 q40 <aa16a16> q80 'a4>c4<' q40<a> q80 'a4>c4<' q40<a>
 q90 'a2..f2..' < q40a16a16>
 q90 'g2..b2..' <q40 g16g16>
 q40 <aa16a16> q80 'a4>c4<' q40<a> q80 'a4>c4<' q40<a>
 q90 'a1c+1'
 r1

 [2
  [2
   q80 e16&f16 q40 d<a> q80 f q40 d<a> q80 f q40 <a>
   q80 f+16&g16 q40 d<b> q80 g q40 d<b> q80 g q40 <b>
   q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
   q80 g+16&a16 q40 fc q80 a q40fc q80 b16&>c16< q40 a
   q80 e16&f16 q40 d<a> q80 f q40 d<a> q80 f q40 <a>
   q80 f+16&g16 q40 d<b> q80 g q40 d<b> q80 g q40 <b>
   :
   q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
   q80 g+16&a16 q40 ec q80 >c< q40ae q80 >c+16&d16< q40 a
  ]
  :
  q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
  q80 g16&g+16 q40 ec+ q80 b q40 g+e q80 >c+< q40 g+
 ]
 q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
 q80 f+&!8g2^8...&!16f+64 r


/*
* Track15
*/
TR(15) CH(15) P(64)
@30 v105
FineTune(64)
Slur(0)
BR(2)
PitchBend(0)
M.onNoteWave(0,120,!4)

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

 r-1
 o5 l16
 r2.. q50 aa

  q90 >c+&d8 c8.d8 e&fed c8<b8  g+&a ga a+&bab b&>c<ba bag&a
  a+&b.&a+64r64 g8^32&f+64r64 g+&a.&g+64r64 e.&d+32r f+&g4^32&!8e64r64 q50 d8e8f8 q90 g+&a q75 g8f8 q90 e.&d+64r64
  c+64&d32.faf fa>d<f a>dfd e32&f.d<a> f8&!8g8...&!16.f64q70fq90g d+&e8c8^32r32<a8
  a+&b4^32&a+32 g>c d+&e..&d64 d8^32r32 c.r32 <a&b4^32&a+64r64 g4.e8fg l8

  g+32&a16.b>c d+16&!16e. dcd16c16< b4>c+32&d16.c4<bab16g16>
  <b32&>c16.de f16&!16g8.e16d16ed< b16&!16>c2&!8<g64r32. a16g16ab16>c16
  d< q60aa16a16 q90>e< q60a16a16a q90>f< q60aa16a16 q90>g< q60a16a16a q80 l16 >a8ec ec<a>d l8
  q90 d+16&!16e4&d+32r32 c16e16 f+16&!16g4&f+32r32 e16f16 g16&!16g+4.&g32r32 a&!8b4^16&a32r32

 EP.onTime(127,0,!1^1)
 v(MML(v)-1) d1^4 v(MML(v)+1) r-1^4 
 g8&!8a1^16.&!8d32 
 r2.
 [6 r1]
 EP(127)

 
 

TR(14) CH(14) P(60)
@81 v110
FineTune(68)
Slur(0)
BR(2)
PitchBend(0)
M.onNoteWave(0,30,!2.)

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

 EP.onNoteWave(50,127,!4.)
 r-1
 o5 l16
 r2.. q50 aa

  q90 >c+&d8 c8.d8 e&fed c8<b8  g+&a ga a+&bab b&>c<ba bag&a
  a+&b.&a+64r64 g8^32&f+64r64 g+&a.&g+64r64 e.&d+32r f+&g4^32&!8e64r64 q50 d8e8f8 q90 g+&a q75 g8f8 q90 e.&d+64r64
  c+64&d32.faf fa>d<f a>dfd e32&f.d<a> f8&!8g8...&!16.f64q70fq90g d+&e8c8^32r32<a8
  a+&b4^32&a+32 g>c d+&e..&d64 d8^32r32 c.r32 <a&b4^32&a+64r64 g4.e8fg l8

  g+32&a16.b>c d+16&!16e. dcd16c16< b4>c+32&d16.c4<bab16g16>
  <b32&>c16.de f16&!16g8.e16d16ed< b16&!16>c2&!8<g64r32. a16g16ab16>c16
  d< q60aa16a16 q90>e< q60a16a16a q90>f< q60aa16a16 q90>g< q60a16a16a q80 l16 >a8ec ec<a>d l8
  q90 d+16&!16e4&d+32r32 c16e16 f+16&!16g4&f+32r32 e16f16 g16&!16g+4.&g32r32 a&!8b4^16&a32r32

 EP.onTime(50,0,!1^1)
 v(MML(v)-1) d1^4 v(MML(v)+1) r-1^4 
 g8&!8a1^16.&!8d32 
 r2.
 [6 r1]
 EP(127)




//------------------------------------
// Track 6 : 
//------------------------------------
TR(6) CH(6) P(60)
@30 v65
FineTune(68)
Slur(0)
BR(2)
PitchBend(0)
M.onNoteWave(0,90,!2)

 o5 l8 r.
 r1
[3
 [2
  q80 e16&f16 q40 d<a> q80 f q40 d<a> q80 f q40 <a>
  q80 f+16&g16 q40 d<b> q80 g q40 d<b> q80 g q40 <b>
  q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
  q80 g+16&a16 q40 fc q80 a q40fc q80 b16&>c16< q40 a
  q80 e16&f16 q40 d<a> q80 f q40 d<a> q80 f q40 <a>
  q80 f+16&g16 q40 d<b> q80 g q40 d<b> q80 g q40 <b>
  :
  q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
  q80 g+16&a16 q40 ec q80 >c< q40ae q80 >c+16&d16< q40 a
 ]
 q80 f+16&g16 q40 ec q80 g q40 ec q80 g32
 q80 <b&!8>c2^8...&!16<b64>r r.

 :

 [7 r1]
 < r2..d+16&e16

 q40f q80>f< q40 ff q80>f< q40fff
 q40d q80>d< q40 dd q80>d< q40dd q80>d<
 q40e q80>e< q40 ee q80>e< q40eee
 q40c q80>c< q40 cc q80>c< q40cc q80>c<
 q40f q80>'df'< q40 ff q80>'df'< q40fff
 q40d q80>'d<b' q40 dd q80>'d<b' q40dd q80>'dg'<
 q40e q80>'ce'< q40 ee q80>'ec'< q40eee
 q40g+ q80>'g+e'< q40 g+g+ q80>'g+e'< q40g+g+g+
 >
 q90 'a2..f2..' < q40a16a16>
 q90 'g2e2' <q40 g16g16> q90 'g4.e4.'
 q40 <aa16a16> q80 'a4e4' q40<a> q80 'a4e4' q40<a>
 q40 <aa16a16> q80 'a4>c4<' q40<a> q80 'a4>c4<' q40<a>
 q90 'a2..f2..' < q40a16a16>
 q90 'g2..b2..' <q40 g16g16>
 q40 <aa16a16> q80 'a4>c4<' q40<a> q80 'a4>c4<' q40<a>
 q90 'a2.c+2.' c+16&f16&c+
]

 v(MML(v)+15) q90
/*
[8 r1]
*/
  l16
  q90 >c+&d8 c8.d8 e&fed c8<b8  g+&a ga a+&bab b&>c<ba bag&a
  a+&b.&a+64r64 g8^32&f+64r64 g+&a.&g+64r64 e.&d+32r f+&g4^32&!8e64r64 q50 d8e8f8 q90 g+&a q75 g8f8 q90 e.&d+64r64
  c+64&d32.faf fa>d<f a>dfd e32&f.d<a> f8&!8g8...&!16.f64q70fq90g d+&e8c8^32r32<a8
  a+&b4^32&a+32 g>c d+&e..&d64 d8^32r32 c.r32 <a&b4^32&a+64r64 g4.e8fg l8

  g+32&a16.b>c d+16&!16e. dcd16c16< b4>c+32&d16.c4<bab16g16>
  <b32&>c16.de f16&!16g8.e16d16ed< b16&!16>c2&!8<g64r32. a16g16ab16>c16
  d< q60aa16a16 q90>e< q60a16a16a q90>f< q60aa16a16 q90>g< q60a16a16a q80 l16 >a8ec ec<a>d l8
  q90 d+16&!16e4&d+32r32 c16e16 f+16&!16g4&f+32r32 e16f16 g16&!16g+4.&g32r32 a&!8b4^16&a32r32
 v(MML(v)-15)

 q90 'a2..f2..' < q40a16a16>
 q90 'g2e2' <q40 g16g16> q90 'g4.e4.'
 q40 <aa16a16> q80 'a4e4' q40<a> q80 'a4e4' q40<a>
 q40 <aa16a16> q80 'a4>c4<' q40<a> q80 'a4>c4<' q40<a>
 q90 'a2..f2..' < q40a16a16>
 q90 'g2..b2..' <q40 g16g16>
 q40 <aa16a16> q80 'a4>c4<' q40<a> q80 'a4>c4<' q40<a>
 q90 'a1c+1'
 r1

 [2
  [2
   q80 e16&f16 q40 d<a> q80 f q40 d<a> q80 f q40 <a>
   q80 f+16&g16 q40 d<b> q80 g q40 d<b> q80 g q40 <b>
   q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
   q80 g+16&a16 q40 fc q80 a q40fc q80 b16&>c16< q40 a
   q80 e16&f16 q40 d<a> q80 f q40 d<a> q80 f q40 <a>
   q80 f+16&g16 q40 d<b> q80 g q40 d<b> q80 g q40 <b>
   :
   q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
   q80 g+16&a16 q40 ec q80 >c< q40ae q80 >c+16&d16< q40 a
  ]
  :
  q80 f+16&g16 q40 ec q80 g q40 ec q80 g q40 c
  q80 g16&g+16 q40 ec+ q80 b q40 g+e q80 >c+< q40 g+
 ]
 q80 f+16&g16 q40 ec q80 g q40 ec q80 g32
 q80 <b&!8>c2^8...&!16<b64>r r.



//------------------------------------
// Track 7 : 
//------------------------------------
TR(7) CH(7) P(74)
//@82,111,3 v80 M.onNoteWave(0,30,!2.)
// @7 v110
//@4,8,0 v110
@5,16,0 v90

 r1
 o5 l8 q98

[3
 [2
  ARP(2,!4.,{a>d<}) a4.>f4
  ARP(2,!2,{dg}) d2
  ARP(2,!4.,{ce}) c4.g4
  ARP(2,!2,{fa}) c2<
  ARP(2,!4.,{a>d<}) a4.>f4
  :
  ARP(2,!2,{dg}) d2
  ARP(2,!4.,{ce}) g4.e4
  ARP(2,!4.,{ea}) >c4.<e4<
 ]
 ARP(2,!2,{dg}) b2
 ARP(2,!1,{ceg>c<})
 r1
:

 [8 r1]

 v(MML(v)-20)
 d4.<a4.>d4
 <b4.>e4.<b4
 >e4.c4.e4
 c4.e4.<a4>
 d4.<a4.>d4
 <b4.>e4.<b4>
 e4.c4.g4
 e2<b2

 v(MML(v)-10)
 [2
  [2 r4>>>d4<<<]
  [2 r4>>>e4<<<]
  rrrrr>>>ed e : c<<<
  rrrr>>>ede<a<< r-8
 ]
 c+rrrrc+<b>c+<<<
 v(MML(v)+30)
]

 [16 r1]

 v(MML(v)-25)
 [2
  [2 r4>>>d4<<<]
  [2 r4>>>e4<<<]
  rrrrr>>>ed e : c<<<
  rrrr>>>ede<a<< r-8
 ]
 c+1 <
 P.onTime(0,127,!2..)
 EP(80)
 ARP(32,!1,{c+<gec+<ge})
 <
 EP(127)
 P(74)

 v(MML(v)+25)
 [2
  [2
   ARP(2,!4.,{a>d<}) a4.>f4
   ARP(2,!2,{dg}) d2
   ARP(2,!4.,{ce}) c4.g4
   ARP(2,!2,{fa}) c2<
   ARP(2,!4.,{a>d<}) a4.>f4
   :
   ARP(2,!2,{dg}) d2
   ARP(2,!4.,{ce}) g4.e4
   ARP(2,!4.,{ea}) >c4.<e4<
  ]
  :
  ARP(2,!2,{dg}) b2
  ARP(2,!1,{ceg>c<})<
  ARP(!8,!1,{g+>c+eg+})<
 ]
 ARP(2,!2,{dg}) b2
 ARP(2,!1,{ceg>c<})
 <
 v(MML(v)-10)
 q99 ARP(!32,!1,{ega>ce<})


//------------------------------------
// 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,}

@1,90,1
l8

Rhythm {

   v90 rrrr rbv100s64s8... r-1 v100 S4S4S4r4 r-1 v90f4f4v100j4v127y4

 [3
   [2
    v90 brrrrbrb      r-1 v100 s4s4s4s4 r-1 v127 e v80c [3 v100 c v80c] 
    v90 rbrrrb16b16rb r-1 v100 s4s4s4s4 r-1 [3 v100 c v80c] v127 y4
    v90 brrrrbrb      r-1 v100 s4s4s4s4 r-1 v127 e v80c [3 v100 c v80c] 
    v90 rbrbrbr16bb16 r-1 v100 s4s4s4s4 r-1 [3 v100 c v80c] v127 y4
    v90 brrrrbrb      r-1 v100 s4s4s4s4 r-1 v127 e v80c [3 v100 c v80c] 
    v90 rbrrrb16b16rb r-1 v100 s4s4s4s4 r-1 [3 v100 c v80c] v127 y4
    :
    v90 brrrrbrb      r-1 v100 s4s4s4s4 r-1 v127 e v80c [3 v100 c v80c] 
    v90 rbrbrbrb16b16 r-1 v100 s4s4s4s16s. r-1 [3 v100 c v80c] v127 y4
   ]
   :
   v90 brrrr16bbr16b       r-1 v100 s4s4s4ss16s16 r-1 v127 e v80c [3 v100 c v80c] 
   v90 brrr brrr r-1 v100 r2 l16 rr ssaazz l8 r-1 v127 e2 v100 c v80 c co

   v90 brrr rrrr r-1 v100 r2s4rr r-1 v127 y v50c [3 v100c v50c]
   v90 brbr rrrr r-1 v100 r2s4rr r-1 [4 v100c v50c]
   v90 brrr rrrb r-1 v100 r2s4rr r-1 [4 v100c v50c]
   v90 brbr rrrr r-1 v100 r2s4rv50s r-1 [4 v100c v50c]
   v90 brrr rrrr r-1 v100 r2s4rr r-1 v127 e v50c [3 v100c v50c]
   v90 brbr rrrr r-1 v100 r2s4rr r-1 [4 v100c v50c]
   v90 brrr rrrb r-1 v100 r2s4rr r-1 [4 v100c v50c]
   v90 brbr rrrr r-1 v100 r2s4v85ss16s16 r-1 [4 v100c v50c]

   v90 brrr bbrr r-1 v100 rrs4rrs4 r-1 v127 e v80c [3 v100c v80c]
   v90 brrr bbrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c]
   v90 brrr bbrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c]
   v90 brrr bbrb16b16 r-1 v100 rrs4rrs16s. r-1 [4 v100c v80c]
   v90 brrr bbrr r-1 v100 rrs4rrs4 r-1 v127 e v80c [3 v100c v80c]
   v90 brrr bbrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c]
   v90 brrr bbrr r-1 v100 rrs4rrss16s16 r-1 [4 v100c v80c]
   v90 rbrb16b16 brrr r-1 v100 s4s4r v80 'sw' v90 'sw' v100 'sw' r-1 v127 y4 e4  v100d4 rr

   v90 brrr rrrr r-1 v100 r2s4rr r-1 v127 y v50c [3 v100c v50c]
   v90 brbr rrrr r-1 v100 r2s4rv70s r-1 [4 v100c v50c]
   v90 brrr bbrr r-1 v100 rrs4rrs4 r-1 v127 e v80c [3 v100c v80c]
   v90 brrr bbrr r-1 v100 rrs4rl16 ssaazz l8 r-1 [4 v100c v80c]
   v90 brrr rrrr r-1 v100 r2s4rr r-1 v127 y v50c [3 v100c v50c]
   v90 brbr rrrr r-1 v100 r2s4rv70s r-1 [4 v100c v50c]
   v90 brrr bbrr r-1 v100 rrs4rrs4 r-1 v127 e v80c [3 v100c v80c]
   v90 rbrb16b16 brrr r-1 v100 s4s4 r4 l16 rrs64s32.s l8 r-1 v100d4d4 v127 y4 v100 f4
 ]
 v90 brrrr16bbr16b       r-1 v100 s4s4s4ss16s16 r-1 v127 e v80c [3 v100 c v80c] 
 v90 brbr brbr r-1 r v70'sw'v80'sw'v90'sw' v100 l16 sqaz azss l8 r-1 v127 e4 v100 f4 d4 v100 f4

  [2
   v90 bbrr rb16b16rr    r-1 v100 rrs4rrs4 r-1 v127 e v75c [3 v105c v75c]
   v90 bbrr bbrr         r-1 v100 rrs4rrs4 r-1 [4 v105c v75c]
   v90 bbrr bb16b16rr    r-1 v100 rrs4rrs4 r-1 [4 v105c v75c]
   v90 bbrb r16bb16rr    r-1 v100 rrs4rrsv90w r-1 [4 v105c v75c]
   v90 bbrr rb16b16r.b16 r-1 v100 rrs4rrs4 r-1 v127 y v75c [3 v105c v75c]
   v90 bbrr bbrr         r-1 v100 rrs4rrs4 r-1 [4 v105c v75c]
   v90 bbrr bb16b16rr    r-1 v100 rrs4rrs4 r-1 [4 v105c v75c]
   :
   v90 bbrb r16bb16 bb16b16 r-1 v100 rrs4r l16ss aazz l8r-1 [4 v105c v75c]
  ]
  v90 rl16 bbrbbb l8 brbb16b16 r-1 v100 s4 s l16 rs azsa szaz l8 r-1 v110 d4d4 v100f4f4

  v90 brrr rrrr r-1 v100 r2s4rr r-1 v127 y v50c [3 v100c v50c]
  v90 brbr rrrr r-1 v100 r2s4rv70s r-1 [4 v100c v50c]
  v90 brrr bb16b16rr r-1 v100 rrs4rrs4 r-1 v127 e v80c [3 v100c v80c]
  v90 brrr b16bb16rr r-1 v100 rrs4rl16 ssaazz l8 r-1 [4 v100c v80c]
  v90 brrr rrrr r-1 v100 r2s4rr r-1 v127 y v50c [3 v100c v50c]
  v90 brbr rrrr r-1 v100 r2s4rv70s r-1 [4 v100c v50c]
  v90 brrr bb16b16rr r-1 v100 rrs4rrl16 ssaz l8 r-1 v127 e v80c [3 v100c v80c]
  v90 brrr rrrr r-1 v127 'e1y1'
  v90 rbbr bbrr r-1 v100 [2 s64s8...r] l16 qazw l8r-1 v90 [4 f4]

  [2
   [2
    v90 brrrrbrb16b16      r-1 v100 s4s4s4s4 r-1 v127 e v80c [3 v100 c v80c] 
    v90 rbrbrb16b16rb      r-1 v100 s4s4s4s4 r-1 [3 v100 c v80c] v127 y4
    v90 brrrrbrb           r-1 v100 s4s4s4s4 r-1 v127 e v80c [3 v100 c v80c] 
    v90 rbrb16b16rbr16bb16 r-1 v100 s4s4s4s4 r-1 [3 v100 c v80c] v127 y4
    v90 brrrrbrb16b16      r-1 v100 s4s4s4s4 r-1 v127 e v80c [3 v100 c v80c] 
    v90 rbrbrb16b16rb      r-1 v100 s4s4s4s4 r-1 [3 v100 c v80c] v127 y4
    :
    v90 brrb16b16rbrb16b16 r-1 v100 s4s4s4s4 r-1 v127 e v80c [3 v100 c v80c] 
    v90 rbr16b16b16b16rbrb16b16 r-1 v100 s4s4s4s16s. r-1 [3 v100 c v80c] v127 y4
   ]
   :
   v90 brrb16b16r16bbr16b       r-1 v100 s4s4s4ss16s16 r-1 v127 e v80c [3 v100 c v80c] 
   v90 b.b.b b.b.b r-1 v100s.v90s.s16s16 l16 v110 sqas azss l8 r-1 v127 e.y.e v127 y v70f v90f v70f
  ]
  v90 brbr brbr       r-1 v100 s4sl16ss qqaa zzww l8 r-1 v127 e v80c [3 v100 c v80c] 
  v90 brrr rrrr r-1 v127 'e1y1'
}