do
-- resetCycles
setcps (100/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick
  $ midiOff  "^41" (<| "k k k <k <k*2 [~ k]>>")
  $ midiOn "^41" (<| "k ~ ~ <~ k> . <k ~>")
  $ "[jazz,kick:5]"
  -- # midiG' "^78" 0 1.3 -- FIXME Remove after unplugging direct SC->output line
  # pan 0.8
  # gain 1.4
d2 $ gF1 $ gM
  $ midiOff  "^42" (<| "~ s ~ s*<1!4 2!3 1>")
  $ midiOn "^42" (<| "~ ~ ~ k")
  $ "[drumtraks:9]"
  -- # midiG' "^79" 0 1.45
d3 $ gF1 $ gM
  $ midiOn "^43" (ply 2)
  -- 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 2)
  $ "d d d <d [<d ~> d]>" # "drum:2"
  # gain 0.8
  -- # midiG' "^80" 0 1
  # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 -- V2
  -- $ superimpose ((arp "up") . (|+ note 12))
  $ midiOn "^44" (stutWith 4 0.25 ((|* gain 0.85) . (# room 0)))
  $ note (cat [
    -- PARTITION ORIGINALE
    -- "[bf3, d4, f4, a4]", -- Bbmaj7
    -- "[a3, c4, e4, g4]", -- Am7
    -- "[d4, f4, a4, c5, <e5 e4>]", -- Dm9
    -- "[g3, b4, d5, <f5 ~>]" -- <G7 G>
    -- TRANSPOSE POUR SP <3
      "[d4, fs5, a4, cs5]", -- Dmaj7
      "[gs4, b4, cs5, es5]", -- Csm7
      "<[fs4, a4, cs5, e5, gs5] [fs4, b5, cs5, e5, gs5]>", -- Fsm9/Fsm11
      "[b4, d5, fs5, <a4 a5>]" -- <B7 B>
  ]
  - 12
  )
  # "FMRhodes2"
  -- |- note 12
  |+ note 2 -- Adjust to C
  # modIndex (range 0 2 "^32")
  -- # midiG' "^81" 0 1.6
d5 $ note ("<[d3@1.25 e3@0.25 ~@0.75 f3@2 ~] [e3@1.25 f3@0.25 ~@0.75 g3@2 ~] [f3@1.25 g3@0.25 ~@0.75 a3@2 ~] [a3 g3 g3 f3 f3 d3 c3 d3]>")
  # "bassWarsaw"
  # cut 1
d8 $ gF1 $ gM
  $ midiOn "^92" (ply 4)
  $ iter "1 <1!4 4!4>"
  $ chop 8
  $ loopAt 2
  $ "break:2"
  -- # n 4
  # cut 8
  # gain 0.7
d10
  $ (0.5 <~)
  $ n "<1 2 3 4 5 6 7 8>"
  # "numbers"
  # crush 8
  # hpf 1250

once $ "ho:5"
  # gain 0.5

once $ "jungle_breaks:27" # cut 1

once $ note "a3" # "superpiano"
