
-- Prestance
do
setcps (134/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let praxis = "<[~ d5 d4 e4 g4 a4 b4 d4] [e4 g4 a4 b4 <e4 g4>@4]>"
d1 $ gF1 $ gM
  $ midiOn "^41" (<| "k k k k*<1!7 2>")
  $ midiOff "^41" (<| "k . k(<0!3 1 0 1 3 3>,8,<0!3 6>)")
  $ "[jazz,808bd:3]"
  -- # midiG' "^78" 0 1.4
d2 $ gF1
  $ midiOn "^42" (<| "~ c ~ c*<1!3 2>")
  $ midiOff "^42" (<| "~ <~ c>")
  $ "snare:40"
  # note "-4"
  -- # midiG' "^79" 0 1.8
d3 $ gF1 $ gM
  $ midiOn "^43" (loopAt 2 . (>| "jungle_breaks:35"))
  -- 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" (off 0.5 (ply "<1!3 2>"))
  -- $ chop 8
  $ midiOff "^43" (slice 8 "<0 1 2 3 [0 1] [1 2] [1 2] [1 2]>")
  $ loopAt 2
  $ "break:20"
  -- # midiG' "^80" 0 1.4
d4 $ gF2 $ gM3 $ note "<[a2@2 ~ ~ a2 b2 ~ <~!1 <b2 e2>>] <e2 g2>>"
  # "FMRhodes1" # cut 4
  # modIndex 5
  # room 0.2
  # delay 0.8
  # delayfb "<0.1!3 0.65>"
  # delayt 0.125
  # crushbus 41 (range 16 2.5 "^32")
  -- # midiG' "^81" 0 1.6
d6 $ gF3 $ gM3
  -- $ mask "<f!12 t!4>"
  $ note praxis
  # "bassWarsaw"
  # modIndex 5
  # crushbus 61 (range 16 2 "^34")
  # midiG' "^54" 0 1.4
  # pan 0.3
d7 $ gF3 $ gM3
  $ mask "<t(10,16)!8 f(10,16)!8>"
  $ note (praxis + 36)
  # "prophet5pwmStrings"
  # pan 0.9
  -- # midiG' "^18" 0 1.4
d8 $ gF3 $ gM2
  -- $ mask "<f(10,16)!8 t(10,16)!8>"
  $ juxBy 0.3 (mask "t(3,8) . t(12,16)" . (|+ note 12))
  $ note (rev praxis)
  # "moogBass"
  # modIndex 5
  # pan 0.9
  -- # midiG' "^19" 0 1
d9 $ gF2
  $ n "14 <13 14 14 13>"
  # note (
    "<[~ d4@7] [~ <e4 g4>@7]>"
    + 12
  )
  # "meth_bass"
  # crushbus 91 (range 16 2.5 "^55")
  -- # midiG' "^83" 0 1
  # cut 9
d10
  $ mask "<f!14 t f>"
  $ "jungle_pads:4@2"
  # cut 10
  -- # midiG' "^13" 0 1
