setcps 0.44

d1
$ whenmod 8 4 (rev)
$ every 8 ((# s "hh"). (# n "2 3") . (# gain 1))
$ s "hh sn dr*4 <808cy 808cy 808cy 808cy*2>"
# gain 0.8

d2
$ whenmod 8 7 ((# s "bd:1 hh:4") . (# gain 0.8))
$ whenmod 16 10 (# silence)
$ fast 4
$ "bd:1 [sn,linnhats]:1"
# gain 0.8

d3
$ whenmod 32 16 (rev)
$ whenmod 16 15 (# gain 0.5)
$ whenmod 16 12 (# silence)
$ whenmod 16 10 (# release 0.1)
$ whenmod 16  2 (# gain 0.8)
$ whenmod 16  1 (# gain 0.7)
$ whenmod 16  0 (# gain 0.6)
--   [b  ] [b b]
$ s "[b ~ b ~] [b ~ ~ ~] [b <~ b> <~ ~ ~ b> b] [~ b? ~ b?]"
# s "bass3:5"
# note "0          5     [[8   5] [8   <12 5>]]      0     "

-- hh:2 scratch
-- hh:4 final!

-- bass3:
-- 0
-- 4: ronde courte
-- 5: ronde longue
-- 6: seche
-- 7: profonde
-- 8: electric, rare