Archived
424 lines
7.9 KiB
Plaintext
424 lines
7.9 KiB
Plaintext
{-
|
|
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)
|
|
|
|
-- shortfix for bps->cps
|
|
let cf = slow 2
|
|
|
|
-- alternative every
|
|
let every' n o f = when ((== (o-1)) . (`mod` n)) f
|
|
|
|
-- oscillations
|
|
let halfosc = (/2).(+0.5)
|
|
halfosc1 = (+1).(/2)
|
|
thirdosc1 = (+1).(/3)
|
|
|
|
-- channel mapping
|
|
let d'drum = d1
|
|
d'perc = d2
|
|
d'bass = d3
|
|
d'mosq = d4
|
|
d'tac = d9 -- tacscan
|
|
d'warb = d6 -- warbler
|
|
d'arpy = d7
|
|
d'tr = d8 -- trump
|
|
d'bass2 = d5 -- more bass right at the end
|
|
|
|
{-
|
|
[1]
|
|
-}
|
|
|
|
let b1'bass = s "bass3 [~ bass3] ! ~"
|
|
# begin "0.2"
|
|
|
|
let b1'mosq = slow 8 $ rev . striate 256 $ s "hand*8"
|
|
# speed "0.7"
|
|
|
|
let b1'perc = slow 2 $ s "uxay [~ uxay] [psr:8 uxay] ~"
|
|
|
|
let b1'tac = s "[~ tacscan:13] ! ~ ~"
|
|
# 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"
|
|
|
|
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'mosq $ b1'mosq
|
|
|
|
d'mosq $ b1'mosq
|
|
# shape ((/2) <$> slow (10%4) sinewave1)
|
|
|
|
d'perc $ cf $ b1'perc
|
|
|
|
d'mosq $ b1'mosq
|
|
# 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)
|
|
|
|
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:14"
|
|
|
|
d'drum $ cf $
|
|
overlay (s "~ psr:14") $
|
|
slow 2 $ s "peri:1 [~ peri:1] ! ~"
|
|
|
|
d'drum $ cf $ s "~ psr:14"
|
|
|
|
d'drum $ cf $
|
|
overlay (s "~ psr:14") $
|
|
every 4 (density 1.5) $ slow 2 $ s "peri:1 [~ peri:1] ! ~"
|
|
|
|
d'drum $ cf $ s "~ psr:14"
|
|
|
|
d'tac $ cf $ b1'tac
|
|
|
|
d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
|
|
|
|
d'drum $ overlay (s "peri:1") $ cf $
|
|
s "~ psr:14"
|
|
|
|
d'drum $ cf $ s "~ psr:14"
|
|
|
|
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:1") $ cf $
|
|
s "~ psr:14"
|
|
|
|
d'drum $ overlay (s "peri:1") $ cf $
|
|
every 2 (density 3) $ s "~ psr:14"
|
|
|
|
mapM_ ($ silence) [d'bass, d'tac]
|
|
|
|
d'drum $ overlay (s "peri:1") $ cf $
|
|
every' 8 8 (density 1.5) $
|
|
every 2 (density 3) $ s "~ psr:14"
|
|
|
|
d'perc $ cf $
|
|
slow 2 . spread slow [2,4,2,3] $
|
|
jux (0.25 <~) $ b1'perc
|
|
# n (density 3 $ run 2)
|
|
|
|
d'mosq silence
|
|
|
|
d'drum $ cf $
|
|
every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ psr:14"
|
|
|
|
d'drum silence
|
|
|
|
{-
|
|
[2]
|
|
-}
|
|
|
|
let b2'uxp = (# gain "0.8") .
|
|
(# speed "[0.7 1 1.2]/2")
|
|
|
|
let b2'psr = s "psr:8*4 psr:8*2"
|
|
# gain "0.6"
|
|
b2'psrf = s "[[psr:8*4 psr:8*2] ! ! psr:8*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 "4 2 7 2"
|
|
# gain "0.7"
|
|
|
|
|
|
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:1") $
|
|
cf $ every 3 (0.125 <~) $ b2'psrf
|
|
|
|
d'warb silence
|
|
|
|
d'perc $ cf $ brak $
|
|
b2'uxp $ s "uxay*4"
|
|
# n "1 0 1 2"
|
|
# shape "0.4 0.3 0.6"
|
|
|
|
d'drum $ cf $ -- overlay (s "peri:1") $
|
|
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:1") $
|
|
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
|
|
|
|
mapM_ ($ silence) [d'perc, d'bass]
|
|
|
|
d'arpy $ cf $ iter 9 $ b2'arpy
|
|
|
|
d'drum $ -- overlay (s "peri:1") $
|
|
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:1") $
|
|
cf $ every 3 (0.125 <~) $ b2'psrf
|
|
|
|
mapM_ ($ silence) [d'drum, d'perc]
|
|
|
|
{-
|
|
[3]
|
|
-}
|
|
|
|
let b3'perc = s "[tok*2 [rm tok]] [psr:14 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:1 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~"
|
|
b3'drumf = slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~"
|
|
|
|
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'mosq $ b1'mosq
|
|
# shape ((/2) <$> slow (10%4) sinewave1)
|
|
# pan (halfosc <$> slow (8%3) sinewave1)
|
|
|
|
d'arpy $ cf $ iter 9 $ b2'arpy
|
|
|
|
-- quickly
|
|
mapM_ ($ silence) [d'bass, d'mosq]
|
|
|
|
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'mosq $ b1'mosq
|
|
# 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
|
|
|
|
mapM_ ($ silence) [d'perc, d'tac]
|
|
|
|
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))
|
|
|
|
mapM_ ($ silence) [d'bass, d'arpy]
|
|
|
|
-- remove kick
|
|
d'drum $ cf $
|
|
whenmod 5 3 (density 2) $
|
|
iter 2 $
|
|
(b3'perc # n (slow 3 $ run 4))
|
|
|
|
d'mosq silence
|
|
|
|
d'perc $ cf $
|
|
slow 2 . spread slow [2,4,2,3] $
|
|
jux (0.25 <~) $ b1'perc
|
|
# n (density 3 $ run 2)
|
|
|
|
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'mosq $ b1'mosq
|
|
# shape ((/2) <$> slow (10%4) sinewave1)
|
|
# pan (halfosc <$> slow (8%3) sinewave1)
|
|
|
|
mapM_ ($ silence) [d'perc, d'bass, d'tac, d'bass2, d'mosq]
|
|
d'drum silence
|
|
d'arpy silence
|
|
|
|
hush
|