
do
setcps (120/60/4)
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gMute
  $ midiOn "^41" (struct "t t t <t!3 [~ t]>")
  $ midiOff "^41" (struct "t")
  $ "jazz"
  # midiG' "^78" 0 1.2
d2 $ gF
  $ midiOn "^42" (<| "~ c ~ c*<1 <2 [4 <2 4>]>>")
  $ midiOff "^42" (<| "~ c")
  $ "cp" # lpf 2000 # gain 0.8
  # midiG' "^79" 0 1.2
d3 $ gF3 $ gMute
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
  $ midiOn "^76" (ply 4)
  $ midiOn "^43" (struct "t*[8 8 <8 16> <8!3 16>]")
  $ midiOff "^43" (<| "h . h([2 <4!3 5>],8)")
  $ drumFrom "yamaharm50" "hh"
  # midiG' "^80" 0 1.2
d4 $ gF2
  $ midiOn "^76" (ply "1 . <2 1> <1 <2 4>>")
  $ midiOn "^44" (|+ note 12)
  $ note (stack ["[bf3 ~] bf3@7",
  "[~!3 <~!4 bf3!4> . bf3 ~ cs4 <ds4!3 f4>]"
  ])
  # "bassWarsaw"
  # crushbus 51 (range 16 3.4 "^32") -- BURN ME I'M FAMOUS
  # roombus  52 (range 0 0.8 "^32") --  REVERB AND DINE BEFORE THO
  # midiG' "^81" 0 1.2
d6 $ gF3
  $ note (
    "<bf5 c6 cs6 <ef6 f6>>"
    -- |+| "0 ~ [0 0] ~ ~ 0*2  ~ >"
    |+| "[<0 <0 ~> ~ 0> 0] ~ ~ ~ 0 ~ ~ ~ <[0 12] <0 [0 12]>*2>"
    )
  # "cpluck:2"
  # cut 6
  # crushbus 61 (range 16 2.8 "^34") -- BURN ME I'M FAMOUS
  # midiG' "^82" 0 1.2
d7 $ gF3 -- SHILOOOOOH FIXME: Marche plus avec la nouvelle basse
  $ midiOff "^59" ((# room 0.2) . (# legato 0.5))
  -- $ (# hpfbus  71 (range 200 8800 ("^19")))
  -- $ (# lpfbus  71 (range 8800 200 ("^35")))
  $ (# lratebus  73 (range 1 10 ("^35")))
  $ (# lesliebus 72 (range 0 1 ("^55")))
  $ slice 4 ("<[<0!3 1>]!4 [<2 [2*2]>]!4>")
  $ loopAt 16
  $ "shiloh:4/2"
  # pan 0.2
  # room 0.53
  # sz "<0.5!3 <0.8 0.9>>"
  # lsize 4
  # legato 2
  # cut 7
  # midiG' "^83" 0 1.2
d8  $ gF3 $ gM -- SIDE DRUMS TO THE RESCUE!
  $ midiOn "^36" (# n "20") -- SLOW DOWN
  -- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^56 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d8's own control with gSel.
  $ midiOn "^56" (# n "10") -- HAT TRICK
  $ midiOn "^56" ((# n "11")) -- RESOLUTE
  $ midiOn "^60" (slow "2 <4 8>")
  $ midiOn "^92" (ply "2 <4 8>")
  $ loopAt 4
  $ chop 16
  $ "jungle_breaks:1"
  # cut 7
  # pan 0.8
  # midiG' "^84" 0 1.2
