once $

do
setcps (110/60/4)
let d = drumFrom "rolandtr808"
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.01 0.99 "^29"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^13"))
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 $ gF1 $ gM
  $ superimpose ((# "jazz:0") . (|* gain 0.9))
  $ midiOff "^42" (<| "k . <~ <[~ k] k(<3 [<1 <3 5>> 5]>,8)>>")
  $ midiOn  "^42" (<| "k k k <k [<k ~> k]>")
  $ d "bd:1"
  # midiG' "^78" 0 1.3
d2 $ gF1 $ superimpose ((# "snare:13") . (|*gain 0.8)) $ d "~ [sd:5]"
  # midiG' "^79" 0 1.5
d3 $ gF1 $ d "~ sh ~ sh*<1!3 <2 [4 2]>>"
  # n "<1!3 <2 [2 1]>>"
  # midiG' "^80" 0 1.3
d4 $ gF2 $ slow 2 -- Intro dark bass rample
  $ "rampleO7"
  # n "<0 1 2 3>"
  # cut 4
  # crushbus 41 (range 16 2 "^53")
  # roombus  42 (range 0 0.52 "^33")
  # midiG' "^81" 0 1.3
d5 $ silence -- TODO SECONDE BASS GROOVY
d6
  $ slice 4 "<0 0 0 1 [0 1] [0 1] [1 1] <[1 2] 2>>"
  $ "fmono:37"
  # room 0.3
  # sz 0.5
  # pan 0.2
  # midiG' "^83" 0 0.6
  # cut 9
d7
  $ whenmod 64 32 (superimpose ((
    (whenmod 16 8 (|+ note "12"))
    . (# cut 71) . chop 2)
    ))
  $ mask "<t!7 f>"
  $ "fmono:39"
  # pan 0.8
  # cut 7
  # midiG' "^84" 0 0.6




d6 $ gF3
  $ arp "up"
  $ d "cb:1"
  # note ("c'maj'4")
  # note ("0"
  -24)
  # midiG' "^82" 0 1.3
  # pan 0.9