{- anny fm: battery 1,2,3 originally recorded live @ the loft, brighton, 4th july 2014 _____ / / /____/ anny.audio/track/battery-123-live __ c||| o_ c||||| ___o soundcloud.com/anny-fm/battery-123-live -} cps (125/60) -- multi-silence let msil = mapM_ ($ silence) -- shortfix for bps->cps let cf = slow 2 -- alternative every let every' n o f = when ((== (o-1)) . (`mod` n)) f -- osc patterns let halfosc = (/2).(+0.5) halfosc1 = (+1).(/2) thirdosc1 = (+1).(/3) -- channel mapping let d'drum = d1 d'perc = d2 d'bass = d3 d'hand = d4 d'warb = d5 -- warbler d'bass2 = d6 -- more bass right at the end d'arpy = d7 d'tr = d8 -- trump d'tac = d9 -- tacscan {- [1] -} let b1'bass = s "bass3 [~ bass3] ! ~" # begin "0.2" let b1'hand = slow 8 $ rev . striate 256 $ s "hand*8" # speed "0.7" let b1'perc = slow 2 $ s "uxay [~ uxay] [psr uxay] ~" let b1'tac = s "[~ tacscan] ! ~ ~" # gain "0.8" # vowel (slow 3 "e u") let b1'warbler = slow 4 $ striate 32 $ s "warbler" # n (slow 7 $ run 7) # gain "0.8" -- go d'bass $ slow 4 $ b1'bass d'bass $ slow 4 $ b1'bass # n "0 1 0 0" d'bass $ slow 4 $ b1'bass # n "0 1 0 0" # speed (thirdosc1 <$> slow 8 sinewave1) d'hand $ b1'hand d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) -- nice drum d'perc $ cf $ b1'perc d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) # pan (halfosc <$> slow (8%3) sinewave1) d'perc $ cf $ b1'perc # n (density 3 $ run 2) d'perc $ cf $ jux (0.25 <~) $ b1'perc # n (density 3 $ run 2) -- good bass d'bass $ cf $ spread slow [1,3] $ striate 16 $ b1'bass # n "0 1 0 0" # speed (halfosc1 <$> slow 8 sinewave1) # gain "0.9" d'drum $ cf $ s "~ psr:1" d'drum $ cf $ overlay (s "~ psr:1") $ slow 2 $ s "peri [~ peri] ! ~" d'drum $ cf $ s "~ psr:1" -- good drum d'drum $ cf $ overlay (s "~ psr:1") $ every 4 (density 1.5) $ slow 2 $ s "peri [~ peri] ! ~" d'drum $ cf $ s "~ psr:1" -- bring a funk d'tac $ cf $ b1'tac d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac d'drum $ overlay (s "peri") $ cf $ s "~ psr:1" d'drum $ cf $ s "~ psr:1" -- birdsong. don't play it for too long. gets annoying d'warb $ b1'warbler d'perc $ cf $ spread slow [2,1] $ jux (0.25 <~) $ b1'perc # n (density 3 $ run 2) d'drum $ overlay (s "peri") $ cf $ s "~ psr:1" d'drum $ overlay (s "peri") $ cf $ every 2 (density 3) $ s "~ psr:1" msil [d'bass, d'tac] -- drum + perc are real nice at this point d'drum $ overlay (s "peri") $ cf $ every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ psr:1" d'perc $ cf $ slow 2 . spread slow [2,4,2,3] $ jux (0.25 <~) $ b1'perc # n (density 3 $ run 2) d'hand silence d'drum $ cf $ every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ psr:1" d'drum silence {- [2] -} let b2'uxp = (# gain "0.8") . (# speed "[0.7 1 1.2]/2") let b2'psr = s "psr*4 psr*2" # gain "0.6" b2'psrf = s "[[psr*4 psr*2] ! ! psr*8]/4" # gain "0.6" let b2'trump p = whenmod 5 4 rev $ s p # n (slow 3.2 $ run 4) # gain "0.8" # speed (halfosc1 <$> slow 4 sinewave1) # vowel (slow 3.2 "a e o") # shape "0.6" let b2'bass = slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]" # n (slow 2.8 "0 1 2") # vowel "i" # speed "0.8" let b2'arpy = s "arpy*8" # n "2 1 3 1" # gain "0.7" -- go d'perc $ cf $ s "uxay*2" # n "1" d'perc $ cf $ s "uxay*4" # n "1 0 1 2" d'perc $ cf $ s "uxay*4" # n "1 0 1 2" # 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 d'drum $ overlay (s "peri") $ cf $ every 3 (0.125 <~) $ b2'psrf -- this and next 3 parts real quick d'perc $ cf $ brak $ b2'uxp $ s "uxay*4" # n "1 0 1 2" # shape "0.4 0.3 0.6" d'warb silence 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 "peri") $ cf $ every 3 (0.125 <~) $ b2'psrf d'perc $ brak . iter 4 $ b2'uxp $ s "uxay*4" # n "1 0 1 2" # shape "0.4 0.3 0.6" d'tr $ cf $ b2'trump "trump*8" # speed (halfosc1 <$> slow 4 sinewave1) -- quickly d'bass $ b2'bass d'tr silence d'bass $ b2'bass # shape "0.3" -- increase 0->0.3 d'bass $ b2'bass # shape (halfosc <$> saw1) d'arpy $ cf $ b2'arpy msil [d'perc, d'bass] d'arpy $ cf $ iter 9 $ b2'arpy d'drum $ -- overlay (s "peri") $ cf $ every 3 (0.125 <~) $ b2'psrf d'perc $ cf $ brak $ b2'uxp $ s "uxay*4" # n "1 0 1 2" # shape "0.4 0.3 0.6" d'perc $ brak . iter 4 $ b2'uxp $ s "uxay*4" # n "1 0 1 2" # shape "0.4 0.3 0.6" d'drum $ overlay (s "peri") $ cf $ every 3 (0.125 <~) $ b2'psrf msil [d'drum, d'perc] {- [3] -} let b3'perc = s "[tok*2 [rm tok]] [psr:1 tok*2]" let b3'bass = s "bass*4" # n "0 1" # begin "0.4" # speed "1.2" # shape "0.2" b3'bassf = s "{bass*4, wobble*3}" # n "0 1" # begin "0.4" # speed "1.2" # shape "0.2" let b3'drum = slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~" b3'drumf = slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~" -- go d'arpy $ cf $ whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec. iter 9 $ b2'arpy d'perc $ cf $ slow 2 . spread slow [2,4,2,3] $ jux (0.25 <~) $ b1'perc # n (density 3 $ run 2) d'drum $ cf $ b3'perc d'bass $ cf $ b3'bass d'bass $ cf $ whenmod 7 6 (density 1.5) $ b3'bass d'drum $ cf $ b3'perc # n (slow 3 $ run 4) d'bass $ cf $ spread slow [2,(7%4)] $ whenmod 7 6 (density 1.5) $ b3'bass d'bass $ cf $ spread slow [2,(7%4)] $ whenmod 7 6 (density 1.5) $ iter 4 $ b3'bass d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) # pan (halfosc <$> slow (8%3) sinewave1) d'arpy $ cf $ iter 9 $ b2'arpy -- quickly msil [d'bass, d'hand] d'drum $ cf $ overlay (b3'drum) $ (b3'perc # n (slow 3 $ run 4)) d'tac silence d'drum $ cf $ overlay (b3'drumf) $ (b3'perc # n (slow 3 $ run 4)) d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) # pan (halfosc <$> slow (8%3) sinewave1) d'perc $ brak . iter 4 $ s "uxay*4" # n "1 0 1 2" # gain "0.8" # speed "[0.7 1 1.2]/2" # shape "0.4 0.3 0.6" d'bass $ cf $ spread slow [2,(7%4)] $ whenmod 7 6 (density 1.5) $ iter 4 $ b3'bass d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac d'bass $ cf $ spread slow [2,(7%4)] $ whenmod 7 6 (density 1.5) $ iter 4 $ b3'bassf msil [d'perc, d'tac] -- drum solo-ish for a bit d'drum $ cf $ overlay (b3'drumf) $ whenmod 5 3 (density 2) $ (b3'perc # n (slow 3 $ run 4)) d'drum $ cf $ overlay (b3'drumf) $ whenmod 5 3 (density 2) $ iter 2 $ (b3'perc # n (slow 3 $ run 4)) d'drum $ cf $ every' 8 8 rev $ overlay (b3'drumf) $ whenmod 5 3 (density 2) $ iter 2 $ (b3'perc # n (slow 3 $ run 4)) d'drum $ cf $ every 3 rev $ every' 8 8 rev $ overlay (b3'drumf) $ whenmod 5 3 (density 2) $ iter 2 $ (b3'perc # n (slow 3 $ run 4)) msil [d'bass, d'arpy] -- remove kick d'drum $ cf $ whenmod 5 3 (density 2) $ iter 2 $ (b3'perc # n (slow 3 $ run 4)) d'hand silence d'perc $ cf $ slow 2 . spread slow [2,4,2,3] $ jux (0.25 <~) $ b1'perc # n (density 3 $ run 2) -- rebuild yr way out d'drum $ cf $ overlay (b3'drumf) $ (b3'perc # n (slow 3 $ run 4)) d'perc $ brak . iter 4 $ s "uxay*4" # n "1 0 1 2" # gain "0.8" # speed "[0.7 1 1.2]/2" # shape "0.4 0.3 0.6" d'bass $ b2'bass # shape (halfosc <$> saw1) d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac d'bass2 $ slow 4 $ b1'bass # n "0 1 0 0" # speed (thirdosc1 <$> slow 8 sinewave1) d'arpy $ cf $ iter 9 $ b2'arpy d'warb $ b1'warbler d'hand $ b1'hand # shape ((/2) <$> slow (10%4) sinewave1) # pan (halfosc <$> slow (8%3) sinewave1) msil [d'perc, d'bass, d'tac, d'bass2, d'hand] d'drum silence d'arpy silence hush