do
setcps (80/60/4)
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
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 $ gF $ gMute
  $ fast 2
  $ midiOn  "^41" (struct "t t t t*<1!3 [2 <2 4>]>")
  $ midiOff "^41" (struct "t . ~ t ~ ~")
  $ "[808bd:13,jazz]" -- 11
  # midiG' "^78" 0 1.3
  # room 0.2 # sz 0.2
  # dry 0.99
d2 $ gF $ gM
  -- $ mask "<f!8 t!24>"
  $ midiOn "^75" (struct "[~ t]*8")
  -- $ midiOn  ("^43" - "^75") (whenmod 8 7 (fast "2 4") . (struct "~ t ~ t"))
  -- $ midiOff ("^43" - "^75") (struct "~ t")
  $ whenmod 64 32 (whenmod 8 6 (mask "t . <t f> <f [f t]>"))
  $ midiOn "^42"  (struct "~ t ~ <t!3 ~> ~ t ~ <t [<t ~> t]>")
  $ midiOff "^42" (struct "~ t ~ [t*<1!7 2> ~]")
  -- $ "[bssnare:0,bssnare:3]"
  $ "[snare:24,<meth_snare:1!32 meth_snare:2!32>]"
  # lpf 5000
  # pan 0.4
  # room 0.2 # dry 0.9 # sz 0.4
  # midiG' "^79" 0 1.2
d3 $ gF $ gM -- Broken Jungle Snake
  $ sometimesBy (1 - "^31") (mask "t(<1!3 [1 4]>,4) . t(<3 5>,8,<0!3 3>)")
  -- FIXME(#54) d3 drives more controls than the grid gives it (B3 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^52 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(#54) d3 drives more controls than the grid gives it (B3 only (C1-3 are the family gF filters)). ^52 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^52 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.
  $ (|* speed (range 0.5 1.5 "^52"))
  $ gF $ loopAt 1 $ chop 8
  $ midiOn "^43" (# n "14")
  -- 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)
  $ "jungle_breaks" -- Progressive jungle :D
  # n "<13!3 [13 14 13] 13!3 [13 14] 13!4 14!3 [13 <13 [14 13 14]>]>"
  # cut 3
  # pan 0.6
  # midiG' "^80" 0 1.2
d4 $ gF2 $ gM -- GENIE OF INFRABASS
  $ midiOn "^44" (juxBy 0.8 (rev . (# cut 41)))
  $ chop (4 + (4 * "^76"))
  $ "m . m*<1 <2 4>>" # "meth_genie:0"
  # cut 4
  # octersubbus 41 (range 0 0.81 "^32")
  # octersubsubbus 42 (range 0 0.6 "^32")
  # midiG' "^81" 0 1.2
d7 $ gF3
  $ midiOn "^59" (juxBy 0.7 (rev . (# cut 71)))
  $ mask "t <f t>" $ chop 16
  $ slice 4 "0 <1!3 2>"
  $ loopAt 2
  $ "fepiano:24"
  # cut 7
  # midiG' "^82" 0 1
d8 $ gF3 -- HIGH HOPES
  $ midiOn "^60" (|-| note "[0,12]")
  $ midiOn "^92" (
    |+| note (arpeggiate "[0 12 <0!8 7!8>]([4 5 <1 4 1 <5 8>>],8)")
  )
  $ note ("<af5 <f5!4 c5!3 cs5>>"
    - 12
    )
  # "bassWarsaw"
  # pan 0.8
  # room 0.2 # sz 0.4 # dry 1.1
  # legato 2
  # crushbus 61 (range 16 3.5 "^36")
  # midiG' "^83" 0 1.5
d9 $ gF3 -- Pluie bienfaisante
  $ whenmod 64 32 (superimpose (
    chop 4 . (# n "2") . (# cut 91)
    . (|* gain 1.185)
    . (|+ note (3 - 12 + "<0!16 7!16>"))
    . (# crush 16)
  ))
  $ "90s_synatm/4"
  # cut 9
  # hpfbus 92 (range 0 5000 "^36")
  # squizbus 93 (range 0 1.5 "^56")
  # room 0.2
  # midiG' "^84" 0 1.2

once $ ""

d1 $ "jazz" # gain 0.9
