diff --git a/leeds2016.megalet.tidal b/leeds2016.megalet.tidal index 537a50f..5b4d0c8 100644 --- a/leeds2016.megalet.tidal +++ b/leeds2016.megalet.tidal @@ -375,3 +375,12 @@ let hhb m = smash 16 [0.25, 0.5] $ let ss'perc = s "{[sbd ~ ~ sbd] msg, rhh*2}" ss'perc' = s "{[rm ~ ~ rm] msg, rhh*2}" + +-- should backport these two to battery123.tidal +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" diff --git a/leeds2016.tidal b/leeds2016.tidal index 52cfdf9..cd3c537 100644 --- a/leeds2016.tidal +++ b/leeds2016.tidal @@ -25,7 +25,7 @@ d'perc $ wt'2 # gain "0.85" d'bass silence d'drum $ drum'6 - +hush d'misc $ slow 16 $ bass' 64 d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $ cymb'6 @@ -62,10 +62,10 @@ cps (135/60) cps (130/60) cps (125/60) -let b2'ux = s "uxay*4" +let b2'ux = cf $ s "uxay*4" # n "1 0 1 2" -let b2'ux2 i = (if i then brak . iter 4 else brak) $ +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" @@ -88,7 +88,7 @@ d'drum $ overlay (s "k") $ cf $ every 3 (0.125 <~) $ b2'psrf -- this and next 3 parts real quick -d'perc $ cf $ b2'ux2 False +d'perc $ b2'ux2 False d'drum $ cf $ -- overlay (s "peri") $ every 3 (0.125 <~) $ b2'psrf @@ -156,19 +156,18 @@ d'mons $ cf $ d'arpy silence d'bass $ bass'5 -d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ - s "~" - d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ s "pbd*2" d'bass $ every 2 (density 2) $ bass'5 d'qs $ cf $ + slowspread density [1,2] $ jux (iter 8) $ pn'qs 2 # gain "0.95" d'qs $ cf $ + slowspread density [1,2] $ jux (iter 8) $ pn'qs 2 # speed ((+0.7).(/2) <$> slow 3.2 triwave1) # gain "0.95" @@ -179,8 +178,13 @@ d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ d'bass $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ bass'5 # speed ((+0.75).(/2) <$> slow 1.3 sinewave1) -d'mons silence -d'drum silence +d'qs $ cf $ + spread density [1,1,2,0.5] $ + jux (iter 8) $ pn'qs 2 + # speed ((+0.7).(/2) <$> slow 3.2 triwave1) + # gain "0.95" + +msil [d'mons, d'drum] -- quickly d'qs $ cf $ @@ -193,7 +197,6 @@ d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ s "k(3,8)" d'bass2 $ slow 8 $ s "jungbass jungbass:1" - # pan (slow 2 sinewave1) # speed "1.2" d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ @@ -247,9 +250,9 @@ msil [d'bass, d'perc, d'ql] cps (99/60) d'bass $ bassbass +d'bass $ bassbass' d'drum $ s "k" d'perc $ hhb False -d'bass $ bassbass' d'drum $ morek $ s "k" d'perc $ whenmod 16 15 (density 3) $ hhb False d'bass2 silence @@ -416,6 +419,7 @@ d'voc $ cf $ slow 2 $ ss'chorus # vowel "e" +-- somewhat quickly msil [d'drum, d'perc] d'drum $ cf $ @@ -433,13 +437,10 @@ d'gt $ cf $ # speed "0.7" d'kurt $ cf $ s "kurt" - # n (slow 7 $ run 7) + # n (slow 4 "5 6 4") d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass' -d'kurt $ cf $ s "kurt" - # n (slow 4 "5 6 4") - d'moog $ cf $ slow 8 . striate 8 $ 0.25 <~ s "moog" @@ -447,6 +448,9 @@ d'moog $ cf $ # speed "0.6 0.7" # pan (slow 8 sinewave) +d'kurt $ cf $ s "kurt" + # n (slow 7 $ run 7) + d'voc $ cf $ slow 4 $ ss'chorus # vowel "e" @@ -569,7 +573,6 @@ d'bz $ every 3 brak $ bzox'4 "~ bzl" d'qs $ cf $ s "casio*2 ~" # gain "0.85" -d'arpy $ (0.5 <~) $ ((1%16) <~) $ shard'2 d'arpy $ shard'3f msil [d'bass, d'tac, d'bass2, d'bz] @@ -579,11 +582,12 @@ cps (130/60) cps (125/60) msil [d'fly, d'arpy] -msil [d'drum, d'ant] d'perc $ cf $ slow 2 . spread slow [2,4,2,3] $ jux (0.25 <~) $ b1'perc # n (density 3 $ run 2) +msil [d'drum, d'ant] + hush