setcps 0.45

d1
$ whenmod 16 14 ((# s "foo:2") . (# gain 0.8))
$ whenmod 16 12 (# gain 0.6)
$ s "foo" # n 1
# gain 0.8


d2
$
whenmod 32 32 (# n 3) -- zip zip
$ whenmod 32 28 (
  fix (# n 1) (s "dr") -- harder drums
)
$ whenmod 32 16 (
  degradeBy "0.8 0.1 0.5 0"
)
$ s "[dr,hh] hh hh [dr dr <dr ~> dr,hh*2]>"

d3
$ whenmod 64 32 (rev)
$ whenmod 16 10 (degradeBy 0 . (# release 0.1) . (off 0 (|- 7)))
$ whenmod 16 8 (degradeBy 0.2)
$ someCycles (# release 0.2)
$ off 0.125 (|+ note 7)
$ s "b b*2 ~ [b*2 ~]"
# release "1 0.5"
# s "bass3"
# note (scale "majPent" "0 1 3 4 5")
# gain 0.7