once "dr"
-- Batavia...

do
setcps (105/60/4)
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "<t f> . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF $ gM
  $ midiOn "^14" (fast 2)
  $ midiOn "^42" (superimpose (# "808bd:2") . struct "t t t <t <[~ t] t*2>>")
  -- $ midiOff "^42"  (<| "<t ~> . ~ ~ <~ t> <~!3 t>")
  $ midiOff "^42" (<| "[t ~ t t]*4")
  $ "[jazz ~ jazz:1 jazz:1]*4"
  # midiG' "^78" 0 1.3
d2 $ gF2 $ gMask -- Coupe de feu
  $ midiOn  "^43" (struct "~ t ~ t ~ t ~ [<t  ~ ~ t> <~ t>]")
  $ midiOff "^43" (slow 2)
  $ "~ cp"
  # lpf 2000
  # note (-4)
  # midiG' "^79" 0 1.2
d3 -- weird memories
  $ gF2
  $ "90s_weird:1"
  # cut 3
  # note 0
  # crushbus 31 (range 16 2.5 "^56")
  # panbus 32 (range "<0.1 0.2 0.3 0.4>" "<0.4 0.5 0.6 0.7>" (fast 16 sine))
  # room 0.74 # dry 1.4
  # sz 0.1
  # midiG' "^84" 0 0.9
d4 $ gF $ gMute -- roll till you can
  $ whenmod 64 48 (ply "<2!3 4>")
  $ "d*<1!4 0 1 2 1 1> d*<1!4 0!3 8> d*4 d*<1 2 2 1>"
  # "[dr,drum:2]"
  # midiG' "^80" 0 1.2
d5 $ gF2 $ gMask
  $ sometimesBy "^33*8" ( (ply 1
    . mask "t f"
    . (arp "down")
    . (|+ note "[12,24,36,48]")
    . (|+ pan 0.12)
  ))
  $ midiOn "^57" (euclid "<3 [3 5] 5 [5 <4 8>]>" 8)
  $ note (slow 2 "[gs3@2,<gs2'maj'4 c3'maj'4 gs2'maj'4 f2'maj'4>]")
  # "bassWarsaw"
  # crushbus 51 (range 16 2.5 "^53")
  # room 0.2
  # pan 0.3
  # midiG' "^81" 0 1.3
d6 $ gF $ gM -- Break rayon laser =------------>
  $ midiOn "^91" (ply 8)
  $ midiOn "^59" (ply "1 <1!3 2>")
  $ midiOff "^59" (slow 4)
  $ slice 8 (run "<8!7 16>")
  $ "break:4"
  # cut 6
  # speed (range 0 2 "^55")
  # midiG' "^83" 0 1.5