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

tweaks, tempo modulation feels more natural now

Browse Source
This commit is contained in:
Aneurin Barker Snook
2016-09-13 09:10:38 +01:00
parent c1d3613d28
commit 8f0d8ac146
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
haddeo.tidal
+3 -5
View File
@@ -3,7 +3,7 @@ let withmod a b c d = (whenmod a b . within (c, d))
let every' n o f = when ((== (o-1)) . (`mod` n)) f let every' n o f = when ((== (o-1)) . (`mod` n)) f
let modtempo s e = (# nudge (scale 0 s $ fmap (**e) saw1)) let modtempo s e = (# nudge (scale 0 s $ fmap (**e) saw1))
let mt s d i = slow s . modtempo 0.125 8 $ density d $ i let mt s d i = slow s . modtempo 0.3 3 $ density d $ i
-- original bpm = 105 -- original bpm = 105
bpm 105 bpm 105
@@ -74,15 +74,13 @@ d4 $ superimpose (iter 5) $
whenmod 4 3 rev $ whenmod 4 3 rev $
slow 16 $ striate 128 $ n "[0 1]/2" # s "nimble" slow 16 $ striate 128 $ n "[0 1]/2" # s "nimble"
d4 $ superimpose (iter 5) $ d4 $ superimpose (iter 5 . (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))) $
whenmod 4 3 rev $ whenmod 4 3 rev $
slow 16 $ striate 128 $ n "[0 1]/2" # s "nimble" slow 16 $ striate 128 $ n "[0 1]/2" # s "nimble"
# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)
d4 $ superimpose (iter 5) $ d4 $ superimpose (iter 5 . (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) . (# nudge "0")) $
whenmod 4 3 rev $ whenmod 4 3 rev $
mt 16 1 $ striate 128 $ n "[0 1]/2" # s "nimble" mt 16 1 $ striate 128 $ n "[0 1]/2" # s "nimble"
# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)
d3 silence d3 silence