setcps 0.5 d1 $ fast 2 $ sometimes (off 0.5 id) -- retente $ almostNever (off 0.125 (|> 3)) -- dérape $ euclid "<1 2 4 8>" 8 $ s "lighter" # n (choose [0,1]) d3 $ every' 4 3 (# silence) $ fast 2 $ s "sitar:1" # up (-0.15) # note (scale "dorian" "<0 1 2 <0 4>>") -- # gain 0.6 d5 $ slow 2 $ s "bass2" # speed 0.25 d6 $ s "~ ~ dr:1 ~" -- -- d7 $ s "[bd ~] ~ ~ [cp ~]" d7 $ s "<[bd ~ ~ [~ bd]] [[bd ~ bd bd] [~ bd bd ~] ~ bd]>" d8 -- $ sometimes (off 0.125 (|+ 1)) $ sometimes (off 0.125 id) $ somecyclesBy 0.8 (fast 1.5) $ somecycles (slow 2) $ s "bass3(<2 4 2 6>,8)" # note (scale "minPent" "3 3 4 0")