do
resetCycles
setcps (170/60/4)
let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 =  (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 =  (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
  $ midiOn  "^42" (<| "k k k k*<1!3 2>")
  $ midiOff "^42" (<| "k  . ~ k ~ ~ ")
  $ "[kick:4]"
  # gain 1.2
d2 $ gF1 $ gM1 -- Snare melancolie fromagere
  $ midiOff  "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
  $ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
  $ "[hardkick_rha:1]"
  # gain 1.45
d3 $ gF1 $ gM1
  $ midiOn "^44" (ply 2)
  $ midiOn "^76" (ply 2)
  $ "d*[16 <12 <16 [12 24]>> . 8]" # "dr"
  # gain 1.2
  -- # midiG' "^80" 0 1
  # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
  $ fix (|* gain (range 1 0.5 ("^17" + "^35"))) "vec1_acid:11"
  $ midiOn "^89" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
  $ superimpose ((|* gain "^17") . (# n 10) . (# legato 0.8))
  $ superimpose ((|* gain "^33") . (# n 12)
  -- . (# cut 41)
  )
  $ note ("d*<3 4 3 2> . ds ds df"
    + 2 -- Calage
  )
  # "vec1_acid:11"
  # room 0.5 # sz 0.5
  # crushbus 41 (range 16 1.5 "^53")
-- d5 $ gF3 $ gM3
d5 $ gF3 $ gM3
  $ superimpose ((# hpf 500) . (ply "<1!3 <2 4>>")
  . (# crushbus 51 (range 16 3 "^54"))
  )
  $ note ("a(3,8) . as*<1 2> af" + "<0!8 12!8>")
  # "cpluck:1"
  # room 0.3
  # octerbus 52 (range 0 0.8 "^34")
  # octersubbus 53 (range 0 0 "^34")
  # octersubsubbus 54 (range 0 0 "^34")
d6
  $ loopAt 2
  $ slice 2 "<0 1>"
  $ "meth_bass:9"
  # delay "<0!8 0.5!8>"
  # delayt 0.5
  # delayfb "<0!4 0.4!4 0.6!4 0.8!4>"
  # room 0.2
  # sz 0.8
  # cut 6
-- d7 $ gF3 $ gM3 -- FIXME CHORUS
--   $ note ("0 12 0 12 0 <12 12 24 24> 0 12"
--   + "a . as af"
--   + "<0!8 12!8>" - 24)
--   # "moogBass"
--   # room 0.4
--   # sustain 2
--   # att (range 0.01 0.13 "^55")
--   # chorus 2
d8 $ gF1 $ gM1
  $ loopAt 2
  $ midiOff "^60" (mask "f(8,16)" . chop 16)
  $ midiOn "^56" (# "jungle_breaks:7")
  $ midiOn "^36" (# "jungle_breaks:37")
  $ chop 16 $  "jungle_breaks:101"
  # cut 8
d9 $ gF3 $ gM3
  $ midiOn "^89" (ply "<2 4 8 >")
  $ note "<a as <a a df5 df5> <d df>>"
  # "moog"
  # cut 9
  # room 0.3 # dry 0.5
  # gain 1.3
  # crushbus 91 (range 16 2 "^19")