music-2010s/juliese
Archived
1
0
Fork 0
Code Pull Requests Activity

improvements to udu fuckery, some other tweaks

Browse Source
This commit is contained in:
Aneurin Barker Snook
2016-03-20 02:08:23 +00:00
parent d81276d961
commit f9db689d4e
1 changed files with 39 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files
for-mix2.tidal
+39 -32
View File
@@ -87,9 +87,10 @@ d1 $ stack [
] ]
d6 $ d6 $
slow 4 . striate 128 $ slow 4 . chop 128 $
s (samples "udu" (slow 4 $ irand 4)) s (samples "udu" (slow 4 $ irand 4))
# gain "0.8" # gain "0.8"
# cut "6"
d3 $ d3 $
whenmod 3 2 (slow 2) $ whenmod 3 2 (slow 2) $
@@ -102,14 +103,14 @@ d3 $
d4 $ d4 $
density 0.25 $ density 0.25 $
gap 128 $ s "eg*2" gap 128 $ s "eg*2"
# gain "0.7" -- fade up to 0.7 # gain "0.8" -- fade up to 0.8
# cut "4" # cut "4"
d4 $ d4 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.25 $ density 0.25 $
gap 128 $ s "eg*2" gap 128 $ s "eg*2"
# gain "0.7" # gain "0.8"
# cut "4" # cut "4"
d4 $ d4 $
@@ -117,14 +118,15 @@ d4 $
density 0.25 $ density 0.25 $
slowspread density [1, 2, 0.5, 2] $ slowspread density [1, 2, 0.5, 2] $
gap 128 $ s "eg*2" gap 128 $ s "eg*2"
# gain "0.7" # gain "0.8"
# cut "4" # cut "4"
d6 $ d6 $
within (0, 0.5) rev $ (whenmod 3 2 . sometimesBy 0.5 $ density (4%3)) $
slow 4 . striate 128 $ slow 4 . chop 128 $
s (samples "udu" (slow 4 $ irand 4)) s (samples "udu" (slow 4 $ irand 4))
# gain "0.8" # gain "0.8"
# cut "6"
d4 $ d4 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
@@ -143,6 +145,8 @@ d1 $ stack [
(0.5 ~>) $ s "sn/2" (0.5 ~>) $ s "sn/2"
] ]
mapM_ ($ silence) [d2,d3]
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) $ every' 12 2 (density 3) $
@@ -150,8 +154,6 @@ d1 $ stack [
(0.5 ~>) $ s "sn/2" (0.5 ~>) $ s "sn/2"
] ]
mapM_ ($ silence) [d2,d3]
d4 $ d4 $
(0.18 <~) $ every 2 (const silence) $ (0.18 <~) $ every 2 (const silence) $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
@@ -162,30 +164,33 @@ d4 $
# cut "4" # cut "4"
d6 $ d6 $
(whenmod 3 2 $ slow 2) $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
within (0, 0.5) rev $ (whenmod 7 5 $ trunc (5%6)) $
slow 4 . striate 128 $ slow 4 . chop 128 $
s (samples "udu" (slow 4 $ irand 4)) s (samples "udu" (slow 4 $ irand 4))
# gain "0.8" # gain "0.8"
# cut "6"
d5 $ d5 $
chop 128 $ s "[gt [~ gt] ! ~]/2" chop 128 $ s "[gt [~ gt] ! ~]/2"
# gain "0.8" -- # gain "0.8"
# cut "4" # gain "0.8" -- fade up to 0.8
# cut "5"
d6 $ d6 $
(whenmod 3 2 $ slow 2) $ (every' 5 3 $ brak) $
(whenmod 5 3 $ brak) $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
within (0, 0.5) rev $ (whenmod 7 5 $ trunc (5%6)) $
slow 4 . striate 128 $ slow 4 . chop 128 $
s (samples "udu" (slow 4 $ irand 4)) s (samples "udu" (slow 4 $ irand 4))
# gain "0.8" # gain "0.8"
# cut "6"
d5 $ d5 $
density 0.98 $
chop 128 $ s "[gt [~ gt] ! ~]/2" chop 128 $ s "[gt [~ gt] ! ~]/2"
# gain "0.8" # gain "0.8" -- fade up to 0.8
# cut "4" # cut "5"
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
d3 $ d3 $
(whenmod 3 2 $ slow 2) $ (whenmod 3 2 $ slow 2) $
@@ -195,12 +200,12 @@ d3 $
# speed (slow 2.5 "1 -1") # speed (slow 2.5 "1 -1")
# vowel "e o" # vowel "e o"
-- do more
d5 $ d5 $
density 0.98 $ density 0.98 $
chop 128 $ s "[gt [~ gt] ! ~]/2" chop 128 $ s "[gt [~ gt] ! ~]/2"
# gain "0.8" # gain "0.8"
# cut "4" # cut "5"
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
d4 $ d4 $
(0.18 <~) $ (0.18 <~) $
@@ -208,7 +213,7 @@ d4 $
density 0.245 $ density 0.245 $
slowspread density [1, 2, 0.5, 2] $ slowspread density [1, 2, 0.5, 2] $
gap 128 $ s "eg*2" gap 128 $ s "eg*2"
# gain "0.7" # gain "0.8"
# cut "4" # cut "4"
d2 $ d2 $
@@ -220,8 +225,6 @@ d2 $
s "hh hh:2" s "hh hh:2"
# gain "0.6" # gain "0.6"
d4 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) $
@@ -231,13 +234,7 @@ d3 $
# speed (slow 2.5 "1 -1") # speed (slow 2.5 "1 -1")
# vowel "e o" # vowel "e o"
d1 $ stack [ d4 silence
every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
s "k",
(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") $
@@ -246,6 +243,14 @@ d1 $ stack [
(1 ~>) $ s "sn/2" (1 ~>) $ s "sn/2"
] ]
{-
d1 $ stack [
every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
s "k",
(1 ~>) $ s "sn/2"
]
-}
d3 $ d3 $
whenmod 3 2 (slow 2) $ whenmod 3 2 (slow 2) $
(whenmod 4 2 $ density 3) $ (whenmod 4 2 $ density 3) $
@@ -254,4 +259,6 @@ d3 $
# speed (slow 2.5 "1 -1") # speed (slow 2.5 "1 -1")
# vowel "e o" # vowel "e o"
mapM_ ($ silence) [d2,d5]
hush hush