Copyright = {"かまきりざーど"}
TrackName = {"petit golem"}

TR(00) Tempo = 100; Int L = 6; Int FT = 64; ResetGS; r4; TrackSync
Key = -1

TR(01) REV(127) @38 FineTune = FT;
t.onCycle(!16, 0, !48) ArgOrder(lvqto)
[7 r1 ]
o2 r-8 `e-32&&`e16^32 d4.`d16d16 l8 e`ef`g

l16
[(L)
  [2
    ara,,-20a `aaga raa,,-20a babg
    ara,,-20a `aaga ra,,-20g,,-20a b>c,,-20de,,-20<
    ara,,-20a `aaga raa,,-20a b`cba
    :frff `cfaf rgg,,-20g ff,,-20gg,,-20
  ] frff `ffa`c ee`ee f`fg`g
] a^^a ^^^^ r1

TR(10) REV(127) UseKeyShift(off);

t.onCycle(!16, 0, !48) BR(2) p0 @26 ArgOrder(lvqto)
l16 $b{'n35n36'} $s{'n38n39,,-50n40,,-30'} $e{n61,} $f{n60,}
#x = { v_.onCycle(!16, 0, -30) } #z = { v_.onCycle(0) }

#A = {
  [3
    { (#x) erff efff erfe ffef (#z) }
    { rraa rraa rraa aaaa }
    { rrrr srrr rrrr srrr }
      brrr rrrr bbbr rrrr
  ]
}

#B = {
  { (#x) erff efff erfe fefe (#z) }
  { rraa rraa rraa rraa }
  { rrrr srrr rrrr ss,,-30sr }
    brrr rrrr bbbr rrrr
}

#C = {
  { (#x) erff efff efef ffff (#z) }
  { rraa rraa aaaa aaaa }
  { rsrs rs,,-30rs rs,,-30rs rs,,-50s,,-30s }
    brrr brrr brbr brrr
}

#D = {
  { ff,,-30f,,-60f,,-80 }
  { aa,,-30a,,-60a,,-80 }
  { srr s,,-30rr s,,-60rr s,,-80rr }
    brr b,,-30rr b,,-60rr b,,-80rr
}

Rhythm {
  [((1 + L))
    [2 #A:#B ] #C
  ] #D
}

UseKeyShift(on);

Function SwapPan { P(127 - MML(y10)) }

#mar = {
  t.onCycle(!16, 0, !48) ArgOrder(lvqto) FineTune = FT;
  l16 q50
  $e{'"a"bce'} $f{'"acde'} $a{'"dcea'} $b{'"d"bgb'} $c{'"fcea'} $d{'"gdea'}
  Rhythm {
    o6
    (If (NowTrack >= 11 && NowTrack <= 13) {)
      (P(020)) [3 v100 [4 errf,,-20 rre,,-40r v-25 (SwapPan) ] ]
      v100 [2 arra,,-20 (SwapPan) rra,,-40r v-33 (SwapPan) ]
      v100 [1 brrb,,-20 (SwapPan) rrb,,-40r v-33 (SwapPan) ]
      v100 cc,,-20rr (SwapPan) v100 dd,,-20rr
      (P(020))
    (} Else {)
      [8 r1 ] (P(100))
    (})

    // START
    o6
    [2
        $a{'"ace'} $c{'cea'} $g{'"g"bd'} $e{'"f"ac'} $d{'"g"ad'}
        [4 araa caga rraa gagr :| araa caga raaa gggr ]
        araa aere rdrd dddr
        $a{'cea'} $c{'ea`c'} $g{'"bdg'} $e{'"ace'} $d{'"g"a"bde'}
        [4 araa caga rraa gagr :| araa caga raaa gggr ]
        araa aere rere d,,-20d,,-40dr
      [8 r1 ]
    ]
  }
}

TR(11) REV(127) @13 CoarseTune(88); TrackKey = -24;     EP(090) #mar
TR(12) REV(127) @13 CoarseTune(88); TrackKey = -24; r24 EP(050) #mar
// TR(13) REV(127) @13 CoarseTune(88); TrackKey = -24; r16 EP(050) #mar
TR(14) REV(127) @13 CoarseTune(88); TrackKey = -24;     EP(090) #mar
TR(15) REV(127) @13 CoarseTune(88); TrackKey = -24; r24 EP(050) #mar
// TR(06) REV(127) @13 CoarseTune(88); TrackKey = -24; r16 EP(050) #mar

Int LatestTime = 0;
Int LatestTrack = 0;
For (Int I = 1; I <= 16; I++) {
  TR(I) If (Time >= LatestTime) { LatestTime = Time; LatestTrack = NowTrack; }
}
If (LatestTrack >= 1) { Track(LatestTrack) y111,0 }

/*
  o6 v100 [4 '"fcea'rr'"fea`c' rr'cefa'r v-25 ]
  o5 v100 [4 '"fcea'rr'"fea`c' rr'cefa'r v-25 ]
*/