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

add defs for battery 2 uxay cause it's hard to type fast

Browse Source 
nts: backport to b2 proper
This commit is contained in:
Aneurin Barker Snook
2016-04-27 08:55:31 +01:00
parent b55153fe11
commit 130c60a706
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
leeds2016.tidal
+12 -12
View File
@@ -62,13 +62,19 @@ cps (135/60)
cps (130/60) cps (130/60)
cps (125/60) cps (125/60)
d'perc $ cf $ s "uxay*4" let b2'ux = s "uxay*4"
# n "1 0 1 2" # n "1 0 1 2"
let b2'ux2 i = (if i then brak . iter 4 else brak) $
b2'uxp $ s "uxay*4"
# n "1 0 1 2"
# shape "0.4 0.3 0.6"
d'perc $ b2'ux
msil [d'drum, d'fly, d'gnome, d'bass] msil [d'drum, d'fly, d'gnome, d'bass]
d'perc $ cf $ s "uxay*4" d'perc $ b2'ux
# n "1 0 1 2"
# speed "[0.7 1 1.2]/2" # speed "[0.7 1 1.2]/2"
d'drum $ cf $ b2'psr d'drum $ cf $ b2'psr
@@ -82,10 +88,7 @@ d'drum $ overlay (s "k") $
cf $ every 3 (0.125 <~) $ b2'psrf cf $ every 3 (0.125 <~) $ b2'psrf
-- this and next 3 parts real quick -- this and next 3 parts real quick
d'perc $ cf $ brak $ d'perc $ cf $ b2'ux2 False
b2'uxp $ s "uxay*4"
# n "1 0 1 2"
# shape "0.4 0.3 0.6"
d'drum $ cf $ -- overlay (s "peri") $ d'drum $ cf $ -- overlay (s "peri") $
every 3 (0.125 <~) $ b2'psrf every 3 (0.125 <~) $ b2'psrf
@@ -98,10 +101,7 @@ d'tr $ cf $ b2'trump "[~ trump ! !] ~"
d'drum $ overlay (s "k") $ d'drum $ overlay (s "k") $
cf $ every 3 (0.125 <~) $ b2'psrf cf $ every 3 (0.125 <~) $ b2'psrf
d'perc $ brak . iter 4 $ d'perc $ b2'ux2 True
b2'uxp $ s "uxay*4"
# n "1 0 1 2"
# shape "0.4 0.3 0.6"
d'bz $ 0.5 ~> bzox'4 "bz" d'bz $ 0.5 ~> bzox'4 "bz"
d'bz $ 0.5 ~> bzox'4 "bz*2" d'bz $ 0.5 ~> bzox'4 "bz*2"