-- 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 $ stack [ (1 ~>) $ sound "cy/8", -- whenmod 16 14 (trunc 0.4) $ whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $ s "[k 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 $ every 7 (0.25 ~>) $ (within (0, 0.5) $ gap 16) $ every 2 (0.07 ~>) $ (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5)) # shape ((/3) <$> slow 16 saw1) # vowel "[i o]*2" # speed "0.8" d4 $ -- 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