setcps 1
solo 1
d1
$ whenmod 16 14 (# silence)
$ whenmod 16 8 (degradeBy "0.2 0")
$ whenmod 4 1 (sometimes (off 0.25 id))
$ every 4 (fast 2)
$ s "kicklinn*2"
# gain 0.9
d2
$ degradeBy 0.05
$ whenmod 8 4 (off 0.125 (# s "808oh"))
$ every' 4 3 (fast 8)
$ every' 4 1 (off 0.125 id)
$ s "dr"
d3
$ whenmod 32 24 (# note (scale "minPent" "0 <<2 0> 1>"))
$ whenmod 16 8 (# gain 0.7)
$ whenmod 16 0 (# gain 0)
$ every 4 (rev)
-- $ degrad
$ off (choose [0.25, 0.125]) (# note 0)
$ s "bass3*4"
# note (scale "<aeolian>" "0 2 1 <3 5>")
d1
$ s "superpiano*8"
# gain 0.6
# note (scale "bartok" "0..7")