Archived
245 lines
4.3 KiB
Plaintext
245 lines
4.3 KiB
Plaintext
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 . striate 128 $
|
|
s (samples "udu" (slow 4 $ irand 4))
|
|
# gain "0.8"
|
|
|
|
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.7" -- fade up to 0.7
|
|
# cut "4"
|
|
|
|
d4 $
|
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
density 0.25 $
|
|
gap 128 $ s "eg*2"
|
|
# gain "0.7"
|
|
# 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.7"
|
|
# cut "4"
|
|
|
|
d6 $
|
|
within (0, 0.5) rev $
|
|
slow 4 . striate 128 $
|
|
s (samples "udu" (slow 4 $ irand 4))
|
|
# gain "0.8"
|
|
|
|
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"
|
|
|
|
mapM_ ($ silence) [d2,d3]
|
|
|
|
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 $
|
|
(whenmod 3 2 $ slow 2) $
|
|
within (0, 0.5) rev $
|
|
slow 4 . striate 128 $
|
|
s (samples "udu" (slow 4 $ irand 4))
|
|
# gain "0.8"
|
|
|
|
d5 $
|
|
chop 128 $ s "[gt [~ gt] ! ~]/2"
|
|
# gain "0.8"
|
|
# cut "4"
|
|
|
|
d6 $
|
|
(whenmod 3 2 $ slow 2) $
|
|
(whenmod 5 3 $ brak) $
|
|
within (0, 0.5) rev $
|
|
slow 4 . striate 128 $
|
|
s (samples "udu" (slow 4 $ irand 4))
|
|
# gain "0.8"
|
|
|
|
d5 $
|
|
density 0.98 $
|
|
chop 128 $ s "[gt [~ gt] ! ~]/2"
|
|
# gain "0.8"
|
|
# cut "4"
|
|
|
|
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 $
|
|
(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.7"
|
|
# 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"
|
|
|
|
d5 $
|
|
density 0.98 $
|
|
chop 128 $ s "[gt [~ gt] ! ~]/2"
|
|
# gain "0.8"
|
|
# cut "4"
|
|
|
|
d4 silence
|
|
|
|
mapM_ ($ silence) [d2,d5] -- silence
|
|
|
|
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"
|
|
|
|
-- put off this d1 transition to much later, the first drum loop is way funkier
|
|
|
|
d1 $ stack [
|
|
every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
|
|
every' 12 2 (density 3) $
|
|
s "k",
|
|
(1 ~>) $ s "sn/2"
|
|
]
|
|
|
|
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"
|
|
]
|
|
|
|
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"
|
|
|
|
hush
|