do
setcps (80/60/4)
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gLPF = whenmod     64 48 (# lpfbus 4 (slow 16 $ range 20000 200  saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
d1 $ gLPF $ gF $ gMute $ midiOn "^75" (fast 2)
  $ fix (|* gain 0.8) "kick"
  $ fix (|* gain 0.8) "bskick"
  $ midiOn "^41" (<| "k k k k k k k*<1!7 2> [<k <~ k>> k]")
  -- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 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.
  -- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 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 "^42" (<| "k k k <[k k*2] <[k*2 k] [k*4]>>")
  $ midiOff "^42" (<| "bd*[4 <6!3 [6 12]>]")
  $ "[808bd:11,bskick:0,jazz]" -- 11
  # midiG' "^78" 0 1.3
  # room 0.2 # sz 0.2
  # dry 0.99
d2 $ gLPF $ gF
  $ midiOn "^75" (struct "[~ t]*[4 <4 8>]")
  $ midiOn  ("^42" - "^75") (whenmod 8 7 (fast "2 4") . (struct "~ t ~ t"))
  $ midiOff ("^42" + "^75") (struct "~ t")
  $ "[bssnare:0,bssnare:3]"
  # midiG' "^79" 0 1.2
d3 $ gLPF $ gF $ gM2
  $ midiOn "^43" (ply "<2!3 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" (chop 4 . loopAt 2 . (>| "jungle_breaks:44"))
  $ whenmod 8 4 (ply "1 2")
  $ "h(<8!4 16>, 16)"
  #
    -- drumFrom "rolandr8"
    "hh"
  # pan 0.6
  # midiG' "^80" 0 1.2
  # lpf 4000
d8 $ gF3
  $ (|* gain (slow 32 $ range 0.3 0.8 saw))
  $ "~ 808cy:5*<1!7 2>"
  # room (slow 32 $ range 0 0.5 saw)
  # sz 0.2 # dry 1.13
  # midiG' "^80" 0 1
d4 $ gLPFSoft $ gF2 -- Guitar sample turned bassline
  $ midiOn "^44" ( -- ELECTRIC
    whenmod 4 3 ((# crushbus 41 (range 5 3.5 saw)))
    )
  $ ply "1 <1 2>"
  $ slice 4 0
  $ chop 8
  $ loopAt 4
  $ "celtic_guitar80"
  # n "4"
  # cut 4
  # room 0.3
  # dry 1.2
  # sz 0.9
  # pan "0.7 0.3"
  # midiG' "^81" 0 1
  # crushbus 42 (range 16 2 "^32")
d5 $ gF2 $ gM3 -- BASS BONES
  $ midiOn "^89" (ply "<8 16>")
  $ note "<ef ef {b, [~!7 fs]} fs>"
  # "moog"
  # cut 5
  # pan 0.2
  # crushbus 51 (range 16 2 "^33")
  # octerbus 52 (range 0 0.63  "^53")
  # octersubbus 53 (range 0 0.58 "^53")
  # midiG' "^84" 0 1.8
d6 $ gF3 $ gM3 -- High pitched guitar
  $ whenmod 4 3 (someCyclesBy (slow 32 $ range 0.5 0.95 saw)
  $ ply "<2 [2 4] 4 8>")
  $ slice 32 "1 1 1 <2 <[1 1] [1 <2 3>]>>"
  $ chop 32
  $ loopAt 1
  $ "celtic_guitar80:4"
  # pan 0.2
  # midiG' "^82" 0 0.8
d7 $ gF3 -- Divine
  $ midiOn "^91" (ply "2 <4 <2 8>>")
  $ chop 4
  $ "voices_celtic"
  # n "4 <4 4 5 <4 3>> 5 <6 5 5 4>"
  # cut 7
  # pan 0.8
  # crushbus 71 (range 16 3 "^35")
  # midiG' "^83" 0 0.8
