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

new shit

Browse Source
This commit is contained in:
Aneurin Barker Snook
2016-09-15 00:02:22 +01:00
parent 8f0d8ac146
commit b87e3793d0
1 changed files with 73 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files
haddeo.tidal
+73 -30
View File
@@ -15,14 +15,6 @@ d1 $ slow 8 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
d1 $ mt 16 2 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum" d1 $ mt 16 2 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
d1 $
(whenmod 5 3 . every' 7 5) (0.5 ~>) $
slow 8 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
d1 $
(whenmod 5 3 . every' 7 5) (0.5 ~>) $
mt 16 2 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
d2 $ n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit" d2 $ n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
d2 $ d2 $
@@ -50,41 +42,92 @@ d2 $
d3 $ slow 16 . striate 256 $ s "icarus" d3 $ slow 16 . striate 256 $ s "icarus"
d3 $ d3 $
(# nudge (scale 0 0.5 $ slow 7 sine1)) $ every' 2 2 (within (0, 0.75) (iter 16)) $
slow 16 $ striate 256 $ s "icarus" slow 16 . striate 256 $ s "icarus"
{-
d3 $ d3 $
off 0.5 (slow 1.5) $
(# nudge (scale 0 0.5 $ slow 7 sine1)) $
slow 16 $ striate 256 $ s "icarus"
d3 $
off 0.5 (slow 1.5) $
slow 8 $ smash 64 [0.5,0.75] $ slow 8 $ smash 64 [0.5,0.75] $
s "icarus" s "icarus"
-}
-- nimble -- nimble
d4 $ slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble" d4 $ slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
d4 $ whenmod 4 3 rev $ d4 $ superimpose (iter 4) $
slow 16 $ striate 128 $ n "[0 1]/2" # s "nimble" slow 16 $ striate 256 $ n "[0 1]/2" # s "nimble"
d4 $ superimpose (iter 5) $ d4 $
whenmod 4 3 rev $ superimpose (
slow 16 $ striate 128 $ n "[0 1]/2" # s "nimble" iter 4 .
(# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
) $
slow 16 $ striate 256 $ n "[0 1]/2" # s "nimble"
d4 $ superimpose (iter 5 . (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))) $ d4 $
whenmod 4 3 rev $ superimpose (
slow 16 $ striate 128 $ n "[0 1]/2" # s "nimble" iter 4 .
(# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
d4 $ superimpose (iter 5 . (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) . (# nudge "0")) $ (# nudge "0")
whenmod 4 3 rev $ ) $
mt 16 1 $ striate 128 $ n "[0 1]/2" # s "nimble" mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
d3 silence d3 silence
d4 $ mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
d4 $ whenmod 4 3 rev $ d4 $ whenmod 5 3 rev $
mt 16 1 $ striate 128 $ n "[0 1]/2" # s "nimble" mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
d4 $
superimpose (
iter 4 .
(# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
(# nudge "0")
) $
whenmod 5 3 rev $
mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
d4 $
every' 2 2 (within (0, 0.5) (const silence)) $
superimpose (
iter 4 .
(# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
(# nudge "0")
) $
whenmod 5 3 rev $
mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
d4 $
every' 2 2 (within (0.25, 0.5) (const silence)) $
superimpose (
iter 4 .
(# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
(# nudge "0")
) $
whenmod 5 3 rev $
mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
-- something of a structure starting to come together here
d1 $ slow 8 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
d1 $
(whenmod 5 3 . every' 7 5) (0.5 ~>) $
slow 8 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
d1 $
(whenmod 5 3 . every' 7 5) (0.5 ~>) $
mt 16 2 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
d3 $
every' 2 2 (within (0, 0.75) (iter 16)) $
slow 16 . striate 256 $ s "icarus"
d4 $
every' 2 2 (within (0.25, 0.5) (const silence)) $
whenmod 5 3 rev $
mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
d4 silence
hush hush