123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264 |
- cps (99/60)
- let every' n o f = when ((== (o-1)) . (`mod` n)) f
- hush
- d3 $
- s "[[vb vb:1] ~]/2"
- # speed (slow 2.5 "1 -1")
- # vowel "e o"
- d3 $
- s "[[vb vb:1] ~]/2"
- # end (slow 1.4 "0.2 0.4")
- -- # speed (slow 2.5 "1 -1") -- not this, but don't delete it. comes back
- # vowel "e o"
- d2 $
- smash 16 [0.25, 0.5] $
- s "hh hh:2"
- # gain "0.6"
- d1 $ s "k"
- d3 $
- s "[[vb vb:1] ~]/2"
- # end (slow 1.4 "0.2 0.4")
- # speed (slow 2.5 "1 -1")
- # vowel "e o"
- d1 $ every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k"
- d2 $
- whenmod 16 15 (density 3) $
- smash 16 [0.25, 0.5] $
- s "hh hh:2"
- # gain "0.6"
- d1 $ stack [
- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
- (0.5 ~>) $ s "sn/2"
- ]
- d3 $
- whenmod 3 2 (slow 2) $
- s "[[vb vb:1] ~]/2"
- # end (slow 1.4 "0.2 0.4")
- # speed (slow 2.5 "1 -1")
- # vowel "e o"
- d1 $ stack [
- (1 ~>) $ sound "cy/8",
- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
- (0.5 ~>) $ s "sn/2"
- ]
- d2 $
- 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"
- d1 $ stack [
- (1 ~>) $ sound "cy/8",
- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
- every' 12 2 (density 3) $
- s "k",
- (0.5 ~>) $ s "sn/2"
- ]
- -- these two quickly
- 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"
- d1 $ stack [
- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
- every' 12 2 (density 3) $
- s "k",
- (0.5 ~>) $ s "sn/2"
- ]
- d6 $
- slow 4 . chop 128 $
- s (samples "udu" (slow 4 $ irand 4))
- # gain "0.8"
- # cut "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")
- # vowel "e o"
- d4 $
- density 0.25 $
- gap 128 $ s "eg*2"
- # gain "0.8" -- fade up to 0.8
- # cut "4"
- d4 $
- (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
- density 0.25 $
- gap 128 $ s "eg*2"
- # gain "0.8"
- # cut "4"
- d4 $
- (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
- density 0.25 $
- slowspread density [1, 2, 0.5, 2] $
- gap 128 $ s "eg*2"
- # gain "0.8"
- # cut "4"
- d6 $
- (whenmod 3 2 . sometimesBy 0.5 $ density (4%3)) $
- slow 4 . chop 128 $
- s (samples "udu" (slow 4 $ irand 4))
- # gain "0.8"
- # cut "6"
- d4 $
- (# 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 [
- (1 ~>) $ sound "cy/8",
- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
- every' 12 2 (density 3) $
- s "k",
- (0.5 ~>) $ s "sn/2"
- ]
- mapM_ ($ silence) [d2,d3]
- d1 $ stack [
- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
- every' 12 2 (density 3) $
- s "k",
- (0.5 ~>) $ s "sn/2"
- ]
- 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"
- d6 $
- (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
- (whenmod 7 5 $ trunc (5%6)) $
- slow 4 . chop 128 $
- s (samples "udu" (slow 4 $ irand 4))
- # gain "0.8"
- # cut "6"
- d5 $
- chop 128 $ s "[gt [~ gt] ! ~]/2"
- -- # gain "0.8"
- # gain "0.8" -- fade up to 0.8
- # cut "5"
- d6 $
- (every' 5 3 $ brak) $
- (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
- (whenmod 7 5 $ trunc (5%6)) $
- slow 4 . chop 128 $
- s (samples "udu" (slow 4 $ irand 4))
- # gain "0.8"
- # cut "6"
- d5 $
- chop 128 $ s "[gt [~ gt] ! ~]/2"
- # gain "0.8" -- fade up to 0.8
- # cut "5"
- # speed ((+1).(/4) <$> slow 1.95 sinewave1)
- 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")
- # vowel "e o"
- d5 $
- density 0.98 $
- chop 128 $ s "[gt [~ gt] ! ~]/2"
- # gain "0.8"
- # cut "5"
- # speed ((+1).(/4) <$> slow 1.95 sinewave1)
- 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 $
- 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 $
- within (0.5, 1) (slow (4%3) . brak) $
- (whenmod 4 2 $ density 3) $
- (whenmod 3 2 $ slow 2) $
- s "[[vb vb:1] ~]/2"
- # end (slow 1.4 "0.2 0.4")
- # speed (slow 2.5 "1 -1")
- # vowel "e o"
- d4 silence
- d1 $ stack [
- every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
- s "[k ~ k*2 ~]/4",
- every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $
- (1 ~>) $ s "sn/2"
- ]
- {-
- d1 $ stack [
- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
- s "k",
- (1 ~>) $ s "sn/2"
- ]
- -}
- 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")
- # vowel "e o"
- mapM_ ($ silence) [d2,d5]
- hush
|