setcps 1

d1 -- lightly varying kick
$ jux id
$ whenmod 16 10 (every' 2 1 (0.125 ~>))
$ every 8 (0.25 <~)
$ every 4 (0.5 ~>)
$ s "kick:5"

d2 -- lead laser!
$ jux rev $ iter 4 $ chop 4
$ whenmod 16 10 (someCyclesBy 0.2 (fast 2))
$ whenmod 128 64 (someCycles (superimpose (# note (scale "major" "[-21,14,3]"))
))
$ whenmod 64 60 ((# gain 0.7) . (stut 4 0.9 "<0.25,0.05 .. 0.50>"))
$ whenmod 32 30 ((# gain 0.7) . (stut 4 0.9 0.1))
$ whenmod 32 28 (# silence)
$ whenmod 16 15 (# gain (tri * 1.2))
$ whenmod 16 14 (# silence)
$ s "bd" >| speed (segment 50 $ range 40 5 (saw))
|+ note (scale "major" "<14 7 5 3 1 0 7 0 -7 14>")
# pan 0.8
# gain 0.8

d3 -- simple claps
$ whenmod 64 32 (# gain "<0.64,0.01 .. 0.96>")
$ whenmod 64 28 (# gain "<0.4,0.05 .. 0.6>")
$ whenmod 64 0 (# gain 0)
$ every 8 (off 0.25 id)
$ every 4 (off 0.25 id)
$ (0.5 ~>)
$ s "jazz:4"

d4 -- drumroll
$ whenmod 16 10 (degradeBy "<0.8,0.1 .. 0> <0,0.1 .. 0.6>")
$ whenmod 4 3 (degradeBy "0 0.5 0.5 0.9")
$ s "dr*8"
# n 0
# pan "<0.4,0.05 .. 0.7>"