-- Before
-- Ils arrivent
do
setcps (80/60/4)
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gM = gMask
d1 $ gM1 $ gF
  $ midiOn "^14" (fast 2)
  $ midiOn "^41" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
  -- $ midiOff "^42"  (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
  $ midiOff "^41" (<| "t")
  $ "[808bd:13,cpu]" --  4 6
  # midiG' "^78" 0 1.2
d2 $ gM2 $ gF -- Slow clap
  -- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 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 d2's own control with gSel.
  $ midiOn "^42" (<| "~ s ~ s ~ s ~ s*<1 2>") -- RUN!
  -- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 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 d2's own control with gSel.
  -- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 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 d2's own control with gSel.
  $ midiOn ("^43" - "^42") ((whenmod 8 4 (fast "<1 2 1 4> <2 2 4 4>")) . (struct "~ t ~ t"))
  $ midiOff ("^43" + "^42" + "^42")  (struct "~ t")
  $ "clap"
  # hpqbus 22 (range 0 (1 - "^42") "^30")
  # hpfbus 21 (range 0 5000 "^51")
  # midiG' "^79" 0 1.2
d3 $ gM2 $ gMask $ gF -- Broken drummer
  $ sometimesBy (1 - "^31") (mask "t(3,8)")
  $ sometimesBy "0!4 1 0!3" (mask "t(4,16)")
  $ sometimesBy "0!7 1" (ply 2)
  $ n (run 16)
  # "amencutup"-- V2: FrankAmenBreak
  -- $ chop 32 $ loopAt 1  $ "fbreak80" -- V1: Existing
  # midiG' "^80" 0 1.2
  # cut 3
d6 $ gM3  -- Drumroll fou
  $ midiOn "^90" (fast "2 <2!3 <4 [4 8]>>")
  $ "dr*[<16 [16 32 16]> 16 <32 [32 16 32]> <16 [8 16]>]"
  # "drum:2"
  # midiG' "^83" 0 1.1
d7 $ gM3 $ gMask $ gF -- Final cymbal
  $ mask "<f!16 t!7 f t t f t t f t t>"
  $ "808cy:4" # midiG 0.8
  # room 0.5 # dry (slow 8 $ range 0 0.8 saw)
  # lpf 3400
d4 $ gF2 "atmos/4" # "90s_synatm:0" # cut 4
  # delay 0.2
  # delayfb 0.8
  # delayt 0.125
  # crushbus 41 (range 16 1.2 "^32")
  # pan 0.7
  # midiG' "^84" 0 0.9
d5 $ gMask $ gF2-- La Basse qui devance
  $ midiOn "^89" (
    superimpose (off 0.5 (|* gain 0.9) . arp "up" . (|+| note "<c'min'4!3 c'maj'4 c'min'4!2 c'maj'4>")
    . mask "t(1,4)"
  )
    -- chop "4 <[4 8]> 4 <4!3 16>"
  )
  $ juxBy 0.3 (
    (# crushbus 51 (range 16 2.2 "^33"))
    . (|* gain 0.8)
    )
  $ note ("<a <f [f@7 g]> e@2>"
    - "[0,12]"
    - 24)
  # "bassWarsaw"
  # room 0.2 # sz 0.5
  # pan 0.3
  # midiG' "^81" 0 1.2
d8 $ gM $ gF2-- Mothership
  $ whenmod 64 32 (off 4 (# crush 4) . (# cut 81))
  $ "<~!8 ~ fx ~ ~>"
  # "fx_commodore:8"
  # cut 8
  # midiG 0.6
  # room 0.2 # dry 1 # szbus 81 (slow 4 $ range 0.2 0.8 saw)
  # pan "<0.8!8 0.2!8>"
