-- Noisy Snake Hats + Snare
-- Illustration [Tom Delanoue](https://unsplash.com/photos/qpaF332Uqj0)
do
-- setcps 0.5625
resetCycles
d1
  $ someCyclesBy (slow 16 $ "<0 0.25>") (off "e" id)
  $ "[jazz,cpu]"
  # gain (slow 16 $ range 0.8 0.4 isaw)
  # lpf 2000
  # release 0.2
  # pan 0.45
  # dry 0.9
d2 -- Snares / claps:  accel 16/8, djf/64
  $ whenmod 16 8 (fast ("2 <4!8 <8!8 [4 . 8 [2|4]]!8>>"))
  $ superimpose ((# "clap:2") . (|* gain 0.7))
  $  "~ snare" # n "[1,2]"
  -- # gain (slow 32 $ range 0.8 0.5 isaw)
  # pan 0.3
  # djf (slow 64 (cosine + perlin/4))
d3 -- Hats snake-ish
  $ (|+ pan (slow 10 $ range 0 0.25 saw))
  $ juxBy 0.2 (rev . (|* gain 0.85))
  $ fast 2
  -- $ sometimesBy "0 1" (off "e" id)
  $ "h . h ~ <h!3 h?> ~ ~ <~!3 h?>"
  # "808oh"
  # n "<0 3>"
  # gain (slow 32 $ range 0.6 0.4 (sine + isaw/4))
d10 -- DELICI0US N0153
  $ whenmod 64 48 (juxBy 0.25 (# crush 5))
  $ whenmod 8 6 (rarely (loopAt 2))
  $ "~ ~ ~ <n!3 [~ n] n [~ n] n [~ n]>"
  # "psr" # n "<1!8 10!4 11!4 12!7 2>" -- 1 10 11 12  rare 2
  # lpf (slow 2 $ range 2000 1000 perlin)
  # pan (slow 4 $ range 0.2 0.9 perlin)
  # gain (slow 32 $ range 0.25 0.45 (saw + perlin))
  # cut 10