setcps (-1)

setcps (0.5)

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

d2
$ whenmod 64 48 (# silence)
-- $ fast 2
$ every 4 (off 0.75 id)
$ off 0.5 id
$ s "reverbkick(<2 4 4 4 3 4>,4)"
# gain 0.7

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

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

d6
$ swing 3
$ 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) id)
$ someCycles (off (1/8) (|- 7))
$ superimpose ((|- note 21) . (# gain 0.7))
$ 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.125 ((|+ 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.8
