setcps 1 d1 $ whenmod 8 7 (fast 2) $ whenmod 8 7 (# gain 1) $ whenmod 8 6 (# gain 0) -- $ sometimes (fast 2) $ s "bd*2 < ~ [bd*2 ~]>" # s (wchoose [ ("kicklinn", 0.8), ("reverbkick", 0.15), ("cp", 0.05) ]) d2 $ whenmod 64 48 (# silence) $ whenmod 32 24 (# n 4) $ whenmod 16 8 (rev) $ sometimes (off 0.125 id) $ s "bass3(<<1 5> 3>, 8)" # note "0 5 7" # pan 0.2 # gain 0.9 -- -- d4 -- $ sometimes (fast 2) -- $ s "glitch:2(<1 2>,4)" -- # gain 0.7 d3 $ whenmod 8 7 rev $ whenmod 8 6 (# note "0 4 7 4") $ whenmod 8 6 (off 0.125 id) -- $ sometimes (jux rev) $ sometimes (off 0.25 (|+ "<0 7>")) $ sometimes (off 0.5 rev) $ often (off 0 (|+ 7)) $ euclid 3 8 $ s "blip" # note "<0 [3,7] 0 [0,7]>" # pan (0.25 + rand / 2) # gain 0.6 d1 $ n "0 2 4 5 7 9 11 12" -- gamme pentatonique