//-----------------------------------------------
// Morning routines
// (C)Yax
//-----------------------------------------------
ResetGM();
TrackName     = {"Morning routines"}
Copyright     = {"Yax"}

Include(bend.h)

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)
}



// テンポ
Tempo=126



//------------------------------------
// Track 1 : Bass
//------------------------------------
TR(1) CH(1) P(60)
@37,90,1 o2 l16 v90
REV(40)
CHO(50)
Slur(0)
 r4
 [4
  e8rr rrea g+8rr rrg+>c+<
  :
  b8rr rrbf+ g+8rr rrg+d
 ]
 b8rr rrbf+ brrb8.g+g+

 [2
  [2
   a8rarrar a8rarr>a<r
   f+8rf+rrf+r f+8rf+rr>f+<r
   g+8rg+rrg+r g+8rg+rr>g+<r
   :
   e8rerrer e8rerr>e<r
  ]
  e8rerr>er< d8e8g+8b8

  [2
   >c8rc8rcr c8<g8c8&!8e8
   a8ra8rar a8d8e16f16f+8
   g8rg8rgr g8>d8<b8a16&!16a-16
   :
   g8re8rgr b8gb>cde8<
  ]
  :
  b8rb8rbr g4g+4
 ]
 b8rb8rbr g8>g8<a8a>a<

 [4
  e8rr rrea g+8rr rrg+>c+<
  :
  b8rr rrbf+ g+8rr rrg+d
 ]
 b8rr rrbf+ brrb8.g+g+

 [4
  a8rarrar a8rarr>a<r
  f+8rf+rrf+r f+8rf+rr>f+<r
  g+8rg+rrg+r g+8rg+rr>g+<r
  :
  e8rerrer e8rerr>e<r
 ]
 e8rerr>er< d8e8g+8b8

 [2
  >c8rc8rcr c8<g8c8&!8e8
  a8ra8rar a8d8e16f16f+8
  g8rg8rgr g8>d8<b8a16&!16a-16
  :
  g8re8rgr b8gb>cde8<
 ]
 b8rb8rbr g8>g8<a8a>a<

 [4
  e8rr rrea g+8rr rrg+>c+<
  :
  b8rr rrbf+ g+8rr rrg+d
 ]
 b8rr rrbf+ brrb8.g+g+

 [2
  a8rarrar a8rarr>a<r
  f+8rf+rrf+r f+8rf+rr>f+<r
  g+8rg+rrg+r g+8rg+rr>g+<r
  :
  e8rerrer e8rerr>e<r
 ]
 e8rerr>er< d8e8g+8b8

 [2
  >c8rc8rcr c8<g8c8&!8e8
  a8ra8rar a8d8e16f16f+8
  g8rg8rgr g8>d8<b8a16&!16a-16
  :
  g8re8rgr b8gb>cde8<
 ]
 b8rb8rbr g8>g8<a8a>a<

 [4
  e8rr rrea g+8rr rrg+>c+<
  :
  b8rr rrbf+ g+8rr rrg+d
 ]
 b8rr rrbf+ brrb8.g+g+

 @34,90,1 o2 v90
 a4.&f+8 g+&a>d8c+<b8a
 b&>c+e&g+ bag+f+g+e<b&>e ebg+f+
 g+b>f+32&g32&g+<b>e32&f32&f+f+ ed<b&>d< bad&e
 a>ea<a >c+&<ag+e c+<bag+ BendEx(!4,!16,{o4a},{o4c+}) c+4

 f+df+a8f+a g+8eg+b8>c+&<bg+
 bg+b>d8c+<b >c+8<a>c+e8c+&<a8
 f+4f+8af+ f+8a8g+8f+8

@37,90,1 o2 l16 v90
 b8>br< a+8>a+r< g+8>g+r< f+8>f+<f+

[4
 [4
  e8rr rrea g+8rr rrg+>c+<
  :
  b8rr rrbf+ g+8rr rrg+d
 ]
 b8rr rrbf+ brrb8.g+g+
]

 e8rr rrr g+8>g+<a+8 bb>br


//------------------------------------
// Track 2 : Melo Synth
//------------------------------------
TR(2) CH(2) P(68)
@91 o5 l16 v116
M.onNoteWave(0,70,!2)
REV(60)
CHO(20)
 r4
 EP(127)
 [2
  eg+ag+ f+ed>d rdc+r< ar>c+r<
  b8ra8rg+8rf+g+ag+rf+r
  eg+ag+ f+ed>d rdc+r ef+g+a
  :
  brar g+f+re dc+r<b arg+f+
 ]
 brarg+arb^2

 EP(115)
 l16
 [2
  r4.<a8 b8.>c+8.e8  d4.ef+ edf+e dc+<ba
  g+8.e8.>c+8 e8d8c+8<ba g+8.e8.b8 >e8dc+<bg+f+g+
  aa>a2g+f+g+ab>c+< a4.df+a8.f+edc+d
  e.d.e f+.g+.a >c+8<bag+.d.e g+2b4a8b8
  BendEx(!2,!4,{o6c},{o5c})c2r2
  [7 r1]
 ]
<
 EP(127)
 [2
  eg+ag+ f+ed>d rdc+r< ar>c+r<
  b8ra8rg+8rf+g+ag+rf+r
  eg+ag+ f+ed>d rdc+r ef+g+a
  :
  brar g+f+re dc+r<b arg+f+
 ]
 brarg+arb^2

 [24 r1]

<
 EP(127)
 [2
  eg+ag+ f+ed>d rdc+r< ar>c+r<
  b8ra8rg+8rf+g+ag+rf+r
  eg+ag+ f+ed>d rdc+r ef+g+a
  :
  brar g+f+re dc+r<b arg+f+
 ]
 brarg+arb^2

 EP(115)
 l16
 r4.<a8 b8.>c+8.e8  d4.ef+ edf+e dc+<ba
 g+8.e8.>c+8 e8d8c+8<ba g+8.e8.b8 >e8dc+<bg+f+g+
 aa>a2g+f+g+ab>c+< a4.df+a8.f+edc+d
 e.d.e f+.g+.a >c+8<bag+.d.e g+2b4a8b8
 BendEx(!2,!4,{o6c},{o5c})c2r2
 [7 r1]

<
 EP(127)
 [2
  eg+ag+ f+ed>d rdc+r< ar>c+r<
  b8ra8rg+8rf+g+ag+rf+r
  eg+ag+ f+ed>d rdc+r ef+g+a
  :
  brar g+f+re dc+r<b arg+f+
 ]
 brarg+arb^2

 [8r1]
 <
 [2
  eg+ag+ f+ed>d rdc+r< ar>c+r<
  b8ra8rg+8rf+g+ag+rf+r
  eg+ag+ f+ed>d rdc+r ef+g+a
  :
  brar g+f+re dc+r<b arg+f+
 ]
 brarg+arb b8rb16^4<

 EP(127)
 v120
 r4>a32&a+32&b1^2^16>c+d 
 d32&d+32&e2...d8.c+8.<b8a8.g+8.f+8l16
 e2.^16c+dd+ e2..aa+ 
 b1^2r4.>c+d

 e2 l24 ef+e dc+d c+<ba bag+
 l16 f+4. g+f+ ede4.
 rdf+a>d8c+d c+12<b12a12 g+f+g+a
 b>c+<b>c+ dc+<b8 aba>c+< b>c+d<b

 >e2^16f+ed l24 c+deded l16
 <b>c+de f+ef+2g+a
 b8ag+ a8g+f+ g+12f+12e12 d12c+12<a12
 b4 a+32b32ag+a b4rb>c+d

 edc+e dc+ed c+edc+ edc+<b> f+32&g32&g+2.^16ec+<
 bag+2b8.a8. g+8.f+8.ed c+def+ g+ag+d
 e1^2d<b>c+def+g+a
 b1^4 ag+ab b32&>c32&c+r<b8 ag+f+

 v110
 eg+ag+ f+ed>d rdc+r< ar>c+r<


//------------------------------------
// Track 3 : Guiter
//------------------------------------
TR(3) CH(3) P(34)
@26 o4 l16 v56
REV(70)
CHO(70)
r4

 [4
  q40 ee   q80'>e8<b8'   q40 e  q80 '>e<b'  q40 e  q80'>e<b'
  q40 g+g+ q80'>g+8d8<'  q40 g+ q80 '>g+d<' q40 g+ q80'>g+d<'
  q40 f+f+ q80'>f+8c+8<' q40 f+ q80 '>f+c+<'q40 f+ q80'>f+c+<'
  :
  q40 g+g+ q80'>g+8e8<'  q40 g+ q80 '>g+e<' q40 g+ q80'>g+e<'
 ]
 q80 '>bg+e<' q40 g+g+ q80 '>b8.g+8.e8.<' q40 g+g+

 [2
  q40
  [2
   [2 rr'ae'rc+'ae'<aa>]
   [2 rr'af+'rd'af+'<aa>]
   [2 rr'g+e'rc+'g+e'<g+g+>]
   :
   [2 rr'g+e'r<b>'g+e'<g+b>]
  ]
  rr'g+e'r<b>'g+e'<g+b>
  rr'g+d'r<b>'g+d'<g+b>

  q50
  [2
   >ccrc rrcc rc8c rrcc< r-1 ggrg rrgg rg8g rrgg  r-1 ee<e>e <ee>ee <e>e<e>e <ee>ee
    aara rraa ra8a rraa  r-1 f+f+rf+ rrf+f+ rf+8f+ rrf+f+  r-1 dd<d>d <dd>dd <d>d<d>d <dd>dd
    ggrg rrgg rg8g rrgg  r-1 ddrd rrdd rd8d rrdd  r-1 <bbgb ggbb gbgb ggbb>
    :
    eere rree rg8g rrbb  r-1 <bbrb rrbb> re8e rrgg  r-1 <ggeg eegg ebeb ee>ee
  ]
  eere rree r-2 <bbrb rrbb> r-2 <ggeg eegg>
  Slur(3) q90
  :
  <b16&>d16&e16&a16 c+16&e16&g+16&b16
 ]
 c+16&e16&g+16&b16 <b16&>d16&e16&a16

 [4
  q40 ee   q80'>e8<b8'   q40 e  q80 '>e<b'  q40 e  q80'>e<b'
  q40 g+g+ q80'>g+8d8<'  q40 g+ q80 '>g+d<' q40 g+ q80'>g+d<'
  q40 f+f+ q80'>f+8c+8<' q40 f+ q80 '>f+c+<'q40 f+ q80'>f+c+<'
  :
  q40 g+g+ q80'>g+8e8<'  q40 g+ q80 '>g+e<' q40 g+ q80'>g+e<'
 ]
 q80 '>bg+e<' q40 g+g+ q80 '>b8.g+8.e8.<' q40 g+g+

 q90<
 [2
  a8.&>c+8.&e8&a2<
  a8.&>d8.&f+8&a2<
  g+8.&>c+8.&e8&g+2<
  b8.&>e8.&g+8&b2<
 ]
 [2
  a8.&>c+8.&e8&a8.'>e16^4c+16^4<'<
  a8.&>d8.&f+8&a8. >'f+d''f+d'r'f+8d8' <<
  g+8.&>c+8.&e8&g+8. '>e16^4c+16^4<'<
  :
  b8.&>e8.&g+8&b8. 'g+b''g+b'r'g+8b8'<
 ]
  b8.&>e8.&g+8&b8.g+ ec+<b>c+ 

  [2
   >ccrc rrcc rc8c rrcc< r-1 ggrg rrgg rg8g rrgg  r-1 ee<e>e <ee>ee <e>e<e>e <ee>ee
    aara rraa ra8a rraa  r-1 f+f+rf+ rrf+f+ rf+8f+ rrf+f+  r-1 dd<d>d <dd>dd <d>d<d>d <dd>dd
    ggrg rrgg rg8g rrgg  r-1 ddrd rrdd rd8d rrdd  r-1 <bbgb ggbb gbgb ggbb>
    :
    eere rree rg8g rrbb  r-1 <bbrb rrbb> re8e rrgg  r-1 <ggeg eegg ebeb ee>ee
  ]
  eere rree r-2 <bbrb rrbb> r-2 <ggeg eegg>
  Slur(3) q90
  c+16&e16&g+16&b16 <b16&>d16&e16&a16

  
 [4
  q40 ee   q80'>e8<b8'   q40 e  q80 '>e<b'  q40 e  q80'>e<b'
  q40 g+g+ q80'>g+8d8<'  q40 g+ q80 '>g+d<' q40 g+ q80'>g+d<'
  q40 f+f+ q80'>f+8c+8<' q40 f+ q80 '>f+c+<'q40 f+ q80'>f+c+<'
  :
  q40 g+g+ q80'>g+8e8<'  q40 g+ q80 '>g+e<' q40 g+ q80'>g+e<'
 ]
 q80 '>bg+e<' q40 g+g+ q80 '>b8.g+8.e8.<' q40 g+g+

 q40
 [2
  [2 rr'ae'rc+'ae'<aa>]
  [2 rr'af+'rd'af+'<aa>]
  [2 rr'g+e'rc+'g+e'<g+g+>]
  :
  [2 rr'g+e'r<b>'g+e'<g+b>]
 ]
 rr'g+e'r<b>'g+e'<g+b>
 rr'g+d'r<b>'g+d'<g+b>

 q50
 [2
  >ccrc rrcc rc8c rrcc< r-1 ggrg rrgg rg8g rrgg  r-1 ee<e>e <ee>ee <e>e<e>e <ee>ee
   aara rraa ra8a rraa  r-1 f+f+rf+ rrf+f+ rf+8f+ rrf+f+  r-1 dd<d>d <dd>dd <d>d<d>d <dd>dd
   ggrg rrgg rg8g rrgg  r-1 ddrd rrdd rd8d rrdd  r-1 <bbgb ggbb gbgb ggbb>
   :
   eere rree rg8g rrbb  r-1 <bbrb rrbb> re8e rrgg  r-1 <ggeg eegg ebeb ee>ee
 ]
 eere rree r-2 <bbrb rrbb> r-2 <ggeg eegg>
 Slur(3) q90
 c+16&e16&g+16&b16 <b16&>d16&e16&a16

 [4
  q40 ee   q80'>e8<b8'   q40 e  q80 '>e<b'  q40 e  q80'>e<b'
  q40 g+g+ q80'>g+8d8<'  q40 g+ q80 '>g+d<' q40 g+ q80'>g+d<'
  q40 f+f+ q80'>f+8c+8<' q40 f+ q80 '>f+c+<'q40 f+ q80'>f+c+<'
  :
  q40 g+g+ q80'>g+8e8<'  q40 g+ q80 '>g+e<' q40 g+ q80'>g+e<'
 ]
 q80 '>bg+e<' q40 g+g+ q80 '>b8.g+8.e8.<' q40 g+g+
 
 [8 r1]

 [4
  [4
   q40 ee   q80'>e8<b8'   q40 e  q80 '>e<b'  q40 e  q80'>e<b'
   q40 g+g+ q80'>g+8d8<'  q40 g+ q80 '>g+d<' q40 g+ q80'>g+d<'
   q40 f+f+ q80'>f+8c+8<' q40 f+ q80 '>f+c+<'q40 f+ q80'>f+c+<'
   :
   q40 g+g+ q80'>g+8e8<'  q40 g+ q80 '>g+e<' q40 g+ q80'>g+e<'
  ]
  q80 '>bg+e<' q40 g+g+ q80 '>b8.g+8.e8.<' q40 g+g+
 ]

 r2.q80'af+'r'>c+<a'r


//------------------------------------
// Track 4/12 : Piano
//------------------------------------
TR(4) CH(4) P(94)
@3 o5 l16 v87 q90
REV(45)
CHO(10)
 r4

 [4
  'e4..g+4..b4..'
  'f+16^2a16^2d16^2'
  'e4..g+4..c+4..'
  :
  'f+16^2<b16^2>d16^2'
 ]
 r'f+<b>d'rr'f+8.<b8.>d8.' l64 >bagf edc<b l16

 [2
  'a1e1c+1'
  'a1f+1d1' 
  'g+1e1c+1'
  :
  'g+1e1<b1>'
 ]
 'g+2e2<b2>'
 'g+2e2d2<b2>'

 [2
  '>c8.<g8.e8.''>c8.<g8.e8.''>c8<g8e8' '>c2<g2e2'
  'a8.f+8.d8.''a8.f+8.d8.''a8f+8d8' 'a2f+2d2'
  'b8.g8.d8.''b8.g8.d8.''b8g8d8' 'b2g2d2'
  :
  'g8.e8.<b8.>''g8.e8.<b8.>''g8e8<b8>' 'g2e2<b2>'
 ]
 'g8.e8.b8.''g8.e8.b8.''g8e8b8' 'b4a4e4d4' 'b4g+4e4c+4'

 [2
  'a1e1c+1'
  'a1f+1d1' 
  'g+1e1c+1'
  :
  'g+1e1<b1>'
 ]
 'g+2e2<b2>'
 'g+2e2d2<b2>'

 [2
  '>c8.<g8.e8.''>c8.<g8.e8.''>c8<g8e8' '>c2<g2e2'
  'a8.f+8.d8.''a8.f+8.d8.''a8f+8d8' 'a2f+2d2'
  'b8.g8.d8.''b8.g8.d8.''b8g8d8' 'b2g2d2'
  :
  'g8.e8.<b8.>''g8.e8.<b8.>''g8e8<b8>' 'g2e2<b2>'
 ]
 'g8.e8.b8.''g8.e8.b8.''g8e8b8' 'b4g+4e4c+4' 'b4a4e4d4' 

 [4
  'e4..g+4..b4..'
  'f+16^2a16^2d16^2'
  'e4..g+4..c+4..'
  :
  'f+16^2<b16^2>d16^2'
 ]

 r'f+<b>d'rr'f+8.<b8.>d8.' r8

 [4
  'a1e1c+1'
  'a1f+1d1' 
  'g+1e1c+1'
  :
  'g+1e1<b1>'
 ]
 'g+2e2<b2>'
 'g+2e2d2<b2>'

 [2
  '>c8.<g8.e8.''>c8.<g8.e8.''>c8<g8e8' '>c2<g2e2'
  'a8.f+8.d8.''a8.f+8.d8.''a8f+8d8' 'a2f+2d2'
  'b8.g8.d8.''b8.g8.d8.''b8g8d8' 'b2g2d2'
  :
  'g8.e8.<b8.>''g8.e8.<b8.>''g8e8<b8>' 'g2e2<b2>'
 ]
 'g8.e8.b8.''g8.e8.b8.''g8e8b8' 'b4g+4e4c+4' 'b4a4e4d4' 

 [4
  'e4..g+4..b4..'
  'f+16^2a16^2d16^2'
  'e4..g+4..c+4..'
  :
  'f+16^2<b16^2>d16^2'
 ]
 r'f+<b>d'rr'f+8.<b8.>d8.' l64 >bagf edc<b l16

 [2
  'a1e1c+1'
  'a1f+1d1' 
  'g+1e1c+1'
  :
  'g+1e1<b1>'
 ]
 'g+2e2<b2>'
 'g+2e2d2<b2>'

 [2
  '>c8.<g8.e8.''>c8.<g8.e8.''>c8<g8e8' '>c2<g2e2'
  'a8.f+8.d8.''a8.f+8.d8.''a8f+8d8' 'a2f+2d2'
  'b8.g8.d8.''b8.g8.d8.''b8g8d8' 'b2g2d2'
  :
  'g8.e8.<b8.>''g8.e8.<b8.>''g8e8<b8>' 'g2e2<b2>'
 ]
 'g8.e8.b8.''g8.e8.b8.''g8e8b8' 'b4g+4e4c+4' 'b4a4e4d4' 

 [4
  'e4..g+4..b4..'
  'f+16^2a16^2d16^2'
  'e4..g+4..c+4..'
  :
  'f+16^2<b16^2>d16^2'
 ]
 r'f+<b>d'rr'f+8.<b8.>d8.' 'g+8d8e8'

 Slur(3)
 ARP(!64,!1,{<b>df+a})
 ARP(!64,!1,{<b>c+ea})
 ARP(!64,!1,{<b>deg+})
 <a8.&>c+8.&e8&g+2

 ARP(4,!4..,{<ab>df+})
 ARP(1,!2^16,{<b>c+eg+})
 ARP(4,!4..,{<b>df+g+})
 ARP(1,!2^16,{c+ef+a})

 '>c+1<a1f+1'
 '>d2<b2g+2'
 '>d+2<b2a2f+2'

 [4
  [4
   'e4..g+4..b4..'
   'f+16^2a16^2d16^2'
   'e4..g+4..c+4..'
   :
   'f+16^2<b16^2>d16^2'
  ]
  r'f+<b>d'rr'f+8.<b8.>d8.' 'f+8<a8b8>d8'
 ]

 r4..'bf+'r'bd''bf+'r'af+'r'>c+<a'

 
 
//
// solo part
//
TR(12) CH(12) P(74)
@3 o6 l16 v110 q90
REV(40)
 r4
 [63 r1]
 r2r4 def+g+

 'ae'ec 'a8e8''ae'ec< b>cde f+gab
 >cdc<b >dc<ba >def+e dc<ba
 bag'b8g8'd 'bg'gd'b8g8'd bab>c
 ebag f+edc <bagf+ edc<b

 l24 ab>c<b>cdcdedef+ ef+gf+ga b-bb-agf+ l16
 'af+'gf+'>d8<a8''>d+8<a+8''>e8<b8''>f+8.d8.''g8.e8.''a8f+8'
 bag a+64b32.rba baga gf+ed
 l24edcdc<bl16>c<bag e'b8g+8'e 'b8a8'ed

 v(MML(v)-10)
 [2
  g+b>c+<b ag+f+>f+ rf+er c+rer
  dc+<b>c+< baba g+ab>c+c+64d32.c+<ba
  g+b>c+<b ag+f+>f+ rf+er c+def+
  :
  g+rf+r edrc+ <barg+ f+red
 ]
 g+rf+ref+rg+^2

 [32 r1]
 [7 r1]
 r2.rc64c+32.<ba

 [3
  [2
   g+b>c+<b ag+f+>f+ rf+er c+rer
   dc+<b>c+< baba g+ab>c+c+64d32.c+<ba
   g+b>c+<b ag+f+>f+ rf+er c+def+
   :
   g+rf+r edrc+ <barg+ f+red
  ]
  :
  g+rf+ref+rg+^4<ref+g
 ]
 g+rf+ref+rg+^4<r4

 g+b>c+<b ag+f+>f+ rf+er c+rer


//------------------------------------
// Track 5 : E.Guiter
//------------------------------------
TR(5) CH(5) P(50)
@30 o5 l16 v90
FineTune(68)
M.onNoteWave(0,90,!4.)
REV(60)
CHO(60)
r4

 [15 r1]
 q96 

 [2
  r2.rg+ab
  b32&>c4..&<a64r64> d+32&e8^32 d8^32r32 e16r16 < BendEx(!8,!4^32,{o6d},{o5a})a2 a4.ga
  b2> c+16&d8 c8.d16r16< b2^8...&!16g64rgab>
  c2 d32&e-32&e4..d4.c<b a4g8a8
  :
  b4.>c&c+ d4.d&d+ e4.g2g+8
  BendEx(!2,!4..,{o6a},{o5a})<a2r2
  [6 r1]
 ]
 b4.>c&c+ d8c<b>c&c+d&d+ e4.f32&f+32&g4..g+a
 EP(117)
 b1^2..>c&c+<b1^2<bag+&abab&>c+<
 b1^2.^16ag+&f+ e1^2r4rf+gg+
 EP(127)

 ag+f+>d32&d+32&e2 eff+8 
 e4.ef+ e&dc+&<b a8b>c+
 d8ef+ g+ag+f+ g+f+ed l24 f+ededc+ l16
 <bg+b>e dd+&ed d+&ed+&e d+&e8e

 e32&f+32&g+32&a32^2 ef+g+ab>c+<
 bab8 ag+8a g+f+g+8 f+g+8f+
 l24 edc+d c+<bab >c+ded ef+g+f+ g+&ag+a& b>c+d&d+ l16
 d32&d+32&e2...<

 rra8g+f+8. ef+8c+<a8>c+
 d4..c+ def+e f+g+f+g+ a
 a32&a+32&b8 a8. g+8.b-32&b32&>c+8<bab>c+<
 b&ab>c+&<b>c+e4f+g+ l24f+edc+<bg+ l16

 <a>ea<a> ea<a>e a>e<ae< aea>e<
 l24 a>df+ df+a >df+a f+d<al16 >dc+<ba l12 g+f+e l16
 g+abg+8 abg+8 abg+8f+g+a
 g+f+e>e4^16<b2>
 EP.onNoteWave(127,0,!1^1)
 c1^1
 EP(127)
 [6 r1]
 [15 r1]
 <<
 r2.rg+ab
 b32&>c4..&<a64r64> d+32&e8^32 d8^32r32 e16r16 < BendEx(!8,!4^32,{o6d},{o5a})a2 a4.ga
 b2> c+16&d8 c8.d16r16< b2^8...&!16g64rgab>
 c2 d32&e-32&e4..d4.c<b a4g8a8
 b4.>c&c+ d8c<b>c&c+d&d+ e4.f32&f+32&g4..g+a

 EP(117)
 b1^2..>c&c+<b1^2<bag+&abab&>c+<
 b1^2.^16 b&>c+d e1^2.ref+g+ EP(100)

 BendEx(!4,!2.,{o6a},{o5a})<a1^2..b>c+
 c32&c+32&d4^16 d32&d+32&e4^16 e32&f32&f+8. BendEx(!4,!2.,{o6e},{o5e}) <e1
 g32&g+32&a8.rg+a a32&a+32&b4^16&b-32&a32&a-32&g32 r
 EP(110)
 a32&a+32&b8.rab b32&>c32&c+4^16&c32&<b32&b-32&a32 r
 b32&>c32&c+2... d2 BendEx(!4,!4,{o6d+},{o5d+})<d+2

 EP(105)
 [2
  [2
   [2
    eg+ag+ f+ed>d rdc+r< ar>c+r<
    b8ra8rg+8rf+g+ag+rf+r
    eg+ag+ f+ed>d rdc+r ef+g+a
    :
    brar g+f+re dc+r<b arg+f+
    EP(113)
   ]
   :
   brarg+arb b8rb16^4<
  ]
  brarg+arb>c64&c+16..r<b^4<
 ]

 eg+ag+ f+ed>d rdc+r< ar>c+r<


//------------------------------------
// Track 6 : 
//------------------------------------
TR(6) CH(6) P(64)
@30 o5 l16 v54
FineTune(60)
r16.
M.onNoteWave(0,90,!4.)
REV(60)
CHO(60)
r4

 [15 r1]
 q96 

 [2
  r2.rg+ab>
  c2e8.d8.e8 < BendEx(!8,!4,{o6d},{o5a})a2 a4.ga
  b2>d8.c8.d8< b2.rgab>
  c2d32&e-32&e4..d4.c<b a4g8a8
  :
  b4.>c&c+ d4.d&d+ e4.g2g+8
  BendEx(!2,!4,{o6a},{o5a})<a2r2
  [6 r1]
 ]
 b4.>c&c+ d8c<b>c&c+d&d+ e4.f32&f+32&g4..g+a
 EP(117)
 b1^2..>c&c+<b1^2<bag+&abab&>c+<
 b1^2.^16ag+&f+ e1^2r4rf+gg+
 EP(127)

 ag+f+>d32&d+32&e2 eff+8 
 e4.ef+ e&dc+&<b a8b>c+
 d8ef+ g+ag+f+ g+f+ed l24 f+ededc+ l16
 <bg+b>e dd+&ed d+&ed+&e d+&e8e

 e32&f+32&g+32&a32^2 ef+g+ab>c+<
 bab8 ag+8a g+f+g+8 f+g+8f+
 l24 edc+d c+<bab >c+ded ef+g+f+ g+&ag+a& b>c+d&d+ l16
 d32&d+32&e2...<

 rra8g+f+8. ef+8c+<a8>c+
 d4..c+ def+e f+g+f+g+ a
 a32&a+32&b8 a8. g+8.b-32&b32&>c+8<bab>c+<
 b&ab>c+&<b>c+e4f+g+ l24f+edc+<bg+ l16

 <a>ea<a> ea<a>e a>e<ae< aea>e<
 l24 a>df+ df+a >df+a f+d<al16 >dc+<ba l12 g+f+e l16
 g+abg+8 abg+8 abg+8f+g+a
 g+f+e>e4^16<b2>
 EP.onNoteWave(127,0,!1^1)
 c1^1
 EP(127)
 [6 r1]
 [15 r1]
 <<
 r2.rg+ab
 b32&>c4..&<a64r64> d+32&e8^32 d8^32r32 e16r16 < BendEx(!8,!4^32,{o6d},{o5a})a2 a4.ga
 b2> c+16&d8 c8.d16r16< b2^8...&!16g64rgab>
 c2 d32&e-32&e4..d4.c<b a4g8a8
 b4.>c&c+ d8c<b>c&c+d&d+ e4.f32&f+32&g4..g+a
 EP(117)
 b1^2..>c&c+<b1^2<bag+&abab&>c+<
 b1^2.^16 b&>c+d e1^2.ref+g+ EP(100)

 BendEx(!4,!2.,{o6a},{o5a})<a1^2..b>c+
 c32&c+32&d4^16 d32&d+32&e4^16 e32&f32&f+8. BendEx(!4,!2.,{o6e},{o5e}) <e1
 g32&g+32&a8.rg+a a32&a+32&b4^16&b-32&a32&a-32&g32 r
 EP(110)
 a32&a+32&b8.rab b32&>c32&c+4^16&c32&<b32&b-32&a32 r
 b32&>c32&c+2... d2 BendEx(!4,!4,{o6d+},{o5d+})<d+2

 EP(105)
 [2
  [2
   [2
    eg+ag+ f+ed>d rdc+r< ar>c+r<
    b8ra8rg+8rf+g+ag+rf+r
    eg+ag+ f+ed>d rdc+r ef+g+a
    :
    brar g+f+re dc+r<b arg+f+
    EP(113)
   ]
   :
   brarg+arb b8rb16^4<
  ]
  brarg+arb>c64&c+16..r<b^4<
 ]

 eg+ag+ f+ed>d rdc+r< ar>c+r<


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


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


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



//------------------------------------
// Track 10 : ドラム系
//------------------------------------
Track(10) Channel(10)
REV(35)
// マクロ定義
// 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,}


v110
@1,100,0
Rhythm {
  l16
  v100 b4 r-4 sszz
  
  [2
   v100 b8rr rrrb b8rr rrbb    r-1 r4s4r4s4   r-1 v110 e8cc crcr crcc crcr
   [2 v100 b8rr rrrb b8rr rrbb r-1 r4s4r4s4   r-1 v110 crcc crcr crcc crcr]
   :
   v100 b8rr rrrb b8rr rrrb    r-1 r4s4r4sss8 r-1 v110 crcc crcr crcc crcr
  ]
  v100 b8rr rrrb b8rb rrbr    r-1 r4s4szzs8azz r-1 v110 crcc crcr i8ri8rrr

 [2
  [2
   v100 b8rb rrrr b8rb rrbr    r-1 r4m4r4s4      r-1 v110 e8cc crcc crcc crcc
   v100 b8rb rrrr b8rb rrbr    r-1 r4m4r4s4      r-1 v110 crcc crcc crcc ccof
   v100 b8rb rrrr b8rb rrbr    r-1 r4m4r4s4      r-1 v110 crcc crcc crcc crcc
   :
   v100 b8rb rrrr b8rb rrbb    r-1 r4m4r4s8v80ss r-1 v110 crcc crcc crcc frfr
  ]
  v100 b8rb rrbr b8rb rrbr    r-1 r4s8.v60s v100 rsss aazz r-1 v110 crcc urfr frfr frfr

  [2
   v100 b8rb rrrr b8rb rrrb    r-1 r4s4r4s4   r-1 v110 e8cc crcr crcc crcr
   v100 b8rb rrrr b8rb rrrb    r-1 r4s4r4s4   r-1 v110 crcc crcr crcc crcr
   v100 b8rb rrrr b8rb rrrb    r-1 r4s4r4s4   r-1 v110 crcc crcr crcc crcr
   :
   v100 b8rb rrrr b8rb rrbr    r-1 r4s4r4sss8  r-1 v110 crcc crcr crcc rrrr
  ]
  :
  v100 b8rb rrrr b4b4 r-1 r4s8.v50s v100 gsss aazz r-1 v110 crcc crcr i8rr rrrr
 ]
 v100 b8rb rrrr b4b4 r-1 r4s8.v50s v100 l12[6 'v90sv60g'] l16 r-1 v110 crcc y4 l12uiuuiu l16

  [2
   v100 b8rr rrrb b8rr rrbb    r-1 r4s4r4s4   r-1 v110 e8cc crcr crcc crcr
   [2 v100 b8rr rrrb b8rr rrbb r-1 r4s4r4s4   r-1 v110 crcc crcr crcc crcr]
   :
   v100 b8rr rrrb b8rr rrrb    r-1 r4s4r4sss8 r-1 v110 crcc crcr crcc crcr
  ]
  v100 b8rr rrrb b8rb rrbr    r-1 r4s4szzs8azz r-1 v110 crcc crcr i8ri8rrr

  [2
   [2
    v100 b8rb rrrr b8rb rrbr    r-1 r4m4r4s4      r-1 v110 e8cc crcc crcc crcc
    v100 b8rb rrrr b8rb rrbr    r-1 r4m4r4s8.v70s r-1 v110 crcc crcc crcc ccof
    v100 b8rb rrrr b8rb rrbr    r-1 r4m4r4s4      r-1 v110 crcc crcc crcc crcc
    :
    v100 b8rb rrrr b8rb rrbb    r-1 r4m4r4ssv80g8 r-1 v110 crcc crcc crcc frfr
   ]
   :
    v100 b8rb rrrr b8rb rrbb    r-1 r4v80sv70s8.r4v100sv70sv90sv70s r-1 v110 crcc crcc crcc frfr
  ]
  v100 b8rb rrbr b8rb rrbr    r-1 r4s8.v60s v100 rsss ssaa r-1 v110 crcc urfr frfr frfr

  [2
   v100 b8rb rrrr b8rb rrrb    r-1 r4s4r4s4   r-1 v110 e8cc crcr crcc crcr
   v100 b8rb rrrr b8rb rrrb    r-1 r4s4rv60s8.v100s8.v70s   r-1 v110 crcc crcr crcc crcr
   v100 b8rb rrrr b8rb rrrb    r-1 r4s4r4s4   r-1 v110 crcc crcr crcc crcr
   :
   v100 b8rb rrrr b8rb rrbr    r-1 r4s4rv70s8.v100sss8  r-1 v110 crcc crcr crcc rrrr
  ]
  v100 b8rb rrrr b4b4 r-1 r4s8.v50s v100 l12[6 'v90sv60g'] l16 r-1 v110 crcc y4 l12uiuuiu l16

  [2
   v100 b8rr rrrb b8rr rrbb    r-1 r4s4r4s4   r-1 v110 e8cc crcr crcc crcr
   [2 v100 b8rr rrrb b8rr rrbb r-1 r4s4r4s4   r-1 v110 crcc crcr crcc crcr]
   :
   v100 b8rr rrrb b8rr rrrb    r-1 r4s4r4sss8 r-1 v110 crcc crcr crcc crcr
  ]
  v100 b8rr rrrb b8rb rrbr    r-1 r4s4szzs8azz r-1 v110 crcc crcr i8ri8rrr

  [2
   v100 b8rb rrrr b8rb rrbr    r-1 r4m4r4s4      r-1 v110 e8cc crcc crcc crcc
   v100 b8rb rrrr b8rb rrbr    r-1 r4m4r4s4      r-1 v110 crcc crcc crcc ccof
   v100 b8rb rrrr b8rb rrbr    r-1 r4m4r4s4      r-1 v110 crcc crcc crcc crcc
   :
   v100 b8rb rrrr b8rb rrbb    r-1 r4m4r4s8v80ss r-1 v110 crcc crcc crcc frfr
  ]
  v100 b8rb rrbr b8rb rrbr    r-1 r4s8.v60s v100 rqaa zzss r-1 v110 crcc urfr frfr frfr

  [2
   v100 b8rb rrrr b8rb rrrb    r-1 r4s4r4s4   r-1 v110 e8cc crcr crcc crcr
   v100 b8rb rrrr b8rb rrrb    r-1 r4s4r4s4   r-1 v110 crcc crcr crcc crcr
   v100 b8rb rrrr b8rb rrrb    r-1 r4s4r4s4   r-1 v110 crcc crcr crcc crcr
   :
   v100 b8rb rrrr b8rb rrbr    r-1 r4s4r4sss8  r-1 v110 crcc crcr crcc rrrr
  ]
  v100 b8rb rrrr b4b4 r-1 r4s8.v50s v100 l12[6 'v90sv60g'] l16 r-1 v110 crcc y4 l12uiuuiu l16

  [2
   v100 b8rr rrrb b8rr rrbb    r-1 r4s4r4s4   r-1 v110 e8cc crcr crcc crcr
   [2 v100 b8rr rrrb b8rr rrbb r-1 r4s4r4s4   r-1 v110 crcc crcr crcc crcr]
   :
   v100 b8rr rrrb b8rr rrrb    r-1 r4s4r4sss8 r-1 v110 crcc crcr crcc crcr
  ]
  v100 b8rb rrbr r-2 r8.v60sv70sv80sv90sv100s r-2 v110 crcc ccof
  v100 b4b4 r-2 's12g12' [5 s12] r-2 v110 [2 f12u12i12]

  v100 b4r4b8.b8.r8 r-1 n4mm8.n4m8.m r-1 v100 y8f8[3 u8f8]
  v100 b4r4b8.b8.bb r-1 n4mm8.n4mmrm r-1 v100 [4 u8f8]
  v100 b4r4b8.b8.r8 r-1 n4mm8.n4mrmm r-1 v100 [4 u8f8]
  v100 b4r4b8.b8.b8 r-1 r2. v80wwv90ss r-1 v100 n4mm8.n4mm8m r-1 v100 [4 u8f8]

  v100 brrr rrbb rrrr brrr r-1 rrs8 azzg rrs8 qqaa r-1 v110 e4..y16^2
  v100 brbr rrbb rrbr brbr r-1 rrqq aazw rrss sszz r-1 v110 e4..y16^4i4
  v100 b4b4b4b8b8   r-1 rrv70ss v100rs8v80s v100ssww zzaa r-1 v110 e1
  v100 b4b8.bb4b8bb r-1 l24 qaz qaz qaz qaz g32g32 l16 v70s v80ss v90s64s32.s v100ss r-1 r2 v110 y2

 [4
  [2
   v100 b8rr rrrb b8rr rrbb r-1 r4s4r4s4      r-1 v110 e8cc crcr crcc crcr
   v100 b8rr rrrb b8rr rrbb r-1 r4s4r4s8.v70s r-1 v110 crcc crcr crcc crcr
   v100 b8rr rrrb b8rr rrbb r-1 r4s4r4s4      r-1 v110 crcc crcr crcc crcr
   :
   v100 b8rr rrrb b8rr rrrb    r-1 r4s4rv60s8.v100sszz  r-1 v110 crcc crcr crcc rrrr
  ]
  :
  v100 b8rr rrrb b8rr b.b.b    r-1 r4s8.v60srv60s8v100s [3 's12g12']  r-1 v110 crcc crcr crrr rrrr
 ]
 v100 b8rb rrbr r-2 r8.v60sv70sv80sv90sv100s r-2 v110 crcc ccof
 v100 b4b4 r-2 's12g12' [5 s12] r-2 v110 [2 f12u12i12]

 v100 b8rr rrrb8bb8b4 r-1 r4.. s8az8 's8g8''s8g8' r-1 e4.. i4 r 'y4e4'
 r1
}