Archived
i found the missing piece of the puzzle
This commit is contained in:
@@ -1,2 +1,4 @@
|
|||||||
.DS_Store
|
.DS_Store
|
||||||
\#*
|
\#*
|
||||||
|
recordings/
|
||||||
|
|
||||||
|
|||||||
+64
-33
@@ -11,7 +11,6 @@ http://anny.audio
|
|||||||
|
|
||||||
cps (99/60)
|
cps (99/60)
|
||||||
let every' n o f = when ((== (o-1)) . (`mod` n)) f
|
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
|
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"
|
# cut "4"
|
||||||
|
|
||||||
-- other guitar
|
-- 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
|
# gain g
|
||||||
# cut "5"
|
# cut "5"
|
||||||
|
|
||||||
@@ -65,6 +66,8 @@ let pcbeep = slow 16 $ gap 48 $ s "pc:1"
|
|||||||
here goes i guess
|
here goes i guess
|
||||||
-}
|
-}
|
||||||
|
|
||||||
|
hush
|
||||||
|
|
||||||
d3 $ bassbass
|
d3 $ bassbass
|
||||||
d2 $ hhb False
|
d2 $ hhb False
|
||||||
d3 $ bassbass'
|
d3 $ bassbass'
|
||||||
@@ -88,21 +91,26 @@ d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
|||||||
|
|
||||||
d6 $ ududu
|
d6 $ ududu
|
||||||
|
|
||||||
-- fade up to gain 0.8
|
d9 $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
|
||||||
d4 $ density 0.25 $ eg "0.8"
|
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)) $
|
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)) $
|
d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
||||||
density 0.25 $
|
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)) $
|
d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
||||||
density 0.245 $ -- !
|
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") $
|
d1 $ overlay ((1 ~>) $ s "cy/8") $
|
||||||
overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
||||||
@@ -113,65 +121,82 @@ mapM_ ($ silence) [d2,d3]
|
|||||||
d4 $ (0.18 <~) $ every 2 (const silence) $
|
d4 $ (0.18 <~) $ every 2 (const silence) $
|
||||||
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
||||||
density 0.245 $
|
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"
|
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"
|
d1 $ overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
|
||||||
|
|
||||||
d7 $ pcbeep
|
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)) $
|
d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
|
||||||
(whenmod 7 5 $ trunc (5%6)) $ ududu
|
(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] $
|
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) $
|
d7 $ whenmod 7 5 (density 1.25) $
|
||||||
slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
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'
|
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
|
-- funkier bassline w slowspread lambda, thanks yaxu. thaxu
|
||||||
d3 $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
|
d3 $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
|
||||||
whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
|
whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
|
||||||
|
|
||||||
d5 $ gt "0.75"
|
d6 $ (every' 5 3 $ brak) $
|
||||||
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
|
(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"
|
d5 $ density 0.98 $ gt "0.75"
|
||||||
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
|
# 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 [
|
d1 $ stack [
|
||||||
every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
|
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"
|
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"
|
d8 $ slow 16 . gap 64 $ s "pclow"
|
||||||
# gain "0.8"
|
# gain "0.8"
|
||||||
|
|
||||||
mapM_ ($ silence) [d6,d7]
|
mapM_ ($ silence) [d2,d5]
|
||||||
d2 silence
|
|
||||||
|
|
||||||
hush
|
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
|
-- 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
|
-- 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"
|
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"
|
||||||
|
]
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
Reference in New Issue
Block a user