setcps 1

d1 $ s "<kick [~ kick ~ ~]>"
# n 4
# gain 0.8

d2
$ every 4 (off 0.25 id)
$ s "~ kick:1"
# gain 0.9

d3
-- $ every' 4 3 (off 0.25 id)
$ s "~ <clap clap clap [clap clap]>"
# gain 0.8

d4
$ whenmod 64 32 (swing 2)
$ whenmod 16 12 (|- note 3)
$ whenmod 16 8 (|- note 2)
$ s "b <~ b b ~> <~ ~ b <~ ~ ~ b>>"
# s "bass3"
# note (scale "minor" "0 2 4")
# gain 0.9
# room 0.3

d5
$ whenmod 32 31 (|- note 2)
$ whenmod 32 30 (|- note 2)
$ whenmod 32 29 (|- note 2)
$ whenmod 32 28 (|- note 1)
$ whenmod 32 24 (|+ note 7)
$ whenmod 8 4 (|+ note 1)
-- $ sometimes (swing 3)
$ degrade
$ off 0.25 (|+ note 5)
$ s "[<[~ p] [p ~]> p]"
# s "superpiano"
# n (scale "aeolian" "[0,3] [0,5]")
# gain 0.5
# velocity 0.8
