Archived
tweaks
This commit is contained in:
+24
-11
@@ -135,6 +135,21 @@ d4 $
|
|||||||
# gain "0.8"
|
# gain "0.8"
|
||||||
# cut "4"
|
# 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"
|
||||||
|
]
|
||||||
|
|
||||||
|
d1 $ stack [
|
||||||
|
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]
|
mapM_ ($ silence) [d2,d3]
|
||||||
|
|
||||||
d4 $
|
d4 $
|
||||||
@@ -180,6 +195,13 @@ d3 $
|
|||||||
# speed (slow 2.5 "1 -1")
|
# speed (slow 2.5 "1 -1")
|
||||||
# vowel "e o"
|
# vowel "e o"
|
||||||
|
|
||||||
|
-- do more
|
||||||
|
d5 $
|
||||||
|
density 0.98 $
|
||||||
|
chop 128 $ s "[gt [~ gt] ! ~]/2"
|
||||||
|
# gain "0.8"
|
||||||
|
# cut "4"
|
||||||
|
|
||||||
d4 $
|
d4 $
|
||||||
(0.18 <~) $
|
(0.18 <~) $
|
||||||
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
||||||
@@ -198,16 +220,8 @@ d2 $
|
|||||||
s "hh hh:2"
|
s "hh hh:2"
|
||||||
# gain "0.6"
|
# gain "0.6"
|
||||||
|
|
||||||
d5 $
|
|
||||||
density 0.98 $
|
|
||||||
chop 128 $ s "[gt [~ gt] ! ~]/2"
|
|
||||||
# gain "0.8"
|
|
||||||
# cut "4"
|
|
||||||
|
|
||||||
d4 silence
|
d4 silence
|
||||||
|
|
||||||
mapM_ ($ silence) [d2,d5] -- silence
|
|
||||||
|
|
||||||
d3 $
|
d3 $
|
||||||
within (0.5, 1) (slow (4%3) . brak) $
|
within (0.5, 1) (slow (4%3) . brak) $
|
||||||
(whenmod 4 2 $ density 3) $
|
(whenmod 4 2 $ density 3) $
|
||||||
@@ -217,15 +231,14 @@ d3 $
|
|||||||
# speed (slow 2.5 "1 -1")
|
# speed (slow 2.5 "1 -1")
|
||||||
# vowel "e o"
|
# vowel "e o"
|
||||||
|
|
||||||
-- put off this d1 transition to much later, the first drum loop is way funkier
|
|
||||||
|
|
||||||
d1 $ stack [
|
d1 $ stack [
|
||||||
every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
|
every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
|
||||||
every' 12 2 (density 3) $
|
|
||||||
s "k",
|
s "k",
|
||||||
(1 ~>) $ s "sn/2"
|
(1 ~>) $ s "sn/2"
|
||||||
]
|
]
|
||||||
|
|
||||||
|
mapM_ ($ silence) [d2,d5]
|
||||||
|
|
||||||
d1 $ stack [
|
d1 $ stack [
|
||||||
every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
|
every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
|
||||||
s "[k ~ k*2 ~]/4",
|
s "[k ~ k*2 ~]/4",
|
||||||
|
|||||||
Reference in New Issue
Block a user