//-----------------------------------------------
// on the coast
// (C)Yax
//-----------------------------------------------

ResetGM();
TrackName     = {"on the coast"}
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)
}


// フェードアウト
Function FadeOut() {
  r1r1r1r1r1r1r1r1 EP.onTime(127,0,!1^1^1^1^1^1^1^1^1^1^1^1) r-1^1^1^1^1^1^1^1
}


// 全体の調整
TR(1)  V(110) REV(30) CHO(30)
TR(2)  V(106) REV(55) CHO(50)
TR(3)  V(115) REV(40) CHO(0)
TR(4)  V(105) REV(70) CHO(10)
TR(5)  V(120) REV(32) CHO(38)
TR(6)  V(110) REV(20) CHO(0)
TR(7)  V(110) REV(20) CHO(0)
TR(8)  V(110) REV(20) CHO(0)
TR(9)  V(110) REV(20) CHO(0)
TR(10) V(115) REV(30) CHO(0)


// テンポ
INT T0 = 109   // イントロのテンポ
INT T  = 116   // 通常のテンポ
INT T2 = 96    // 最初のリタルダンド後のテンポ
INT T3 = 68    // 最初のリタルダンド後のテンポ
INT T4 = 22    // 最初のリタルダンド後のテンポ


Tempo=(T0)


// キー

INT KEY=0

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





//------------------------------------
// Track 1 : 
//------------------------------------
TR(1) CH(1) P(64)
@37,90,1 v90
PitchBend(0)
BR(2)

 o3 l8 q70

 [10 r1]
 r2

 [2
  c16c16rrr rcr<b-> rde-4e->e-<dd16>d16<
  c16c16rrr rcr<b- rb->c4 <g>g<b-16b-16>b-
 ]
 q90 f2..v(MML(v)-10) b-16&!16>c16< v(MML(v)+10)
 d2.< q70 b-4>

[2
 [2
  e-r>d16&e-16r16<e-16re-r<b-16>e-16
  dra-16&b-16r16d16r<b-rb-16>f16
  crb-16&>c16<r16c16rcr<a16>e-16
  dra-16&b-16r16 <b-16r>fdb-
 ]

 crb16&>c16r16< c16rc e-16r16e-
 dra-16&b-16r16<b-16rb->d16r16 e-32&f16.
 e-rf16&g16<r16g16rg b-16r16 b->
 crg16&a-16r16 e-16re-<a->c

 e-rg16g16r16<b-16r>e-16g16e-<b-16b-16>
 dre-16f16r16 d16rg16a-16fd16>d16<
 e-1
 :
 <g2.>d4
]
 <f2g4a-a-16>f16

 l16
 [2
  e-re-8 e-r<b->g r<b->e-8 gr
  d8.rd8 dr<a->f r<a>d8 frda-
  frf8 frcf rcf8 cr
  e-8.re-8 e-rca- : e-ra-8grgf
 ]
 e-r<a-8>crde-

 drd8 drdg r<b->d8 dr<b-8>
 crc8 crca- rcf8 crf8
 l8
 e-1<e-2.ga-16&b-16>


 [2
  c16c16rrr rcr<b-> rde-4e->e-<dd16>d16<
  c16c16rrr rcr<b- rb->c4 <g>g<b-16b-16>b-
 ]

 [2
  e-r>d16&e-16r16<e-16re-r<b-16>e-16
  dra-16&b-16r16d16r<b-rb-16>f16
  crb-16&>c16<r16c16rcr<a16>e-16
  dra-16&b-16r16 <b-16r>fdb-
 ]

 crb16&>c16r16< c16rc e-16r16e-
 dra-16&b-16r16<b-16rb->d16r16 e-32&f16.
 e-rf16&g16<r16g16rg b-16r16 b->
 crg16&a-16r16 e-16re-<a->c

 e-rg16g16r16<b-16r>e-16g16e-<b-16b-16>
 dre-16f16r16 d16rg16a-16fd16>d16<
 e-1
 <f2g4a-a-16>f16

 l16
 [2
  e-re-8 e-r<b->g r<b->e-8 gr
  d8.rd8 dr<a->f r<a>d8 frda-
  frf8 frcf rcf8 cr
  e-8.re-8 e-rca- : e-ra-8grgf
 ]
 e-r<a-8>crde-

 drd8 drdg r<b->d8 dr<b-8>
 crc8 crca- rcf8 crf8
 l8
 e-1<e-2.ga-16&b-16>

 l16
 q70 cr q30cc q70>c<crc r>cd32&e-32c< gc<b-r rrb->b- q90 l12 ce-g>c<ge-ge-c l16
 q70 <a-rq30a-a-> q70 cce-a- l12 q90 e-a->c< q70 l16 e-a-<b-r rrb->f crcg q90 l12 >c<g> q60 e-24<g24> q90 c<g>e-< l16
 q70 crq30cc q70>c<crc q90 l12 e-ge- l16 q70 g>c<<b-r rrb->b- crc<g> ce-gc l12 q90 e->c<g l16
 q70<a-rq30a-a-> q60ccq70e-a- ra-cr e-a-<b-r rrb->f q90 l12>gce-< q70 l24 >ce-<g>c<e-g l12 q90 >c<ge-

 l8
 q70
 [4
  c16c16rrr rcr<b-> rde-4e->e-<dd16>d16<
  c16c16rrr rcr<b- rb->c4 <g>g<b-16b-16>b-
 ]

 q90 f2..v(MML(v)-10) b-16&!16>c16< v(MML(v)+10)
 d2< q70 g>a-<b->>c16&d16<

 e-4...&!4.<e-32> r2
 r1
 r1
 a-4...&!8e-32 c4d4

 e-4.e-e-2
 <b-4.b-b-4>d.r16
 c4.cc4<b-.r16
 a-a-a-a-16>e-16< b-b-16>b-16 cd16>c64&d32.<

 l16
 [2
  [2
   e-re-8 e-r<b->g r<b->e-8 gr
   d8.rd8 dr<a->f r<a>d8 frda-
   frf8 frcf rcf8 cr
   e-8.re-8 e-rca- : e-ra-8grgf
  ]
  e-r<a-8>crde-

  drd8 drdg r<b->d8 dr<b-8>
  crc8 crca- rcf8 crf8
  :
  e-re-8 e-r<b->e- r<b->e-8 e-r<b-8
  b-rb-8 b-rf8 f4 grb->d
 ]
 l8
 e-1<e-2.ga-16&b-16>

 FadeOut()
 [6
  c16c16rrr rcr<b-> rde-4e->e-<dd16>d16<
  c16c16rrr rcr<b- rb->c4 <g>g<b-16b-16>b-
 ]
 


//------------------------------------
// Track 2 : 
//------------------------------------
TR(2) CH(2) P(80)
@26 v90
M.onNoteWave(5,70,!1)
Slur(0)
BR(2)
PitchBend(0)

 [10 r1]
 r2

 o4 l8 q95
 rrre- fg>c<b- rfgre-4.r
 a-4rg a->ce-d r<b->cr< g4.r
 rrre- fg>c<b- rfgre-4fg
 a-4rg a->cgf rde-2rr
 f2.r d16c16
 <b-4.ra-4.r

 v(MML(v)-15)

 [2
  rARP(!8,!2..,{e-b->e-<})
  r1
  rARP(!8,!2..,{e->ce-<})
  r1
  rARP(!8,!2..,{e-b->e-<})
  r1
  rARP(!8,!2..,{f>cg})
  r1

  rre-r y64,1; ce-4. y64,0;  rrfr  y64,1; df4.  y64,0;
  rrgr  y64,1; e-g4. y64,0;  rre-r y64,1; ce-4. y64,0;
  rre-r y64,1; ce-4. y64,0;  rrfr  y64,1; df4d  y64,0;
  <ARP(3,!1,{b->e-g<})
  r1
 ]

 [2
  [4 r : q20 'b->e-g<']
  q50 '>d4g4b-4<' [4 q20 '>dgb-<' : r]
  [4 r : q20 'a->cf<']
  :
  q50 '>c4e-4a-4<' [4 q20 '>ce-a-<' : r]
 ]
 q50 '>c4e-4a-4<' [2 q20 '>ce-a-<' r]  [2 q20 'a->ce-<' : r]

  [4 r q20 'b->dg<']
  [4 r q20 '>cfa-<']
  q90 ARP(4,!1.,{e-gb->e-g<}) v(MML(v)-10) ARP(4,!2,{e-gb->d<}) v(MML(v)+10)

 v(MML(v)+15)
 rrre- fg>c<b- rfgre-4.r
 a-4rg a->ce-d r<b->cr< g4.r
 rrre- fg>c<b- rfgre-4fg
 a-4rg a->cgf rde-2rr
 v(MML(v)-15)
 <

  rARP(!8,!2..,{e-b->e-<})
  r1
  rARP(!8,!2..,{e->ce-<})
  r1
  rARP(!8,!2..,{e-b->e-<})
  r1
  rARP(!8,!2..,{f>cg})
  r1

  rre-r y64,1; ce-4. y64,0;  rrfr  y64,1; df4.  y64,0;
  rrgr  y64,1; e-g4. y64,0;  rre-r y64,1; ce-4. y64,0;
  rre-r y64,1; ce-4. y64,0;  rrfr  y64,1; df4d  y64,0;
  <ARP(3,!1,{b->e-g<})
  r1

 [2
  [4 r : q20 'b->e-g<']
  q50 '>d4g4b-4<' [4 q20 '>dgb-<' : r]
  [4 r : q20 'a->cf<']
  :
  q50 '>c4e-4a-4<' [4 q20 '>ce-a-<' : r]
 ]
 q50 '>c4e-4a-4<' [2 q20 '>ce-a-<' r]  [2 q20 'a->ce-<' : r]

  [4 r q20 'b->dg<']
  [4 r q20 '>cfa-<']
  q90 ARP(4,!1.,{e-gb->e-g<}) v(MML(v)-10) ARP(4,!2,{e-gb->d<}) v(MML(v)+10)

  [7 r1]
  r2..
  l16 v(MML(v)+20)
  >cd

  d32&e-.fg8>c<b-b32&>c8&<b-32 l24 b-ge- a-fd l16 c&d e-fa-<a-8>dfde-f+64&g32.fe-d8e-&f
  c8..&<b-32 l24 a->ce- a-e-c l16 e-c<a->c e-g32&a-.g e-fgf ga-8g a32&b-.ge- de-f.&e32
  c+32&d4^16&c+32e-fd8^32&c+32r f32&g8.. ra32&b-32a-g e-ce-f32&g. ce-g dfa-<b-
  g32&a-.g g32&a-.gg32&a-. e-gb-gfa->c<b- >d8.f32&g8^32fe e-4^16.&d32 cd

  e-cfc ge-b-g >d32&e-e-.e- e-.d.c <b->cde- d<b->c<a- b-ge-g l24 a-fd ge-c l16
  e32&f4^16. l24 ga-g l16 f4.e-d e-4.d24c24<b-24 b32&>c8.&<b-32 g8..&e-32
  r<b->e-g e-b->e-<b- >e-<b-gb- ge-g>e- l24 a-fd ge-c l16 fd<a->c32&d. <b->e-g ce-gc
  fa->cd8 d32&e-e-.e-8e-.e-.e-. e-. e32&ff.f. f. f+32&gg.g l24 e-<b-g> d<a-f >c<a-f l16
  a-2^8 l24 ce-g dfa- l16 e-g l8  ARP(4,!2,{dgb-}) a-2
  <
  v(MML(v)-20) l8

  [8 r1]

 [2
  [2
   [4 r : q20 'b->e-g<']
   q50 '>d4g4b-4<' [4 q20 '>dgb-<' : r]
   [4 r : q20 'a->cf<']
   :
   q50 '>c4e-4a-4<' [4 q20 '>ce-a-<' : r]
  ]
  q50 '>c4e-4a-4<' [2 q20 '>ce-a-<' r]  [2 q20 'a->ce-<' : r]

  [4 r q20 'b->dg<']
  [4 r q20 '>cfa-<']
  :
  [4 r q20 'b->e-g<']
  [2 r q20 '>e-gb-<']
  '>dfa-<'r'>e-4g4b-4<'
 ]
 q90 ARP(4,!1.,{e-gb->e-g<}) v(MML(v)-10) ARP(4,!2,{e-gb->d<}) v(MML(v)+10)

 FadeOut()

 v(MML(v)+15)
 [3
  rrre- fg>c<b- rfgre-4.r
  a-4rg a->ce-d r<b->cr< g4.r
  rrre- fg>c<b- rfgre-4fg
  a-4rg a->cgf rde-2rr<
 ]


//------------------------------------
// Track 3 : 
//------------------------------------
TR(3) CH(3) P(52)
//@1,8,0 v105
@2,8,0 v105
//@5,24,0 v95
//@6,8,0 v98
Slur(3)

 o5 l8 q90

 y64,1;  ARP(2,!4.,{b->e-g}) f4.de-  y64,0; r-1 << 'g1' >>
 y64,1; <ARP(1,!4.,{b->df}) b-4.a-4  y64,0; r-1 << f2.d4 >>
 y64,1;  ARP(2,!4.,{ce-g})e-4.g4     y64,0; r-1 << e-1 >>
 y64,1; <ARP(1,!1,{b->df}) r-2 d2   y64,0; r-1 << d2.<b-4>>
 y64,1; ARP(1,!2,{e-a->c<}) y64,0; r-2 <<fa->c4>
 y64,1; ARP(1,!2,{fb->d<})  y64,0; r-2 <<gb->d4>
 y64,1; ARP(1,!2,{gb->d<})  y64,0; r-2 <<gb->d4>
 y64,1; ARP(1,!2,{g>ce-<}) r-4 >f4<  y64,0; r-2 <<a->ce-<e->>
 DANDO(T0,T2,!1^2,!8)
 y64,1; ARP(4,!1^1,{a->ce-g<}) r-1 v(MML(v)-10) >f2c4de-< v(MML(v)+10) y64,0; r-1^1 <<a->cde- ga->ce-< <fa->ce-ga-b->c
 y64,1; ARP(4,!1^1.,{b->df<}) r-1^1 v(MML(v)-8) r>d4f a-2 v(MML(v)-8)  Tempo(T3) g4. Tempo(T4) f^2< v(MML(v)+16) y64,0; r-1^1. < <b->dfa- b->cd<f 'b-1.f1.<b-1.>' >

 [2
  ARP(2,!2..,{ce-g})  '<b->df'r'<b->df' ARP(1,!2.,{ce-g})
  ARP(2,!2..,{ce-a-}) '<b->df'r'<b->df' ARP(1,!2.,{ce-g})
 ]
 <
 ARP(2,!1,{a->ce-g<})
 ARP(1,!1,{b->cdf})

[2
 <
 ARP(1,!2,{b->e-g<})r'b->e-g<'r
 ARP(1,!8^2,{b->df<})r ARP(0,!4.,{b->df<})
 ARP(1,!2,{a->ce-<})r'a->ce-<'r
 ARP(1,!8^2,{b->df<}) ARP(0,!4,{a->ce-<}) ARP(0,!4,{b->df<})

 ARP(1,!2,{b->e-g<})r'b->e-g<'r
 ARP(1,!8^2,{b->df<})r ARP(0,!4.,{>dfb-<})
 ARP(1,!2,{a->ce-<})r'>ce-g<'r
 ARP(1,!8^2,{b->df<}) >ARP(5,!2,{dfb-})<

 ARP(1,!1,{a->ce-<}) r-2 >g2<
 ARP(1,!1,{b->df<})  r-2 >b-4a-4<
 ARP(1,!1,{gb->e-<}) r-2 >g2<
 ARP(1,!1,{e-a->c<}) r-2 >f4d4<

 ARP(1,!1,{gb->e-<}) r-2 >g4fe-<
 ARP(1,!1,{fb->d<}) r-2 >f4d4<
 :
 ARP(4,!1^1,{gb->e-<}) r-1 v(MML(v)-10) >r2f2 v(MML(v)+10)
]

 ARP(4,!1,{gb->e-<}) ARP(2,!1,{a->cf<}) r-2 > g4a-4

 ARP(2,!2..,{e-gb-})   r-2 rr>e-d<
 ARP(2,!8^1,{dgb-})    r-2 rb-a-g
 ARP(2,!2..,{cfa-})    r-2 rra-b-
 ARP(2,!8^1,{e-a->c<}) r-2 >e-2<

 ARP(2,!2..,{e-gb-})   r-2 rrb->c<
 ARP(2,!8^1,{gb->d<})  r-2 r>d<gb-
 ARP(2,!2..,{fa->c<})  r-2 rr>cd<
 ARP(2,!8^1,{a->ce-<}) r-2 >c2<

 ARP(2,!1,{dgb-})
 ARP(2,!1,{cfa-})
 <ARP(4,!1^1,{b->e-g}) r-1 e-1


 [2
  ARP(4,!2..,{ce-g})  '<b->df'r'<b->df' ARP(1,!2.,{ce-g})
  ARP(4,!2..,{ce-a-}) '<b->df'r'<b->df' ARP(1,!2.,{ce-g})
 ]
 <
 ARP(1,!2,{b->e-g<})r'b->e-g<'r
 ARP(1,!8^2,{b->df<})r ARP(0,!4.,{b->df<})
 ARP(1,!2,{a->ce-<})r'a->ce-<'r
 ARP(1,!8^2,{b->df<}) ARP(0,!4,{a->ce-<}) ARP(0,!4,{b->df<})

 ARP(1,!2,{b->e-g<})r'b->e-g<'r
 ARP(1,!8^2,{b->df<})r ARP(0,!4.,{>dfb-<})
 ARP(1,!2,{a->ce-<})r'>ce-g<'r
 ARP(1,!8^2,{b->df<}) >ARP(5,!2,{dfb-})<

 ARP(1,!1,{a->ce-<}) r-2 >g2<
 ARP(1,!1,{b->df<})  r-2 >b-4a-4<
 ARP(1,!1,{gb->e-<}) r-2 >g2<
 ARP(1,!1,{e-a->c<}) r-2 >f4d4<

 ARP(1,!1,{gb->e-<}) r-2 >g4fe-<
 ARP(1,!1,{fb->d<}) r-2 >f4d4<
 ARP(4,!1,{gb->e-<}) ARP(2,!1,{a->cf<}) r-2 > g4a-4

 ARP(2,!2..,{e-gb-})   r-2 rr>e-d<
 ARP(2,!8^1,{dgb-})    r-2 rb-a-g
 ARP(2,!2..,{cfa-})    r-2 rra-b-
 ARP(2,!8^1,{e-a->c<}) r-2 >e-2<

 ARP(2,!2..,{e-gb-})   r-2 rrb->c<
 ARP(2,!8^1,{gb->d<})  r-2 r>d<gb-
 ARP(2,!2..,{fa->c<})  r-2 rr>cd<
 ARP(2,!8^1,{a->ce-<}) r-2 >c2<

 ARP(2,!1,{dgb-})
 ARP(2,!1,{cfa-})
 <ARP(4,!1^1,{b->e-g}) r-1 e-1

 q70
 [2
  ARP(0,!8,{ce-g})  r2.'<b->df'r'<b->df' ARP(1,!4,{ce-g})rrrr
  ARP(0,!8,{ce-a-}) r2.'<b->df'r'<b->df' ARP(1,!4,{ce-g})rr : rr
 ]
 q90 < ARP(4,!4,{b->dfa-})
 [4
  ARP(2,!2..,{ce-g})  '<b->df'r'<b->df' ARP(1,!2.,{ce-g})
  ARP(2,!2..,{ce-a-}) '<b->df'r'<b->df' ARP(1,!2.,{ce-g})
 ]
 <
 ARP(2,!1,{a->ce-g<})
 ARP(1,!1,{b->cdf})

 [4 r1]

 <ARP(!8,!1,{b->e-gb-}) 
 ARP(!8,!1,{dfb->d<}) 
 ARP(!8,!1,{ce-g>c<}) 
 ARP(!8,!1,{ce-a->c<})

 [2
  ARP(2,!2..,{e-gb-})   r-2 rr>e-d<
  ARP(2,!8^1,{dgb-})    r-2 rb-a-g
  ARP(2,!2..,{cfa-})    r-2 rra-b-
  ARP(2,!8^1,{e-a->c<}) r-2 >e-2<

  ARP(2,!2..,{e-gb-})   r-2 rrb->c<
  ARP(2,!8^1,{gb->d<})  r-2 r>d<gb-
  ARP(2,!2..,{fa->c<})  r-2 rr>cd<
  ARP(2,!8^1,{a->ce-<}) r-2 >c2<

  ARP(2,!1,{dgb-})
  ARP(2,!1,{cfa-})
  :
  <ARP(4,!1^1,{b->e-g}) r-1 e-2g4f4
 ]
 <ARP(4,!1^1,{b->e-g}) r-1 e-1

 FadeOut()
 [6
  ARP(2,!2..,{ce-g})  '<b->df'r'<b->df' ARP(1,!2.,{ce-g})
  ARP(2,!2..,{ce-a-}) '<b->df'r'<b->df' ARP(1,!2.,{ce-g})
 ]


//------------------------------------
// Track 4 : 
//------------------------------------
TR(4) CH(4) P(64)
@49 v68
M.onNoteWave(0,90,Q1..)

 o5 l8 q98
 [3 r1]
 r2..<a-24a24b-24>

 <a-2 b-2 > r-1 c2 d2
 <b-2 >c2   r-1 d2 e-2 
 e-1   r-1 <g1>
 f2 c2 r-1 <a-1>
 d2 <b-2> r-1 <f1>
 c2  EP.onTime(127,40,!1) d2.r4 r-1. <a-1^4r4>  EP(127)

 [2
  'ce-'rr2 r[3 'd<b->'] 'c4e-4'<g2>
  'e-g'rr2 r[3 'df'] 'e-4g4' c2
 ]
 EP.onNoteWave(30,110,!4..)
 'g1e-1' 'f2d2''d2<b-2>'
 EP(127)

 [8 r1]

 e-1 d2..e-24f24f+24
 g1 c1
 'e-1<g1>' 'f1<b-1>'
 EP.onTime(127,0,!1.)'e-1^1<b-1^1g1^1>' EP(127)

[2
 r2r <b->ge-
 f2d2
 r2r cge-
 f2a-2

 r2r <b->ge- r-1 r2r<g>e-<b->
 f2d2        r-1 d2<b-2>
 r2r cge-    r-1 r2r<a->e-c
 f1          r-1 d1

 'e-1<a-1>' <b-1> r-1 d2..e-24f24f+24
 'g1<b-1>' 'c1<g1>'
 'e-1<g1>' 'f1<b-1>'
 'e-1<b-1g1>' q60 EP.onTime(50,127,!1) [4 'ge-'] [4 'fd']
 v(MML(v)+10)
 [2
  [7 'ge-'] 'gb-'r [7 'gb-']
  [7 'a-f'] '>c<a-'r : [7 '>c<a-']
 ]
 [3 '>c<a-'] [4 'a-f']
 [8 'b-g']
 [6 'a-f']  v(MML(v)-10) q95 EP(80) 'a-4f4'
 EP.onNoteWave(90,30,!1)
 'g1.e-1.'
 'd2<b-2>'
 EP(127)
 :
 [2
  'ce-'rr2 r[3 'd<b->'] 'c4e-4'<g2>
  'e-g'rr2 r[3 'df'] 'e-4g4' c2
 ]
]

 EP.onNoteWave(60,120,!1.)
 ARP(0,!1^1,{<e-g>})
 ARP(0,!1^1,{<e-a->})
 ARP(0,!1^1,{<g>c})
 ARP(0,!1^1,{<e-a->})

 EP(127)
 [4
  'ce-'rr2 r[3 'd<b->'] 'c4e-4'<g2>
  'e-g'rr2 r[3 'df'] 'e-4g4' c2
 ]
 r-1^1^1^1^1^1^1^1
 v(MML(v)-30)
 >>e-1^1
 <a-1^1>
 c1^1
 e-1 f1 <<
 v(MML(v)+30)

 EP.onNoteWave(30,110,!4..)
 'g1e-1' 'f2d2''d2<b-2>'
 EP(127)

 [4 r1]

 EP.onNote(50,100,!2)
 >>e-1d1g1a-2b-2<<

 EP(127)
 v(MML(v)+10)
 [2
  [2
   [7 'ge-'] 'gb-'r [7 'gb-']       r-1^1 v(MML(v)-15) < 'g2..<g2..>' 'd8^1<d8^1>' > v(MML(v)+15)
   [7 'a-f'] '>c<a-'                r-1   v(MML(v)-15) < 'f2..<f2..>' > v(MML(v)+15)
   :
   r [7 '>c<a-'] r-1 v(MML(v)-15) < 'a-8^2<a-8^2>' >'c2<c2>' v(MML(v)+15)
  ]
  r [3 '>c<a-'] [4 'a-f'] r-1 v(MML(v)-15) < 'a-8^2<a-8^2>' >'c2<c2>' v(MML(v)+15)
  [8 'b-g'] r-1 v(MML(v)-15) < 'b-1<b-1>' > v(MML(v)+15)
  [6 'a-f']  v(MML(v)-10) q95 EP(80) 'a-4f4'  r-1 v(MML(v)-15) < 'a-1<a-1>'> v(MML(v)+15)
  :
  EP(127)
  v(MML(v)+10)
  [8 'e-g']
  [4 'gb-'] gra-r
  r-1^1 v(MML(v)-15) <'g1^1<g1^1>' > v(MML(v)+15)
 ]
 EP.onNoteWave(90,30,!1)
 'g1.e-1.'
 'd2<b-2>'
  r-1^1 <'g1^2<g1^2>'r2 >
 EP(127)

 FadeOut()
 [6
  'ce-'rr2 r[3 'd<b->'] 'c4e-4'<g2>
  'e-g'rr2 r[3 'df'] 'e-4g4' c2
 ]



//------------------------------------
// Track 5 : 
//------------------------------------
TR(5) CH(5) P(64)
@66,90,1 v110
M.onNoteWave(10,90,!2.)

 o4 l8 q80
 [3 r1]
 v(MML(v)-10)
 r2..b-24a24a-24

 g4.^24 a-24b-24 >c4..r16
 d4..r16 e-4cd24e-24f24
 g2^8.r16 e-8.r16
 f2.r g24f24e24
 e-2..d16c16
 d1
 r2
 v(MML(v)+10)

 [8 r1]
 r1
 r1

 q85
 [2
  r<b->gf re-de- f.r16dd.r16 dcd
  e-.r16cc2r d.r16<b-b-2r>
  r<b->gf rde-e f4rb-4ra-.r16
  g.r16e-e-.r16 e-fg a-4^16r16b-.r16g.r16 a-16a16

  b-2^8r>c<b- ra-rgrfre-16f16
  g2^8ra-g ra-grf.r16e-e16f16
  ge-rg.r16gfb- a-4^16r16a-.r16a-gf
  :
  e-1
  r1
 ]
  e-2.re-16e16
  f4.r gra-.r16

  b-a-b->dre-r<b-^2.ra-16b-16>
  c<b->cdrgre-4.rc4.r<g16a-16
  b-a-b->dre-r<b-^2.ra-16b-16>
  c<b->cdrgre-2rf4.r
  d2r l16 dc dc<a-b->l8
  c2^8r l16 <b-a-b-24>c24d24 l8
  e-1<
  r1

  [8 r1]

  r<b->gf re-de- f.r16dd.r16 dcd
  e-.r16cc2r d.r16<b-b-2r>
  r<b->gf rde-e f4rb-4ra-.r16
  g.r16e-e-.r16 e-fg a-4^16r16b-.r16g.r16 a-16a16

  b-2^8r>c<b- ra-rgrfre-16f16
  g2^8ra-g ra-grf.r16e-e16f16
  ge-rg.r16gfb- a-4^16r16a-.r16a-gf
  e-2.re-16e16
  f4.r gra-.r16

  b-a-b->dre-r<b-^2.ra-16b-16>
  c<b->cdrgre-4.rc4.r<g16a-16
  b-a-b->dre-r<b-^2.ra-16b-16>
  c<b->cdrgre-2rf4.r
  d2r l16 dc dc<a-b->l8
  c2^8r l16 <b-a-b-24>c24d24 l8
  e-1
  r1

  [8 r1]
  [16 r1]
  r1
  <r2 gra-.r16

  b-a-b->dre-r<b-^2r f16g16 a-16g16a-16b-16>
  c<b->cdrgre-4.rc4e-d16c16<g16a-16
  b-a-b->dre-r<b-2r>d4<ra-16b-16>
  c<b->cdrgre-2f4rc<g16a-16

  [2
   b-a-b->dre-r<b-^2.ra-16b-16>
   c<b->cdrgre-4.rc4.r<g16a-16
   b-a-b->dre-r<b-^2.ra-16b-16>
   c<b->cdrgre-2rf4.r
   d2r l16 dc dc<a-b->l8
   c2^8r l16 <b-a-b-24>c24d24 l8
   e-1
   :
   < r2 gra-.r16
  ]
  r1

 l16
 FadeOut()
 <<
 [2
  r4.gg >e-8.d8.c8< b-fg8^2 r4
  a-.g.a->cde-f g4rrf8rrd8e-2r4
  r4.b-8 g8f8d8e-e f^4rg^4re-8.r
  f2^8a-b->e-d c<b- >d4.e-8^2<
  :
  rrb-a- g8e-f c4.<b->c d8.e-8.c8 g2
  rrf4.e-f a-g fb-a-g >d8rc8r<b-8 >e-2
  rrgg rrrr ggrr rr<ga- b-a-ga- gfe-f c2
  d.c.d e-fga- b-.a-.g f4 rrfrg2rrrr
 ]



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



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



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



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



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

@33,90,1
l8

[9 r1]
r2
r2. 
Tempo(T)

Rhythm {
 v100 c16c16 v70o
}

Rhythm {

 [2
  v90 brr.b16brrr r-1 v100 rrs4rrs4 r-1 v127 e v80c16c16 [3 v100c v80c16c16]
  v90 brr.b16bbrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
  v90 brr.b16brrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
  :
  v90 brr.b16bbrr r-1 v100 rrs4rrs.v60s16 r-1 [3 v100c v80c16c16] v100cv60f
 ]
 v90 brr.b16brbr r-1 v100 rrs.v60s16 r16v80sv60s16 v100a16a16z16z16 r-1 [3 v100c v80c16c16] v100cv60f

 v90 b4b4b4b4 r-1 v127 y v80c16c16 [3 v110c16 v80c16 : v90c16 v80c16] v70o
 v90 b4b4b4b4 r-2 v100sv80s16s16 v100s64s32.v80s16s16s16r-1 v127 e v80c16c16 v110c16 v80c16 v90c16 v80c16 v100 d4 v60f4
 
[2

 v127 y r-8
 [2
  v90 brr.b16rbrr r-1 v100 rrs4rrs4 r-1 r v80c16c16 [3 v100c v80c16c16]
  v90 brr.b16rbr.b16 r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
  v90 brr.b16rbrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
  :
  v90 brr.b16rbrb r-1 v100 rrs4rrs.v60s16 r-1 [4 v100c v80c16c16]
  v127 e r-8
 ]
 v90 brr.b16brbr r-1 v100 rrs.v60s16 v100 l16 raas zzss l8 r-1 [4 v100c v80c16c16]

 v90 brr.b16rbrr r-1 v100 rrs4r16v60s.v100s4 r-1 v127e v80c16c16 [3 v100c v80c16c16]
 v90 bbr.b16rbrr r-1 v100 rrs4r16v60s.v100s.v60s16 r-1 [4 v100c v80c16c16]
 v90 brr.b16rbrr r-1 v100 rrs4r16v60s.v100s4 r-1 [4 v100c v80c16c16]
 v90 bbr.b16rbrb r-1 v100 rrs4r16v70ss16 v100s16s16z16z16 r-1 [4 v100c v80c16c16]
 v90 brr.b16rbrr r-1 v100 rrs4r16v60s.v100s4 r-1 v127e v80c16c16 [3 v100c v80c16c16]
 v90 bbr.b16rbrr r-1 v100 rrsv70l16ss v100 aazzwwss l8 r-1 [2 v100c v80c16c16] v60f4f4
 v90 brrb brrb r-1 v127 y4 v60 f4f4f4
 v90 brrr brbr r-4 l16 v100 s64s32.wss l8 r-1 v110 d4 v60 f4f4f4
]

 [2
  v127 e1 r-1
  v90 brr.b16 rbrb r-1 v100 rrs4rrs4       r-1 [4 v110j v60d]
  v90 rbr.b16 bbrr r-1 v100 rrs16v80s.rr v100 s.v70s16 r-1 [4 v110j v60d]
  v90 brr.b16 rbrb r-1 v100 rrs4rrs4       r-1 [4 v110j v60d]
  :
  v90 rbr.b16 bbrb r-1 v100 rrs16v80ss16 v100 r16v80sv60s16v100sv70s16s16 r-1 [4 v110jv60d]
 ]
 v90 rbr.b16 bbrb r-1 r16v70s.v100sv70s16s16 v100 l16 a64a32.zsa zsa64a32.z l8 r-1 [4 v110jv60d]

 v90 brr.b16 rbrb r-1 v100 rrs4rrs4 r-1 v127 y v90j [3 v110j v60d]
 v90 rbr.b16 brbr r-1 v100 rrs.v70s16 l16 v100 rs64s32.sz q64q32.qaz l8 r-1 [2 v110jv60d] v120 y4 v70 f4
 v90 brrb brrb r-1 v127 e1
 v90 brrr rrrr r-1 v110 d1


 [2
  v90 brr.b16brrr r-1 v100 rrs4rrs4 r-1 v127 e v80c16c16 [3 v100c v80c16c16]
  v90 brr.b16bbrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
  v90 brr.b16brrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
  :
  v90 brr.b16bbrr r-1 v100 rrs4rrs.v60s16 r-1 [3 v100c v80c16c16] v100cv60f
 ]
 v90 brr.b16brbr r-1 l16 rv80s8v60s v100s8v70ss v100 zzs64s32.z zs64s32.zs64s32. l8 r-1 v100d 4 v70 f4f4f4

 v127 y r-8
 [2
  v90 brr.b16rbrr r-1 v100 rrs4rrs4 r-1 r v80c16c16 [3 v100c v80c16c16]
  v90 brr.b16rbr.b16 r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
  v90 brr.b16rbrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
  :
  v90 brr.b16rbrb r-1 v100 rrs4rrs.v60s16 r-1 [4 v100c v80c16c16]
  v127 e r-8
 ]
 v90 brr.b16brbr r-1 v100 rrs.v60s16 v100 l16 raas zzss l8 r-1 [4 v100c v80c16c16]

 v90 brr.b16rbrr r-1 v100 rrs4r16v60s.v100s4 r-1 v127e v80c16c16 [3 v100c v80c16c16]
 v90 bbr.b16rbrr r-1 v100 rrs4r16v60s.v100s.v60s16 r-1 [4 v100c v80c16c16]
 v90 brr.b16rbrr r-1 v100 rrs4r16v60s.v100s4 r-1 [4 v100c v80c16c16]
 v90 bbr.b16rbrb r-1 v100 rrs4r16v70ss16 v100s16s16z16z16 r-1 [4 v100c v80c16c16]
 v90 brr.b16rbrr r-1 v100 rrs4r16v60s.v100s4 r-1 v127e v80c16c16 [3 v100c v80c16c16]
 v90 bbr.b16rbrr r-1 v100 rrsv70l16ss v100 aazzwwss l8 r-1 [2 v100c v80c16c16] v60f4f4
 v90 brrb brrb r-1 v127 y4 v60 f4f4f4
 v90 brrr brbr r-1 r2 l16 v100 s64s32.zzs64s32. zzs64s32.w l8 r-1 v110 d4 v60 f4f4f4

 [2
  v127 e1 r-1
  v90 brr.b16 rbrb r-1 v100 rrs4rrs4       r-1 [4 v110j v60d]
  v90 rbr.b16 bbrr r-1 v100 rrs16v80s.rr v100 s.v70s16 r-1 [4 v110j v60d]
  v90 brr.b16 rbrb r-1 v100 rrs4rrs4       r-1 [4 v110j v60d]
  :
  v90 rbr.b16 bbrb r-1 v100 rrs16v80ss16 v100 r16v80sv60s16v100sv70s16s16 r-1 [4 v110jv60d]
 ]
 v90 rbr.b16 bbrb r-1 r16v70s.v100sv70s16s16 v100 l16 a64a32.zsa zsa64a32.z l8 r-1 [4 v110jv60d]

 v90 brr.b16 rbrb r-1 v100 rrs4rrs4 r-1 v127 y v90j [3 v110j v60d]
 v90 rbr.b16 brbr r-1 r16v80sv60s16 l16 v100 q64q32.qaz s64s32.aas64s32. zzs64s32.w l8 r-1 [2 v110jv60d] v120 y4 v70 f4
 v90 brrb brrb r-1 v127 e1
 v90 brrr rrrr r-1 r2 [2 v100s64s32.[3v75s16]] r-1 v110 d1

 v90 brrb brbb      r-1 v100 rr s16sv80s16 l16 rs64s32.wg szs64s32.r l8 r-1 v127 e4 v70f4f4f4
 v90 rbrbrb16b16rb  r-1 v100 r4s4s16s.s16s.                             r-1 v70o v100 c16c16 v100d4 v70f4f4
 v90 brrb brbb      r-1 v100 l16 qqaz s64s32.zss zsss swsg l8           r-1 v70 f4f4f4f4
 v90 rbrbrb16b16rb  r-1 v100 s4 s l24 sss qqq aaa zzz sss  l8           r-1 v127 e4 y4 v70f4f4
 v90 brrb brbb      r-1 r16v80sv60s16 v100 sv80s16s16 l16 zzss assw  l8 r-1 v127 e4 v70f4f4f4
 v90 rbrbrb16b16rb  r-1 v100 l16 rrss qas8 l12 v100'zs'v90'zs''zs' v100'ws'v90'ws''ws' l8           r-1 v70o v100 c16c16 v100d4 v70f4f4
 v90 brrb brbb      r-1 v100 l16 qqaz s64s32.zss zsss swsg l8           r-1 v70 f4f4f4f4
 v90 rbrbrb16b16rb  r-1 v100 l24 [4 saz] l16 q64q32.qaa s64a16.. v80s16s16 l8   r-1 v127 v70f4f4f4 v110d4

 [2
  [2
   v90 brr.b16brrr r-1 v100 rrs4rrs4 r-1 v127 e v80c16c16 [3 v100c v80c16c16]
   v90 brr.b16bbrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
   v90 brr.b16brrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
   :
   v90 brr.b16bbrr r-1 v100 rrs4rrs.v75s16 r-1 [3 v100c v80c16c16] v100cv60f
  ]
  :
  v90 brr.b16brbr r-1 v100 rrs4rv80s16s16 r16 v100s16v80s16s16 r-1 [3 v100c v80c16c16] v100cv60f
 ]
 v90 brr.b16brbr r-1 v100 rrs.v60s16 r16v80sv60s16 v100a16a16z16z16 r-1 [3 v100c v80c16c16] v100cv60f

 v90 b4b4b4b4 r-1 v127 y v80c16c16 [3 v110c16 v80c16 : v90c16 v80c16] v70o
 v90 b4b4b4b4 r-1 l16 v80 'ws'sss v90 'ws'sss v100 'ws'sss l24 [2 v110'ws'v90ss] l8 r-1 v127 e4 v60f4 v100 d4 v60f4

 v90 brrr rrrb r-1 v127 y4 v60f4f4f v80o
 v90 brrr rrbb16b16 r-1 v127 e4 v60f4 [2 v90c16c16v70o]
 v90 brrr rrrb r-1 v127 y4 v60f4f4f v80o
 v90 brrb brrb r-1 v100 r'qa''qa''az' 'az''zw''sw''s16w16's16 r-1 v127 e4 v60f4 [2 v90c16c16v70o]
 v90 brrb rrrb r-1 v100 rrrrs4.s r-1 v127 y4 v60f4f4f v80o
 v90 brbr brrb16b16 r-1 v100 rsrr srsr r-1 v127 e4 v60f4 [2 v90c16c16v70o]
 v90 brrb brrb r-1 v100 rrs4 r16v80sv40s16v100 s.v80s16 r-1 v127 y4 v60f4f4f v80o
 v90 brbt brbr r-1 v60'sw'v70'sw'v80'sw'v90'sw' v100 l24 ssaazz qqsszs l8r-1 v127 e4 v60f4 [2 v90c16c16v70o]

 [2
  [2
   v127 e1 r-1
   v90 brr.b16 rbrb r-1 v100 rrs4rrs4       r-1 [4 v110j v60d]
   v90 rbr.b16 bbrr r-1 v100 rrs16v80s.rr v100 s.v70s16 r-1 [4 v110j v60d]
   v90 brr.b16 rbrb r-1 v100 rrs4rrs4       r-1 [4 v110j v60d]
   :
   v90 rbr.b16 bbrb r-1 v100 rrs16v80ss16 v100 r16v80sv60s16v100sv70s16s16 r-1 [4 v110jv60d]
  ]
  v90 rbr.b16 bbrb r-1 r16v70s.v100sv70s16s16 v100 l16 a64a32.zsa zsa64a32.z l8 r-1 [4 v110jv60d]
  :
  v90 brr.b16 rbrb r-1 v100 rrs4rrs4       r-1 [4 v110j v60d]
  v90 rbr.b16 bbrr r-1 v100 rrs16v80s.rr v100 s.v70s16 r-1 [4 v110j v60d]
  v90 brr.b16 rbrb r-1 v100 rrs4rrs4 r-1 v127 y v90j [3 v110j v60d]
  v90 rbr.b16 brbr r-1 v100 l16 rsrs srss l24 qqqaaa zzzsss l8 r-1 v120 e4 v70 f4f4f4
 ]
 v90 brr.b16 rbrb r-1 v100 rrs4rrs4 r-1 v127 y v90j [3 v110j v60d]
 v90 rbr.b16 brbr r-1 r16v80sv60s16 l16 v100 q64q32.qaz s64s32.aas64s32. zzs64s32.w l8 r-1 [2 v110jv60d] v120 y4 v70 f4
 v90 brrb brrb r-1 v127 e1
 v90 brrr rrrr r-1 v110 d1
}

FadeOut()
Rhythm {
 [3
  [2
   v90 brr.b16brrr r-1 v100 rrs4rrs4 r-1 v127 e v80c16c16 [3 v100c v80c16c16]
   v90 brr.b16bbrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
   v90 brr.b16brrr r-1 v100 rrs4rrs4 r-1 [4 v100c v80c16c16]
   :
   v90 brr.b16bbrr r-1 v100 rrs4rrs.v60s16 r-1 [3 v100c v80c16c16] v100cv60f
  ]
  v90 brr.b16brbr r-1 v100 rrs.v60s16 r16v80sv60s16 v100a16a16z16z16 r-1 [3 v100c v80c16c16] v100cv60f
 ]

}