cps (100/60) let every' n o f = when ((== (o-1)) . (`mod` n)) f d1 $ stack [ (1 ~>) $ sound "cy/8", whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $ every' 12 2 (density 3) $ s "k", (0.5 ~>) $ s "sn/2" ] d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ smash 16 [0.25, 0.5] $ every 3 (append $ s "hh:1 hh") $ s "hh hh:2" # gain "0.6" d3 $ whenmod 3 2 (slow 2) $ (whenmod 4 2 $ density 3) $ s "[[vb vb:1] ~]/2" # end (slow 1.4 "0.2 0.4") # speed (slow 2.5 "1 -1") d1 $ stack [ whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $ every' 12 2 (density 3) $ s "k", (0.5 ~>) $ s "sn/2" ] d4 $ (0.18 <~) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ density 0.245 $ slowspread density [1, 2, 0.5, 2] $ gap 128 $ s "eg*2" # gain "0.8" # cut "4" d2 silence d4 $ (0.18 <~) $ every 2 (const silence) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ density 0.245 $ slowspread density [1, 2, 0.5, 2] $ gap 128 $ s "eg*2" # gain "0.8" # cut "4" d1 $ stack [ every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4", every' 32 31 (const $ (0.07 ~>) $ s "[~ ~ ~ sn]") $ every' 16 16 (const $ s "sn*2") $ (1 ~>) $ s "sn/2" ] d5 $ (0.32 ~>) $ slow 4 . chop 256 $ sound "gt" # gain "0.7" # speed ((+0.8).(/3) <$> slow 8 sinewave1) d4 $ (0.18 <~) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ slowspread density [1, 2, 0.5, 2] $ density 0.245 $ gap 128 $ s "[eg [~ eg] ! ~]/2" # gain "0.8" # cut "4" d1 $ stack [ (1 ~>) $ sound "cy/8", whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $ every' 12 2 (density 3) $ s "k", (1 ~>) $ s "sn/2" ] d4 silence d2 silence hush