once $ "scratch_long:50" # cut 1 # gain 0.8

once $ "voices_reggae" # cut 2
  # n 12 # gain 0.8

do
-- setcps (180/60/4)
let gF =  (# 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 gCPS = (# cpsbus 4 ((range 60 180 "^13")/60/4))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gCPS $ gF $ gMute
  $ midiOn "^74" (fast 2)
  $ midiOn "^42"  (<| "k k k <k [<k ~> k]>")
  $ midiOff "^42" (<| "k k")
  $ "[wobble,kick:5]"
  # midiG' "^78" 0 1.2
d2 $ gF $ gMute
  $ fix ((|- note 4) . (|* gain 0.95)) "cp"
  $ midiOn  "^43" (<| "~ s ~ s*<1 <2 [4 2]>>")
  $ midiOff "^43" (<| "~ s")
  $ "[snare:20,cp]"
  # midiG' "^79" 0 1.2
d3 $ gF $ gM -- course de chapeaux
  $ midiOff "^44" (mask "<t t(1,8)>")
  $ "~ o ~ o ~ o*<1 2> ~ o*<1!3 2>" # drumFrom "rolandd110" "oh"
  # midiG' "^80" 0 1.2
  # pan 0.7
d4 $ gF2 -- Meth == Crash
  $ midiOff "^59" ((# legato 1) . mask "<t f>")
  $ midiOn  "^91" (ply 8)
  -- $ loopAt 8
  $ chop 8
  $ "meth_1902:0"
  # pan 0.7
  # crushbus 41 (range 16 1.5 "^55")
  # cut 4
  # room 0.2 # sz 0.3 # dry 1.1
  # midiG' "^83" 0 1.2
d5 $ gF2 -- Prendre l'acid bus pour trouver du boulot
  $ midiOn "^57" (id)  show 
  $ midiOff "^57" (slice 8 "0 0 <~!8 0!8> 0*<1!8 2!8>" )
  $ loopAt 16
  $ chop 8
  $ "synth_commodore"
  # crushbus 51 (range 16 1.5 "^53")
  # pan 0.4
  # room 0.2 # sz 0.2 # dry 2
  # midiG' "^81" 0 1.53
  # cut 5
d8 $ gF $ gM
  $ midiOn "^20" (# n "48")
  $ midiOn "^36" (# n 50)
  $ midiOn "^60" (slow 2)
  $ midiOn ("^92") ((# legato "1 h") . (ply "2 <4 [4 8]>"))
  $ loopAt 2 $ chop 16
  $ "jungle_breaks:8"
  # rel 10
  # midiG' "^84" 0 1.4