//-----------------------------------------------
// magical islands
// (C)Yax
//-----------------------------------------------

ResetGM();                 // GM音源リセット

//曲名
TrackName     = {"magical islands"}

//著作権表示
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)
}



// 全体の調整
TR(1)  V(110) REV(28) CHO(70)
TR(2)  V(105) REV(50) CHO(90)
TR(3)  V(110) REV(30) CHO(60)
TR(4)  V(111) REV(30) CHO(70)
TR(5)  V(90)  REV(50) CHO(90)
TR(15) V(90)  REV(50) CHO(90)
TR(6)  V(105) REV(30) CHO(95)
TR(7)  V(120) REV(28) CHO(90)
TR(8)  V(110) REV(20) CHO(20)
TR(9)  V(110) REV(20) CHO(20)
TR(10) V(115) REV(25) CHO(40)


// テンポ
INT T  = 125
Tempo=(T)


// キー
INT KEY=1

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



//------------------------------------
// Track 1 : 
//------------------------------------
TR(1) CH(1) P(64)
@35 l8 v120
FineTune(64)

 o3 l16
 q70
 [8 d4]
 [7 c4] cc>cc+<

 q80
 [2
  [4 drd>d<ddad]
  [4 crc>c<ccgc]
 ]

 q70
 [7 d4]
 d>dcc+<

 [2
  [2
   [2 dcdardcd<aa>da drda]
   [2 ecegrece<gg>eg ereg]
  ]

  [2
   [2 rf+df+ b>d<af+ raf+d>d<baf+]
   [2 rcegrece< rg>eg ereg]
  ]

  a1
  <f+2.>ecde
 ]

[2
 [2
  [4 <drar rf+>c+r]
  [4 <erbr rg>er]
 ]

 [2
  [4 <dra>c+< f+f+>c+f+]
  [4 <erb>e< gg>eg]
 ]

 [6 r8<a8>]
 [6 r8<g+8>]
 [6 rr<f+>f+]
 [6 rr<e>e]

:
 c+1. r4 d<bag>

 [8 r1]

 [2
  [2 dcdardcd<aa>da drda]
  [2 ecegrece<gg>eg ereg]
 ]



  [2
   [2 dcdardcd<aa>da drda]
   [2 ecegrece<gg>eg ereg]
  ]

  [2
   [2 rf+df+ b>d<af+ raf+d>d<baf+]
   [2 rcegrece< rg>eg ereg]
  ]

  a1
  <f+2.>ecde
]

 q90 c+1. r4 q60<g&ab&!16>c

 [2
  q90 d1^2.. q70 d16d16
  q90 c1^2.. q70 : c16g16
 ]
 e16d16
 q80
 [4
  [4 drd>d<ddad]
  :
  [4 crc>c<ccgc]
 ]
 [2 crc>c<ccgc]
 c2 g4 ecde


 [2
  [4 <drar rf+>c+r]
  [4 <erbr rg>er]
 ]

 [2
  [4 <dra>c+< f+f+>c+f+]
  [4 <erb>e< gg>eg]
 ]

 [6 r8<a8>]
 [6 r8<g+8>]
 [6 rr<f+>f+]
 [6 rr<e>e]

 c+2..f+16f+16 < 
 [2 f+2..>f+16f+16<]
 e8&!8f+2.. r-1 <b1




//------------------------------------
// Track 2 : 
//------------------------------------
TR(2) CH(2) P(64)
@109 v92
Slur(3)
 o5 l16 q105
 
 P.onNote(64,100,28,80,40)
 [3
  [2 c8.&d8.&a8.&c8.&d8&a8]
  [2 c8.&d8.&g8.&c8.&d8&g8]
 ]
 c8.&d8.&a8.&c8.&d8&a8
 c8.&d8.&a8&>c2<

 v(MML(v)-15)
 [2
  P.onNote(64,100,28,80,40)
  [2
   a8&d&a8&d&a8& c&d&a8&d&c&d&a
   a8&>d&<a&c&d&a8& c&d&a8&d&c&d&a
   g8&e&g8&e&g8& c&e&g8&e&c&e&g
   g8&>c&<g&c&e&a8& c&e&g8&e&c&e&b
  ]

  [2
   rdaf+<a>f+da raf+drf+a>d<
   radf+r<a>df+ rdf+a>d<af+d
   re>c<g<g>ceg rgecreg>c<
   rgcer<g>ce rceg>c<gec
  ]
  y64,1; df+a>d< f+ab>d < ab>df+ adf+g a1 y64,0; <
 ]

[2
 [2
  [4 a8.e8.c+8]
  [4 b8.e8.c+8]
 ]
 [2
  [4 'a8.e8.''e8.c+8.''c+8<a8>']
  [4 'b8.f+8.''e8.c+8.''c+8<a8>']
 ]

 v(MML(v)-8)
 [4 <a>'ac+'f+ <a>'>c+<f+'a]
 [4 <g+>'g+c+'e <g+>'>c+<e'g+]
 [2 <a>'ac+'f+ <a>'>c+<f+'a <a>'f+c+'a <a>'c+f+'a]
 [2 <g+>'g+c+'e <g+>'>c+<e'g+ <g+>'ec+'g+ <g+>'g+c+'e]

 EP.onTime(127,60,!1^2.)
 'f+c+'<f+f+>'f+c+'<f+f+>'f+c+'<f+ f+>'f+c+'<f+f+>'f+c+'<f+f+f+>
 'f+2.c+2.'
 EP(127)
 v(MML(v)+15)
 q80 <f+gab> q105
:
 v(MML(v)+8)
 [4
  [2 c8.&d8.&a8.&c8.&d8&a8]
  :
  [2 c8.&d8.&g8.&c8.&d8&g8]
 ]
 c8.&d8.&g8.&c8.&d8&g8 c8.&d8.&g8&>c8.&<a8.&d8


 v(MML(v)-15)
  P.onNote(64,100,28,80,40)
  [2
   a8&d&a8&d&a8& c&d&a8&d&c&d&a
   a8&>d&<a&c&d&a8& c&d&a8&d&c&d&a
   g8&e&g8&e&g8& c&e&g8&e&c&e&g
   g8&>c&<g&c&e&a8& c&e&g8&e&c&e&b
  ]

  [2
   rdaf+<a>f+da raf+drf+a>d<
   radf+r<a>df+ rdf+a>d<af+d
   re>c<g<g>ceg rgecreg>c<
   rgcer<g>ce rceg>c<gec
  ]
  y64,1; df+a>d< f+ab>d < ab>df+ adf+g a1 y64,0; <
]

 v(MML(v)+15)
 P.onNote(64,100,28,80,40)
 [6
  [2 c8.&d8.&a8.&c8.&d8&a8]
  :
  [2 c8.&d8.&g8.&c8.&d8&g8]
 ]
 c8.&d8.&g8.&c8.&d8&g8
 c8.&d8.&g8&>c8.&<g8.&d8

 v(MML(v)-15)
 [2
  [4 a8.e8.c+8]
  [4 b8.e8.c+8]
 ]
 [2
  [4 'a8.e8.''e8.c+8.''c+8<a8>']
  [4 'b8.f+8.''e8.c+8.''c+8<a8>']
 ]

 v(MML(v)-8)
 [4 <a>'ac+'f+ <a>'>c+<f+'a]
 [4 <g+>'g+c+'e <g+>'>c+<e'g+]
 [2 <a>'ac+'f+ <a>'>c+<f+'a <a>'f+c+'a <a>'c+f+'a]
 [2 <g+>'g+c+'e <g+>'>c+<e'g+ <g+>'ec+'g+ <g+>'g+c+'e]

 EP.onTime(127,60,!1^2.)
 'f+c+'<f+f+>'f+c+'<f+f+>'f+c+'<f+ f+>'f+c+'<f+f+>'f+c+'<f+f+f+>
 EP(127)
 v(MML(v)+15)
 q90
 [2 'f+2.c+2.<f+2.>' r8f+16f+16 ]
 <
 [7 ARP(!32,!8..,{f+b>c+f+g+<}) v(MML(v)-15)]



//------------------------------------
// Track 3 : 
//------------------------------------
TR(3) CH(3) P(64)
@111 l16 v80
M.onNoteWave(10,80,!1)

 [4 r1]

 o4 q40
 [2
  [10 'd<a>''ad''>d<a'] 'da''da'
  [10 'c<g>''gc''>c<g'] 'gc''cg'
 ]

 [5 'd<a>''ad''>d<a'] 'da'
 q99 EP.onTime(127,40,!1) 'd1<a1d1>' EP(127)


 [2
  q40 l8
  [2
   [2 'd<a>' 'a4e4' 'd<a>' 'd.<a.>''d.a.''d<a>']
   [2 'ec' 'g4c4' 'ec' 'e.c.''g.c.''ec']
  ]

  l16
  [2
   [2 
    q40 'f+d''f+d' q80 'a8f+8' q40 'f+d''f+d''af+''f+d'
    'f+d''f+d' q80 'a8f+8' q40 'f+d' q80 'a8f+8' 'af+'
   ]
   [2 
    q40 'ec''ec' q80 'g8e8' q40 'ec''ec''ge''ec'
    'ec''ec' q80 'g8c8' q40 'ec' q80 'g8e8' 'gc'
   ]
  ]

  [2 q40 [2 'd<a>'] q80 'a8f+8'  q40 'd<a>' q80 'a8f+8' q40 'af+']
  q99 EP.onTime(127,40,!1) 'f+1<a1f+1>' EP(127)
 ]

[2
 q60
 v(MML(v)+10)
 [4
  [2 'd<a>'f+a>c+< af+ad '>c+<d'af+d af+da]
  [2 'e<b>'g+b>d< bg+be '>d<e'bg+e g+edg+]
 ]

 [2
  [2 [2 'c+<f+>'ef+a] 'f+<a>'a>c+e<]
  [2 [2 'c+<g+>'eg+b] 'g+c+'b>c+e<]
 ]
 q99
 v(MML(v)-10)
 EP.onTime(127,40,!1)
 ARP(2,!1^4,{f+>c+f+<})r2.
 EP(127)

:

 o4 q40
 [4
  [10 'd<a>''ad''>d<a'] 'da''da'
  [10 'c<g>''gc''>c<g'] 'gc''cg'
 ]


  q40 l8
  [2
   [2 'd<a>' 'a4e4' 'd<a>' 'd.<a.>''d.a.''d<a>']
   [2 'ec' 'g4c4' 'ec' 'e.c.''g.c.''ec']
  ]

  l16
  [2
   [2 
    q40 'f+d''f+d' q80 'a8f+8' q40 'f+d''f+d''af+''f+d'
    'f+d''f+d' q80 'a8f+8' q40 'f+d' q80 'a8f+8' 'af+'
   ]
   [2 
    q40 'ec''ec' q80 'g8e8' q40 'ec''ec''ge''ec'
    'ec''ec' q80 'g8c8' q40 'ec' q80 'g8e8' 'gc'
   ]
  ]

  [2 q40 [2 'd<a>'] q80 'a8f+8'  q40 'd<a>' q80 'a8f+8' q40 'af+']
  q99 EP.onTime(127,40,!1) 'f+1<a1f+1>' EP(127)
]

 o4 q40
 [2
  [8 'd<a>'<aaa>]
  [8 'c<g>'<ggg>]
 ]

 [4
  [10 'd<a>''ad''>d<a'] 'da''da'
  [10 'c<g>''gc''>c<g'] 'gc''cg'
 ]


 q60
 v(MML(v)+10)
 [4
  [2 'd<a>'f+a>c+< af+ad '>c+<d'af+d af+da]
  [2 'e<b>'g+b>d< bg+be '>d<e'bg+e g+edg+]
 ]

 [2
  [2 [2 'c+<f+>'ef+a] 'f+<a>'a>c+e<]
  [2 [2 'c+<g+>'eg+b] 'g+c+'b>c+e<]
 ]
 q99
 v(MML(v)-10)

 [4
  EP.onTime(127,40,!1)
  ARP(2,!1,{f+>c+f+<})
  v(MML(v)-20)
 ]


//------------------------------------
// Track 4 : 
//------------------------------------
TR(4) CH(4) P(64)
@19 v73 q99
M.onNoteWave(10,90,!1)

 o5 l48
 [3 r1]
 r2.. efgab>c< 

 ARP(0,!1^1,{ea>cd<})
 ARP(0,!1^2,{egb>d<})   [3 ARP(1,!16.,{gb>de<}) r32 : r16] 
 ARP(0,!1^2^8,{ea>cd<}) ARP(2,!4.,{gb>eg<})
 ARP(0,!1^2,{egb>d<})   ARP(1,!2,{b>deg<})

 r1
 r2.. efgab>c< 


 l48
 [2
  q95
  [2
   ARP(0,!1^2^8,{ea>cd<}) ARP(1,!4.,{ea>cd<})
   ARP(2,!1^2,{gb>ce<}) [2 ARP(1,!8,{gb>ce<})r16] ARP(0,!16.,{gb>ce<})r32 
  ]

  [2
   ARP(0,!1^8.,{ab>df+<}) ARP(1,!8,{ab>df+<})r16 ARP(0,!16.,{ab>df+<})r32 ARP(1,!8,{ab>df+<})r16 ARP(1,!8,{gb>de<})r16 ARP(0,!16.,{ab>df+<})r32
   ARP(2,!1^2,{ga>ce<}) [2 ARP(1,!8,{ga>ce<})r16]  : ARP(0,!16.,{gb>ce<})r32
  ]
  ARP(0,!16.,{b>ceg+<})r32

  ARP(2,!1,{b>df+a<})
  r2.. q99 efgab>c< 
 ]

[2
 [2
  ARP(2,!1^2,{>df+a>c+<<}) [2 ARP(2,!8,{>df+a>c+<<})r16] ARP(0,!16.,{>ceg+>c<<})r32
  ARP(2,!1^2,{>cegb<}) [2 ARP(2,!8,{>cegb<})r16] ARP(0,!16.,{>ceg+>c<<})r32
 ]
 [2
  ARP(2,!1^2,{>df+a>c+f+<<}) [2 ARP(2,!8,{>df+a>c+f+<<})r16] ARP(0,!16.,{>ceg+>cf<<})r32
  ARP(2,!1^2,{>cegb>e<<}) [2 ARP(2,!8,{>cegb>e<<})r16] ARP(0,!16.,{>ceg+>cf<<})r32
 ]

 [2
  ARP(2,!1,{a>c+ef+<})ARP(0,!4,{a>c+f+<})ARP(0,!4,{a>c+f+a<})
  ARP(2,!1,{g+b>c+e<})ARP(2,!4,{g+>c+e<})ARP(2,!4,{g+>c+eg+<})
 ]
 ARP(2,!1,{f+>c+f+<})r2

 l16
 v(MML(v)+12)
 r4ab>c+d
:
 [2
  'e2c2<a2>''d2c2<a2>''e2d2<a2>''f+2d2c2<a2>'
  :
  'e2c2<g2>''d2<b2g2>''e2c2<g2>''f+2d2<g2>'
 ]
 'g1d1c1' < ARP(1,!1,{gb>ce}) <

 ARP(0,!1^1,{ea>cd<})
 ARP(0,!1^2,{egb>d<})   [3 ARP(1,!16.,{gb>de<}) r32 : r16] 
 ARP(0,!1^2^8,{ea>cd<}) ARP(2,!4.,{gb>eg<})
 ARP(0,!1^2,{egb>d<})   ARP(1,!2,{b>deg<})


  q95 l48
  [2
   ARP(0,!1^2^8,{ea>cd<}) ARP(1,!4.,{ea>cd<})
   ARP(2,!1^2,{gb>ce<}) [2 ARP(1,!8,{gb>ce<})r16] ARP(0,!16.,{gb>ce<})r32 
  ]

  [2
   ARP(0,!1^8.,{ab>df+<}) ARP(1,!8,{ab>df+<})r16 ARP(0,!16.,{ab>df+<})r32 ARP(1,!8,{ab>df+<})r16 ARP(1,!8,{gb>de<})r16 ARP(0,!16.,{ab>df+<})r32
   ARP(2,!1^2,{ga>ce<}) [2 ARP(1,!8,{ga>ce<})r16]  : ARP(0,!16.,{gb>ce<})r32
  ]
  ARP(0,!16.,{b>ceg+<})r32

  ARP(2,!1,{b>df+a<})
  r2.. q99 efgab>c< 
]


 [2
  'e2c2<a2>''d2c2<a2>''e2d2<a2>''f+2d2c2<a2>'
  :
  'e2c2<g2>''d2<b2g2>''e2c2<g2>''f+2d2<g2>'
 ]
 'g1d1c1' < ARP(1,!1,{egb>ce}) <

 [2
  ARP(0,!1^1,{ea>cd<})
  ARP(0,!1^2,{egb>d<})   [3 ARP(1,!16.,{gb>de<}) r32 : r16] 
  ARP(0,!1^2^8,{ea>cd<}) ARP(2,!4.,{gb>eg<})
  :
  ARP(0,!1^2,{egb>d<})   ARP(1,!2,{b>deg<})
 ]
 ARP(0,!1,{gb>de<})  ARP(1,!2,{gb>ce<}) ARP(1,!4.,{b>ceg<}) >g32a32b32>c32<<

 [2
  ARP(2,!1^2,{>df+a>c+<<}) [2 ARP(2,!8,{>df+a>c+<<})r16] ARP(0,!16.,{>ceg+>c<<})r32
  ARP(2,!1^2,{>cegb<}) [2 ARP(2,!8,{>cegb<})r16] ARP(0,!16.,{>ceg+>c<<})r32
 ]
 [2
  ARP(2,!1^2,{>df+a>c+f+<<}) [2 ARP(2,!8,{>df+a>c+f+<<})r16] ARP(0,!16.,{>ceg+>cf<<})r32
  ARP(2,!1^2,{>cegb>e<<}) [2 ARP(2,!8,{>cegb>e<<})r16] ARP(0,!16.,{>ceg+>cf<<})r32
 ]

 [2
  ARP(2,!1,{a>c+ef+<})ARP(0,!4,{a>c+f+<})ARP(0,!4,{a>c+f+a<})
  ARP(2,!1,{g+b>c+e<})ARP(2,!4,{g+>c+e<})ARP(2,!4,{g+>c+eg+<})
 ]

 [3
  ARP(2,!1,{f+>c+f+<})
  v(MML(v)-10)
 ]
 EP.onTime(127,0,!1^1)
 ARP(2,!1^1,{f+>c+f+<})



//------------------------------------
// Track 5 : 
//------------------------------------
TR(5) CH(5) P(117)
@39 v105
FineTune(58)

 o2 q70 l16

 [3
  [8 d4] [8 c4]
 ]

 [7 d4]
 d>dcc+<


 [2
  [2
   [8 d4] [8 e4]
  ]

  [2
   [8 f+4] [8 e4]
  ]

  a1r2.e4
 ]

[2
 [4
  [8 f+4]
  [8 g4]
 ]

 [2
  [6 f+4]
  [6 e4]
 ]
 f+1r2.d>dcc+<
:
 [4
  [8 d4] [8 c4]
 ]

  [2
   [8 d4] [8 e4]
  ]

  [2
   [8 f+4] [8 e4]
  ]

  a1r2.e4
]

 [2
  d1^1
  c1^1
 ]

 [4
  [8 d4] : [8 c4]
 ]
 [4 c4]
 c2r4c16c16


 [4
  [8 f+4]
  [8 g4]
 ]

 [2
  [6 f+4]
  [6 e4]
 ]
 f+1^1


// - detune -
TR(15) CH(15) P(10)
@39 v105
FineTune(70)

 o2 q70 l16

 [3
  [8 d4] [8 c4]
 ]

 [7 d4]
 d>dcc+<


 [2
  [2
   [8 d4] [8 e4]
  ]

  [2
   [8 f+4] [8 e4]
  ]

  a1r2.e4
 ]

[2
 [4
  [8 f+4]
  [8 g4]
 ]

 [2
  [6 f+4]
  [6 e4]
 ]
 f+1r2.d>dcc+<
:
 [4
  [8 d4] [8 c4]
 ]


  [2
   [8 d4] [8 e4]
  ]

  [2
   [8 f+4] [8 e4]
  ]

  a1r2.e4
]

 [2
  d1^1
  c1^1
 ]

 [4
  [8 d4] : [8 c4]
 ]
 [4 c4]
 c2r4c16c16


 [4
  [8 f+4]
  [8 g4]
 ]

 [2
  [6 f+4]
  [6 e4]
 ]
 f+1^1


//------------------------------------
// Track 6 : 
//------------------------------------
TR(6) CH(6) P(64)
//@82,110,2
@111
v103
M.onNoteWave(20,90,!2)
 [4 r1]

 [8 r1]
 r1r1
 
 o6 l8 q87


 [2
  e16&!16f4.. f16&!16g4.. g16&!16a2^8. a8&!8>c8< b2...a32g+32 g1
  e16&!16f4.. f16&!16g4.. g16&!16a2^8. a8&!8>d8 c2.<b16a16g16a16g1
  a2..a16a16 a.g.f+e.f+.d
  g2..a b2..a16g16
  f+2..f+16f+16 f+.e.d f+.e.d
  c4.c16d16 e4.e16f+16 g2g8&!8b4.
  a1 r1
 ]

[2
 e8&!8f+4. g8&!8a4. a32&g+4... f+32&e4...
 d32&c+4... c32&<b4... >c32&c+4... d16&!16e4..
 e8&!8f+4. g8&!8a4. a32&g+4... f+32&e4...
 g4&!4b1^4 b8&!8>d4.<
 l16
 af+g+a bag+f+ >c+<bag+ >dc+<ba b8ba bag+f+ a8g+f+bag+e
 c+16&!16d8c+8.d8 d16&!16e8d8.e8 f+ef+g+ ag+ab a8&!8>c+4.
 rd32&e32re edc+<b a.g+.f+b.a.g+ <b8&!8>c+2. c+d
 e4.de f+2 g2 g+2

 l8
 ag+f+g+f+e rba>c+<ba
 g+f+ef+ed rag+f+ab
 ag+f+g+f+e rba>c+<ba  r-1. >c+<babag+ r>dc+edc+<
 g+f+ef+ed rc+<b>c+de  r-1. bag+ag+f+ ref+ef+g+

 'f+1.c+1.'r2
:
 [16 r1]


  e16&!16f4.. f16&!16g4.. g16&!16a2^8. a8&!8>c8< b2...a32g+32 g1
  e16&!16f4.. f16&!16g4.. g16&!16a2^8. a8&!8>d8 c2.<b16a16g16a16g1
  a2..a16a16 a.g.f+e.f+.d
  g2..a b2..a16g16
  f+2..f+16f+16 f+.e.d f+.e.d
  c4.c16d16 e4.e16f+16 g2g8&!8b4.
  a1 r1
]

 [24 r1]

 e8&!8f+4. g8&!8a4. a32&g+4... f+32&e4...
 d32&c+4... c32&<b4... >c32&c+4... d16&!16e4..
 e8&!8f+4. g8&!8a4. a32&g+4... f+32&e4...
 g4&!4b1^4 b8&!8>d4.<
 l16
 af+g+a bag+f+ >c+<bag+ >dc+<ba b8ba bag+f+ a8g+f+bag+e
 c+16&!16d8c+8.d8 d16&!16e8d8.e8 f+ef+g+ ag+ab a8&!8>c+4.
 rd32&e32re edc+<b a.g+.f+b.a.g+ <b8&!8>c+2. c+d
 e4.de f+2 g2 g+2

 l8
 ag+f+g+f+e rba>c+<ba
 g+f+ef+ed rag+f+ab
 ag+f+g+f+e rba>c+<ba  r-1. >c+<babag+ r>dc+edc+<
 g+f+ef+ed rc+<b>c+de  r-1. bag+ag+f+ ref+ef+g+

 'f+1.c+1.'r2
 


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

 o5 l16 v120

 [139 r1]
 r2.ref+g+

 ab>ce rere32e32 eee32e32r edc<b
 >c<bag rgaf+ bg>c<a >d24c24<b24ag
 agf+a raga baga bab>c
 dd32d32dd rd32d32dd ree32e32e rcc32c32c<

 babg ab>cd f+gf+d c<bag
 af+bg af+ge ref+e f+g32g32ab32b32
 >cc32c32cc<bb32b32bb >dd32d32dd cc32c32cc
 ec32c32cf+ c32c32cgc32c32 cac32c32c bagf+

 ecd<b> c<abg af+ge f+dec
 <b>cde ref+g rgab >c<ab24a24g24
 aa32a32ag g32f32gbb32b32 bgg32g32g >cc32c32c<b32b32>
 c<bag> dc<ba >ee32e32ee e32e32<e>e32e32e

 dced f+edc <bag>c <ba>dc
 <b>ed c<bag f+gf+g abagf+
 ge32e32ea e32e32ebe32e32 >c<e32e32e>d <e32e32e>e<e32>f+32
 gg32g32gg [4 gg32g32gg v(MML(v)-13)]


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

@27,90,0
//@1,100,0
//@25,90,1
//@27,7,0
l16
Rhythm {
  
  [4
   v110 b4b4b4b4 r-1 [4 v90ccv70ov70f]
  ]
  r-1
  v90rs8v70s8v80s8v60s8 sv80 ss v90 s32s32s v100 ss

  [2
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 v120 e1 r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v60rs8sv100 s8.v70s8s8.v100sv90s8. r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 [4 v90ccv70ov70f]
   :
   v110 b4b4b4b4 r-1 v60rs8sv100 s8ss v70sv110qaa zzwg   r-1 [4 v90ccv70ov70f]
  ]
  v110 b4b4b4b4 r-1 v60rs8v90s v100ssv110zz qazq azwg  r-1 [4 v90ccv70ov70f]

  v110 b4b4b4b4 r-1 v120 y1 r-1 [4 v90ccv70ov70f]
  v110 b4b4b4b4 r-1 v60rs8v90s v100ssv110zz qazq azwg  r-1 [4 v90ccv70ov70f]


 [2
  [2
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 v120 e1 r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v60rs8sv100 s8.v70s8s8.v100sv90s8. r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 [4 v90ccv70ov70f]
   :
   v110 b4b4b4b4 r-1 v60rs8sv100 s8ss v70sv110qaa zzwg   r-1 [4 v90ccv70ov70f]
  ]
  v110 b4b4b4b4 r-1 v60rs8v90s v100ssv110zz qazq azwg  r-1 [4 v90ccv70ov70f]

  [2
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 v120 e1 r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v60rs8sv100 s8.v70s8s8.v100sv90sv110az r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 [4 v90ccv70ov70f]
   :
   v110 b4b4b4b4 r-1 v60rs8sv100 s8v110zw v70sv110qaa zzwg   r-1 [4 v90ccv70ov70f]
  ]
  v110 b4b4b4b4 r-1 [4 v110azv100s] v90s32s32v100sv110ss  r-1 [4 v90ccv70ov70f]

  v110 b4b4b4b4 r-1 v100 s1 r-1 v120 y1
  v110 b4r2b4   r-1 v110 i2. r16 v80[3 s24] v100 s16
 ]

[2
 [2
  v110 b4b4b4b4    r-1 [2 r4v65sv50s8.] r-1 v120 e1 r-1 [4 v90cv60cv70cv60c]
  [2 v110 b4b4b4b4 r-1 [2 r4v65sv50s8.] r-1 [4 v90cv60cv70cv60c] ]
  :
  v110 b4b4b4b4    r-1 r4v65sv50s8. rs8.v65sv50s8v65s32s32 r-1 [4 v90cv60cv70cv60c]
 ]
 v110 b4b4b4b4    r-1 v70s8v80s8v90s8v100s8 v80ssv90ssv100sv110sv105aw r-1 [3 v90cv60cv70cv60c] v90ccv70ov70f

 [2
  v110 b4b4b4b4 r-1 v110 r4s8.v70s8s8.v110sv100s8v65s r-1 v120 y1 r-1 [4 v90ccv70ov70f]
  [2 v110 b4b4b4b4 r-1 v110 r4s8.v70s8s8.v110sv100s8v65s r-1 [4 v90ccv70ov70f] ]
  :
  v110 b4b4b4b4 r-1 v110 r4s8.v70s v100gqazawss r-1 [4 v90ccv70ov70f]
 ]
 v110 b4b4b4b4 r-1 v100 azsa zsaz sazs sswg r-1 v100 i1 r-1 [4 v90ccv70ov70f]

 [2
  v110 b4b4b4 r-2. v110 r4s8.v70s r4 r-2. v120 y2. r-2. [3 v90ccv70ov70f]
  v110 b4b4b4 r-2. v110 s8.v70sr4 v110sv90rss r-2. [3 v90ccv70ov70f]
  v110 b4b4b4 r-2. v110 r4s8.v70s r4 r-2. v120 e2. r-2. [3 v90ccv70ov70f]
  :
  v110 b4b4b4 r-2. v110 s8.v70s r4 v110sv90rss r-2. [3 v90ccv70ov70f]
 ]
 v110 b4b4b4 r-2. v110 s8.v70s v80sv90sv100sv110s v100 zqaw r-2. [3 v90ccv70ov70f]

 v110 b1 r-1 v120 y1
 v110 b4b4b4b4
:
 [2
  [2
   v110 b4b4b4b4 r-1 v110 r4s8.v70s8s8.v110sv100s8v65s r-1 v120 y1 r-1 [4 v90ccv70ov70f]
   [2 v110 b4b4b4b4 r-1 v110 r4s8.v70s8s8.v110sv100s8v65s r-1 [4 v90ccv70ov70f] ]
   :
   v110 b4b4b4b4 r-1 v110 r4s8.v70s v100gqazawss r-1 [4 v90ccv70ov70f]
  ]
  v110 b4b4b4b4 r-1 v100 azsa zsaz sazs sswg r-1 v100 i1 r-1 [4 v90ccv70ov70f]
 ]


 
  [2
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 v120 e1 r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v60rs8sv100 s8.v70s8s8.v100sv90s8. r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 [4 v90ccv70ov70f]
   :
   v110 b4b4b4b4 r-1 v60rs8sv100 s8ss v70sv110qaa zzwg   r-1 [4 v90ccv70ov70f]
  ]
  v110 b4b4b4b4 r-1 v60rs8v90s v100ssv110zz qazq azwg  r-1 [4 v90ccv70ov70f]

  [2
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 v120 e1 r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v60rs8sv100 s8.v70s8s8.v100sv90sv110az r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 [4 v90ccv70ov70f]
   :
   v110 b4b4b4b4 r-1 v60rs8sv100 s8v110zw v70sv110qaa zzwg   r-1 [4 v90ccv70ov70f]
  ]
  v110 b4b4b4b4 r-1 [4 v110azv100s] v90s32s32v100sv110ss  r-1 [4 v90ccv70ov70f]

  v110 b4b4b4b4 r-1 v100 s1 r-1 v120 y1
  v110 b4r2b4   r-1 v110 i2. r16 v80[3 s24] v100 s16
]

 [2
  v110 b2..b8         r-1 v127 'e1y1'
  v110 b4.b4.b4       r-1 r2.. v100 [3 i24]
  v110 b2..b8         r-1 v127 'e1y1'
  :
  v110 b4.b4.b8b16b16 r-1 r2.. v100 [3 d24]
 ]
 v110 b4b4b4b8bb r-1 v90rs8v70s8v80s8v60s8 sv80 ss v90 s32s32s v100 ss

 [2
  [2
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 v120 e1 r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v60rs8sv100 s8.v70s8s8.v100sv90s8. r-1 [4 v90ccv70ov70f]
   :
   v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 [4 v90ccv70ov70f]
   v110 b4b4b4b4 r-1 v60rs8sv100 s8ss v70sv110qaa zzwg   r-1 [4 v90ccv70ov70f]
  ]
  :
  v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 [4 v90ccv70ov70f]
  v110 b4b4b4b4 r-1 v60rs8v90s v100ssv110zz qazq azwg  r-1 [4 v90ccv70ov70f]
 ]
 v110 b4b4b4b4 r-1 v100 r4s8.v70s8s8.v100sv90s8.      r-1 [4 v90ccv70ov70f]
 v110 b4r4b4b4 r-1 r2 v100 s32s32sss v110 s32s32szz r-1 v127 'e2y2' [2 v90ccv70ov70f]

 [2
  v110 b4b4b4b4    r-1 [2 r4v65sv50s8.] r-1 v120 e1 r-1 [4 v90cv60cv70cv60c]
  [2 v110 b4b4b4b4 r-1 [2 r4v65sv50s8.] r-1 [4 v90cv60cv70cv60c] ]
  :
  v110 b4b4b4b4    r-1 r4v65sv50s8. rs8.v65sv50s8v65s32s32 r-1 [4 v90cv60cv70cv60c]
 ]
 v110 b4b4b4b4    r-1 v70s8v80s8v90s8v100s8 v80ssv90ssv100sv110sv105aw r-1 [3 v90cv60cv70cv60c] v90ccv70ov70f


 [2
  v110 b4b4b4b4 r-1 v110 r4s8.v70s8s8.v110sv100s8v65s r-1 v120 y1 r-1 [4 v90ccv70ov70f]
  [2 v110 b4b4b4b4 r-1 v110 r4s8.v70s8s8.v110sv100s8v65s r-1 [4 v90ccv70ov70f] ]
  :
  v110 b4b4b4b4 r-1 v110 r4s8.v70s v100gqazawss r-1 [4 v90ccv70ov70f]
 ]
 v110 b4b4b4b4 r-1 v100 azsa zsaz sazs sswg r-1 v100 i1 r-1 [4 v90ccv70ov70f]

 [2
  v110 b4b4b4 r-2. v110 r4s8.v70s r4 r-2. v120 y2. r-2. [3 v90ccv70ov70f]
  v110 b4b4b4 r-2. v110 s8.v70sr4 v110sv90rss r-2. [3 v90ccv70ov70f]
  v110 b4b4b4 r-2. v110 r4s8.v70s r4 r-2. v120 e2. r-2. [3 v90ccv70ov70f]
  :
  v110 b4b4b4 r-2. v110 s8.v70s r4 v110sv90rss r-2. [3 v90ccv70ov70f]
 ]
 v110 b4b4b4 r-2. v110 s8.v70s v80sv90sv100sv110s v100 zqaw r-2. [3 v90ccv70ov70f]

 v110 b2..b16b16 r-1 v127 y2.. v90[3 d24]
 v110 b2..b16b16 r-1 v127 e2.. v90[3 d24]
 v110 b2..b16b16 r-1 v127 y2.. v90[3 d24]
 v110 b1 r-1 v127 'e1y1'

}


//------------------------------------
// Track 11 : パーカッション
//------------------------------------
TR(11) CH(10)
l16

 [4
  v95 o4 [2 ra-rra-rra-] r-1 v80 o5 [2 ed+de d+ded+] r-1 v82 o5 [4 aa>e<c]
 ]

 [8
  v95 o4 [2 ra-rra-rra-] r-1 v80 o5 [2 ed+de d+ded+] r-1 v82 o5 [4 aa>e<c]
 ]

 v95 o4 [2 ra-rra-rra-] r-1 v80 o5 [2 ed+de d+ded+] r-1 v82 o5 [4 aa>e<c]
 v95 o4 [2 a-a-ra-a-ra-a-] r-1 v80 o5 [2 ed+de d+ded+] r-1 v82 o5 [3 aa>e<c] >e<cac


 [2
  [8
   v95 o4 [2 ra-<c+>a-a-r<d+>a-] r-1 v80 o5 [2 ed+de d+ded+] r-1 v82 o5 [4 a>e<ca]
  ]
  [4
   v95 o4 [2 ra-<c+>a-a-r<d+>a-] r-1 v80 o5 [2 ed+de d+edd+] r-1 v82 o5 [4 a>e<ac]
   v95 o4 [2 ra-<c+>a-a-r<d+d+>] r-1 v80 o5 [2 ed+de d+edd+] r-1 v82 o5 [4 a>e<ac]
  ]

  v95 o4 [2 ra-rra-rra-] r-1 v82 o5 [4 aa>e<c]
  v15 o3 [2 d+8.d+8.d+8] r-4 v82 o5a>e24<c24a24c
 ]

[2
 [8
  v95 o4 a-r<c+>ra-r<d+>r  r-2 v100 o5 d+dee d+ded+
  v95 o4 a-r<c+>a-ra-<d+>r r-2 v100 o5 ed+ed ed+dd+
 ]

 [8
  v95 o4 a-r<c+>ra-r<d+>r  r-2 v100 o5 d+dee d+ded+ r-2 v82 o5 ac>e<a rac>e<
  v95 o4 a-r<c+>a-ra-<d+>r r-2 v100 o5 ed+ed ed+dd+ r-2 v82 o5 r>e<ca rac>e<
 ]

 [8
  v95 o4 <c+r>a-<r c+>a-r<c+ >a-rra- r-2. v100 o5 d+dee d+ded+ d+red+ r-2. v82 o5 a>e<ra rac>e< rra>e<
 ]
 r1
 v95 o4 [4 a-4] r-4 v100 o5 [2 d+24d24e24] r-4 v82 o5 a>e<ca
:
 [8
  v95 o4 [2 ra-rra-rra-] r-1 v80 o5 [2 d+rer rder] r-1 v82 o5 [2 ra>re< rc>e<a]
 ]
 [8
  v95 o4 [2 ra-rra-rra-] r-1 v80 o5 [2 ed+de d+ded+] r-1 v82 o5 [2 aa>e<c rc>e<a]
 ]


  [8
   v95 o4 [2 ra-<c+>a-a-r<d+>a-] r-1 v80 o5 [2 ed+de d+ded+] r-1 v82 o5 [4 a>e<ca]
  ]
  [4
   v95 o4 [2 ra-<c+>a-a-r<d+>a-] r-1 v80 o5 [2 ed+de d+edd+] r-1 v82 o5 [4 a>e<ac]
   v95 o4 [2 ra-<c+>a-a-r<d+d+>] r-1 v80 o5 [2 ed+de d+edd+] r-1 v82 o5 [4 a>e<ac]
  ]

  v95 o4 [2 ra-rra-rra-] r-1 v82 o5 [4 aa>e<c]
  v15 o3 [2 d+8.d+8.d+8] r-4 v82 o5a>e24<c24a24c
]

 [7
  v95 o4 [2 a-rr<c+>rra-r] r-1 v80 o5 [2 rre rrd+ rd] // r-1 v82 o5 [2 r>e<rcr>e<ra]
 ]
 v95 o4 [2 a-rr<c+>rra-r] r-1 v80 o5 [2 rre rrd+ rd] r-1 v82 o5 [2 r>e<rcr>e<ra]

 [15
  v95 o4 [2 ra-rra-rra-] r-1 v80 o5 [2 ed+de d+ded+] r-1 v82 o5 [2 aa>e<c rc>e<a]
 ]
 v95 o4 a-4r4a-4a-8<c+c+> r-4 v80 o5 edd+d r-4 v82 o5 ca>e<a


 [8
  v95 o4 a-r<c+>ra-r<d+>r  r-2 v100 o5 d+dee d+ded+
  v95 o4 a-r<c+>a-ra-<d+>r r-2 v100 o5 ed+ed ed+dd+
 ]

 [8
  v95 o4 a-r<c+>ra-r<d+>r  r-2 v100 o5 d+dee d+ded+ r-2 v82 o5 ac>e<a rac>e<
  v95 o4 a-r<c+>a-ra-<d+>r r-2 v100 o5 ed+ed ed+dd+ r-2 v82 o5 r>e<ca rac>e<
 ]

 [8
  v95 o4 <c+r>a-<r c+>a-r<c+ >a-rra- r-2. v100 o5 d+dee d+ded+ d+red+ r-2. v82 o5 a>e<ra rac>e< rra>e<
 ]

 [3
  v95 o4 a-4r4r4r4 r-1 v82 o5 'a4>e4<'r2 a>e<ca r-1 v100 o4 e4r2 d+edd+
 ]