do
setcps (120/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ "jazz*4" # lpf 3000
d1 $ gF1 $ gM1 
  $ "[jazz,kick:5]*4"
d2 $ gF1 $ gM2 $ dMask
  $ fix (
    (# lpf 800) . 
    (|* gain (slow 16 $ range 0.5 1.35 saw))
    ) "cp"
  $ "~ cp ~ cp*<1!3 2>" 
  # "[h2ogmcy:1,cp]" 
  # gain 1
d3 $ gF1 $ gM2 $ dMask 
  $ midiOff "^43" (mask "t(4,8,1)")
  -- 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" ((# "vec1_snare") -- Mechant drum-snare!!
  . (struct "t t t t t t*<1 2 1 1> ~ t*<1!3 2>")
  )
  $ midiOff "^44"(<| "~ h ~ h [~ <~!4 h!4>] h*2 ~ h*<1!15 2>" )
  $ "h2ogmhh:19"
  # legato "<0.33!16 0.5!16 0.75!16 1!16>"
  # hpf (slow 32 $ range 200 8000 sine)
d4 $ gF2 $ gM3 
  $ midiOn "^76" (superimpose ((0.25 ~>) 
  . (|+| note (
    "[0 7 0 12]*2" + 
    "0 0 0*<1!4 2!4> 0*<1 2 1 2 2!3 4>"
    + "<12!6 24 [24 . 12 0]>"
    ))))
  $ midiOn "^44" (ply "<4!3 [4 8] [4 8] 8 [4 8] [4 1] [16 8]*2!8>")
  $ note "<g3 g3 bf3 d3>" 
  # "bassWarsaw"
  # gain 1.2
  # crushbus 41 (range 16 4 "^32")
  # octersubbus 42 (range 0 2.5 "^52")
  # room 0.2
  # sz 0.2
d5 $ gF3 $ gM3
  $ midiOn "^89" (ply "4 8")
  $ midiOn "^57" (<| n "<[0 0 1 0]!3 0 0 ~ 0 1 2 ~ 2 ~ 2 ~ 2 2*<1 2>>" )
  $ midiOff "^57" (<| n "<0 1>") 
  $ "law_adri"
  # cut 5
  # pan 0.8
d7 $ gF3 $ gM3
  $ midiOn "^91" (ply "<2 2 [4 2] 8>")
  $ "law_adri" 
  # n "<4!4 5!4 5!4 8 8 5 89 10 9*2 9*2 11 12 13 14>" 
  # room 0.3
  # pan 0.3
  # cut 7
d8 $ gF1 $ gM2
  $ midiOff "^60" (mask "t(4,8,1)")
  $ chop 16 
  $ midiOn "^36" (loopAt 2 . (# "jungle_breaks:45"))
  $ midiOn "^56" (loopAt 2 . (# "jungle_breaks:19"))
  $ loopAt 1 $ "breaks165" 
  # gain 1.1
