-- original ravey cps (155/60) d1 $ stack [ (1 ~>) $ sound "cy/8", s "[k {k, sn}]/2" ] d2 $ whenmod 16 15 (density 3) $ smash 16 [0.25, 0.5] $ s "hh hh:2" # gain "0.6" d3 $ (within (0, 0.5) $ gap 16) $ (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5)) # shape ((/3) <$> slow 16 saw1) # vowel "[i o]*2" d4 $ (0.5 <~) $ slowspread density [1,2,0.5,2] $ chop 32 $ s "eg:4/2" # gain "0.8" # speed ((+1).(/2) <$> slow 1.88 saw1) mapM_ ($ silence) [d3,d4] hush d1 $ stack [ (1 ~>) $ sound "cy/8", whenmod 16 14 (trunc 0.4) $ sound "[k {k, sn}]/2" ] -- slower bit cps (100/60) d1 $ -- (overlay $ (1 ~>) $ sound "cy/8") $ -- whenmod 16 14 (trunc 0.4) $ stack [ whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $ whenmod 11 10 (density 3) $ s "k", (0.5 ~>) $ s "sn/2" -- (1 ~>) $ s "sn/2" ] d2 $ -- iter 4 $ 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 (density 1.5 . rev) $ (density 1.5) $ -- chop 256 . slow 8 $ sound "[vb:1 [~ vb:1] !? ~ vb [~ vb:1]? [~ vb] ~]" -- # speed "0.6" -- # end "0.2" # cut "3" d3 $ s "[[vb vb:1] ~]/2" # end "0.2" # cut "3" d3 $ whenmod 3 2 (slow 2) $ (whenmod 4 2 $ density 3) $ s "[[vb vb:1] ~]/2" # end (slow 1.4 "0.2 0.4") # cut "3" # speed (slow 2.5 "1 -1") hush d4 $ (1 ~>) $ within (0, 0.5) (density (5%3)) $ every 2 (0.07 ~>) $ (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5)) # shape ((/3) <$> slow 16 saw1) # speed "0.6" # cut "4" d4 $ within (0, 0.5) (density (5%3)) $ every 2 (0.07 ~>) $ (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5)) # shape ((/3) <$> slow 16 saw1) -- # speed "0.6" # cut "1" d5 $ -- stut 4 0.6 1.25 $ (0.5 <~) $ slowspread density [1,2,0.5,2] $ chop 32 $ s "eg/2" # gain "0.8" # speed ((+1).(/2) <$> slow 1.88 saw1) # cut "1" hush