diff --git a/.gitignore b/.gitignore index ceda3a6..8bbc053 100644 --- a/.gitignore +++ b/.gitignore @@ -1,2 +1,4 @@ .DS_Store \#* +recordings/ + diff --git a/for-mix2.tidal b/for-mix2.tidal index 634673f..1407557 100644 --- a/for-mix2.tidal +++ b/for-mix2.tidal @@ -11,7 +11,6 @@ http://anny.audio cps (99/60) let every' n o f = when ((== (o-1)) . (`mod` n)) f -hush {- some defs cause i'm starting to lose track of all the copy pasta @@ -52,7 +51,9 @@ let eg g = gap 128 $ s "eg*2" # cut "4" -- other guitar -let gt g = chop 128 $ s "[gt [~ gt] ! ~]/2" +let gt g = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $ + chop 128 $ + s "[gt [~ gt] ! ~]/2" # gain g # cut "5" @@ -65,6 +66,8 @@ let pcbeep = slow 16 $ gap 48 $ s "pc:1" here goes i guess -} +hush + d3 $ bassbass d2 $ hhb False d3 $ bassbass' @@ -88,21 +91,26 @@ d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k" d6 $ ududu --- fade up to gain 0.8 -d4 $ density 0.25 $ eg "0.8" +d9 $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9" +d9 $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9" + +d4 $ density 0.25 $ eg "0.7" + +d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9" d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ - density 0.25 $ eg "0.8" + density 0.25 $ eg "0.7" d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ density 0.25 $ - slowspread density [1, 2, 0.5, 2] $ eg "0.8" + slowspread density [1, 2, 0.5, 2] $ eg "0.7" -d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu +d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9" + # speed "[1 1 2]/3" d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ density 0.245 $ -- ! - slowspread density [1, 2, 0.5, 2] $ eg "0.8" + slowspread density [1, 2, 0.5, 2] $ eg "0.7" d1 $ overlay ((1 ~>) $ s "cy/8") $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k" @@ -113,65 +121,82 @@ 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] $ eg "0.8" + slowspread density [1, 2, 0.5, 2] $ eg "0.75" d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k" +d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu d1 $ overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k" d7 $ pcbeep -d7 $ slowspread (\x -> within x (slow 2)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep +d7 $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ (whenmod 7 5 $ trunc (5%6)) $ ududu -d6 $ (every' 5 3 $ brak) $ - (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ - (whenmod 7 5 $ trunc (5%6)) $ ududu - d7 $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $ - slowspread (\x -> within x (slow 2)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep + slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep + +d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9" + # speed "[1 1 2]/3" d7 $ whenmod 7 5 (density 1.25) $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $ - slowspread (\x -> within x (slow 2)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep + slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep + +d5 $ gt "0.75" + +d5 $ gt "0.75" + # speed ((+1).(/4) <$> slow 1.95 sinewave1) + +-- OOOOOOHHHH MY FUCK +d9 $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $ + every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9" + # speed "[1 1 2]/3" + +d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True d3 $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass' --- bye const -d4 $ (0.18 <~) $ - (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ - density 0.245 $ - slowspread density [1, 2, 0.5, 2] $ eg "0.8" - --- fade up to 0.75 (or 0.8? used to be 0.8 but its pretty loud) -d5 $ gt "0.75" - -- funkier bassline w slowspread lambda, thanks yaxu. thaxu d3 $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass' -d5 $ gt "0.75" - # speed ((+1).(/4) <$> slow 1.95 sinewave1) +d6 $ (every' 5 3 $ brak) $ + (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ + (whenmod 7 5 $ trunc (5%6)) $ ududu + +-- bye const +d4 $ (0.18 <~) $ + (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ + density 0.245 $ + slowspread density [1, 2, 0.5, 2] $ eg "0.7" d5 $ density 0.98 $ gt "0.75" # speed ((+1).(/4) <$> slow 1.95 sinewave1) -d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True +mapM_ ($ silence) [d4,d9] --- outro drum line, could be variabl...ized cause no way i can type this all out live 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" ] -mapM_ ($ silence) [d4,d5] +d8 $ slow 16 . gap 64 $ s "pclow" + # gain "0.8" + +d8 $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow" + # gain "0.8" + +d8 $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow" + # gain "0.8" + # speed "1 1.5" + +mapM_ ($ silence) [d3,d6,d7] d8 $ slow 16 . gap 64 $ s "pclow" # gain "0.8" -mapM_ ($ silence) [d6,d7] -d2 silence - +mapM_ ($ silence) [d2,d5] hush {- @@ -181,3 +206,9 @@ scratch area to keep stuff that's interesting but maybe doesn't fit in -- totally different drum line, feelwise. even though it's nearly the same -- kinda don't like it but not gonna chuck it yet, got a nice hip hop bent d1 $ overlay ((1 ~>) $ s "sn/2") $ morek $ s "k" + +-- outro drum line, could be variabl...ized cause no way i can type this all out live +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" + ] diff --git a/samples/wb/Wet_Bass_C1.wav b/samples/wb/Wet_Bass_C1.wav deleted file mode 100755 index 3674bae..0000000 Binary files a/samples/wb/Wet_Bass_C1.wav and /dev/null differ diff --git a/samples/wb/Wet_Bass_E1.wav b/samples/wb/Wet_Bass_E1.wav deleted file mode 100755 index d8dc722..0000000 Binary files a/samples/wb/Wet_Bass_E1.wav and /dev/null differ