resetCycles

do
setcps (85/60/4)
let gDJF1 = (# djfbus 1 (range 0.10 0.80 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let g1 = (gDJF1)
let g2 = (gDJF2)
let mDegrade = (midiOn "^73" (chop 4))
let m = mBreak . mDegrade
d1 $ g1 $ m -- Kick basic
  $ "k . ~!3 <~ <k k*2>>"
  # "[jazz,808bd:2]"
  # lpf 1200
  # midiG' "^78" 0 1.2
d2 $ g1 $ m -- Snare 90s hip-hop
  -- $ mask "<f!8 t!54>"
  -- $ whenmod 4 3 (ply "<2!4 2 2 4 <4 8>>")
  -- $ fast "<2 <2!8 [4!3 2]!8>>"
  $ midiOff "^43" (mask "f t")
  $ "~ s ~ s" # "[snare:8]"
  # midiG' "^79" 0 1.2
d3 $ g1 $ m -- Drumroll offert
  $ ply "1!3 <1 2>"
  $ mask "t <t!3 [f t]>"
  $ "drum:2*8"
  # midiG' "^80" 0 1.1
  # pan 0.4
d4 $ g1 $ m -- Break lourd pneumatique déconstruit
  $ midiOn ("^44" - "^76") (ply 2)
  $ midiOn "^76" (striate 4)
  $ slice 4 (run 4)
  $ loopAt 1
  $ "break:15"
  # gain 0.5
  # pan 0.6
  # midiG' "^80" 0 1.2
  # cut 4
d5 $ g2 -- BASSLINE
  $ midiOn "^57" ((|+ note 12) . (# legato 4))
  $ note ("a4@2 c@3 <e!3 f> <f!3 e>")
  # "90s_matrix:3"
  # cut 4
  # pan 0.3
  # midiG' "^81" 0 0.57
  # lesliebus 41 (range "-1" 1 "^17")
  # lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
  # lpf 5000
  # lsizebus 42 (range 1.9 6.7 "^33")
  # crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
  # room 0.2
d6
  $ midiOn "^58" (iter "1 4")
  $ midiOn "^90" (ply "<2 4>")
  $ someCyclesBy "<0!4 1!60>" (slice 4 (
    "0 1 2 <3!3 2*<1 2>>"
    ))
  $ someCyclesBy "<1!4 0!60>" (slice 4 ("0 <~!3 0>"))
  $ loopAt 1
  $ "celtic_guitar85"
  # pan 0.67
  # midiG' "^82" 0 1.2
  # cut 6


once $ "808bd:1" # note "d" # gain 2

d5 -- SUB accompagnateurs
  $ g
  $ mask "<f!8 f f t t t!50>"
  $ note "d*<1!4 2!4> ~!3 . ~!3 <~ <f g>*<1!3 <4 [4 2]>>>"
  # "808bd:1"
  # lpf 4000
  # gain 1.1
  # room 0.5
  # pan 0.33