//-----------------------------------------------
// from far east
// (C)Yax
//-----------------------------------------------

TrackName     = {"from far east"}
Copyright     = {"Yax"}

ResetGM();
r4
TrackSync;


//------------------------------------------------
// アルペジオ関数
//------------------------------------------------
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)
}

//------------------------------------------------
// ××ダンド関数
//------------------------------------------------
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() {
  EP.onTime(127,0,!1^1^1^1^1^1^1^2..)
}


//------------------------------------------------
// 全体の調整
//------------------------------------------------
TR(1)  V(107) REV(30) CHO(10)
TR(2)  V(105) REV(20) CHO(20)
TR(3)  V(110) REV(30) CHO(15)
TR(4)  V(110) REV(35) CHO(40)
TR(5)  V(110) REV(30) CHO(30)
TR(6)  V(110) REV(25) CHO(20)
TR(7)  V(100) REV(38) CHO(50)
TR(8)  V(110) REV(20) CHO(0)
TR(9)  V(110) REV(20) CHO(0)
TR(10) V(120) REV(30) CHO(0)


//------------------------------------------------
// テンポ
//------------------------------------------------
INT T  = 85
INT T1 = 140
INT TB = 50
Tempo=(T)


//------------------------------------------------
// キー
//------------------------------------------------
INT KEY=0

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



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

//------------------------------------
// Track 1 : 
//------------------------------------
TR(1) CH(1) P(84)
@108 v80
Slur(3)

  o4 l8
  [4
   e&f&a&b& >d&<b&a&f r-1 <b1>
   a&f&a&b& a&b&>d&e< r-1 e1
   d&e&f&a& b&a&f&e   r-1 <f1>
   f&d&f&a& b&a&b&>d< r-1 <b1>
  ]

  e&f&a&b& f&a&b&>d< r-1 <b2>c2
  ARP(3,!1,{eab>e<})

  l16
  [2
   [3 bafe] cefa
   [3 bafe] defa
   [3 >c<baf] efab
   [3 >c<baf] defa
  ]

 [2
  [2
   efab >ed<ba efab ab>de<
   defa fab>d <ab>de fd<ba
   cefa >ec<ba efab defa
   defa fab>d <ab>de aed<b
  ]

  [2
   dfab >d<baf dfab >dfd<b
   cdga >c<agd gb>cd< egbc
   eab>c ec<ba eb>cd <ab>ed<
   dgb>d fec<b gb>cd< : egb>c<
  ]
  : egb>c<
 ]
 >ec<bg

 l8
 defab2 <ab>def2
 <b>defg2 cefga2
 cefa>c2< <b>cdfa2
 ceab>c2< efab>ed<ba

 l16
 [2
  [4 dfb>c<]
  [4 egb>d<]
  [4 dea>c<]
  [4 gb>ce<]
 ]

  [8 r1]

  r4d4&<b4&>g4&e1
  r4d4&<b4&>b4&g2&e2
  r4d4&<a4&>e4&<b1>
  r4d4&<a4&>g4&d2&<b2>

  d4&e4&a4&b4
  a4&f4&d4&e4
  <b4&>d4&e4&a4
  ARP(!32,!1,{deab})

 [2
  [2
   efab >ed<ba efab ab>de<
   defa fab>d <ab>de fd<ba
   cefa >ec<ba efab defa
   defa fab>d <ab>de aed<b
  ]

  [2
   dfab >d<baf dfab >dfd<b
   cdga >c<agd gb>cd< egbc
   eab>c ec<ba eb>cd <ab>ed<
   dgb>d fec<b gb>cd< : egb>c<
  ]
  : egb>c<
 ]
 >ec<bg

 l8
 defab2 <ab>def2
 <b>defg2 cefga2
 cefa>c2< <b>cdfa2
 ceab>c2< efab>ed<ba

 l16
 [2
  [2
   [4 dfb>c<]
   [4 egb>d<]
   [4 dea>c<]
   [4 gb>ce<]
  ]
 ]

 FADEOUT()
  [2
   [4 dfb>c<]
   [4 egb>d<]
   [4 dea>c<]
   [4 gb>ce<]
  ]
 r1

//------------------------------------
// Track 2 : 
//------------------------------------
TR(2) CH(2) P(74)
@22 v70
M.onNoteWave(0,90,!1.)

/*
  // 笙の和音、オクターブ下だと"う"という楽器
  'a>eab>ef+<<'   // 笙
  'b>deab>f+<<'   // 一
  '>c+deg+ab<'    // 工
  '>deab>ef+<<'   // 
  '>eab>def+<<'   // 乙
  '>f+g+ab>df+<<' // 下
  '>f+gab>de<<'   // 十
  '>gab>de<<'     // 十 (双調)
  '>g+ab>cdf+<<'  // 美
  '>ab>def+<<'    // 行
  '>ab>cdef+<<'   // 比
*/

 [8 r1]

 o5 q95 l8
 EP.onNoteWave(80,127,!8.)
 ARP(0,!1,{a>eab>ef+<<})  // 笙
 ARP(0,!1,{b>deab>f+<<})  // 一
 ARP(0,!1,{>eab>def+<<})  // 乙
 ARP(0,!1,{>ab>def+<<})   // 行

 ARP(0,!1,{a>eab>ef+<<})  // 笙
 ARP(0,!2,{b>deab>f+<<})  // 一
 ARP(0,!2,{>gab>de<<})    // 十 (双調)
 ARP(0,!1,{>eab>def+<<})  // 乙
 ARP(0,!2,{>ab>def+<<})   // 行
 ARP(0,!2,{>ab>cdef+<<})  // 比

 ARP(0,!2,{a>eab>ef+<<})
 ARP(0,!2,{>ab>def+<<})
 r1

 [4 r1]
 ARP(0,!1,{a>eab>ef+<<})  // 笙
 ARP(0,!1,{b>deab>f+<<})  // 一
 ARP(0,!1,{>ab>def+<<})   // 行
 ARP(0,!1,{>eab>def+<<})  // 乙

  [2
   [8 r1]
   EP.onNoteWave(60,110,!4.)
   [2
    ARP(0,!1,{>eab>def+<<})
    ARP(0,!1,{b>deab>f+<<})
    ARP(0,!1,{>ab>def+<<})
    ARP(0,!1,{>gab>de<<})
   ]
  ]

  EP.onNoteWave(80,127,!8.)
  [2
   r ARP(0,!2..,{a>eab>ef+<<})
   r ARP(0,!2..,{>eab>def+<<})
   r ARP(0,!2..,{>ab>def+<<})
  :
   r ARP(0,!2..,{>gab>de<<})
  ]
  r ARP(0,!2..,{>deab>ef+<<})

  [8 r1]

  [8 r1]
  [8 r1]

  EP.onNoteWave(60,110,!4.)
  ARP(0,!1,{>ab>def+<<})
  ARP(0,!1,{>deab>ef+<<})
  ARP(0,!1,{b>deab>f+<<})
  ARP(0,!2.,{>eab>def+<<}) r4

 [2
  [8 r1]
  EP.onNoteWave(60,110,!4.)
  [2
   ARP(0,!1,{>eab>def+<<})
   ARP(0,!1,{b>deab>f+<<})
   ARP(0,!1,{>ab>def+<<})
   ARP(0,!1,{>gab>de<<})
  ]
 ]

  EP.onNoteWave(80,127,!8.)
  [2
   r ARP(0,!2..,{a>eab>ef+<<})
   r ARP(0,!2..,{>eab>def+<<})
   r ARP(0,!2..,{>ab>def+<<})
  :
   r ARP(0,!2..,{>gab>de<<})
  ]
  r ARP(0,!2..,{>deab>ef+<<})

  [8 r1]

 [2
  [2
   ARP(0,!1,{a>eab>ef+<<})
   ARP(0,!1,{>eab>def+<<})
   ARP(0,!1,{>ab>def+<<})
   ARP(0,!2,{>eab>def+<<}) ARP(0,!2,{b>deab>f+<<})
  ]
  :
  FADEOUT()
 ]



//------------------------------------
// Track 3 : 
//------------------------------------
TR(3) CH(3) P(54)
@78 v110
M.onNoteWave(10,60,!2.)

 o6 l8 q90
 [4 r1]

  e1
  a2 b2
  d1
  a2f2

  e2 b4..a32&f32
  e4..f32&e32 d4..c32&d32
  e2 f4..f+32&g32
  a2 b2

  e4..d32&e32 f4..f+32&g32
  a2 f4..g32&a32
  b4..a32&g32 f2
  d2 f2

  e4..f+32&g32 a2
  Tempo(TB)
  e2r4
  Tempo(T1)
  r4

  [4 r1]
  [4 r1]

 [2
  g+16&a4.. b4.f16e16 f2 d4.e16f16
  g2a4.e16d16 e2<b2
  b16&>c4.. e4.d16e16 f4.f16e16 d2<
  b4.a16b16 >c<b16a16>ed e2..r

  f2fd16c16df g2d4g4
  a2>c4d4< b2g2
  f2a4.f16a16 g4.g16e16d2
  e4.a16b16>c2 : d4.d16c16<b2
 ]
 <b1

 a2e4.d c2d4.e
 f2..g16a16e2..r8
 d2eg16a16f4 g2e4.f16g16
 a2..f e2d2

  c4.<b16>c16 de<b>d
  e2g4eg
  a4.g16a16 gage16d16
  g2 e4d4

  c4.<b16>c16 de<b>d
  e4.g16a16 b4g4
  a4.g16a16 gb>de<
  b1

  [8 r1]
  v(MML(v)-15)
  r4d2e2g2ra24b24a24
  gd4e^2<b2..r>
  r4d2e2<b2 ag
  ab4g^2 e2..d16e16

  f2..r a2b2>
  DANDO(T1,TB,!1^2.,!8)
  d2..r
  e2..
  Tempo(T1)
  r
  v(MML(v)+15)

 [2
  g+16&a4.. b4.f16e16 f2 d4.e16f16
  g2a4.e16d16 e2<b2
  b16&>c4.. e4.d16e16 f4.f16e16 d2<
  b4.a16b16 >c<b16a16>ed e2..r

  f2fd16c16df g2d4g4
  a2>c4d4< b2g2
  f2a4.f16a16 g4.g16e16d2
  e4.a16b16>c2 : d4.d16c16<b2
 ]
 <b1

 a2e4.d c2d4.e
 f2..g16a16e2..r8
 d2eg16a16f4 g2e4.f16g16
 a2..f e2d2

 [2
  c4.<b16>c16 de<b>d
  e2g4eg
  a4.g16a16 gage16d16
  g2 e4d4

  c4.<b16>c16 de<b>d
  e4.g16a16 b4g4
  a4.g16a16 gb>de<
  :
  b2g4ed
 ]
 b1

 FADEOUT()
  c4.<b16>c16 de<b>d
  e2g4eg
  a4.g16a16 gage16d16
  g2 e4d4

  c4.<b16>c16 de<b>d
  e4.g16a16 b4g4
  a4.g16a16 gb>de<
  b2g4ed


//------------------------------------
// Track 4 : 
//------------------------------------
TR(4) CH(4) P(64)
@34 v100

 o2 l16 q90

 [4
  e1
  eer2r8 e4
  f1
  ffr2r8f4
 ]

 e2 aarrr4
 e1

 a1 f1
 d1 e1

 [4 araa]
 [4 frff]
 [4 drdd]
 [3 eree] ee>e<e

 [2
  [2
   [4 araa]
   [4 frff]
   [4 grgg]
   [4 eree]
  ]

  [2
   [3 frff] ffa>c<
   [3 grgg] ggb>d<
   [3 araa] aa>cd<
   [3 grgg] gg>gd<
  ]
 ]

 a4.a8 a2
 f4.f8 f2
 g4.g8 g2
 e4.e8 e2

 f4.f8 f2
 g4.g8 g2
 a4.a8 a2
 >c4.c8<b2

 [2
  frfr frff frfr ff>f<f
  grgr grgg grgr gg>g<g
  arar araa arar aa>a<a
  :
  grgr grgg grgr gg>g<g
 ]
 >crcr crcc drdr drdd<

 [2
  [4 arar r2.]
  [4 grgr r2.]
 ]

 f1 a1
 b1 e2.. e>e<

 [2
  [2
   [4 araa]
   [4 frff]
   [4 grgg]
   [4 eree]
  ]

  [2
   [3 frff] ffa>c<
   [3 grgg] ggb>d<
   [3 araa] aa>cd<
   [3 grgg] gg>gd<
  ]
 ]

 a4.a8 a2
 f4.f8 f2
 g4.g8 g2
 e4.e8 e2

 f4.f8 f2
 g4.g8 g2
 a4.a8 a2
 >c4.c8<b2

 [2
  [2
   frfr frff frfr ff>f<f
   grgr grgg grgr gg>g<g
   arar araa arar aa>a<a
   :
   grgr grgg grgr gg>g<g
  ]
  >crcr crcc drdr drdd<
 ]

 FADEOUT()
  [2
   frfr frff frfr ff>f<f
   grgr grgg grgr gg>g<g
   arar araa arar aa>a<a
   :
   grgr grgg grgr gg>g<g
  ]
  >crcr crcc drdr drdd<


//------------------------------------
// Track 5 : 
//------------------------------------
TR(5) CH(5) P(44)
@107 v85

 o5 l16 q80
 [4
  b1 r-1 e1
  bbrr r2 >e4 r-1 <eerr r2 b4>
  c1 r-1 <f1>
  ccrr r2 d4< r-1 ffrr r2 f4
 ]

 r1r1

  [2
   [3 'ae'r'ae''ae'] 'ae''ae'r'ae'
   [3 'fd'r'fd''fd'] 'fd''fd'r'fd'
   [3 'd<a>'r'd<a>''d<a>'] 'd<a>''d<a>'r'd<a>'
   [3 'e<b>'r'e<b>''e<b>'] 'e<b>''e<b>'r'e<b>'
  ]

 [2
  [2
   [4 'ae'r'>c<a''>c<a']
   [4 'af'r'>c<a''>c<a']
   [4 'gd'r'>d<g''>d<g']
   [4 'ge'r'>e<b''>e<b']
  ]

  [2
   'f2d2' 'f8d8''f8d8'rr'f8d8'
   'g2d2' 'g8d8''g8d8'rr'g8d8'
   'e2<b2>' 'e8<b8>''e8<b8>'rr'e8<b8>'
   'g2d2' 'g8d8''g8d8'rr'g8d8'
  ]
 ]

 r4. [2 'e<a>']'e2<a2>'
 r4. [2 'fc']'f2c2'
 r4. [2 'd<a>']'d2<a2>'
 r4. [2 'ec']'e2c2'

 r4. [2 'fc']'f2c2'
 r4. [2 'd<g>']'d2<g2>'
 r4. [2 'ec']'e2c2'
 r4. [2 'ge']'g2e2'

 [2
  r<a>'fc'r r<a>'c<a>'r <aa>'f8c8' r<a>'fc'r
  r<g>'gd'r r<g>'d<g>'r <gg>'g8d8' r<g>'gd'r
  r<a>'ec'r r<a>'c<a>'r <aa>'e8c8' r<a>'ec'r
  r<g>'gd'r r<g>'d<g>'r <gg>'g8d8' r<g>'gd'r
 ]

 v(MML(v)+20)
 <
  rrarargr aragergr r-1 rrererdr ered<ar>dr
  grararar grererer r-1 drererer dr<brbrbr>
  erga >c<bae >d<bae >c<bae r-1 crde aed<b> bed<b> aed<b>
  ar>crcrcr [2 c24d24c24<ba>]< r-1 erararar argrargr

  rrbrbrar grgedrer   r-1 rrgrgrer drd<barbr>
  grde ggde abag abag r-1 er<ab> ee<ab> eged eged
  >dr<bb >d24e24d24<bb >er<bb >d24e24d24<bg r-1 argg a24b24a24gg brgg a24b24a24gd
  edeg abab >ded<b g8.r r-1 <bab>d egeg abag d8.r

  erde greg abag a24b24a24ga r-1 <brab> dr<b>d eged e24g24e24de
  >dr<bb >dr<bb >ded<b gbag  r-1 argg argg abag dged
  er<bb> drer gage arbr      r-1 <brgg arbr> ded<b> ergr
  [2 a24b24a24ge] >d24e24d24<ba b24>d24<b24 ab r-1 [2 e24g24e24d<b>] a24b24a24ge g24b24g24eg

  gdeg baga b>ddd <b>ddd<     r-1 d<ab>d gede abbb gbbb
  >erdr erdr erd24e24d24<brar r-1 brar brar br a24b24a24 grer
  grde ggde gbbb g>ddd<       r-1 dr<ab> dd<ab> dggg dbbb
  >eged gage d4.d8<          r-1 b>d<ba> ded<b 'a4.d4.''a8d8'>

  <b4.>d8 e4.g8  r-1  <e4.g8 a4.b8>
  a4.e8 f4.d8 r-1  f4.c8 d4.<a8>
  e2 <b2> r-1 <b2 e2>
  'e1d1' r-1 '<b1f1>'
 >
 v(MML(v)-20)

 [2
  [2
   [4 'ae'r'>c<a''>c<a']
   [4 'af'r'>c<a''>c<a']
   [4 'gd'r'>d<g''>d<g']
   [4 'ge'r'>e<b''>e<b']
  ]

  [2
   'f2d2' 'f8d8''f8d8'rr'f8d8'
   'g2d2' 'g8d8''g8d8'rr'g8d8'
   'e2<b2>' 'e8<b8>''e8<b8>'rr'e8<b8>'
   'g2d2' 'g8d8''g8d8'rr'g8d8'
  ]
 ]

 r4. [2 'e<a>']'e2<a2>'
 r4. [2 'fc']'f2c2'
 r4. [2 'd<a>']'d2<a2>'
 r4. [2 'ec']'e2c2'

 r4. [2 'fc']'f2c2'
 r4. [2 'd<g>']'d2<g2>'
 r4. [2 'ec']'e2c2'
 r4. [2 'ge']'g2e2'

 [2
  [2
   r<a>'fc'r r<a>'c<a>'r <aa>'f8c8' r<a>'fc'r
   r<g>'gd'r r<g>'d<g>'r <gg>'g8d8' r<g>'gd'r
   r<a>'ec'r r<a>'c<a>'r <aa>'e8c8' r<a>'ec'r
   r<g>'gd'r r<g>'d<g>'r <gg>'g8d8' r<g>'gd'r
  ]
 ]

 FADEOUT()
  [2
   r<a>'fc'r r<a>'c<a>'r <aa>'f8c8' r<a>'fc'r
   r<g>'gd'r r<g>'d<g>'r <gg>'g8d8' r<g>'gd'r
   r<a>'ec'r r<a>'c<a>'r <aa>'e8c8' r<a>'ec'r
   r<g>'gd'r r<g>'d<g>'r <gg>'g8d8' r<g>'gd'r
  ]

//------------------------------------
// Track 6 : 
//------------------------------------
TR(6) CH(6) P(64)
@117 v90

 o5 l16

 [4
  ccrr rrrr rrrr rrrr  ccrr >crrr rrcr< aafr  
  ccrr rrrr >crrr <ffcr  ccrr rrff raar ffrr 
 ]

 ccrr crfr aarr >cc<rr
 crrr rrrr rrrr rrrr

 [4 r1]
 [2 r1]
 r2..aa
 [8 '>c<f'r]

 [2
  [2
   rrrr 'ca'rrr rrrr 'af'r'af'r
   rrrr 'ca'rrr rrrr 'fc'r'fc'r
   rrrr 'ca'rrr rrrr 'af'r'af'r
   :
   rrrr 'ca'r'ca'r rr'af'r 'af'r'af'r
  ]
  rrrr 'ca'r'ca'r rr'af'r 'af'r'af''af'

  [2
   rrrr 'ca'r'af'r rrrr 'af'r'af'r
   rrrr 'ca'r'af'r rrrr 'fc'r'fc'r
   rrrr 'ca'r'af'r rrrr 'af'r'af'r
   :
   rrrr 'ca'r'ca'r rr'af'r 'af'r'af'r
  ]
  rrrr 'ca'r'ca'r rr'af'r 'af'r'af''af'
 ]

 [2
  'c<a>'rrr rr'a>c<'r rrrr >'fc''fc'<'af'r
  'c<a>'rrr rr'a>c<'r rr'>c<a'r >'fc''fc'< 'af'r
  'c<a>'rrr rr'a>c<'r rrrr >'fc''fc'<'af'r
  :
  'c<a>'rrr rr'a>c<'r rr'>cf<'r >'fa''fc''c<a'r
 ]
 'c<a>'rrr 'c<a>'r'a>c<''af' [8 '<a>c>c<']

 [4
  'c<a>'rrr '>c<a'r'af'r 'c<a>'r'c<a>'r '>c<a'r'fc''fc'
  :
  'c<a>'rrr '>d<a'r'>c<a'r 'c<a>'r'c<a>'r '>c<a'c'fc''fc'
 ]
 'c<a>'rrr '>d<a'r'>c<a'r  [2 'cfa' [3 '<a>cf']]

 [2
  [2
   'c<a>'r'c<a>'r rrrr 'cf'rrr rr'>fc<''>fc<'
   rr'c<a>'r rrrr 'af'r'c<a>'r rr'>c<a''>c<a'
   'c<a>'r'c<a>'r rrrr 'cf'rrr rr'>fc<''>fc<'
   :
   rr'c<a>'r rrrr 'af'r'c<a>'r '>fc<'r'>c<a''af'
  ]
  rr'c<a>'r rrrr 'af'r'c<a>'r '>fc<''>fc<''>c<a''af'
 ]

  '>f<c<a>'r'>f<'r 'c<a>'r'c<a>'r 'fc'rrr rr'>fc<'r
  'c<a>'rrr 'c<a>'r'c<a>'r 'fc'rrr '>fc<'r'>c<a'r
  '>f<c<a>'r'>c<a'r 'c<a>'r'c<a>'r 'fc'rrr rr'>fc<'r
  'c<a>'rrr rrrr rrrr rr 'c<a>''c<a>'

 [2
  [2
   rrrr 'ca'rrr rrrr 'af'r'af'r
   rrrr 'ca'rrr rrrr 'fc'r'fc'r
   rrrr 'ca'rrr rrrr 'af'r'af'r
   :
   rrrr 'ca'r'ca'r rr'af'r 'af'r'af'r
  ]
  rrrr 'ca'r'ca'r rr'af'r 'af'r'af''af'

  [2
   rrrr 'ca'r'af'r rrrr 'af'r'af'r
   rrrr 'ca'r'af'r rrrr 'fc'r'fc'r
   rrrr 'ca'r'af'r rrrr 'af'r'af'r
   :
   rrrr 'ca'r'ca'r rr'af'r 'af'r'af'r
  ]
  rrrr 'ca'r'ca'r rr'af'r 'af'r'af''af'
 ]

 [2
  'c<a>'rrr rr'a>c<'r rrrr >'fc''fc'<'af'r
  'c<a>'rrr rr'a>c<'r rr'>c<a'r >'fc''fc'< 'af'r
  'c<a>'rrr rr'a>c<'r rrrr >'fc''fc'<'af'r
  :
  'c<a>'rrr rr'a>c<'r rr'>cf<'r >'fa''fc''c<a'r
 ]
 'c<a>'rrr 'c<a>'r'a>c<''af' [8 '<a>c>c<']

 [2
  [4
   'c<a>'rrr '>c<a'r'af'r 'c<a>'r'c<a>'r '>c<a'r'fc''fc'
   :
   'c<a>'rrr '>d<a'r'>c<a'r 'c<a>'r'c<a>'r '>c<a'c'fc''fc'
  ]
  'c<a>'rrr '>d<a'r'>c<a'r  [2 'cfa' [3 '<a>cf']]
 ]

 FADEOUT()
  [4
   'c<a>'rrr '>c<a'r'af'r 'c<a>'r'c<a>'r '>c<a'r'fc''fc'
   :
   'c<a>'rrr '>d<a'r'>c<a'r 'c<a>'r'c<a>'r '>c<a'c'fc''fc'
  ]
  'c<a>'rrr '>d<a'r'>c<a'r  [2 'cfa' [3 '<a>cf']]


//------------------------------------
// Track 7 : 
//------------------------------------
TR(7) CH(7) P(54)
@31 v90
M.onNoteWave(0,40,!2.)
 [8 r1]
 [8 r1]
 [2 r1]

 o4 l8 q90
 [2
  'e1<b1>'
  'f1c1'
  'd1<a1>'
  'e1<b1>'
 ]

 [2
  [2
   q90 'a2..e2..' q30 e16e16
   q90 'f2..c2..' q30 c16c16
   q90 'g2..d2..' q30 d16d16
   q90 'e2..<b2..>' q30 <b16b16>
  ]

  [2
   q90 'f4c4' q30 c16c16 q90 'f2c2' q30 c16c16
   q90 'g4d4' q30 d16d16 q90 'g2d2' q30 d16d16
   q90 'a4e4' q30 e16e16 q90 'a2e2' q30 e16e16
   q90 'g4d4' q30 d16d16 q90 'g2d2' q30 d16d16
  ]
 ]

 q80
 'a2e2''e2<b2>'
 'f1c1'
 'g2d2''d2<a2>'
 'e1<b1>'
 'f2c2''a2e2'
 'g2d2''e2<b2>'
 'a1e1'
 '>c1<g1'

 [2
  'f4.c4.' 'fc' 'f2c2'
  'g4.d4.' 'gd' 'g2d2'
  'a4.e4.' 'ae' 'a2e2'
  :
  '>c4.<g4.' '>c<g' '>c2<g2'
 ]
 '>c2..<g2..' q30 g16g16

 [8 r1]
 [8 r1]
 [4 r1]

 [2
  [2
   q90 'a2..e2..' q30 e16e16
   q90 'f2..c2..' q30 c16c16
   q90 'g2..d2..' q30 d16d16
   q90 'e2..<b2..>' q30 <b16b16>
  ]

  [2
   q90 'f4c4' q30 c16c16 q90 'f2c2' q30 c16c16
   q90 'g4d4' q30 d16d16 q90 'g2d2' q30 d16d16
   q90 'a4e4' q30 e16e16 q90 'a2e2' q30 e16e16
   q90 'g4d4' q30 d16d16 q90 'g2d2' q30 d16d16
  ]
 ]

 q80
 'a2e2''e2<b2>'
 'f1c1'
 'g2d2''d2<a2>'
 'e1<b1>'
 'f2c2''a2e2'
 'g2d2''e2<b2>'
 'a1e1'
 '>c1<g1'

 [2
  [2
   'f4.c4.' 'fc' 'f2c2'
   'g4.d4.' 'gd' 'g2d2'
   'a4.e4.' 'ae' 'a2e2'
   :
   '>c4.<g4.' '>c<g' '>c2<g2'
  ]
  '>c2..<g2..' q30 g16g16
 ]

 FADEOUT()
 [2
  'f4.c4.' 'fc' 'f2c2'
  'g4.d4.' 'gd' 'g2d2'
  'a4.e4.' 'ae' 'a2e2'
  :
  '>c4.<g4.' '>c<g' '>c2<g2'
 ]
 '>c2..<g2..' q30 g16g16
 


//------------------------------------
// 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 / S = Rim
$b{n36,} $s{n38,} $S{n37,}
// h = HH Close / f = HH foot close / o = HH Open
$c{n42,} $f{n44,} $o{n46,}
// e = Crash / j = Ride / t = Ride Bell / d = China / i = Splash / y = Crash2 / u = Ride2
$e{n49,} $j{n51,} $t{n53,} $d{n52,} $i{n55,} $y{n57,} $u{n59,}
// q = High Tom / a = High-Middle / z = Low-Middle / w = Low / x = Floor high / g = Floor low
$q{n50,} $a{n48,} $z{n47,} $w{n45,} $x{n43,} $g{n41,}
// p = Crap / k = Cowbell / m = Tambourine / n = ?? / j = ??
$p{n39,} $k{n56,} $m{n54,} $n{n75,}

@1
l8
Rhythm {

  [2
   v70 brrr rrrr       r-1 v127 errr rrrr      r-1 v100 jrjrjrjr
   v70 b16b16rrr rrrr  r-1 v90 rrrr rrs4       r-1 v100 jrjrjrjr
   v70 brrr rrrr       r-1 v127 errr rrrr      r-1 v100 jrjrjrjr
   v70 b16b16rrr rbrr  r-1 v90 rrrr rrs4       r-1 v100 jrjrjrjr
   v70 brrr rrrr       r-1 v127 errr rrrr      r-1 v100 jrjrjrjr
   v70 b16b16rrr rrrr  r-1 v90 rrrr rrs4       r-1 v100 jrjrjrjr
   v70 brrr rrrr       r-1 v127 errr rrrr      r-1 v100 jrjrjrjr
   v70 b16b16rrr brbr  r-1 v90 rrrr rq a16a16z r-1 v100 jrjrjrjr
  ]
  v70 brrb brrr r-1 v100 dv90 q16q16ar a16a16zwg16g16
  v70 brrr rrrb16b16 r-1 v127 y1

  v70 brrr rrrr  r-1 v127 errr rrrr  r-1 v100 jrjr jrjr
  v70 brrr rrrr  r-1 v100 jrjr jrjr
  v70 brrr rrrr  r-1 v100 jrjr jrjr
  v70 brrr rrrr  r-1 v100 jrjr jrjr

  v70 brbr brbr  r-1 v127 y1 r-1 v100 jrjr jrjr
  v70 brbr brbr  r-1 v100 jrjr jrjr
  v70 brbr brbr  r-1 v100 jrjr jrjr
  v70 brbr brbr  r-1 v100 jrjr jrjr

 [2
  [2
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 v127 errr rrrr  r-1 [4 v100c v70c]
   v70 bbrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   v70 bbrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
  ]

  [2
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 v127 errr rrrr  r-1 [4 v100c v70c]
   v70 bbrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   :
   v70 bbrr brrb  r-1  v90 rrs4 rrss16s16 r-1 [4 v100c v70c]
  ]
  :
  v70 bbrr brrb  r-1  v90 rrs4 [2 ss16s16] r-1 [4 v100c v70c]
 ]
 v70 bbrr brbr  r-1  v90 rrss16s16 l16 qqzz aawg l8 r-1 [4 v100c v70c]

 [2
  v70 brrr rrrb r-1 v90 rrrr s4rr r-1 v127 yr v100jrjrjr
  v70 brbr rrrr r-1 v90 rrrr s4rr r-1 v100jrjrjrjr
  v70 brrb rrrr r-1 v90 rrrr s4rr r-1 v100jrjrjrjr
  v70 bbrb rbrb r-1 v90 rrrr s4rr r-1 v100jrjrjrjr
 ]

  [2
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 v127 errr rrrr  r-1 [4 v100c v70c]
   v70 bbrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   :
   v70 bbrr brrb  r-1  v90 rrs4 rrss16s16 r-1 [4 v100c v70c]
  ]
  v70 bbrr brrb  r-1  v90 rrss16s16 l16 qqaa zzss l8 r-1 [4 v100c v70c]

  [2
   v70 bbrr rrrr r-1 v127 ey v90 frfrfr
   v70 bbrr rrrr r-1 v90 frfrfrfr
   v70 bbrr rrrr r-1 v90 frfrfrfr
   v70 bbrr rrrr r-1 v90 frfrfrfr
  ]
  [2
   v70 bbrr rrrr r-1 v90 rrrr rrrs r-1 v127 ey v90 frfrfr
   v70 bbrr rrrr r-1 rrrr v90 srrs r-1 v90 frfrfrfr
   v70 bbrr rrrr r-1 v90 rrrr rsrs r-1 v90 frfrfrfr
   :
   v70 bbrr rrrr r-1 rrrr v90 srrs r-1 v90 frfrfrfr
  ]
  v70 bbbr brbr r-1 v100 l16 qqqq aaaa zzzz wwww l8 r-1 v90 frfrfrfr

   v70 brrb rrrb r-1 v90 rrrr s4rr r-1 v127 yr v100 jrjrjr
   v70 bbrb rrrb r-1 v90 rrrr s4rr r-1 v100 dr v100 jrjrjr
   v70 brrb rrrb r-1 v90 rrrr s4rr r-1 v127 er v100 jrjrjr
   v70 brrr rrrb16b16 r-1 v127 'y1e1'

 [2
  [2
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 v127 errr rrrr  r-1 [4 v100c v70c]
   v70 bbrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   v70 bbrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
  ]

  [2
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 v127 errr rrrr  r-1 [4 v100c v70c]
   v70 bbrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   :
   v70 bbrr brrb  r-1  v90 rrs4 rrss16s16 r-1 [4 v100c v70c]
  ]
  :
  v70 bbrr brrb  r-1  v90 rrs4 [2 ss16s16] r-1 [4 v100c v70c]
 ]
 v70 bbrr brbr  r-1  v90 rrss16s16 l16 qqzz aawg l8 r-1 [4 v100c v70c]

 [2
  v70 brrr rrrb r-1 v90 rrrr s4rr r-1 v127 yr v100jrjrjr
  v70 brbr rrrr r-1 v90 rrrr s4rr r-1 v100jrjrjrjr
  v70 brrb rrrr r-1 v90 rrrr s4rr r-1 v100jrjrjrjr
  v70 bbrb rbrb r-1 v90 rrrr s4rr r-1 v100jrjrjrjr
 ]

 [2
  [2
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 v127 errr rrrr  r-1 [4 v100c v70c]
   v70 bbrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   :
   v70 bbrr brrb  r-1  v90 rrs4 rrss16s16 r-1 [4 v100c v70c]
  ]
  v70 bbrr brrb  r-1  v90 rrss16s16 l16 qqaa zzss l8 r-1 [4 v100c v70c]
 ]
}
FADEOUT()
Rhythm {
  [2
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 v127 errr rrrr  r-1 [4 v100c v70c]
   v70 bbrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   v70 brrr brrb  r-1  v90 rrs4 rrs4 r-1 [4 v100c v70c]
   :
   v70 bbrr brrb  r-1  v90 rrs4 rrss16s16 r-1 [4 v100c v70c]
  ]
  v70 bbrr brrb  r-1  v90 rrss16s16 l16 qqaa zzss l8 r-1 [4 v100c v70c]
}