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")