setcps (-1)

setcps (0.5)

d1
$ whenmod 64 32 (# silence)
$ whenmod 32 16 (rev)
$ chop "1 4"
$ s "cs80leadMH*2"
# note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>")
# gain 0.9

d2
$ whenmod 64 48 (# silence)
$ fast 2
$ every 4 (off 0.75 (|+ 0))
$ off 0.5 (|+ 0)
$ s "kicklinn"

d3
$ whenmod 64 48 (# gain 0)
$ whenmod 64 8 (# gain 1)
$ fast 2
$ every 2 (off 0.25 (|+ 0))
$ s "~ cp"
# s "realclaps"
# pan 0.4
# gain 0

d4
$ someCyclesBy 0.2 (fast 2)
$ s "[dr*4 <dr*4 [dr*4 ~]>]"
# pan 0.2

d6
$ whenmod 31 24 (|+ note 0)
$ whenmod 31 16 (|- note 7)
$ whenmod 31 8 (|+ note 0)
$ whenmod 31 0 (|+ note 7)
$ someCyclesBy 0.2 (off (1/16) (|+ 0))
$ someCycles (off (1/8) (|- 7))
$ swing 4
$ note (
  3 * (-7) +
  (scale "major" "[0, 3, 5]") +
  "<0 5 7 12>")
# s "cheapPiano1"
# gain 0.8

d5
$ whenmod 16 14 (# velocity 0.5)
$ whenmod 16 10 (stut 8 0.5 0.1)
$ whenmod 16 8 (off 0.25 ((|+ note 7) . rev))
$ whenmod 16 0 (off 0.25 ((|+ note 7)))
$ someCyclesBy 0.2 (# release 0.2)
$ off 0.125 ((# s "superpiano") . (|- note 7))
$ s "superpiano"
# note (scale "major" "<[0 3] [3 5] [5 7] [7 10]>" - 7)
# pan 0.8
# velocity 0.5
