123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436 |
- {-
- 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
|