setcps 1

d1
$ every 2 (off 0.125 (# gain 0.5))
$ whenmod 8 6 (slow 2)
$ euclid 2 4
$ s "clubkick"
# release 0.8
# gain 0.9

d2
$ every 2 (swing 0.5)
$ off 0.25 ((|-| note 7) . (# gain 0.6))
$ s "bass3(3,8)"
# release (0.5 + rand/2)
# gain 0.7
# note (scale "major" "<0 <4 0> 0>")

d3
$ whenmod 16 15 (# silence)
$ whenmod 16 14 (degradeBy 0.8)
$ whenmod 16 12 (degradeBy 0.6)
$ whenmod 16 10 (degradeBy 0.4)
$ whenmod 16 8 (degradeBy 0.2)
$ every 8 (off 0.125 (superimpose ((|-| note 7) . (# s "superpiano") . (# velocity 0.6))))
$ every 4 (sometimes degrade)
$ s "[chin,blip]*8"
# note "0 <1 2 1 7> 0"
# gain 0.5

d4 $ s "electro1:(3,4)"
# n "2 3 4"