do
setcps (80/60/4)
d1
  $ "cpu"
  # att 0.1
  # rel 10
  # gain 0.76
d2
 $ fix (
   (|* gain (slow 4 $ sine))
   . (sometimesBy 0.75 (stutWith 4 "q" (
     (|* gain 0.8)
     . (|+ hpf 100)
     . (|+ pan 0.05)
     )))
  ) "auto:7"
 $ "~ g"
 # "[glitch:5,auto:7]"
 # room 0.8
 # pan 0.3
 # legato 4
 # gain 0.5
d3 -- Restructured break hats
  $ someCyclesBy "<0!32 1!16 0!16>" (struct "t(<4 8 6 <8 [6 16]>>,8)")
  $ whenmod 32 16 (slice 8 (run "<4 4 8 <8 12>>"))
  $ "break:17/2"
  # gain (slow 32 $ range 0.3 0.38 cosine)
  # room 0.2
  # pan 0.7
  # dry (0.5 + perlin)
  # cut 3
d4
  $ every' 16 8 (# speed (range 0.5 0.1 saw))
  $ whenmod 16 15 (ply "2 . 4 [4 8 4]")
  $ slice "<16!12 32!3 16>" "0 1 2 3 4 5 6 7"
  $ loopAt 2
  $ "break:12"
  # pan 0.1
  # lpf 4500
  # gain 0.6
d6 -- Rare night alarm
  $ note "c4/8"
  # "giorgio_syn:3"
  # cut 6
  # gain 0.34
d7 -- INFRA BASSLINE TODO Trop carré
  $ note (scale "aeolian"
    "<0!8 [0 . <2 0> 0 ~]!8> 4 <0!4 7 0 4 <7 0>> 3"
  )
  # "giorgio_syn:15"
  # gain 0.6
  # lpf 200
d9 -- Glitched background siren
  $ someCycles (off 1 ((# crush 5) . (|* gain 0.8)))
  $ "~ warp?/4"
  # "giorgio_syn:22"
  # room 0.9
  # sz 0.9
  # dry 0.1
  # delay 0.72 # delayfb 0.5 # delaytime "e"
  # panbus 92 (range 0.8 0.5 saw)
  # lpfbus 91 (fast "<2 4 8>" $ range 5000 200 cosine)
  # lpqbus 92 (fast "<0.25 0.5 1 2 4 8 16>" $ range 0 0.7 sine)
  # speed (range 0.25 1 rand)
  # gain 0.5


once $ "giorgio_syn:9" --bassline?
-- 12 muted



once $ "90s_synatm:5"
  # cut 5
  # gain 0.5

once $ "dr"