-- TODO(pan): near-mono. Measured on the OPAL-26 master (2026-08-08,
-- 0:58:48-1:01:22): stereo width 0.09 (side/mid RMS) vs a set median of ~0.20 —
-- second-narrowest after mafia_sans_serif, and the two played back to back.
-- Three `pan` calls exist already; they are not buying much width. Worth
-- widening the ghost textures specifically (they are the character of the track).
do
-- resetCycles
setcps (160/60/4)
d1 $ gM1 $ gF1 -- Kick solide
  $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
  $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
  $ midiOn "^29" ((# "hardkick_rha:40") . (|- note 1) . (|* gain 0.8))
  $ midiOn "^41" (struct "t t t t*<1!6 2 2>")
  $ midiOff "^41" (<| "k . ~ k ~ <~!3 <k ~>>")
  $ "[jazz,kick:4]"
  # gain 1.5
d2 $ gM2 $ gF1 -- snare contretemps variable
  $ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
  $ midiOn "^42" (<| "~ cp [~!3 <~!3 cp>] cp*<1 1 2 <1 2>>")
  $ midiOff "^42" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
  $ "[cp,snare:22]"
  # pan 0.65
  -- # legato 0.22
d3 $ gM2 $ gF1
  $ midiOn "^43" (ply "1 1 2 <1 2>")
  $ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
  # "snare:34"
  # hpf 7000
  -- # midiG' "^80" 0 1.5
d8 $ gF1 $ gM2
  $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
  $ midiOn "^36" (loopAt 2 . (# "jungle_breaks:22")) -- Raise COMEON!
  $ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
  $ midiOn "^92" ( -- Bouton Nassim <3
    slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
    . loopAt 1 . (# "breaks165")
    -- . (# octer 0.4) . ( octersubsub 4)
    . (# lpf 2500)
    . (# room 0)
  )
  $ chop 16
  $ "breaks165"
  # cut 8
  # octersub 0.5
  # gain 1.2
d4 $ gF2 $ gM3 -- BASSLINE
  $ midiOn "^44"  (|+| note "[0,12*4]")
  $ midiOff "^44" (|+| note "[0,[<7 7 4 7>(3,8,1)]]" )
  $ superimpose ((# hpf 200) . (# crushbus 41 (range 16 3.5 "^32")))
  $ note ("<e3 fs3 <gs3 d4> <a3 df4>>" - 12)
  # "bassWarsaw"
  # gain 1.12
  # room 0.7
  # dry 1 # sz 0.8
d7 $ gF2 $ gM3 -- ACID BASS TODO REWORK WITH RAPH
  $ slow 2 $  midiOff "^59" (
    (|+ note "<0 12>") .
    mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
  $ stack [
  -- n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^55" + "^35")),
  "vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^35"),
  -- "vec1_acid:39" # hpf 200 # gain (range 0 1.4 "^35"), -- TODO BONUS ACID
  -- # octer 1.1
  -- ,
  ""
  ]
  # crushbus 71 (range 16 1 "^55")
  -- # legato 1
  -- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^17 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d7's own control.
  -- # legato (range 0.39 0.7 (1 - "^17"))
  -- >| note ("[e gs e fs gs e fs e]*2"
  -- - 12
  -- )
  # gain 1.12
  # room 0.7
  # dry 1 # sz 0.8
d6 $ gF1 $ gM3 -- HAWKS
  $ superimpose (# hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw))
  -- $ mask "<f!16 t!16>"
  $ "~ [s s*2] ~ [s*<1!3 2> <~!3 s*<1 2>>]"
  # "armora:1"
  # legato "<0.5>"
  # note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>"
  -- # pan 0.9
  # room 1.0
  # octersubsub 2
  # octersub 2
  # sz 0.01
  # gain 1.5
  # dry 1.025
d5 $ gM3 $ gF3
  $ midiOn "^33" (# n "6")
  $ midiOn "^57" (mask "<t f f f>" . (# n "<4 5!2 4!6>") . (|* speed 1.05))
  $ midiOn "^89" (struct "f(3,8)" . ply 4 . chop 2)
  $ someCyclesBy (1 - "^53") (mask "<t f f f>")
  $ "ghost" # n (slow 4 $ "<0 1 2 3>")
  # cut 5
  # lpf 3000
  # room 0.4 # sz 0.8 # dry 1.2
d11
  -- $ mask "<f!8 t!8>"
  $ stack [
  -- SELF-DESTRUCT SEQUENCE --
  whenmod 8 6 (# silence) $ slow 4
  $ whenmod 32 24 ((# begin 0.44) . (# end 1) . (# n 45)) -- Activated!
  $ ("~!2 rhadamanthe_vocal:45" # gain 1.1
  # begin "<0!2 0.44!2>" # end "<0.435!2 1!2>" # pan 0.1) # cut 110,
  -- SYSTEM OVERLOAD
  mask "<t!8 f!56>" $
  "<~!7 [~ rhadamanthe_vocal:46]>" # cut 111,
  -- Cigarette Luck
  mask "<f!24 t!8>" $
  n "<<14!3 6> ~ ~ <12 23>>" # "movie_wolf" # end "<0.55!8 1!8>"
  # gain 0.7
  # cut 112
  # gain 1.2
  ]
d9 $ gF2 $ gM3
  $ midiOn "^89" (ply "<2 4 8 [8 16]>")
  $ note ("<e3 fs3 <gs3 d4> <a3 df4>>" + 24)
  # "moog"
  # cut 9
  # room 0.3 # dry 0.5
  # gain 1.6
  # crushbus 91 (range 16 3.5 "^19")
