setcps 0.5


d1
$ euclid ("<4 2 4 2 5 6 5 6 8 8 5 6 8 6 8 8 4 8 16 12 8 16 16 12 8 4>") 8 $ s "k"
-- $ s
-- "k <~ k?> ~ <~ k>"
-- "k <k k*2 k k> <k k*2> <k [k k?]>"
# s "bskick"

d2
$ sometimes (0.125 ~>)
$ sometimesBy (slow 16 $ "<0 0.25 0.5 0.75 1>") (off (1/16) id)
$ sometimesBy (slow 2 $ "<0 0.25 0.5 0.75 1>") (off (1/8) id)
$ s "~ snare:4"
# gain 0.85
# room 0.3
# size 0.2
# dry 1

d3
$ whenmod 64 32 (# gain (slow 32 $ saw * 0.4 + 0.6))
$ whenmod 64 24 (# gain 0.6)
$ whenmod 64 16 (# gain 0.5)
$ whenmod 64 0 (# gain 0)
$ degradeBy "<0 0.2> 0.1 0.8 <0 0.1>" $ fast 2
$ s "dr*8"

d4
$ someCyclesBy 0.1 (# n 1)
$ whenmod 16 12 (fast 2)
$ every 4 (off 0.125 id)
$ s "~ ~ clap:3 ~"

d5
$ swing 2
$ note (scale "major" (
  whenmod 32 16 (3 -)
  "0 . <~ 3? 3> 3 . ~ <1 0 1 0> . <0 1 1 0> ~"
  -- + (slow 16 $ "<0 4>")
  + (slow 16 $ "<0 0 4 4> . <0 4 0 4>")
))
# s "bassWarsaw"
# legato 2
# gain 0.75
|- note 24

d9
$ s "tink(<3 3 3 3 5 5 3 3 5 5 5 1 1 3 1 3>,8)"
# note (scale "major"
  "[0?,2?,4?,7,9?,<~ 11?>]"
  + ("<2 4 2 2 1 2 2 4 2 2 4 2 2 4 2 4 4 2 2 1 2>")
)
|- note 48

d11 -- cymbale
$ every 4 (almostNever ( -- rare prolonge reprise
  superimpose (const $ s "~ ~ 808cy:1 ~"))
  )
$ whenmod 64 32 (always (# n 3)) -- prolonge
$ whenmod 16 8 (# note 0)
$ whenmod 16 0 (# note 7)
$ swing (slow 64 $ "<3 5>")
$ sometimesBy "0 0.05 0.05 0.5 0" ((1/8) ~>)
$ sometimes (|- gain 0.1)
$ euclid 5 4
$ s "~ cy"
# s "808cy"
# gain 0.65