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

consolidate scratch into main, no longer needed

Browse Source
This commit is contained in:
Aneurin Barker Snook
2016-10-30 16:20:42 +00:00
parent dddbbcc27d
commit 38069502c1
2 changed files with 65 additions and 229 deletions
Download Patch File Download Diff File Expand all files Collapse all files
haddeo.tidal
+65 -57
View File
@@ -1,4 +1,34 @@
{- just composition notes here, setup in scratch.tidal -}
{-
haddeo (algorave remix)
by anny http://anny.audio
original artist: heskin radiophonic http://heskinradiophonic.co.uk
-}
let bpm b = cps (b/60)
withmod a b c d = (whenmod a b . within (c, d))
every' n o f = when ((== (o-1)) . (`mod` n)) f
msil = mapM_ ($ silence)
tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
let swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
swing' = swing 0.14 --0.05
let d'drum = d1
d'bass = d3
d'bass2 = d2
d'wax = d4
d'nim = d5
d'hi = d6
let nim'osc = (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
nim'del = (# delay "0.5") . (# delayfeedback "0.6") . (# delaytime "0.25")
-- original bpm = 105
let tmod' s e = tmod (s*(1/(105/60))) e
mt s d i = slow s $ tmod' 0.5 3 $ density d $ i
bpm 105
-- pt 1: intro
d'drum $ stack [
@@ -20,6 +50,7 @@ d'drum $ stack [
d'wax $ retrig $ slow 20 $ n "1" # s "icarus"
-- drop 1
d'nim $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'wax silence
@@ -57,7 +88,7 @@ d'drum $ stack [
d'nim $ superimpose (iter 6 . nim'osc) $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
-- pt 2
-- pt 2: offbeat
d'drum $ mt 16 16 $ stack [
n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
@@ -86,7 +117,7 @@ d'nim $ mt 16 16 $
whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
-- pt 3
-- intermission
solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
mt 16 16 $
@@ -94,6 +125,11 @@ solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
every' 2 2 (within (0, 0.5) (const silence)) $
whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
let s = striate 16
in d'bass $
slow 8 $ stack [
@@ -103,12 +139,11 @@ let s = striate 16
# gain "0.9"
d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
every' 2 2 (within (0, 0.5) (const silence)) $
whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'nim $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
-- pt 3: funk
d'drum $ n "0*4" # s "drum"
@@ -121,7 +156,7 @@ d'drum $ swing' $ stack [
d'drum $ swing' $ stack [
n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
every' 16 16 (const $ n "3" # s "kit") $
every' 16 16 (const $ sound "kit:3") $
whenmod 3 2 (density 2) $
withmod 11 5 0.5 1 (density 2) $
n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
@@ -134,7 +169,7 @@ d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
d'drum $ swing' $ stack [
n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
every' 16 16 (const $ n "3" # s "kit") $
every' 16 16 (const $ sound "kit:3") $
whenmod 3 2 (density 2) $
withmod 11 5 0.5 1 (density 2) $
n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
@@ -148,7 +183,7 @@ d'nim $ every' 16 1 (# vowel "o u") $
d'drum $ swing' $ stack [
n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
every' 16 16 (const $ n "3" # s "kit") $
every' 16 16 (const $ sound "kit:3") $
whenmod 3 2 (density 2) $
withmod 11 5 0.5 1 (density 2) $
n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
@@ -156,51 +191,14 @@ d'drum $ swing' $ stack [
# gain "0.8"
]
d'bass silence
let s = gap 32
in d'bass $ swing' $
(0.25 ~>) $ slow 8 $ stack [
s $ sound "bass",
s $ sound "sine"
]
# gain "0.9"
let s = gap 32
in d'bass $ swing' $
slowspread (slow) [4%3, 1] $
(0.25 ~>) $ slow 8 $ stack [
s $ sound "bass",
s $ sound "sine"
]
# gain "0.9"
d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
whenmod 16 12 (# vowel "[a i]/3") $
(1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
-- experimental
d9 $ swing' $
-- iter 3 $
-- superimpose (0.75 ~>) $
chop 8 $
n "[0*2 1 [[~ 0]!] 0]/4" # s "bass2"
d'bass2 $ swing' $
n "[[~ 0] 1 [[~ 0]!] 0]/4" # s "bass2"
# speed "[2 1]"
# gain "0.9"
{-
let s = gap 32
in d'bass $ swing' $
whenmod 3 2 (within (0, 0.5) (const silence)) $
whenmod 10 8 (within (0.5, 1) (const silence)) $
slowspread (slow) [4%3, 1] $
(0.25 ~>) $
slow 8 $ stack [
s $ sound "bass",
s $ sound "sine"
]
# gain "0.9"
-}
# gain "0.8"
d'nim $ superimpose (iter 4 . nim'osc) $
every' 16 1 ((# vowel "o u") . nim'del) $
@@ -216,7 +214,7 @@ d'drum $ swing' $ stack [
# gain "0.8"
]
msil [d'nim, d'bass, d'wax]
msil [d'nim, d'wax]
d'hi $
swing' $
@@ -227,7 +225,6 @@ d'hi $
gap 64 $
n "[0 1]/2" # s "nimble"
# speed ((-4+).(*(-1)) <$> density 1.1 sine1)
# gain "0.9"
d'nim $ (0.25 ~>) $
whenmod 4 2 (const silence) $
@@ -243,17 +240,28 @@ d'hi $
gap 64 $
n "[0 1]/2" # s "nimble"
# speed ((-4+).(*(-1)) <$> density 1.1 sine1)
# gain "0.9"
msil [d'bass, d'hi, d9]
d'drum $ swing' $ stack [
n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
every' 16 16 (const $ n "3" # s "kit") $
every' 16 16 (const $ sound "kit:3") $
n "[~ 0]" # s "kit",
n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
# gain "0.8"
]
d'hi silence
msil [d'bass, d'hi, d'bass2]
d'drum $ swing' $ mt 16 16 $ stack [
n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
every' 16 16 (const $ sound "kit:3") $
n "[~ 0]" # s "kit",
n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
# gain "0.8"
]
d'nim $ mt 16 16 $
(0.25 ~>) $
whenmod 4 2 (const silence) $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
hush
scratch.tidal
-172
View File
@@ -1,172 +0,0 @@
{-
defs
-}
let bpm b = cps (b/60)
withmod a b c d = (whenmod a b . within (c, d))
every' n o f = when ((== (o-1)) . (`mod` n)) f
msil = mapM_ ($ silence)
tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
let swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
swing' = swing 0.14 --0.05
let d'drum = d1
d'bass = d3
d'wax = d4
d'nim = d5
d'hi = d6
let nim'osc = (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
nim'del = (# delay "0.5") . (# delayfeedback "0.6") . (# delaytime "0.25")
-- original bpm = 105
let tmod' s e = tmod (s*(1/(105/60))) e
mt s d i = slow s $ tmod' 0.5 3 $ density d $ i
bpm 105
{----------
drum + perc
----------}
hush
d'drum silence
d'drum $
--mt 16 16 $
--within (0.5, 1) (rev) $ -- soften
--swing' $
stack [
--n "1/4"
--n "[1*2, 0*8]/8"
--n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8"
n "[1*2, 0*8, [~!! [~!! 0] ! ~ [~ 0/4] ~]]/8"
--n "[1*2, 0*8, [~!! [~!! 0] ! ~ [~ 0/4] [~ 0 ~!]]]/8"
--n "[1*2, 0*8, [~! [~ 0] [~!! 0] ! ~ [~ 0] [~ 0 ~!]]]/8"
# s "drum",
--every' 16 16 (const $ s "kit:3") $
whenmod 3 2 (density 2) $
(whenmod 11 5 . within (0.5, 1)) (density 2) $
--n ""
--n "[~ [0 2]/2]"
n "[[~ 0] [[2!! ~]/4 0]]/2"
# s "kit",
--n ""
--n "[~ [~ 1]]/2"
--n "[~ [~ 0/8 1 0/2]]/2"
--0.5 <~ n "[~ [~ 0/8 1 0/2]]/2"
--n "[~ [1 0/8 1/2 0/2]]/2"
0.5 <~ n "[~ [1/2 0/8 1 0/2]]/2"
--n "[~ [1 0/8 1 0/2]]/2"
# s "sn"
# gain "0.8"
]
d'drum $ n "[1*2, 0*8]/8" # s "drum"
{-----
icarus
-----}
hush
d'wax silence
d'wax $
--every' 2 2 (within (0, 0.75) (iter 16)) $
slow 16 . striate 256 $ s "icarus"
d'wax $ retrig $ s "icarus:1/20"
{-----
nimble
-----}
hush
d'nim silence
d'nim $
{-
superimpose (
--iter 4 .
iter 6 .
(# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
(# nudge "0")
) $
--}
{-
(whenmod 5 2 $
slowspread (\x -> within (0.5, 1) x) [
id, density (5%3), rev, density (4%3), id, rev, (0.5 <~)
]) $
--}
--whenmod 4 2 (const silence) $
--mt 16 1 $
slow 16 $
striate 256 $ n "[0 1]/2" # s "nimble"
-- # shape ((/4) <$> density 1.9 sine1)
-- could be killer for part 2
d'nim $
--{-
superimpose (
iter 4 .
(# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
) $
--}
--{-
every' 16 1 (
(# vowel "o u")
. (# delay "0.5") . (# delayfeedback "0.6") . (# delaytime "0.25")
) $
--}
whenmod 16 12 (# vowel "[a i]/3") $
(1 ~>) $
slow 16 $
striate 256 $ n "[0 1]/2" # s "nimble"
{---
bass
---}
hush
d'bass silence
let s = striate 16
in d'bass $
whenmod 3 2 (within (0, 0.5) (const silence)) $
whenmod 10 8 (within (0.5, 1) (const silence)) $
slow 8 $ stack [
s $ sound "bass",
s $ sound "sine"
]
let s = gap 32
in d'bass $
swing' $
whenmod 3 2 (within (0, 0.5) (const silence)) $
whenmod 10 8 (within (0.5, 1) (const silence)) $
slowspread (slow) [4%3, 1] $
(0.25 ~>) $
slow 8 $ stack [
s $ sound "bass",
s $ sound "sine"
]
{---------
alt nimble (wip)
---------}
hush
d'hi silence
d'hi $
swing' $
every 3 rev $
--within (0.5, 1) (density 2) $
whenmod 12 8 (0.5 <~) $
(0.5 ~>) $
slow 8 $
--slowspread (gap) [64, 16] $ -- idk
gap 64 $
n "[0 1]/2" # s "nimble"
-- # speed "[-3 -4]"
# speed ((-4+).(*(-1)) <$> density 1.1 sine1)
-- # vowel "[u a]/3"
hush