once $ "dr"

do
setcps (90/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^29"))
d1 $ g1
  -- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 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 d1's own control with gSel.
  $ midiOn "^41" (fast 2)
  $ midiOn "^41" (<| "k k k <k!3 [<k ~> k*<1 2>]>")
  $ midiOff "^41" (<| "k . k(<3 [5 3] 3 <5 [5!3 8]>>,8)")
  $ "[jazz,909]"
  # midiG' "^78" 0 2
d2
  $ fast "<2!6 [4 8] 8>"
  $ "~ snare:5"
  # midiG' "^79" 0 1.5
d3 $ g1
  $ midiOn "^43"  (fast "2 <2!3 <[2 4]>>")
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 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). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 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 "^44"  (<| "~ h ~ h")
  $ chop 16
  $ loopAt 1
  $ "noir_beats:6"
  # speed (range 0 2 "^31")
  # midiG' "^80" 0 1.5
  # cut 1
d4  $ g2-- CHOIR BASS
  $ midiOff "^44" (mask "t(<4 <2 8>>,8)")
  $ slice 8 ("0 1 2 3 <4 ~> 5 <6!3 6?> <7 7 <7 3> 3>")
  $ "noir_choir:7"
  # lesliebus 41 "^32"
  # lrate 1
  # lsize (range 0.17 6.7 "^52")
  -- # lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
  -- # lpf 5000
  -- # lsizebus 42 (range 1.9 6.7 "^33")
  # cut 4
  -- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
  -- # crushbus 42 (range 14 0.85 "^53")
  # midiG' "^81" 0 1.5
  # room 0.3
-- d4 $ -- Noir Bass!
d5 $ g2
  $ midiOn "^57" (chop 16 . mask "<t f!3>")
  $ "noir_angels:1"
  # legato 4
  # cut 5
  # crushbus 51 (range 14 2 "^33")
  # midiG' "^82" 0 1.8
  # cut 1
d6 $ g2
  $ loopAt 2
  $ slice 4 (run 8)
  $ "fguitar"
  # n "<12!32 13!16 12!16>"
  # crushbus 61 (range 14 2 "^34")
  # cut 6
  # midiG' "^83" 0 1


once $ "noir_warp:5"
  # gain 0.8
  # cut 5
