setcps 0.25

d1 -- beat
$ whenmod 64 8 (# gain 0.8)
$ whenmod 64 0 (# gain 0)
$ s "drum:2"

d2
$ whenmod 16 10 (# gain 0)
$ whenmod 4 2 (# note 1)
$ s "dr:2(3,8)"
# gain 0.8

d3 $ s "dr*8"

d3
$ sometimesBy "<0.2 0.8 1>" (off (1/16) id)
$ fast 8
$ s "~ drum:2"
# gain 0.8

d2 $ s "hh"

d5
$ degradeBy "0 <0 0.2 0.8 1>"
$ superimpose (|+ note 12)
$ note (scale "major" "0 7")
# s "superpiano"
|- note 32
# velocity 0.4

d4 -- bass
$ degradeBy (slow 8 $ "<0 [0.2 0.8]>")
$ chop (slow 8 $ "<1 16>")
$ s "bassWarsaw"
|- note 32
# gain 0.8
