music-2010s/leeds-algorave-2016
Archived
1
0
Fork 0
Code Pull Requests Activity

update megalet from battery123 with backported

Browse Source
This commit is contained in:
Aneurin Barker Snook
2016-04-30 19:19:57 +01:00
parent b8882bbb83
commit cdcadca6b5
1 changed files with 7 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
leeds2016.megalet.tidal
+7 -10
View File
@@ -31,6 +31,12 @@ let msil = mapM_ ($ silence)
# gain "0.8" # gain "0.8"
b2'uxp = (# gain "0.8") . b2'uxp = (# gain "0.8") .
(# speed "[0.7 1 1.2]/2") (# speed "[0.7 1 1.2]/2")
b2'ux = cf $ s "uxay*4"
# n "1 0 1 2"
b2'ux2 i = (if i then brak . iter 4 else cf . brak) $
b2'uxp $ s "uxay*4"
# n "1 0 1 2"
# shape "0.4 0.3 0.6"
b2'psr = s "psr*4 psr*2" b2'psr = s "psr*4 psr*2"
# gain "0.6" # gain "0.6"
b2'psrf = s "[[psr*4 psr*2] ! ! psr*8]/4" b2'psrf = s "[[psr*4 psr*2] ! ! psr*8]/4"
@@ -376,16 +382,7 @@ let hhb m = smash 16 [0.25, 0.5] $
let ss'perc = s "{[sbd ~ ~ sbd] msg, rhh*2}" let ss'perc = s "{[sbd ~ ~ sbd] msg, rhh*2}"
ss'perc' = s "{[rm ~ ~ rm] msg, rhh*2}" ss'perc' = s "{[rm ~ ~ rm] msg, rhh*2}"
-- should backport these two to battery123.tidal -- another performance let to make it easier to drop in battery1 bass nr end
let b2'ux = cf $ s "uxay*4"
# n "1 0 1 2"
let b2'ux2 i = (if i then brak . iter 4 else cf . brak) $
b2'uxp $ s "uxay*4"
# n "1 0 1 2"
# shape "0.4 0.3 0.6"
-- don't backport, you normally build up to this, but lands outta nowhere in leeds
let b1'bassf = cf $ let b1'bassf = cf $
spread slow [1,3] $ spread slow [1,3] $
striate 16 $ striate 16 $