once $ "dr"


do
setcps (100/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = (gDJF)
d1 $ g
  $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
  $ midiOff "^41" (<|
    "k*<1!3 <2 <1 2>>> . k(<3 [3 5] [3 2]>,8)")
  $ "reverbkick"
  # midiG' "^78" 0 1.52
d2 $ fast 2 $ "~ cp"
  # note "-1"
  # room 0.7
  # dry 1.09
  # sz 0.9
  # midiG' "^79" 0 1.52
d3 $ g
  $ slice 8 "<0 1 0 0> <2*<1 2> [2 3] 3 <3 6>>"
  $ loopAt 4
  $ "dusty"
  # cut 3
  # hpf (slow 8 $ range 5000 1000 perlin)
  -- # gain 1.5
  # lsize (range 0 8 "^16")
  # lrate (range 0.8 6.8 "^32")
  # leslie (range 0 2 "^52")
  # midiG' "^80" 0 1.52
d6 -- Runny Maracas
  $ g
  $ whenmod 16 8 (often $ fast 2)
  $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
  $ fix ((|* gain 0.9)) (n 9)
  $ fix ((# release 0.8)) (n 9)
  $ "hh27*8"
  # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
  # note (range "-12" 12 "^55")
  # midiG' "^83" 0 1.2