-- Tais-toi et grimpe !
do
setcps (90/60/4)
let gDJF1 = (# djfbus 1 (range 0.05 0.9 "^49"))
let gDJF2 = (# djfbus 2 (range 0.01 0.99 "^29"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let mBreakManual = (midiOn "^73" (mask "f*16"))
let g1 = (gDJF1)
let g2 = (gDJF2)
let m = mBreak . mBreakManual
d1 $ g1
  $ midiOn "^74" ((<| "k*4 . k k k <k k*2>") . (superimpose ((# "bassfoo") . (|* gain 0.8))))
  $ midiOn "^42" (<| "<k*4!8 k(3,8)!8> . k <k ~> <k [~ k?]> k*<2 1 2 [2|1]>")
  $ midiOff "^42" ((<| "k . ~ k ~ ~") . m)
  $ "[jazz,cpu]"
  # midiG' "^78" 0 1
d2 $ g1 $ m
   $ "~ s ~ s" # "sn:1"
  # midiG' "^79" 0 1
d3 $ g2 $ m
  $ whenmod 8 6 (fast "<2 [4 . 2 1]>")
  $ "drum:2*[8!3 <16!3 [32 16]>]"
  # midiG' "^51" 0 0.65
  # pan 0.8
d4 $ g2 $ m
  $ midiOn "^44" (# speed (0.5 * range 0.5 1.5 "^52"))
  $ midiOn "^76" rev
  $ whenmod 8 7 rev
  $ slice 8 ("0 1 2 3" + "<0!3 4>")
  $ loopAt 2 $ "fbreak100"
  # midiG' "^80" 0 1
d5 $ g2 $ m
  $ note (scale "aeolian" ("0 . 5 <4!3 2>"))
  # "moog"
  # cut 5
  # pan 0.2
  # crushbus 50 (range 10 2.1 "^53")
  # midiG' "^81" 0 1
d6 $ m $ note (scale "aeolian" ("0 1 <2 [2@2 1]> <3!2 [2 3]> . ~ <4!3 <6 7>>"))
  # "pluck:5"
  # cut 6
  # att 0
  # rel (0.25 + 0.1 * perlin)
  # crushbus 60 (range 10 1.9 "^54")
  # pan 0.8
  # room 0.4
  # midiG' "^82" 0 0.6
d7 $ g2
  $ midiOff "^59" (mask "t f!7 . t f!3 t f!3")
  $ note (scale "aeolian" (
    "[0 <7!3 0> <~ 2> 2 3] . 5 7 <4!3 2> <2!3 4>"
    + "[0,7]"
    - 14
  ))
  # "doubleBass"
  # room 0.4
  # sz 0.8
  -- TODO: Add cool effect (crush doesn't work well)
  # midiG' "^83" 0 1