once $ note ("c e g" + "24" - 6) # "jungbass:2" # cut 1

do
setcps (82/60/4)
let gMask = (midiOn "^41" (mask "t f(3,8) t f(<5 3 3 1>,8)"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 $ "jazz*4"
d2 $ gF1 $ gM1 $ "~ <sn cp> ~ <sn cp*<0 1 1 2>>" -- TODO SNARES <#
d3 $ gF1 $ gM1 $ "hh*[8 16]"
d4 $ gF2 $ gM3
  $ midiOn "^89" (ply 4)
  $ midiOn "^57" (superimpose (
    struct "t(3,8) t(<1 3 5 <3 [5 8]>>,8)"
    . arp "up" . (|+| note "c'minor'3")))
  $ ("q" <~)
  $ note (slow 2 $ "<bf5 d6> b5@3 d6 <fs5 g5 fs5 bf5>@3")
  # "bassWarsaw" |- note 36
  -- # "jungbass:2" |- note 6 -- TODO sound design
  # cut 4
  # pan 0.8
  # squizbus 41 (range 0 8 "^53")
  # octersubbus 42 (range 0 1 "^33")
  # legato 2 # lpf 4000
  # gain 1.4
d5 $ gF3 $ gM3
  $ midiOn "^58" (|+ note "12")
  $ slice 4 ("<0!0 0(<3 [3 5]>,8)!8>")
  $ note "<b fs b <g fs5>>"
  -- |+ note "0 <4 0 3 2>"
  # "90s_synatm:3"
  # cut 5
d8 $ gF1 $ gM1 -- UNAVOIDABLE 90s Break
  $ loopAt 0.5
  $ slice 4 "0 <1 <~!4 1!4>> 2*<1!4 2!4 2 2 4 4> <1!3 3>*<1!4 1 1 2 2>"
  -- $ chop 8
  $ "breaks165"
d9 $ gF3 -- Winds of change
  $ note "<b fs b g>"
  # "90s_synatm:0"
  # room 0.2 # sz 0.8 # dry 0.5
  # lpf 2000
  # cut 9
  3 gqin é
