once $ "808bd:9"

-- STEP INTO SILENCE
do
setcps (120/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ g1
  $ midiOn "^41" ((<| "k k k <k [<~ k> k]>"))
  $ midiOff "^41" (<| "k . k(<1!3 <3 5>>,8)")
  $ "jazz"
  # midiG' "^78" 0 1.3
d2 $ g1
  $ midiOn "^42" (struct "~ t ~ t*<1 2 2 1>")
  $ midiOff "^42" (struct "~ t")
  $ "cp"
  # lpf 1200
  # room 0.2
  # sz 0.2
  # dry 1
  # midiG' "^79" 0 1
d3 $ g1
  $ midiOn "^43" (mask "t([5 <8!3 <4 16>>],16)")
  -- 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" (mask "t(16,32)" . ply 2)
  $ n "~ 0 ~ 0 ~ 0 ~ <0!3 2>*<2 1 2 2>"
  # "h2ogmsn" # gain 0.8
  # midiG' "^80" 0 1
  # pan 0.4
d4 $ g1
  $ midiOn "^44" (mask "t . t(<1 2 2 4>,8)")
  $ midiOn "^76" (mask "t(16,32)" . ply 2)
  $ sometimesBy (range 0 0.8 saw) (# pan 0.7)
  $ "h(1,8,<0 3>) . h(<1 3>,8)"
  # "h2ogmhh"
  # pan 0.3
  # midiG' "^80" 0 1.1
d5 $ g2 -- THE BASS REMNANTS
  $ midiOn ("^57" + "^89") (slice 4 "0 1 2 <3 1 3 3*8>")
  $ midiOn "^89" ((# legato 4) . (slow 4)) -- Hack longer sample
  $ "90s_matrix:0"
  # crushbus 51 (range 16 1.8 "^33")
  # legato 2 # cut 5
  # midiG' "^81" 0 1.8
d6 -- TODO BASSLINE <3
  $ note (-24) # "bassWarsaw"
  # midiG' "^82" 0 1.3
d8 $ g2
  $ midiOn "^92" (chop 2)
  $ midiOn "^60" (chop 8)
  $ "90s_glassatm:3" -- Scintillant espoir
  # crushbus 81 (range 16 1.8 "^36")
  # cut 8
  # midiG' "^83" 0 1.2
  # pan (0.9 - 0.3 * perlin)
d9
  $ slice 8 "0 1 2*<1!4 2 1!3> 3 0 <~!3 1> 3 7*<1!3 2>"
  $ "fm:7"
  # midiG' "^84" 0 1.2


once $ "90s_glassatm:1"
  # note (-12)
  # gain 1 # cut 3

once $ "90s_synatm:0" # note (-16)
  # gain 1 # cut 3
