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

add a bunch of new samples + fun new parts

Browse Source 
demo recording 12 mins, not bad
This commit is contained in:
Aneurin Barker Snook
2016-10-30 22:38:15 +00:00
parent 38069502c1
commit c55d7627cd
12 changed files with 119 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
haddeo.tidal
+119 -26
View File
@@ -19,6 +19,9 @@ let d'drum = d1
d'wax = d4
d'nim = d5
d'hi = d6
d'fx1 = d8
d'fx2 = d9
d'fx3 = d10
let nim'osc = (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
nim'del = (# delay "0.5") . (# delayfeedback "0.6") . (# delaytime "0.25")
@@ -28,6 +31,7 @@ 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
hush
-- pt 1: intro
@@ -47,7 +51,7 @@ d'drum $ stack [
n "[~ 0]" # s "kit"
]
d'wax $ retrig $ slow 20 $ n "1" # s "icarus"
d'wax $ retrig $ slow 20 $ sound "icarus:1"
-- drop 1
@@ -72,12 +76,27 @@ d'drum $ stack [
n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
]
d'fx3 $
(1.5 ~>) $
slow 4 $ chop 48 $
sound (samples "snoo" <$> slow 7 $ run 7)
# gain "0.8"
# cut "10"
d'nim $ superimpose (iter 4) $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'nim $ superimpose (iter 4 . nim'osc) $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
-- not sure this quite works so early in the tune. works better after offbeat breakdown
d'fx1 $
(2 ~>) $ chop 16 $
s "dorr/4"
# hresonance "0.05"
# hcutoff "200"
# gain "0.8"
d'drum $ stack [
n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
whenmod 3 2 (density 2) $
@@ -101,7 +120,14 @@ d'nim $ superimpose (iter 6 . nim'osc . (# nudge "0")) $
mt 16 16 $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'wax silence
d'fx1 $ mt 16 16 $
(2 ~>) $ chop 16 $
s "dorr/4"
# hresonance "0.05"
# hcutoff "200"
# gain "0.8"
msil [d'wax, d'fx3]
d'nim $ mt 16 16 $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
@@ -110,17 +136,47 @@ d'nim $ mt 16 16 $
whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
-- develop here
d'nim $ mt 16 16 $
every' 2 2 (within (0, 0.5) (const silence)) $
whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'fx2 $ mt 16 16 $
stack [
1.75 ~> n "0/4" # s "blaster"
# gain "0.7"
]
d'nim $ mt 16 16 $
every 3 (density 2) $
every' 2 2 (within (0, 0.5) (const silence)) $
whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'fx2 $ mt 16 16 $
stack [
1.75 ~> s "blaster/4"
# gain "0.7",
chop 16 $
3.75 ~> s "duck/4"
# gain "0.6"
# speed "0.9"
]
d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
mt 16 16 $
every 3 (density 2) $
every' 2 2 (within (0, 0.5) (const silence)) $
whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
-- intermission
msil [d'fx1, d'fx2]
solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
mt 16 16 $
every 3 (density 2) $
every' 2 2 (within (0, 0.5) (const silence)) $
whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
@@ -141,8 +197,6 @@ let s = striate 16
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"
@@ -154,6 +208,8 @@ d'drum $ swing' $ stack [
n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
]
d'nim $ (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'drum $ swing' $ stack [
n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
every' 16 16 (const $ sound "kit:3") $
@@ -162,8 +218,6 @@ d'drum $ swing' $ stack [
n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
]
d'nim $ (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
(1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
@@ -191,22 +245,51 @@ d'drum $ swing' $ stack [
# gain "0.8"
]
d'bass2 $ swing' $
n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
# speed (0.5 ~> "[2 1]")
# gain "0.82"
d'fx2 $
stack [
1.75 ~> s "blaster/4"
# gain "0.7",
chop 16 $
3.75 ~> s "duck/4"
# gain "0.6"
# speed "0.9"
]
d'fx1 $
superimpose (slow 2) $
(2 ~>) $ chop 16 $ s "dorr/4"
# hresonance "0.05"
# hcutoff "200"
# gain "0.8"
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"
d'bass2 $ swing' $
n "[[~ 0] 1 [[~ 0]!] 0]/4" # s "bass2"
# speed "[2 1]"
d'wax $ slow 16 . striate 256 $ s "icarus"
d'fx3 $
(1.5 ~>) $
slow 4 $ chop 48 $
sound (samples "snoo" <$> slow 7 $ run 7)
# gain "0.8"
# cut "10"
d'nim $ superimpose (iter 4) $
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"
d'nim $ superimpose (iter 4 . nim'osc) $
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"
d'wax $ slow 16 . striate 256 $ s "icarus"
d'drum $ swing' $ stack [
n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
n "[~ 0]" # s "kit",
@@ -214,7 +297,9 @@ d'drum $ swing' $ stack [
# gain "0.8"
]
msil [d'nim, d'wax]
-- outro
msil [d'nim, d'wax, d'fx2, d'fx3]
d'hi $
swing' $
@@ -230,17 +315,6 @@ d'nim $ (0.25 ~>) $
whenmod 4 2 (const silence) $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'hi $
swing' $
every 3 rev $
within (0.5, 1) (density 2) $
whenmod 12 8 (0.5 <~) $
(0.5 ~>) $
slow 8 $
gap 64 $
n "[0 1]/2" # s "nimble"
# speed ((-4+).(*(-1)) <$> density 1.1 sine1)
d'drum $ swing' $ stack [
n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
every' 16 16 (const $ sound "kit:3") $
@@ -249,7 +323,25 @@ d'drum $ swing' $ stack [
# gain "0.8"
]
msil [d'bass, d'hi, d'bass2]
d'fx2 $
stack [
1.75 ~> s "blaster/4"
# gain "0.7",
chop 16 $
3.75 ~> s "duck/4"
# gain "0.6"
# speed "0.9"
]
d'nim $ (0.25 ~>) $
whenmod 4 2 (const silence) $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
# vowel "o"
msil [d'bass, d'hi, d'bass2, d'fx1, d'fx2]
d'wax $ slow 16 . striate 256 $ s "icarus"
d'wax $ retrig $ slow 20 $ sound "icarus:1"
d'drum $ swing' $ mt 16 16 $ stack [
n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
@@ -263,5 +355,6 @@ d'nim $ mt 16 16 $
(0.25 ~>) $
whenmod 4 2 (const silence) $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
# vowel "o"
hush