{- anny: leeds 2016 live performance setlist: - piston vi - battery 2 (edit) - raise/piston v - juliese [new] - something to say (version) - battery 1 vs. piston -} {- piston vi -} cps (138/60) solo $ d'bass $ bass'6 d'bz $ bass2'6 d'fly $ plode'6 d'cymb $ cymb'6 d'perc $ wt'2 # gain "0.85" d'bass silence d'drum $ drum'6 d'misc $ slow 16 $ bass' 64 d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $ cymb'6 d'gnome $ wtsn'6 d'drum $ overlay sn'6 $ drum'6 d'bass $ (0.6 ~>) $ bass'4 msil [d'perc,d'gnome,d'misc] d'gnome $ gnome'6 5 d'gnome $ gnome'6 3 msil [d'drum,d'fly,d'bz,d'cymb] d'drum $ s "[[k k:1]*2 [sn k:1 ~ k] [~ k:1 k ~] [~ sn ~ k]]/8" d'fly $ fly'5 False d'cymb $ (0.5 <~) $ cymb'2 "0.7" d'bz $ bass2'6 d'drum $ overlay sn'6 $ drum'6 msil [d'perc,d'fly,d'bz] {- battery 2 (edit) -} cps (135/60) cps (130/60) cps (125/60) 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" d'perc $ b2'ux msil [d'drum, d'fly, d'gnome, d'bass] d'perc $ b2'ux # speed "[0.7 1 1.2]/2" d'drum $ cf $ b2'psr d'drum $ cf $ b2'psrf d'drum $ cf $ every 3 (0.125 <~) $ b2'psrf -- quickly d'cymb silence d'drum $ overlay (s "k") $ cf $ every 3 (0.125 <~) $ b2'psrf -- this and next 3 parts real quick d'perc $ b2'ux2 False d'drum $ cf $ -- overlay (s "peri") $ every 3 (0.125 <~) $ b2'psrf d'tr $ cf $ b2'trump "[~ trump ! !] ~" d'tr $ cf $ b2'trump "[~ trump ! !] ~" # speed (halfosc1 <$> slow 4 sinewave1) d'drum $ overlay (s "k") $ cf $ every 3 (0.125 <~) $ b2'psrf d'perc $ b2'ux2 True d'bz $ 0.5 ~> bzox'4 "bz" d'tr silence d'bass $ b2'bass d'bass $ b2'bass # shape "0.3" -- increase 0->0.3 d'bass $ b2'bass # shape (halfosc <$> saw1) d'arpy $ cf $ b2'arpy d'arpy $ cf $ iter 9 $ b2'arpy {- raise/piston v -} d'ql $ slow (10%4) $ spread density [1,5%4] $ s "[qlatibro:1 qlatibro]*2" # vowel "e" let pn'hh = s "[phh*8 [phh*4 ho]]/2" -- yknow this is a pretty neat sample d'casio $ cf $ s "casio*2 ~" # gain "0.85" msil [d'drum, d'perc] cps (120/60) cps (117/60) d'drum $ cf $ pn'hh msil [d'bz, d'bass] d'perc $ 0.75 ~> s "wtsn/8" d'mons $ cf $ striate 4 $ slow 2 $ s "monsterb" # gain "0.7" # speed ((+0.6).(/2) <$> slow 4 sinewave1) d'mons $ cf $ spread density [1,2] $ striate 4 $ slow 2 $ s "monsterb" # gain "0.7" # speed ((+0.6).(/2) <$> slow 4 sinewave1) d'arpy silence d'bass $ bass'5 d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ s "pbd*2" d'bass $ every 2 (density 2) $ bass'5 d'qs $ cf $ jux (iter 8) $ pn'qs 2 # gain "0.95" d'qs $ cf $ jux (iter 8) $ pn'qs 2 # speed ((+0.7).(/2) <$> slow 3.2 triwave1) # gain "0.95" d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ s "k*2" d'bass $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ bass'5 # speed ((+0.75).(/2) <$> slow 1.3 sinewave1) 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 $ spread density [1,1,0.5,2] $ jux (iter 8) $ pn'qs 2 # speed ((+0.7).(/2) <$> slow 3.2 triwave1) # gain "0.95" d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ s "k(3,8)" d'bass2 $ slow 8 $ s "jungbass jungbass:1" # speed "1.2" d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ every 4 (brak . density 2) $ s "k(3,8)" d'qs $ cf $ spread density [1,1,0.5,2] $ jux (iter 8) $ pn'qs 2 # speed ((+0.7).(/1.5) <$> slow 3.2 triwave1) msil [d'perc, d'qs] d'fly $ fly'5 True d'casio $ cf $ spread density [1,4%3] $ s "casio*2 ~" # gain "0.85" d'casio $ cf $ jux (slow (4%3)) $ spread density [1,4%3] $ s "casio*2 ~" # gain "0.85" d'casio silence d'arpy $ cf $ spread density [1,2] $ striate 4 $ slow 2 $ s "monsterb" # gain "0.7" # speed ((+0.6).(/2) <$> slow 4 sinewave1) msil [d'arpy, d'fly] {- juliese [new] -} let hhb m = smash 16 [0.25, 0.5] $ (if m then (every 3 (append $ s "rhh:1 rhh")) else id) $ s "rhh rhh:2" # gain "0.6" d'bass $ every 2 (density 2) $ bass'5 cps (111/60) cps (105/60) d'drum $ cf $ overlay (pn'sn # gain "0.8") $ s "k*2" 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'drum $ morek $ s "k" d'perc $ whenmod 16 15 (density 3) $ hhb False d'bass2 silence d'drum $ overlay ((0.5 ~>) $ s "rsn/2") $ morek $ s "k" d'bass $ whenmod 3 2 (slow 2) $ bassbass' -- quickly d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass' d'drum $ overlay ((1 ~>) $ s "cy/8") $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k" d'perc $ whenmod 16 15 (density 3) $ hhb True d'perc $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k" d'udu $ ududu d'wbass $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9" d'wbass $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9" d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9" d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ density 0.25 $ eg # gain "0.8" d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ density 0.25 $ slowspread density [1, 2, 0.5, 2] $ eg # gain "0.8" d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9" # speed "[1 1 2]/3" d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ density 0.245 $ -- ! slowspread density [1, 2, 0.5, 2] $ eg # gain "0.8" msil [d'perc, d'bass] d'eg $ (0.18 <~) $ every 2 (const silence) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ density 0.245 $ slowspread density [1, 2, 0.5, 2] $ eg # gain "0.8" d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ every' 12 2 (density 3) $ s "k" d'pc $ pcbeep d'pc $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ (whenmod 7 5 $ trunc (5%6)) $ ududu d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9" # speed "[1 1 2]/3" d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep d'gt $ gt # gain "0.87" # speed ((+1).(/4) <$> slow 1.95 sinewave1) d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9" # speed "[1 1 2]/3" d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass' d'udu $ (every' 5 3 $ brak) $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ (whenmod 7 5 $ trunc (5%6)) $ ududu d'eg $ (0.18 <~) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ density 0.245 $ slowspread density [1, 2, 0.5, 2] $ eg # gain "0.8" d'gt $ density 0.98 $ gt # gain "0.87" # speed ((+1).(/4) <$> slow 1.95 sinewave1) msil [d'perc, d'eg, d'wbass] d'drum $ ju'drum2 {- something to say (version) -} let ss'perc = s "{[sbd ~ ~ sbd] msg, rhh*2}" ss'perc' = s "{[rm ~ ~ rm] msg, rhh*2}" d'gt silence d'drum $ every' 32 32 (const silence) $ slow 2 $ ju'drum2 d'bass silence cps (102/60) cps (104/60) cps (106/60) d'perc $ cf $ every 2 (superimpose $ iter' 3) $ slow 2 $ ss'perc d'gt $ cf $ ss'stab # speed "0.7" -- quickly d'udu silence d'pc silence d'gt $ cf $ slow 2 $ every 4 (density 2) $ every 2 (density 2) $ ss'stab # speed "0.7" d'voc $ cf $ slow 4 $ ss'verse # vowel "e" d'kurt $ cf $ ss'kurt # n (slow 7 $ run 7) d'gt $ cf $ density 2 $ iter 2 $ ss'stab # speed "0.7" d'kurt $ cf $ s "kurt" # n (slow 4 "5 6 4") d'gt $ cf $ density 2 $ iter 2 $ ss'stab # speed ((+0.7).(/2) <$> slow 5 sinewave1) d'voc $ cf $ slow 4 $ ss'chorus # vowel "e" d'voc $ cf $ slow 4 $ iter 3 . striate 4 $ ss'chorus # vowel "e" d'gt $ stut 2 0.8 0.5 $ -- new cf $ density 2 $ iter 2 $ ss'stab # speed ((+0.7).(/2) <$> slow 5 sinewave1) d'voc $ cf $ slow 2 $ iter 3 . striate 4 $ ss'chorus # vowel "e" -- somewhat quickly msil [d'drum, d'perc] d'drum $ cf $ every 2 (superimpose $ iter' 3) $ slow 2 $ ss'perc' msil [d'gt, d'kurt, d'pc, d'voc] d'voc $ cf $ slow 4 $ ss'verse # vowel "e" d'gt $ cf $ slow 2 $ every 4 (density 2) $ every 2 (density 2) $ ss'stab # speed "0.7" d'kurt $ cf $ s "kurt" # n (slow 4 "5 6 4") d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass' d'moog $ cf $ slow 8 . striate 8 $ 0.25 <~ s "moog" # n (slow 2 "0 1") # 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" d'voc $ cf $ slow 2 $ iter 3 . striate 4 $ ss'chorus # vowel "e" d'voc $ cf $ slow 2 $ iter 3 . striate 4 $ ss'chorus # vowel "e" # speed ((+0.5).(*1.2) <$> slow 5 sinewave1) d'bass silence d'drum $ overlay (morek $ s "k") $ cf $ every 2 (superimpose $ iter' 3) $ slow 2 $ ss'perc' d'drum $ overlay (morek $ s "k") $ cf $ every 2 (superimpose $ iter' 3) $ slow 2 $ ss'perc d'voc $ cf $ iter 3 . striate 4 $ ss'chorus # vowel "e" # speed ((+0.5).(*1.2) <$> slow 5 sinewave1) d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass' -- this is new d'voc $ cf $ slowspread ($) [id, (within (0.25, 0.5) $ const silence), (# speed "-1")] $ iter 3 . striate 16 $ ss'chorus # vowel "e" # speed ((+0.5).(*1.2) <$> slow 5 sinewave1) d'misc $ bass2'3 -- also this d'voc $ cf $ slowspread ($) [id, (within (0.25, 0.5) $ const silence), (# speed "-1")] $ iter 3 . striate 16 $ ss'chorus # vowel "u e" # speed ((+0.5).(*1.2) <$> slow 5 sinewave1) {- battery 1 vs. piston -} msil [d'voc, d'moog] d'drum $ overlay (s "k") $ cf $ every 2 (superimpose $ iter' 3) $ slow 2 $ ss'perc d'bass silence d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) # pan (halfosc <$> slow (8%3) sinewave1) cps (110/60) cps (120/60) cps (130/60) cps (140/60) msil [d'gt, d'kurt] let b1'bassf = cf $ spread slow [1,3] $ striate 16 $ b1'bass # n "0 1 0 0" # speed (halfosc1 <$> slow 8 sinewave1) # gain "0.9" d'bass $ b1'bassf d'perc $ cf $ spread slow [2,1] $ jux (0.25 <~) $ b1'perc # n (density 3 $ run 2) d'tac $ cf $ b1'tac d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac d'drum silence d'drum $ cf $ overlay (s "~ rsn") $ every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~" d'bass2 $ bass'3 "o i" "1" True d'bz $ every 3 brak $ bzox'4 "~ bzl" d'hand silence msil [d'tac, d'bz] d'bass2 $ overlay (slow 16 $ bass' 64) $ bass'3 "o i" "1" True d'ant $ within (0.5, 1) (slow 1.5 . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1 d'drum $ cf $ overlay (every 2 (density 3) $ s "~ rsn") $ every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~" d'fly $ cf $ b2'trump "[~ tacscan ! !] ~" # end "0.2" d'drum $ cf $ overlay (every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ rsn") $ every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~" d'bz $ every 3 brak $ bzox'4 "~ bzl" d'qs $ cf $ s "casio*2 ~" # gain "0.85" d'arpy $ shard'3f msil [d'bass, d'tac, d'bass2, d'bz] cps (135/60) cps (130/60) cps (125/60) msil [d'fly, d'arpy] 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