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

reorganising

Browse Source
This commit is contained in:
Aneurin Barker Snook
2016-10-29 22:35:31 +01:00
parent 8abab26d24
commit ace8439ff9
1 changed files with 33 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
haddeo.tidal
+33 -22
View File
@@ -79,6 +79,8 @@ d'nim $ mt 16 16 $
whenmod 5 3 rev $ whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble" slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
-- develop here
d'nim $ mt 16 16 $ d'nim $ mt 16 16 $
every' 2 2 (within (0, 0.5) (const silence)) $ every' 2 2 (within (0, 0.5) (const silence)) $
whenmod 5 3 rev $ whenmod 5 3 rev $
@@ -92,8 +94,6 @@ solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
whenmod 5 3 rev $ whenmod 5 3 rev $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble" slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'wax $ slow 16 . striate 256 $ s "icarus"
let s = striate 16 let s = striate 16
in d'bass $ in d'bass $
slow 8 $ stack [ slow 8 $ stack [
@@ -146,6 +146,16 @@ d'nim $ every' 16 1 (# vowel "o u") $
whenmod 16 12 (# vowel "[a i]/3") $ whenmod 16 12 (# vowel "[a i]/3") $
(1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble" (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 $ n "3" # s "kit") $
whenmod 3 2 (density 2) $
withmod 11 5 0.5 1 (density 2) $
n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
# gain "0.8"
]
d'bass silence d'bass silence
let s = gap 32 let s = gap 32
@@ -165,20 +175,11 @@ let s = gap 32
] ]
# gain "0.9" # gain "0.9"
d'drum $ swing' $ stack [
n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
every' 16 16 (const $ n "3" # s "kit") $
whenmod 3 2 (density 2) $
withmod 11 5 0.5 1 (density 2) $
n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
# gain "0.8"
]
d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $ d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
whenmod 16 12 (# vowel "[a i]/3") $ whenmod 16 12 (# vowel "[a i]/3") $
(1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble" (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
{-
let s = gap 32 let s = gap 32
in d'bass $ swing' $ in d'bass $ swing' $
whenmod 3 2 (within (0, 0.5) (const silence)) $ whenmod 3 2 (within (0, 0.5) (const silence)) $
@@ -190,24 +191,24 @@ let s = gap 32
s $ sound "sine" s $ sound "sine"
] ]
# gain "0.9" # gain "0.9"
-}
d'wax silence
d'nim $ superimpose (iter 4 . nim'osc) $ d'nim $ superimpose (iter 4 . nim'osc) $
every' 16 1 ((# vowel "o u") . nim'del) $ every' 16 1 ((# vowel "o u") . nim'del) $
whenmod 16 12 (# vowel "[a i]/3") $ whenmod 16 12 (# vowel "[a i]/3") $
(1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble" (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
d'wax $ slow 16 . striate 256 $ s "icarus"
d'drum $ swing' $ stack [ d'drum $ swing' $ stack [
n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum", n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
every' 16 16 (const $ n "3" # s "kit") $ n "[~ 0]" # s "kit",
whenmod 3 2 (density 2) $ n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
withmod 11 5 0.5 1 (density 2) $
n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
0.5 <~ n "[~ [1/2 0/8 1 0/2]]/2" # s "sn"
# gain "0.8" # gain "0.8"
] ]
msil [d'nim, d'bass, d'wax]
d'hi $ d'hi $
swing' $ swing' $
every 3 rev $ every 3 rev $
@@ -219,7 +220,17 @@ d'hi $
# speed ((-4+).(*(-1)) <$> density 1.1 sine1) # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
# gain "0.9" # gain "0.9"
msil [d'nim, d'bass] d'nim $ (0.25 ~>) $
whenmod 4 2 (const silence) $
slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
let s = striate 16
in d'bass $
slow 8 $ stack [
s $ sound "bass",
s $ sound "sine"
]
# gain "0.9"
d'hi $ d'hi $
swing' $ swing' $
@@ -233,6 +244,6 @@ d'hi $
# speed ((-4+).(*(-1)) <$> density 1.1 sine1) # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
# gain "0.9" # gain "0.9"
d'hi silence msil [d'bass, d'hi]
hush hush