setcps 0.5

d1
$ whenmod 4 2 (sometimes (stut 2 0.75 0.125))
$ degradeBy 0.05
$ s
-- "k*2"
"k(4,4)"
-- "k(3,4)"
# s "kick:5"
# gain 0.55
# pan 0.2

d2
$ whenmod 8 4 (sometimes (stut 2 0.5 (choose [0.125, 0.0625])))
$ sometimesBy 0.1 (# n 31)
$ s "<~ ~ [~ s?] ~> s? <~ ~ ~ [~ s?]> s"
# s "sn" # n "[30|31|32|33]"
# pan 0.8
# gain 0.65

d3
$ every 4 (degrade)
$ fast 8
$ s "insect"
# room (slow 16 $ sine * 0.9)
# gain (slow 32 $ sine * 0.4 + 0.3)

d4
$ euclid 3 8
$ s "insect:1"
# gain (slow 16 $ tri * 0.4 + 0.2)
# room (slow 8 $ tri * 0.6 + 0.2)

d5 -- roll
$ sometimesBy "0.8 0.2 0.8 0.1" (fast 2)
$ degradeBy "0 0 0.5 0.1"
$ s "d*8"
# s "birds3:10"
# gain 0.6

d6  -- scratch
$ often (hurry 2) -- SCRATCH IT!
$ s
-- "b(8,8)" -- MORE
"b(<3 5 8 8>,8,<0 .. 7>)" -- More
-- "b(5,8)"
# n "[1|2|3|9]"
# s "birds3"
-- # gain 0.8

d6
$ fast 2
$ superimpose (# s "cheapPiano1") . (# gain (slow 32 $ sine - 0.3))
$ note (scale "melodicMajor" "0 7 0 <7 [4 7]>")
# s "superpiano"
# sustain 2
# velocity 0.9
# gain 0.9

d8
$ degradeBy "0 0.8 0 0.2"
$ superimpose (  -- complement med cloche
  -- (off (1/16) id) . -- double
  fast 2 .
  (# s "808mc") .
  (# gain 0.5)
)
$ superimpose ( --
  stut 4 1 (1/8) . degradeBy 0.1 .
  (|+ note "~ [12,24] ~"))
$ s "f*8"
# s "superfork"
|- note 24
# gain 0.7

d10
$ every' 4 1 (often (off 0.125 id))
$ fast 2
$ s "~ clap:1"
# gain (slow 16 $ sine * 0.5 + 0.3)