//-----------------------------------------------
// think back to ancient
// (C)Yax
//-----------------------------------------------

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

//曲名
TrackName     = {"think back to ancient"}

//著作権表示
Copyright     = {"Yax"}

r4
TrackSync;



/*
 * アルペジオ記号用関数
 *  D : ずれ幅
 *  L : 全体長
 *  S : 構成音
 */
Function ARP(Int D, Int L, Str S) {
  Int LNG = L
  Int STP = 0
  Int TEMP = 0
  Str X = ""
  Str RS = ""
  Str NS = ""
  Int J = 0
  Array NAR = ()

  For(Int I = 1; I <= 100; I++ ){
    X = MID(S,I,1)
    J = ASC(X)

    IF (X == "") {
      EXIT
    }

    IF ( J >= 97 ) {
      IF ( J <= 103 ) {
        IF ( NS != "" ) {
	    NS = Replace(NS,{@-},{-@},off)
	    NS = Replace(NS,{@+},{+@},off)
	    NS = Replace(NS,{@#},{#@},off)
	    NS = Replace(NS,{@*},{*@},off)
          NAR = (NAR,NS)
	    NS = ""
        }
	  X = X + "@"
	}
    }
    NS = NS + X
  }
  IF ( NS != "" ) {
    NS = Replace(NS,{@-},{-@},off)
    NS = Replace(NS,{@+},{+@},off)
    NS = Replace(NS,{@#},{#@},off)
    NS = Replace(NS,{@+},{*@},off)
    NAR = (NAR,NS)
    NS = ""
  }

  For(Int I=0;I<SizeOf(NAR);I++){
    TEMP = L - STP
    RS = "r%" + #STR(STP)
    NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
    Sub{ RS NS }
    STP = STP+D
  }
  r%(L)
}

/*
 * ××ダンド関数
 * B : 開始時のテンポ
 * E : 終了時のテンポ
 * LEN : 開始〜終了までの長さ
 * STP : 変換タイミング(音長)
 */
Function DANDO(B, E, LEN, STP) {
  Int _STEP = 24
  Int _DIFF = 0
  Int _CNT = 0
  Int _TMP = 0
  Int _LAP = 0

  IF( STP != 0 ) {
    _STEP = STP
  }

  _CNT = LEN/_STEP
  _DIFF = (E - B)/_CNT

  _TMP = B
  Tempo = %(B)

  For(Int I = 1; I < _CNT; I++ ){
    r%(_STEP)
    _TMP = _TMP + _DIFF
    Tempo = %(_TMP)
    _LAP = _LAP + _STEP
  }

  r%(LEN-_LAP)
  Tempo = %(E)
  r-%(LEN)
}


// 全体の調整
TR(1)  V(110) REV(30) CHO(20)
TR(2)  V(110) REV(30) CHO(20)
TR(3)  V(105) REV(60) CHO(70)
TR(4)  V(90)  REV(100) CHO(90)
TR(5)  V(100) REV(50) CHO(70)
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(110) REV(50) CHO(0)


// テンポ
INT T  = 95    // 通常のテンポ
INT T2 = 80
INT T3 = 84
INT T4 = 70
INT T5 = 42
INT T6 = 65
INT T7 = 23


Tempo=(T)


// キー

INT KEY=0

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


// 最後の移調
FUNCTION EDTRANS() {
  TrackKey(1)        // 最後移調しないなら0をセット
}

// 移調を戻す方
FUNCTION EDTRANS_REV() {
  TrackKey(0)        // 普通に戻すなら0で(Keyで指定したとこに戻る)、さらに変えるなら適当な値をセット
}



//------------------------------------
// Track 1 : 
//------------------------------------
TR(1) CH(1) P(60)
@1,8,0 v100

 o5 l8

 r1

 [2
  [2
   y64,1; 'f4d4'da 'f4d4'd>c< y64,0;
   y64,1; 'b4g4'g4 a4 e4 y64,0;
   y64,1; 'f4d4'fa '>d4<a4'>'cf'a< y64,0;
   :
   y64,1; >'dg'<b>dg 'a4e4' ec< y64,0;
  ]
  DANDO(T,T2,!2..,!8)
 :
  y64,1; >'dg'<b>d<g ARP(4,!2,{b>dfa<})  y64,0;
  Tempo(T)
  >
  [2
   y64,1; 'b-g'dgb- gb->d<b- y64,0;
   y64,1; 'af'dfa ARP(0,!2,{<b->df}) y64,0;
   :
   y64,1; 'ge'<b->ce 'ge'cb-g y64,0;
   y64,1; 'af'fab- ARP(1,!2,{fa>c<}) y64,0;
  ]
  y64,1; 'ge'<b->ce 'ge'cge y64,0;
  DANDO(T,T2,!2..,!8)
  y64,1; < ARP(4,!1,{fa>df<}) y64,0;
  Tempo(T)
 ]
 y64,1; >'dg'<b>d<g ARP(4,!2,{a>cfa<})  y64,0;
 Tempo(T)

  y64,1; 'f+2d2'<b>df+d y64,0; 
  y64,1; 'g+2e2' e4dc+ y64,0; 
  y64,1; 'a2f+2' df+a>c+< y64,0; 
  y64,1; 'b4g+4'ba 'g+4e4'c+4 y64,0; 
  y64,1; 'f+d'<a>df+ df+'ad'f+ y64,0; 
  y64,1; 'g+e'c+4'b4g+4'c+'e4g+4' y64,0; 
  y64,1; 'a4.f+4.' >'c+4<a4' a>c+f+< y64,0; 
  y64,1; 'b4>e4<'b>e< ARP(4,!2,{b>c+eg+<}) y64,0; 

  >
  [2
   y64,1; 'ad'f+d 'bg+'g+e 'g+e'c+ y64,0;
   y64,1; 'f+d'<a>d 'g+e'ec+ 'bg+'g+ y64,0;
   y64,1; 'ad'f+d 'bg+'g+e '>d<b'b y64,0;
   :
   y64,1; '>c+<a'af+ 'bg+'g+e 'g+e'c+ y64,0;
  ]
  DANDO(T,T2,!2..,!8)
  y64,1; '>c+<a'af+ 'bg+'g+e 'g+e'c+ y64,0;
  << ARP(!32,!1^1,{a>df+ab>df+})
  Tempo(T3)

  v(MML(v)-20)
  [2
   y64,1; 'f4d4'da 'f4d4'd>c< y64,0;
   y64,1; 'b4g4'g4 a4 e4 y64,0;
   y64,1; 'f4d4'fa '>d4<a4'>'cf'a< y64,0;
   :
   y64,1; >'dg'<b>dg 'a4e4' ec< y64,0;
  ]
  DANDO(T3,T4,!4..,!16)
  y64,1; >'dg'<b>d<g ARP(4,!2,{b>dfa<})  y64,0;
  r-4
  Tempo(T7)
  r4
  Tempo(T)
  <
  v(MML(v)+20)
  [2
   y64,1; 'f4d4'da 'f4d4'd>c< y64,0;
   y64,1; 'b4g4'g4 a4 e4 y64,0;
   y64,1; 'f4d4'fa '>d4<a4'>'cf'a< y64,0;
   :
   y64,1; >'dg'<b>dg 'a4e4' ec< y64,0;
  ]
  DANDO(T,T2,!2..,!8)
  y64,1; >'dg'<b>d<g ARP(4,!2,{b>dfa<})  y64,0;
  Tempo(T)

  y64,1; 'f+4.a4.'d f+a>c+<a y64,0; 
  y64,1; 'g+4b4'g+b> 'e<b>'dc+<b y64,0; 
  y64,1; 'a4.>c+4.<' 'a4f+4'b '>c+<a'>d< y64,0; 
  y64,1; 'b4g+4'g+b>'e4c+4'dc+16<b16 y64,0; 
  y64,1; 'a>d<'f+a>d< f+a'>df+<'>d< y64,0; 
  y64,1; >'ec+'c+4'< b4>e4' c+'eg+'e< y64,0; 
  y64,1; >'a4.f+4.' >'c+4<a4' af+>c+<< y64,0; 
  DANDO(T,T2,!2..,!8)
  y64,1; >'b4e4' bg+ < ARP(4,!2,{g+b>c+e<}) y64,0; 
  Tempo(T)

  v(MML(v)-12)
  [2
   'f+ab>d<'rr'f+^2a^2b^2>d^2<'
   'g+b>c+e<'rr'g+^2b^2>c+^2e^2<'
   'df+ab'rr'd^2f+^2a^2b^2'
   :
   ARP(1,!2,{eg+b>c+<}) ARP(1,!2,{g+b>c+e<})
  ]
  DANDO(T,T4,!2..,!8)
  ARP(!64,!2,{eg+b>c+<}) ARP(!32,!1.,{c+eg+b})
  Tempo(T)
  v(MML(v)+12)

  EDTRANS()

  [2
   y64,1; 'f4d4'da 'f4d4'd>c< y64,0;
   y64,1; 'b4g4'g4 a4 e4 y64,0;
   y64,1; 'f4d4'fa '>d4<a4'>'cf'a< y64,0;
   :
   y64,1; >'dg'<b>dg 'a4e4' ec< y64,0;
  ]
  DANDO(T,T2,!2..,!8)
  y64,1; >'dg'<b>d<g ARP(4,!2,{b>dfa<})  y64,0;
  Tempo(T)
 >
  [2
   y64,1; 'f4d4'da 'f4d4'd>c< y64,0;
   y64,1; 'b4g4'g4 a4 e4 y64,0;
   :
   y64,1; 'f4d4'fa '>d4<a4'>'cf'a< y64,0;
   y64,1; >'dg'<b>dg 'a4e4' ec< y64,0;
  ]
  DANDO(T,T4,!1.,!8)
  y64,1; 'f4d4'fa '>d4<a4'>'cf'a< y64,0;
  y64,1; >'dg'<gbd ARP(4,!2,{<b>dfa})  y64,0; r-4. Tempo(T5) r4.
  r
  Tempo(T6)
  EDTRANS_REV()
  y64,1; <ARP(!48,!1^1,{c+f+b>c+f+}) y64,0;




//------------------------------------
// Track 2 : 
//------------------------------------
TR(2) CH(2) P(54)
@1,8,0 v100
v85

  o3 l8

  r1
  
  [2
   y64,1; a>cdf4d<af y64,0; 
   y64,1; gb>dg4ec<b y64,0; 
   y64,1; a>cdf4d<a>f< y64,0; 
   :
   y64,1; gb>dg4egb< y64,0; 
  ]
  y64,1; gb>dg<b2 y64,0; 

  [2
   y64,1; g2 d2 y64,0; 
   y64,1; f2 d2 y64,0; 
   y64,1; e2 c2 y64,0; 
   :
   y64,1; d2 f2 y64,0; 
  ]
  y64,1; da>d2.< y64,0; 

  v(MML(v)-10)
  [2
   [4 'a4>d4<']
   [3 '>d4g4<'] '>e4<b4'
   [4 'a4>d4<']
   :
   [2 '>d4g4<'] [2 '>a4e4<']
  ]
  [2 '>d4g4<'] '>f2c2<'
  v(MML(v)+10)

  [2
   y64,1; 'da' v(MML(v)-20) [7 d] v(MML(v)+20) y64,0; 
   y64,1; 'eb' v(MML(v)-20) [7 e] v(MML(v)+20) y64,0; 
   y64,1; 'f+>c+<' v(MML(v)-20) [7 f+] v(MML(v)+20) y64,0; 
   :
   y64,1; 'g+>e<' v(MML(v)-20) [7 g+] v(MML(v)+20) y64,0; 
  ]
  y64,1; 'eb' v(MML(v)-20) [3 e]  'e2b2' v(MML(v)+20) y64,0; 

  [4
   drr y64,1;  d2r y64,0; 
   :
   c+rr y64,1; c+2r y64,0; 
  ]
  f+rr y64,1;  f+2r y64,0; 
  y64,1; 'd1^1<a1^1>' y64,0; 

  >
  v(MML(v)-30)
  [2
   y64,1; >'d1f1'<  y64,0; 
   y64,1; >'c1e1'<  y64,0; 
   y64,1; >'d1<b-1>'< y64,0; 
   :
   y64,1; >'c1e1'< y64,0; 
  ]
  y64,1; 'b2g2'
  v(MML(v)+30)
  <g2
  y64,0; 

  v(MML(v)-10)
  [2
   [4 'a4>d4<']
   [3 '>d4g4<'] '>e4<b4'
   [4 'a4>d4<']
   :
   [2 '>d4g4<'] [2 '>a4e4<']
  ]
  [2 '>d4g4<'] '>f2c2<'
  v(MML(v)+10)

  [2
   y64,1; 'da' v(MML(v)-20) [7 d] v(MML(v)+20) y64,0; 
   y64,1; 'eb' v(MML(v)-20) [7 e] v(MML(v)+20) y64,0; 
   y64,1; 'f+>c+<' v(MML(v)-20) [7 f+] v(MML(v)+20) y64,0; 
   :
   y64,1; 'g+>e<' v(MML(v)-20) [7 g+] v(MML(v)+20) y64,0; 
  ]
  y64,1; 'eb' v(MML(v)-20) [3 e]  'e2b2' v(MML(v)+20) y64,0; 

  [2
   f+rr y64,1; f+^2 y64,0; 
   g+rr y64,1; g+^2 y64,0; 
   arr y64,1; a^2 y64,0; 
   :
   y64,1; g+2e2 y64,0; 
  ]
  y64,1; b>e4<b eg+b>e^2...< y64,0;r16

  EDTRANS()

  [2
   y64,1; a>cdf4d<af y64,0; 
   y64,1; gb>dg4ec<b y64,0; 
   y64,1; a>cdf4d<a>f< y64,0; 
   :
   y64,1; gb>dg4egb< y64,0; 
  ]
  y64,1; gb>dg<b4 v(MML(v)-15) c4 v(MML(v)+15) y64,0; 

  [2
   y64,1; [4 'a>df<' v(MML(v)-15) a v(MML(v)+15)] y64,0; 
   y64,1; [3 '>dgb<' v(MML(v)-15) b v(MML(v)+15)] '>eg<b' v(MML(v)-15) g v(MML(v)+15) y64,0; 
   y64,1; [4 'a>df<' v(MML(v)-15) a v(MML(v)+15)] y64,0; 
   :
   y64,1; [2 '>dgb<' v(MML(v)-15) b v(MML(v)+15)] [2 '>gea<' v(MML(v)-15) a v(MML(v)+15)] y64,0; 
  ]
  y64,1; [2 '>dgb<' v(MML(v)-15) b v(MML(v)+15)] '>f2c2a2<' y64,0; 
  v(MML(v)+10)

  r
  EDTRANS_REV()
  y64,1; f+b>c+f+^2^1 y64,0; 



//------------------------------------
// Track 3 : 
//------------------------------------
TR(3) CH(3) P(74)
@51 v60
M.onNoteWave(4,60,!1.)

  o4 l8 q99

 r1

  d2 a2 g1
  f2 >c2< b1
  'd2a2' 'a2>c2<' 'g2b2' 'd2g2'
  'f2a2' '>c2e2<' 'b2>d2<' v(MML(v)-20) g2 v(MML(v)+20)

  [7 r1]
  EP.onTime(20,127,!1) d1 

  EP(127)
  'd2f2' 'a2f2' 'g2b2' 'd2g2'
  'f2d2' 'a2>c2<' 'b2>d2<' 'a2e2'
  'd2a2' 'a2>c2<' 'g2b2' 'd2g2'
  'f2a2' '>c2e2<' 'b2>d2<' 'a2f2'

  >>
  EP(100)
  d2..d16d+16 e2c+2
  f+2..g+16a16 g+2e2
  d2..d16c+16 e2g+2
  f+2c+2 e2<b2

  EP(127)
  [2
   'af+d'rr'af+d' rr v(MML(v)-20)[4 'a16f+16d16' v(MML(v)+5)]
   'g+e<b>'rr'g+e<b>' rr v(MML(v)-20)[4 'g+16e16c+16' v(MML(v)+5)]
   'af+d'rr'af+d' rr v(MML(v)-20)[4 'a16f+16d16' v(MML(v)+5)]
   :
   'g+eb'rr'g+eb' rr v(MML(v)-20)[4 'g+16b16>c+16e16<' v(MML(v)+5)]
  ]
  'g+eb'rr'g+^2e^2>c+^2<'
  EP.onTime(127,0,!1^1)
  'f+1^1d1^1' <

  EP(127)
  [8 r1]

  'd2f2' 'a2f2' 'g2b2' 'd2g2'
  'f2d2' 'a2>c2<' 'b2>d2<' 'a2e2'
  'd2a2' 'a2>c2<' 'g2b2' 'd2g2'
  'f2a2' '>c2e2<' 'b2>d2<' 'a2f2'

  >>
  EP(100)
  d2..d16d+16 e2c+2
  f+2..g+16a16 g+2e2
  d2..d16c+16 e2g+2
  f+2c+2 e2<b2
  EP(127)
  <

  [7 r1]

  EP.onTime(127,30,!1^1)
  e1 
  c+1
  EP(127)

  EDTRANS()

  d2 a2 g1
  f2 >c2< b1
  'd2a2' 'a2>c2<' 'g2b2' 'd2g2'
  'f2a2' '>c2e2<' 'b2>d2<' v(MML(v)-20) g2 v(MML(v)+20)

  'd2f2' 'a2f2' 'g2b2' 'd2g2'
  'f2d2' 'a2>c2<' 'b2>d2<' 'a2e2'
  'd2a2>d2<' 'a2>c2f2<' 'g2b2>e2<' 'd2g2>c2<'
  'f2a2>d2<' '>c2e2a2<' 'b2>d2g2<' 'a2f2>c2a2<'

  r
  EDTRANS_REV()
  EP.onTime(127,0,!1..)
  '<b1^1>c+1^1f+1^1>c+1^1'


//------------------------------------
// Track 4 : 
//------------------------------------
TR(4) CH(4) P(64)
@97 v40
M.onNoteWave(0,90,!1)
P.onNote(10,117,64,96,32)

  o7 l8 q99

  r1

  [4 r1]
  r4a4f4>c4<
  b2g2
  r4a4f4>e4
  d2f2<

  [8 r1]

  [2
   r4a4f4>c4<
   b2g2
   r4a4f4>e4
   :
   d2<a2
  ]
  d2<e2>

  [2
   r4f+4 r4f+4
   r4g+4 r4g+4
   r4a4  r4a4
   :
   r4g+4 r4e4
  ]
  r4g+4e2<

  [2
   r<a>de f+d4<a>
   r<b>c+e g+e4<b>
   r<a>de f+d4<a>
   :
   reg+b >c+<b4g+
  ]
  <b>eg+b^2 EP.onTime(127,0,!1^1) d1^1 EP(127)

  [8 r1]

  [2
   r4a4f4>c4<
   b2g2
   r4a4f4>e4
   :
   d2<a2
  ]
  d2<e2>

  [2
   r4f+4 r4f+4
   r4g+4 r4g+4
   r4a4  r4a4
   :
   r4g+4 r4e4
  ]
  r4g+4e2

  [2
   dr2 <a>df+
   er2 <b>eg+
   f+r2 <f+a>d
   :
   reg+<b> c+g+4e
  ]
  reg+<b> EP.onTime(127,0,!1.) c+1. EP(127) <

 EDTRANS()

 [2
  r4a4f4>c4<
  b2g2
  r4a4f4>e4
  :
  d2<a2
 ]
 d2a2 <

 [2
  rdfa rafd
  rdgb rbge
  rdfa rafd
  rdgb : rbge
 ]
 a2
 EP(100)

 r
 EDTRANS_REV()
 f+b>c+f+^2^1



//------------------------------------
// Track 5 : 
//------------------------------------
TR(5) CH(5) P(70)
@36 v78
M.onNoteWave(15,90,!2..)

 o3 l8 q90
 r2.. <a16&!16>c16

 c+16&!16d2.^32.&!32.c+64 f16a16
 f+16&!16g4.^32&!16f64r64 e8..&!32d64r64 c4
 c+32&d2^16. f16a16 b32&>c16.<f
 gd4 f+32&g8.. g<b>d+32&e16&!32d+64r64

 c+16&!16d4^16 f16a16 b64&>c16..f16d16c16<a16>c8<
 b4^16..&!8..g64 e16c16 d+16&!16e8^32&!32.c+64r64 c4
 c+16&!16d4^32&!32.c+64r64 f16a16 >c e16f16 a16f16g+16&!16a16
 g4....&!8<g64 d4...&!8.<b64r64

  f+16&!16g2..^32&!16g+64r64
  e16&!16f2..^32&!16e64r64
  d+16&!16e2..^32&!16d+64r64
  f2 g8&!8a4^16.&!16g+64r64
  f+16&!16g2..^32&!16g+64r64
  e16&!16f2.^32&!16g+64r64 g+32&a16.
  b16&!16>c2...<
  c+16&!16d4.. >c8&!8d4^16..&!16.<b64

  d4d4d4f>f<
  g4g4g>g<c>c<
  d4d4d4f>f<
  g4g>g<a4a>a<

  [2 dd : dd16d16] de16f16
  [2 gg : gg16g16] g>f16e16<
  [2 dd : dd16d16] de16f16
  gg>g<g16g16 f2

  dd2 >d16f+16 g+32&a16.f+16d16<
  ee2 >e16c+16 d+32&e16.c+16<a16
  f+f+2 a16>c+16 f32&f+16.<a16>c+16<
  g+g+4b ee4>c+<
  dd2 >f+16a16 >c32&c+16.<f+16a16<
  ee2 >a16g+16 >c32&c+16.<a16e16<
  f+f+2 >c+16e16 g+32&a16.f+16c+16<
  g+a+32&b8.&!16a+64r64g+ >c+4....&!8<g+64

  [2
   >drrdrr>d<d<
    arrarr>a<a
    brrbrr>b<b
    :
   >c+rrc+rr>c+<c+<
  ]
  arrf+4. g16&!16g+8.
  a8&!8b1^2.r


  [3 r1]
  EP(80)
  >>
  r2..d16&e16
  e32&f4...^8 <b32&>c16.<af
  e2^8..&!4<b64r64> d+64&e32.c16e16g16
  a16&!16b-4^32&!16a64r64 a16&g16 f4>e16&!16f8.
  d+16&!16e4.^32&!8d64r64 c4....&!32<g+64>
  <<
  EP(127)

  [2
   [2 dd : dd16d16] de16f16
   [2 gg : gg16g16] g>f16e16<
   [2 dd : dd16d16] de16f16
   :
   gg>g<g16g16 a>a<a>a16<a16
  ]
  ggg>g16<g16 f2

  dd4a16f+16d >d16f+16 g+32&a16.f+16d16<
  ee4bg+ >e16c+16 d+32&e16.c+16<a16
  f+f+4>c+16<a16f+ a16>c+16 f32&f+16.<a16>c+16<
  g+g+4b ee4>c+<
  dd4a16f+16d >f+16a16 >c32&c+16.<f+16a16<
  ee4>e<f+16a16 >a16g+16 >c32&c+16.<a16>d+64&e32.<<
  f+f+4f+a16f+16 >c+16e16 f32&f+16.>c+16<a16<
  g+a16&!16b8^32&!16a+64r64g+ >c+4....&!8<g+64

  [2
   >drrd4.f32&f+16.d<
    g+rrg+4.>d+32&e16.c+<
    drrd4.>c+32&d16.<b
    :
    >c+d+32&e8.&!32.d+64r64c+  <a>eg+32&a16.c+<
  ]
  arra>c32&c+8.&!16c64r64<
  g+4^1

  EDTRANS()
  v(MML(v)+5)
  [2
   d4dd dfaf
   g4gg gb>g<b
   d4dd da>d<f
   :
   g4>g<g a>cea<
  ]
  g4>g<g a4f4

  [2
   dddd16d16 dd16d16>d16f16a16d16<
   gggg16g16 g16b16>e16<b16 >g16e16<b
   dddd16d16 dd16f16 >f16a16>c16<a16<
   :
   gg16g16>g16d16<b a16a16 >c16e16a16e16c<
  ]
  gg>g<g16g16 f2

  v(MML(v)-5)
  r
  <f1.r2


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

@1,90,1
l8
Rhythm {

  v60 S4S4S4S4 r-4 b16b16s64s16.. 

  v90 brrb brrr r-1 v127e v70c16c16 [3 v100c v70c16c16]
  v90 brrb brrb r-1 [3 v100c v70c16c16] v90c16v70c16 v80o
  v90 brrb brrr r-1 [4 v100c v70c16c16]
  v90 brrb brrb r-1 [3 v100c v70c16c16] v90c16v70c16 v80o

  v90 brrb brrr r-1 v110 rrrr rrS4 r-1 v127e v70c16c16 [3 v100c v70c16c16]
  v90 brrb brrb r-1 v90  rrrr rrs4 r-1 [3 v100c v70c16c16] v90c16v70c16 v80o
  v90 brrb brrr r-1 v110 rrrr rrS4 r-1 [4 v100c v70c16c16]
  v90 brrb brrr r-1 v90  rrrr l16 s64s32.sqq l24 aaa l32 z.z.z l8 r-1 [3 v100c v70c16c16] v90c16v70c16 v80o

  v90 brrr rrrb r-1 v127y v50c [3 v100c v50c]
  v90 brrb rrs4 r-1 [4 v100c : v50c] v80o
  v90 brrr rrrb r-1 v110i v50c [3 v100c v50c]
  v90 brrb rrs4 r-1 [4 v100c : v50c] v80o

  v90 brrr rrrb r-1 v127e v50c [3 v100c v50c]
  v90 brrb rrs4 r-1 [4 v100c : v50c] v80o
  v90 brrb brrb r-1 v110j v50c [3 v100c v50c]
  v90 brrb brbs16s16 r-1 [4 v100c : v50c] v80o

  v90 brbr brbr r-1 v127e v60c16c16 [3 v100c16 v60c16 v90c16 v60c16]
  v90 brbr brbr r-4 v90 's4w4' r-1 [4 v100c16 v60c16 v90c16 v60c16]
  v90 brbr brbr r-1 [4 v100c16 v60c16 v90c16 v60c16]
  v90 brbr brbr r-2 l16 v90 qasa qsqa l8 r-1 [4 v100c16 v60c16 v90c16 v60c16]

  v90 brrr brrr r-1 v90 rrs4 rrs4 r-1 v127y v60c16c16 [3 v100c v90c16 v60c16]
  v90 brrr bbrr r-1 v90 rrs4 rrs4 r-1 [4 v100c v90c16 v60c16]
  v90 brrr brrr r-1 v90 rrs4 rrs4 r-1 [4 v100c v90c16 v60c16]
  v90 brrb rrrb16b16 r-1 v90 rrs4 s4r4 r-1 [2 v100c v90c16 v60c16] v90 d4 f4

  v90 bbrr brrr      r-1 v90 rrrr rrs4 r-1 v127 e4 v100 j4j4j4
  v90 bbrr rb16b16rr r-1 v90 rrrr rrs4 r-1 v100 j4j4j4j4
  v90 bbrr brrr      r-1 v90 rrrr rrs4 r-1 v100 j4j4j4j4
  v90 bbrb b16bb16rr r-1 v90 rrrr rrl16 sszz l8 r-1 v100 j4j4j4j4

  v90 bbrr brrr      r-1 v90 rrrr rrs4 r-1 v127 e4 v100 j4j4j4
  v90 bbrr rb16b16rr r-1 v90 rrrr rrs4 r-1 v100 j4j4j4j4
  v90 bbrr brrr      r-1 v90 rrrr rrss16s16 r-1 v100 j4j4j4j4
  v90 brbr brrr r-1 v90 l16 rrqqaa zz l8 rrrr r-1 v100 j4j4 v127 'e4y4' v50 f4

  [2
   v90 brrb rrrr r-1 v120 rrS4 rrS4     r-1 v127e v60c16c16 [3 v100c16 v60c16 v90c16 v60c16]
   v90 brrb rrrb r-1 v120 rrS4 v90 rrs4 r-1 [4 v100c16 v60c16 v90c16 v60c16]
   :
   v90 brrb rrrr r-1 v120 rrS4 rrS4     r-1 [4 v100c16 v60c16 v90c16 v60c16]
   v90 brrb rrrb16b16 r-1 v120 rrS4 v90 rrs16s. r-1 [4 v100c16 v60c16 v90c16 v60c16]
  ]
  v90 brrb rrrr r-1 v120 rrS4 v90 r l16 aa sszz l8 r-1 [3 v100c16 v60c16 v90c16 v60c16] v70 ff
  v90 brrb rb16b16rr r-1 v90 rrs4 rrs64s32.s16w16w16 r-1 [2 v100c16 v60c16 : v90c16 v60c16] v127 e^2
}
EP.onTime(127,0,!1)
Rhythm {
  v100 [24 y48e48] r1
}
EP(127)
Rhythm {

  [7 r1]
  r2... v60c64c64 o32

  [2
   v90 brrr brrr r-1 v90 rrs4 rrs4 r-1 v127y v60c16c16 [3 v100c16 v60c16 v90c16 v60c16]
   v90 brrr bbrr r-1 v90 rrs4 rrs.v70s16 r-1 [4 v100c16 v60c16 v90c16 v60c16]
   v90 brrr brrr r-1 v90 rrs4 rrs4 r-1 [4 v100c16 v60c16 v90c16 v60c16]
   :
   v90 brrr brbr r-1 v90 rrs4 r[3 'sw'] r-1 [4 v100c16 v60c16 v90c16 v60c16]
  ]
  v90 brrb rrrb16b16 r-1 v90 rrs4 s64s...r4 r-1 [2 v100c16 v60c16 v90c16 v60c16] v90 d4 f4

  [2
   v90 brbr brbr r-1 v127e v60c16c16 [3 v100c16 v60c16 v90c16 v60c16]
   v90 brbr brbr r-4 v90 sz r-1 [4 v100c16 v60c16 : v90c16 v60c16] v80o
   v90 brbr brbr r-1 [4 v100c16 v60c16 v90c16 v60c16]
   :
   v90 brbr bbbb r-2 v90 s64s...ss16s16 r-1 [3 v100c16 v60c16 v90c16 v60c16] v90 d v70f
  ]
  v90 brbr brbr r-2 l16 v90 ssqq aa l24 zzz l8 r-1 [4 v100c16 v60c16 v90c16 v60c16]

  [2
   v90 brrb rrrr r-1 v110 rrS4 rrS4 r-1 v110 yrre rr v90 d4
   v90 brrb rrrr r-1 v110 rrS4 rrS4 r-1 v110 yrre rr v90 d4
   v90 brrb rrrr r-1 v110 rrS4 rrS4 r-1 v110 yrre rr v90 d4
   v90 brrr bbrr r-1 v110 rrS4 rrS4 r-1 v110 yrjr erjr
  ]
  r1

  v90 brrb brrr r-1 v100 rrS4 rrS4 r-1 v127e v70c16c16 [3 v100c v70c16c16]
  v90 brrb brrb r-1 v100 rrSv70S rr v90 s.v60s16 r-1 [3 v100c v70c16c16] v90c16v70c16 v80o
  v90 brrb brrr r-1 v100 rrS4 rrS4 r-1 [4 v100c v70c16c16]
  v90 brrb brrb r-1 v100 rrSv70S rr v90 sv70s16s16 r-1 [3 v100c v70c16c16] v90c16v70c16 v80o

  v90 brrb brrr r-1 v100 rrS4 rrS4 r-1 v127e v70c16c16 [3 v100c v70c16c16]
  v90 brrb brrb r-1 v100 rrSv70S v90 rrs.v60s16 r-1 [3 v100c v70c16c16] v90c16v70c16 v80o
  v90 brrb brrr r-1 v100 rrS4 rrS4 r-1 [4 v100c v70c16c16]
  v90 brrb brrr r-1 v100 rrSv70S16S16 v95 l16 s64s32.sqq l24 aaazzz l8 r-1 [3 v100c v70c16c16] v90c16v70c16 v80o

  [2
   v90 bbrr bbrr r-1 v90 rrs.v60s16 r16sr16 v90 s.v50s16 r-1 v127y v60c16c16 [3 v100c v90c16 v60c16]
   v90 bbrr b16bbbb16 r-1 v90 rrs.v60s16 rrv90s.v65s16 r-1 [4 v100c v90c16 v60c16]
   v90 bbrr bbrr r-1 v90 rrs.v60s16 r16sr16 v90s.v50s16 r-1 [4 v100c v90c16 v60c16]
   :
   v90 bbrr bb16b16rb r-1 v90 rrs.v60s16 r16s16s16r16 v90sv70s16s16 r-1 [4 v100c v90c16 v60c16]
  ]
  v90 rb16b16rb rrrr r-1 v90 s16s16r q16a16z16s16 s64s...r4 r-1 [2 v100c v90c16 v60c16] v90 d2
  r
  v115 'e1y1'

}