battery123.tidal 8.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450
  1. {-
  2. Anny FM: Battery 1,2,3
  3. anny.audio
  4. Originally recorded live @ The Loft, Brighton, 4th July 2014
  5. See README.md for more information
  6. -}
  7. let bpm b = cps (b/60)
  8. msil = mapM_ ($ silence)
  9. cf = slow 2
  10. every' n o f = when ((== (o-1)) . (`mod` n)) f
  11. halfosc = (/2).(+0.5)
  12. d'drum = d1
  13. d'perc = d2
  14. d'bass = d3
  15. d'hand = d4
  16. d'warb = d5 -- warbler
  17. d'bass2 = d6 -- more bass right at the end
  18. d'arpy = d7
  19. d'tr = d8 -- trump
  20. d'tac = d9 -- tacscan
  21. {-
  22. @b1
  23. Anny FM: Battery 1
  24. anny.audio
  25. -}
  26. bpm 125
  27. d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
  28. # begin "0.2"
  29. d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
  30. # begin "0.2"
  31. # n "0 1 0 0"
  32. -- @b1bass1
  33. d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
  34. # begin "0.2"
  35. # n "0 1 0 0"
  36. # speed (scale 1 (4/3) $ slow 8 sinewave1)
  37. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  38. # speed "0.7"
  39. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  40. # speed "0.7"
  41. # shape (scale 0 0.5 $ slow (10%4) sinewave1)
  42. d'perc $ cf $ slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  43. -- @b1hand
  44. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  45. # speed "0.7"
  46. # shape (scale 0 0.5 $ slow (10%4) sinewave1)
  47. # pan (scale 0.25 0.75 $ slow (8%3) sinewave1)
  48. d'perc $ cf $ slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  49. # n (density 3 $ run 2)
  50. -- @b1perc1
  51. d'perc $ cf $
  52. jux (0.25 <~) $
  53. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  54. # n (density 3 $ run 2)
  55. -- @b1bass2
  56. d'bass $ cf $
  57. spread slow [1,3] $
  58. striate 16 $
  59. s "bass3 [~ bass3] ! ~"
  60. # begin "0.2"
  61. # n "0 1 0 0"
  62. # speed (scale 1 1.5 $ slow 8 sinewave1)
  63. # gain "0.9"
  64. d'drum $ cf $ sound "~ psr:1"
  65. -- @b1drum1
  66. d'drum $ cf $
  67. overlay (sound "~ psr:1") $
  68. slow 2 $ s "peri [~ peri] ! ~"
  69. d'drum $ cf $ sound "~ psr:1"
  70. -- @b1drum2
  71. d'drum $ cf $
  72. overlay (sound "~ psr:1") $
  73. every 4 (density 1.5) $ slow 2 $ s "peri [~ peri] ! ~"
  74. d'drum $ cf $ sound "~ psr:1"
  75. d'tac $ cf $ s "[~ tacscan] ! ~ ~"
  76. # gain "0.8"
  77. # vowel (slow 3 "e u")
  78. -- @b1tac
  79. d'tac $ cf . whenmod 7 4 (density 1.5) $ -- (1)
  80. s "[~ tacscan] ! ~ ~"
  81. # gain "0.8"
  82. # vowel (slow 3 "e u")
  83. d'drum $ overlay (s "peri") $ cf $
  84. sound "~ psr:1"
  85. d'drum $ cf $ sound "~ psr:1"
  86. -- @b1warbler
  87. d'warb $ slow 4 $ striate 32 $ s "warbler"
  88. # n (slow 7 $ run 7)
  89. # gain "0.8"
  90. -- @b1perc2
  91. d'perc $ cf $
  92. spread slow [2, 1] $
  93. jux (0.25 <~) $
  94. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  95. # n (density 3 $ run 2)
  96. d'drum $ overlay (s "peri") $ cf $
  97. sound "~ psr:1"
  98. d'drum $ overlay (s "peri") $ cf $
  99. every 2 (density 3) $ sound "~ psr:1"
  100. msil [d'bass, d'tac]
  101. -- @b1drum3
  102. d'drum $ overlay (s "peri") $ cf $
  103. every' 8 8 (density 1.5) $
  104. every 2 (density 3) $ sound "~ psr:1"
  105. -- @b1perc3
  106. d'perc $ cf $
  107. slow 2 . spread slow [2, 4, 2, 3] $
  108. jux (0.25 <~) $
  109. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  110. # n (density 3 $ run 2)
  111. d'hand silence
  112. d'drum $ cf $ every' 8 8 (density 1.5) $ every 2 (density 3) $ sound "~ psr:1"
  113. d'drum silence
  114. {-
  115. @b2
  116. Anny FM: Battery 2
  117. anny.audio
  118. -}
  119. let b2'uxp = (# gain "0.8") .
  120. (# speed "[0.7 1 1.2]/2")
  121. let b2'ux = cf $ s "uxay*4"
  122. # n "1 0 1 2"
  123. let b2'ux2 i = (if i then brak . iter 4 else cf . brak) $
  124. b2'uxp $ s "uxay*4"
  125. # n "1 0 1 2"
  126. # shape "0.4 0.3 0.6"
  127. let b2'psr = s "psr*4 psr*2"
  128. # gain "0.6"
  129. b2'psrf = s "[[psr*4 psr*2] ! ! psr*8]/4"
  130. # gain "0.6"
  131. let b2'bass = slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  132. # n (slow 2.8 "0 1 2")
  133. # vowel "i"
  134. # speed "0.8"
  135. let b2'arpy = s "arpy*8"
  136. # n "2 1 3 1"
  137. # gain "0.7"
  138. bpm 125
  139. d'perc $ cf $ s "uxay*2" # n "1 0 1 2"
  140. d'perc $ cf $ s "uxay*4" # 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 $ s "psr*4 psr*2"
  145. # gain "0.6"
  146. -- @b2drum
  147. d'drum $ -- overlay (s "peri") $ -- (2,3) toggle
  148. cf $
  149. -- every 3 (0.125 <~) $ -- (1)
  150. s "[[psr*4 psr*2] ! ! psr*8]/4"
  151. # gain "0.6"
  152. -- @b2perc
  153. let -- b = brak . iter 4 -- (1)
  154. b = cf . brak
  155. in d'perc $ b $ s "uxay*4"
  156. # n "1 0 1 2"
  157. # gain "0.8"
  158. # shape "0.4 0.3 0.6"
  159. # speed "[0.7 1 1.2]/2"
  160. d'warb silence
  161. -- ~b2drum w/o peri
  162. -- @b2trump
  163. d'tr $ cf $ whenmod 5 4 rev $ s "[~ trump ! !] ~"
  164. # n (slow 3.2 $ run 4)
  165. # gain "0.8"
  166. # vowel (slow 3.2 "a e o")
  167. # shape "0.6"
  168. -- # speed (scale 0.5 1.5 $ slow 4 sinewave1) -- (1)
  169. -- ~b2drum w/ peri
  170. -- ~b2perc w/ b=brak . iter 4
  171. d'bass $ slow 8 $
  172. s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  173. # n (slow 2.8 "0 1 2")
  174. # vowel "i"
  175. # speed "0.8"
  176. d'tr silence
  177. -- @b2bass
  178. d'bass $ slow 8 $
  179. s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  180. # n (slow 2.8 "0 1 2")
  181. # vowel "i"
  182. # speed "0.8"
  183. # shape "0.3" -- (1) increase 0->0.3
  184. -- # shape (scale 0.25 0.75 $ saw1) -- (2) replaces (1)
  185. d'arpy $ cf $ s "arpy*8"
  186. # n "2 1 3 1"
  187. # gain "0.7"
  188. msil [d'perc, d'bass]
  189. -- ~b2drum w/o peri
  190. d'arpy $ cf $ iter 9 $ s "arpy*8"
  191. # n "2 1 3 1"
  192. # gain "0.7"
  193. -- ~b2perc @ (1)
  194. -- ~b2drum w/ peri
  195. msil [d'drum, d'perc]
  196. {-
  197. @b3
  198. Anny FM: Battery 3
  199. anny.audio
  200. -}
  201. let b3'perc = sound "[tok*2 [rm tok]] [psr:1 tok*2]"
  202. let b3'bass = s "bass*4"
  203. # n "0 1"
  204. # begin "0.4"
  205. # speed "1.2"
  206. # shape "0.2"
  207. b3'bassf = s "{bass*4, wobble*3}"
  208. # n "0 1"
  209. # begin "0.4"
  210. # speed "1.2"
  211. # shape "0.2"
  212. let b3'drum = slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~"
  213. b3'drumf = slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~"
  214. -- @b3arpy
  215. d'arpy $ cf $
  216. whenmod 7 4 (# vowel "a") $ -- (1) remove
  217. iter 9 $ s "arpy*8"
  218. # n "2 1 3 1"
  219. # gain "0.7"
  220. -- ~b1perc3
  221. d'perc $ cf $
  222. slow 2 . spread slow [2, 4, 2, 3] $
  223. jux (0.25 <~) $
  224. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  225. # n (density 3 $ run 2)
  226. d'drum $ cf $ sound "[tok*2 [rm tok]] [psr:1 tok*2]"
  227. -- @b3bass
  228. d'bass $ cf $
  229. -- spread slow [2,(7%4)] $ -- (2)
  230. -- whenmod 7 6 (density 1.5) $ -- (1)
  231. -- iter 4 $ -- (3)
  232. s "bass*4"
  233. # n "0 1"
  234. # begin "0.4"
  235. # speed "1.2"
  236. # shape "0.2"
  237. -- ~b3bass @ (1)
  238. d'drum $ cf $ sound "[tok*2 [rm tok]] [psr:1 tok*2]"
  239. # n (slow 3 $ run 4)
  240. -- ~b3bass @ (2)
  241. -- ~b3bass @ (3)
  242. -- ~b1hand
  243. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  244. # speed "0.7"
  245. # shape (scale 0 0.5 $ slow (10%4) sinewave1)
  246. # pan (scale 0.25 0.75 $ slow (8%3) sinewave1)
  247. d'tac $ cf . whenmod 7 4 (density 1.5) $
  248. s "[~ tacscan] ! ~ ~"
  249. # gain "0.8"
  250. # vowel (slow 3 "e u")
  251. -- ~b3arpy @ (1)
  252. msil [d'bass, d'hand]
  253. d'drum $ cf $
  254. overlay (b3'drum) $
  255. (b3'perc # n (slow 3 $ run 4))
  256. d'tac silence
  257. d'drum $ cf $
  258. overlay (b3'drumf) $
  259. (b3'perc # n (slow 3 $ run 4))
  260. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  261. # speed "0.7"
  262. # shape ((/2) <$> slow (10%4) sinewave1)
  263. # pan (halfosc <$> slow (8%3) sinewave1)
  264. d'perc $ b2'ux2 True
  265. # gain "0.8"
  266. # speed "[0.7 1 1.2]/2"
  267. d'bass $ cf $
  268. spread slow [2,(7%4)] $
  269. whenmod 7 6 (density 1.5) $
  270. iter 4 $
  271. b3'bass
  272. d'tac $ cf . whenmod 7 4 (density 1.5) $
  273. s "[~ tacscan] ! ~ ~"
  274. # gain "0.8"
  275. # vowel (slow 3 "e u")
  276. d'bass $ cf $
  277. spread slow [2,(7%4)] $
  278. whenmod 7 6 (density 1.5) $
  279. iter 4 $
  280. b3'bassf
  281. msil [d'perc, d'tac]
  282. -- drum solo-ish for a bit
  283. d'drum $ cf $
  284. overlay (b3'drumf) $
  285. whenmod 5 3 (density 2) $
  286. (b3'perc # n (slow 3 $ run 4))
  287. d'drum $ cf $
  288. overlay (b3'drumf) $
  289. whenmod 5 3 (density 2) $
  290. iter 2 $
  291. (b3'perc # n (slow 3 $ run 4))
  292. d'drum $ cf $
  293. every' 8 8 rev $
  294. overlay (b3'drumf) $
  295. whenmod 5 3 (density 2) $
  296. iter 2 $
  297. (b3'perc # n (slow 3 $ run 4))
  298. d'drum $ cf $
  299. every 3 rev $
  300. every' 8 8 rev $
  301. overlay (b3'drumf) $
  302. whenmod 5 3 (density 2) $
  303. iter 2 $
  304. (b3'perc # n (slow 3 $ run 4))
  305. msil [d'bass, d'arpy]
  306. -- remove kick
  307. d'drum $ cf $
  308. whenmod 5 3 (density 2) $
  309. iter 2 $
  310. (b3'perc # n (slow 3 $ run 4))
  311. d'hand silence
  312. d'perc $ cf $
  313. slow 2 . spread slow [2,4,2,3] $
  314. jux (0.25 <~) $
  315. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  316. # n (density 3 $ run 2)
  317. -- rebuild yr way out
  318. d'drum $ cf $
  319. overlay (b3'drumf) $
  320. (b3'perc # n (slow 3 $ run 4))
  321. -- optional
  322. d'perc $ b2'ux2 True
  323. # gain "0.8"
  324. # speed "[0.7 1 1.2]/2"
  325. d'bass $ b2'bass
  326. # shape (halfosc <$> saw1)
  327. d'tac $ cf . whenmod 7 4 (density 1.5) $
  328. s "[~ tacscan] ! ~ ~"
  329. # gain "0.8"
  330. # vowel (slow 3 "e u")
  331. -- ~b1bass1
  332. d'bass2 $ slow 4 $ s "bass3 [~ bass3] ! ~"
  333. # begin "0.2"
  334. # n "0 1 0 0"
  335. # speed (scale 1 (4/3) <$> slow 8 sinewave1)
  336. d'arpy $ cf $ iter 9 $ b2'arpy
  337. d'warb $ slow 4 $ striate 32 $ s "warbler"
  338. # n (slow 7 $ run 7)
  339. # gain "0.8"
  340. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  341. # speed "0.7"
  342. # shape ((/2) <$> slow (10%4) sinewave1)
  343. # pan (halfosc <$> slow (8%3) sinewave1)
  344. msil [d'perc, d'bass, d'tac, d'bass2, d'hand]
  345. d'drum silence
  346. d'arpy silence
  347. hush