battery123.tidal 8.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434
  1. {-
  2. anny fm: battery 1,2,3
  3. originally recorded live @ the loft, brighton, 4th july 2014
  4. _____
  5. / /
  6. /____/
  7. anny.audio/track/battery-123-live
  8. __
  9. c||| o_
  10. c||||| ___o
  11. soundcloud.com/anny-fm/battery-123-live
  12. -}
  13. cps (125/60)
  14. -- shortfix for bps->cps
  15. let cf = slow 2
  16. -- alternative every
  17. let every' n o f = when ((== (o-1)) . (`mod` n)) f
  18. -- oscillations
  19. let halfosc = (/2).(+0.5)
  20. halfosc1 = (+1).(/2)
  21. thirdosc1 = (+1).(/3)
  22. -- channel mapping
  23. let d'drum = d1
  24. d'perc = d2
  25. d'bass = d3
  26. d'mosq = d4
  27. d'tac = d9 -- tacscan
  28. d'warb = d6 -- warbler
  29. d'arpy = d7
  30. d'tr = d8 -- trump
  31. d'bass2 = d5 -- more bass right at the end
  32. {-
  33. [1]
  34. -}
  35. let b1'bass = s "bass3 [~ bass3] ! ~"
  36. # begin "0.2"
  37. let b1'mosq = slow 8 $ rev . striate 256 $ s "hand*8"
  38. # speed "0.7"
  39. let b1'perc = slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  40. let b1'tac = s "[~ tacscan] ! ~ ~"
  41. # gain "0.8"
  42. # vowel (slow 3 "e u")
  43. let b1'warbler = slow 4 $ striate 32 $ s "warbler"
  44. # n (slow 7 $ run 7)
  45. # gain "0.8"
  46. -- go
  47. d'bass $ slow 4 $ b1'bass
  48. d'bass $ slow 4 $ b1'bass
  49. # n "0 1 0 0"
  50. d'bass $ slow 4 $ b1'bass
  51. # n "0 1 0 0"
  52. # speed (thirdosc1 <$> slow 8 sinewave1)
  53. -- reversed snare, but so named cause someone told me it sounded like a mosquito
  54. d'mosq $ b1'mosq
  55. d'mosq $ b1'mosq
  56. # shape ((/2) <$> slow (10%4) sinewave1)
  57. -- nice drum
  58. d'perc $ cf $ b1'perc
  59. d'mosq $ b1'mosq
  60. # shape ((/2) <$> slow (10%4) sinewave1)
  61. # pan (halfosc <$> slow (8%3) sinewave1)
  62. d'perc $ cf $ b1'perc
  63. # n (density 3 $ run 2)
  64. d'perc $ cf $
  65. jux (0.25 <~) $ b1'perc
  66. # n (density 3 $ run 2)
  67. -- good bass
  68. d'bass $ cf $
  69. spread slow [1,3] $
  70. striate 16 $
  71. b1'bass
  72. # n "0 1 0 0"
  73. # speed (halfosc1 <$> slow 8 sinewave1)
  74. # gain "0.9"
  75. d'drum $ cf $ s "~ psr:1"
  76. d'drum $ cf $
  77. overlay (s "~ psr:1") $
  78. slow 2 $ s "peri [~ peri] ! ~"
  79. d'drum $ cf $ s "~ psr:1"
  80. -- good drum
  81. d'drum $ cf $
  82. overlay (s "~ psr:1") $
  83. every 4 (density 1.5) $ slow 2 $ s "peri [~ peri] ! ~"
  84. d'drum $ cf $ s "~ psr:1"
  85. -- bring a funk
  86. d'tac $ cf $ b1'tac
  87. d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
  88. d'drum $ overlay (s "peri") $ cf $
  89. s "~ psr:1"
  90. d'drum $ cf $ s "~ psr:1"
  91. -- birdsong. don't play it for too long. gets annoying
  92. d'warb $ b1'warbler
  93. d'perc $ cf $
  94. spread slow [2,1] $
  95. jux (0.25 <~) $ b1'perc
  96. # n (density 3 $ run 2)
  97. d'drum $ overlay (s "peri") $ cf $
  98. s "~ psr:1"
  99. d'drum $ overlay (s "peri") $ cf $
  100. every 2 (density 3) $ s "~ psr:1"
  101. mapM_ ($ silence) [d'bass, d'tac]
  102. -- drum + perc are real nice at this point
  103. d'drum $ overlay (s "peri") $ cf $
  104. every' 8 8 (density 1.5) $
  105. every 2 (density 3) $ s "~ psr:1"
  106. d'perc $ cf $
  107. slow 2 . spread slow [2,4,2,3] $
  108. jux (0.25 <~) $ b1'perc
  109. # n (density 3 $ run 2)
  110. d'mosq silence
  111. d'drum $ cf $
  112. every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ psr:1"
  113. d'drum silence
  114. {-
  115. [2]
  116. -}
  117. let b2'uxp = (# gain "0.8") .
  118. (# speed "[0.7 1 1.2]/2")
  119. let b2'psr = s "psr*4 psr*2"
  120. # gain "0.6"
  121. b2'psrf = s "[[psr*4 psr*2] ! ! psr*8]/4"
  122. # gain "0.6"
  123. let b2'trump p = whenmod 5 4 rev $ s p
  124. # n (slow 3.2 $ run 4)
  125. # gain "0.8"
  126. # speed (halfosc1 <$> slow 4 sinewave1)
  127. # vowel (slow 3.2 "a e o")
  128. # shape "0.6"
  129. let b2'bass = slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  130. # n (slow 2.8 "0 1 2")
  131. # vowel "i"
  132. # speed "0.8"
  133. let b2'arpy = s "arpy*8"
  134. # n "2 1 3 1"
  135. # gain "0.7"
  136. -- go
  137. d'perc $ cf $ s "uxay*2"
  138. # n "1"
  139. d'perc $ cf $ s "uxay*4"
  140. # n "1 0 1 2"
  141. d'perc $ cf $ s "uxay*4"
  142. # n "1 0 1 2"
  143. # speed "[0.7 1 1.2]/2"
  144. d'drum $ cf $ b2'psr
  145. d'drum $ cf $ b2'psrf
  146. d'drum $ cf $ every 3 (0.125 <~) $ b2'psrf
  147. d'drum $ overlay (s "peri") $
  148. cf $ every 3 (0.125 <~) $ b2'psrf
  149. -- this and next 3 parts real quick
  150. d'perc $ cf $ brak $
  151. b2'uxp $ s "uxay*4"
  152. # n "1 0 1 2"
  153. # shape "0.4 0.3 0.6"
  154. d'warb silence
  155. d'drum $ cf $ -- overlay (s "peri") $
  156. every 3 (0.125 <~) $ b2'psrf
  157. d'tr $ cf $ b2'trump "[~ trump ! !] ~"
  158. d'tr $ cf $ b2'trump "[~ trump ! !] ~"
  159. # speed (halfosc1 <$> slow 4 sinewave1)
  160. d'drum $ overlay (s "peri") $
  161. cf $ every 3 (0.125 <~) $ b2'psrf
  162. d'perc $ brak . iter 4 $
  163. b2'uxp $ s "uxay*4"
  164. # n "1 0 1 2"
  165. # shape "0.4 0.3 0.6"
  166. d'tr $ cf $ b2'trump "trump*8"
  167. # speed (halfosc1 <$> slow 4 sinewave1)
  168. -- quickly
  169. d'bass $ b2'bass
  170. d'tr silence
  171. d'bass $ b2'bass
  172. # shape "0.3" -- increase 0->0.3
  173. d'bass $ b2'bass
  174. # shape (halfosc <$> saw1)
  175. d'arpy $ cf $ b2'arpy
  176. mapM_ ($ silence) [d'perc, d'bass]
  177. d'arpy $ cf $ iter 9 $ b2'arpy
  178. d'drum $ -- overlay (s "peri") $
  179. cf $ every 3 (0.125 <~) $ b2'psrf
  180. d'perc $ cf $ brak $
  181. b2'uxp $ s "uxay*4"
  182. # n "1 0 1 2"
  183. # shape "0.4 0.3 0.6"
  184. d'perc $ brak . iter 4 $
  185. b2'uxp $ s "uxay*4"
  186. # n "1 0 1 2"
  187. # shape "0.4 0.3 0.6"
  188. d'drum $ overlay (s "peri") $
  189. cf $ every 3 (0.125 <~) $ b2'psrf
  190. mapM_ ($ silence) [d'drum, d'perc]
  191. {-
  192. [3]
  193. -}
  194. let b3'perc = s "[tok*2 [rm tok]] [psr:1 tok*2]"
  195. let b3'bass = s "bass*4"
  196. # n "0 1"
  197. # begin "0.4"
  198. # speed "1.2"
  199. # shape "0.2"
  200. b3'bassf = s "{bass*4, wobble*3}"
  201. # n "0 1"
  202. # begin "0.4"
  203. # speed "1.2"
  204. # shape "0.2"
  205. let b3'drum = slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~"
  206. b3'drumf = slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~"
  207. -- go
  208. d'arpy $ cf $
  209. whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
  210. iter 9 $ b2'arpy
  211. d'perc $ cf $
  212. slow 2 . spread slow [2,4,2,3] $
  213. jux (0.25 <~) $ b1'perc
  214. # n (density 3 $ run 2)
  215. d'drum $ cf $ b3'perc
  216. d'bass $ cf $ b3'bass
  217. d'bass $ cf $
  218. whenmod 7 6 (density 1.5) $
  219. b3'bass
  220. d'drum $ cf $ b3'perc
  221. # n (slow 3 $ run 4)
  222. d'bass $ cf $
  223. spread slow [2,(7%4)] $
  224. whenmod 7 6 (density 1.5) $
  225. b3'bass
  226. d'bass $ cf $
  227. spread slow [2,(7%4)] $
  228. whenmod 7 6 (density 1.5) $
  229. iter 4 $
  230. b3'bass
  231. d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
  232. d'mosq $ b1'mosq
  233. # shape ((/2) <$> slow (10%4) sinewave1)
  234. # pan (halfosc <$> slow (8%3) sinewave1)
  235. d'arpy $ cf $ iter 9 $ b2'arpy
  236. -- quickly
  237. mapM_ ($ silence) [d'bass, d'mosq]
  238. d'drum $ cf $
  239. overlay (b3'drum) $
  240. (b3'perc # n (slow 3 $ run 4))
  241. d'tac silence
  242. d'drum $ cf $
  243. overlay (b3'drumf) $
  244. (b3'perc # n (slow 3 $ run 4))
  245. d'mosq $ b1'mosq
  246. # shape ((/2) <$> slow (10%4) sinewave1)
  247. # pan (halfosc <$> slow (8%3) sinewave1)
  248. d'perc $ brak . iter 4 $
  249. s "uxay*4"
  250. # n "1 0 1 2"
  251. # gain "0.8"
  252. # speed "[0.7 1 1.2]/2"
  253. # shape "0.4 0.3 0.6"
  254. d'bass $ cf $
  255. spread slow [2,(7%4)] $
  256. whenmod 7 6 (density 1.5) $
  257. iter 4 $
  258. b3'bass
  259. d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
  260. d'bass $ cf $
  261. spread slow [2,(7%4)] $
  262. whenmod 7 6 (density 1.5) $
  263. iter 4 $
  264. b3'bassf
  265. mapM_ ($ silence) [d'perc, d'tac]
  266. -- drum solo-ish for a bit
  267. d'drum $ cf $
  268. overlay (b3'drumf) $
  269. whenmod 5 3 (density 2) $
  270. (b3'perc # n (slow 3 $ run 4))
  271. d'drum $ cf $
  272. overlay (b3'drumf) $
  273. whenmod 5 3 (density 2) $
  274. iter 2 $
  275. (b3'perc # n (slow 3 $ run 4))
  276. d'drum $ cf $
  277. every' 8 8 rev $
  278. overlay (b3'drumf) $
  279. whenmod 5 3 (density 2) $
  280. iter 2 $
  281. (b3'perc # n (slow 3 $ run 4))
  282. d'drum $ cf $
  283. every 3 rev $
  284. every' 8 8 rev $
  285. overlay (b3'drumf) $
  286. whenmod 5 3 (density 2) $
  287. iter 2 $
  288. (b3'perc # n (slow 3 $ run 4))
  289. mapM_ ($ silence) [d'bass, d'arpy]
  290. -- remove kick
  291. d'drum $ cf $
  292. whenmod 5 3 (density 2) $
  293. iter 2 $
  294. (b3'perc # n (slow 3 $ run 4))
  295. d'mosq silence
  296. d'perc $ cf $
  297. slow 2 . spread slow [2,4,2,3] $
  298. jux (0.25 <~) $ b1'perc
  299. # n (density 3 $ run 2)
  300. -- rebuild yr way out
  301. d'drum $ cf $
  302. overlay (b3'drumf) $
  303. (b3'perc # n (slow 3 $ run 4))
  304. d'perc $ brak . iter 4 $
  305. s "uxay*4"
  306. # n "1 0 1 2"
  307. # gain "0.8"
  308. # speed "[0.7 1 1.2]/2"
  309. # shape "0.4 0.3 0.6"
  310. d'bass $ b2'bass
  311. # shape (halfosc <$> saw1)
  312. d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
  313. d'bass2 $ slow 4 $ b1'bass
  314. # n "0 1 0 0"
  315. # speed (thirdosc1 <$> slow 8 sinewave1)
  316. d'arpy $ cf $ iter 9 $ b2'arpy
  317. d'warb $ b1'warbler
  318. d'mosq $ b1'mosq
  319. # shape ((/2) <$> slow (10%4) sinewave1)
  320. # pan (halfosc <$> slow (8%3) sinewave1)
  321. mapM_ ($ silence) [d'perc, d'bass, d'tac, d'bass2, d'mosq]
  322. d'drum silence
  323. d'arpy silence
  324. hush