battery123.tidal 8.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460
  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. let preload p s = d9 $ sound (samples p s) |+| end "0.00001"
  15. let halfosc = (/2).(+0.5)
  16. let halfosc1 = (+1).(/2)
  17. let thirdosc1 = (+1).(/3)
  18. let every' n o f = when ((== (o-1)) . (`mod` n)) f
  19. {-
  20. [1]
  21. -}
  22. d3 $ slow 4 $ s "bass3 [~ bass3] ! ~"
  23. # n "0 1 0 0"
  24. # begin "0.2"
  25. d3 $ slow 4 $ s "bass3 [~ bass3] ! ~"
  26. # n "0 1 0 0"
  27. # begin "0.2"
  28. # speed (thirdosc1 <$> slow 8 sinewave1)
  29. d4 $ slow 8 $ rev . striate 256 $ s "hand*8"
  30. # speed "0.7"
  31. d4 $ slow 8 $ rev . striate 256 $ s "hand*8"
  32. # speed "0.7"
  33. # shape ((/2) <$> slow (10%4) sinewave1)
  34. d2 $ slow 4 $ s "uxay [~ uxay] [psr:8 uxay] ~"
  35. # n (density 3 $ run 2)
  36. d4 $ slow 8 $ rev . striate 256 $ sound "hand*8"
  37. # speed "0.7"
  38. # shape ((/2) <$> slow (10%4) sinewave1)
  39. # pan (halfosc <$> slow (8%3) sinewave1)
  40. d2 $ slow 4 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
  41. # n (density 3 $ run 2)
  42. d2 $ slow 2 $
  43. jux (0.25 <~) $
  44. slow 2 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
  45. # n (density 3 $ run 2)
  46. d3 $ slow 2 $
  47. spread slow [1,3] $
  48. striate 16 $
  49. s "bass3 [~ bass3] ! ~"
  50. # n "0 1 0 0"
  51. # begin "0.2"
  52. # speed (halfosc1 <$> slow 8 sinewave1)
  53. # gain "0.9"
  54. d1 $ slow 2 $ stack [
  55. slow 2 $ s "peri:1 [~ peri:1] ! ~",
  56. sound "~ psr:14"
  57. ]
  58. d1 $ slow 2 $ sound "~ psr:14"
  59. d1 $ slow 2 $ stack [
  60. every 4 (density 1.5) $ slow 2 $ s "peri:1 [~ peri:1] ! ~",
  61. sound "~ psr:14"
  62. ]
  63. d1 $ slow 2 $ sound "~ psr:14"
  64. d9 $ slow 2 $
  65. s "[~ tacscan:13] ! ~ ~"
  66. # gain "0.8"
  67. # vowel (slow 3 "e u")
  68. d9 $ slow 2 . whenmod 7 4 (density 1.5) $
  69. s "[~ tacscan:13] ! ~ ~"
  70. # gain "0.8"
  71. # vowel (slow 3 "e u")
  72. d1 $ overlay (s "peri:1") $ slow 2 $
  73. s "~ psr:14"
  74. d1 $ slow 2 $ sound "~ psr:14"
  75. d6 $ slow 4 $ striate 32 $
  76. s "warbler"
  77. # n (slow 7 $ run 7)
  78. # gain "0.8"
  79. d2 $ slow 2 $
  80. spread slow [2,1] $
  81. jux (0.25 <~) $
  82. slow 2 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
  83. # n (density 3 $ run 2)
  84. d1 $ overlay (s "peri:1") $ slow 2 $
  85. s "~ psr:14"
  86. d1 $ overlay (s "peri:1") $ slow 2 $
  87. every 2 (density 3) $ s "~ psr:14"
  88. mapM_ ($ silence) [d3,d9]
  89. d1 $ overlay (s "peri:1") $ slow 2 $
  90. every' 8 8 (density 1.5) $ every 2 (density 3) $ sound "~ psr:14"
  91. d2 $ slow 2 $
  92. slow 2 . spread slow [2,4,2,3] $
  93. jux (0.25 <~) $
  94. slow 2 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
  95. # n (density 3 $ run 2)
  96. d4 silence
  97. d1 $ slow 2 $
  98. every' 8 8 (density 1.5) $ every 2 (density 3) $ sound "~ psr:14"
  99. d1 silence
  100. d2 silence
  101. {-
  102. [2]
  103. -}
  104. d2 $ slow 2 $ s "uxay:1*2"
  105. d2 $ slow 2 $ s "uxay*4"
  106. # n "1 0 1 2"
  107. d1 $ slow 2 $
  108. s "psr:8*4 psr:8*2"
  109. # gain "0.6"
  110. d1 $ slow 2 $
  111. s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
  112. # gain "0.6"
  113. d1 $ slow 2 $
  114. every 3 (0.125 <~) $
  115. s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
  116. # gain "0.6"
  117. d1 $ overlay (s "peri:1") $ slow 2 $
  118. every 3 (0.125 <~) $
  119. s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
  120. # gain "0.6"
  121. d2 $ slow 2 $ brak $
  122. s "uxay*4"
  123. # n "1 0 1 2"
  124. # gain "0.8"
  125. # speed "[0.7 1 1.2]/2"
  126. # shape "0.4 0.3 0.6"
  127. d1 $ slow 2 $
  128. every 3 (0.125 <~) $
  129. s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
  130. # gain "0.6"
  131. d6 silence
  132. d8 $ slow 2 $ whenmod 5 4 rev $ s "[~ trump ! !] ~"
  133. # n (slow 3.2 $ run 4)
  134. # gain "0.8"
  135. # speed (halfosc1 <$> slow 4 sinewave1)
  136. # vowel (slow 3.2 "a e o")
  137. # shape "0.6"
  138. d1 $ overlay (s "peri:1") $ slow 2 $
  139. every 3 (0.125 <~) $
  140. s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
  141. # gain "0.6"
  142. d2 $ brak . iter 4 $
  143. s "uxay*4"
  144. # n "1 0 1 2"
  145. # gain "0.8"
  146. # speed "[0.7 1 1.2]/2"
  147. # shape "0.4 0.3 0.6"
  148. d8 $ slow 2 $ whenmod 5 4 rev $ s "trump*8"
  149. # n (slow 3.2 $ run 4)
  150. # gain "0.8"
  151. # speed (halfosc1 <$> slow 4 sinewave1)
  152. # vowel (slow 3.2 "a e o")
  153. # shape "0.6"
  154. d3 $ slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  155. # n (slow 2.8 "0 1 2")
  156. # vowel "i"
  157. # speed "0.8"
  158. d8 silence
  159. d3 $ slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  160. # n (slow 2.8 "0 1 2")
  161. # vowel "i"
  162. # speed "0.8"
  163. # shape "0.3" -- increase 0->0.3
  164. d3 $ slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  165. # n (slow 2.8 "0 1 2")
  166. # vowel "i"
  167. # speed "0.8"
  168. # shape (halfosc <$> saw1)
  169. d7 $ slow 2 $
  170. s "arpy*8"
  171. # n "4 2 7 2"
  172. # gain "0.7"
  173. mapM_ ($ silence) [d2,d3]
  174. d7 $ slow 2 $
  175. iter 9 $
  176. s "arpy*8"
  177. # n "4 2 7 2"
  178. # gain "0.7"
  179. d1 $ slow 2 $
  180. every 3 (0.125 <~) $
  181. s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
  182. # gain "0.6"
  183. d2 $ slow 2 . brak $
  184. s "uxay*4"
  185. # n "1 0 1 2"
  186. # gain "0.8"
  187. # speed "[0.7 1 1.2]/2"
  188. # shape "0.4 0.3 0.6"
  189. d2 $ brak . iter 4 $
  190. s "uxay*4"
  191. # n "1 0 1 2"
  192. # gain "0.8"
  193. # speed "[0.7 1 1.2]/2"
  194. # shape "0.4 0.3 0.6"
  195. d1 $ overlay (s "peri:1") $ slow 2 $
  196. every 3 (0.125 <~) $
  197. s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
  198. # gain "0.6"
  199. mapM_ ($ silence) [d1,d2]
  200. {-
  201. [3]
  202. -}
  203. d7 $ slow 2 $
  204. whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
  205. iter 9 $
  206. s "arpy*8"
  207. # n "4 2 7 2"
  208. # gain "0.7"
  209. d2 $ slow 2 $
  210. slow 2 . spread slow [2,4,2,3] $
  211. jux (0.25 <~) $
  212. slow 2 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
  213. # n (density 3 $ run 2)
  214. d1 $ slow 2 $ s "[tok*2 [rm tok]] [psr:14 tok*2]"
  215. d3 $ slow 2 $
  216. sound (samples "bass*4" "0 1")
  217. # begin "0.4"
  218. # speed "1.2"
  219. # shape "0.2"
  220. d1 $ slow 2 $
  221. s "[tok*2 [rm tok]] [psr:14 tok*2]"
  222. # n (slow 3 $ run 4)
  223. d3 $ slow 2 $
  224. whenmod 7 6 (density 1.5) $
  225. sound (samples "bass*4" "0 1")
  226. # begin "0.4"
  227. # speed "1.2"
  228. # shape "0.2"
  229. d1 $ slow 2 $
  230. s "[tok*2 [rm tok]] [psr:14 tok*2]"
  231. # n (slow 3 $ run 4)
  232. d3 $ slow 2 $
  233. spread slow [2,(7%4)] $
  234. whenmod 7 6 (density 1.5) $
  235. sound (samples "bass*4" "0 1")
  236. # begin "0.4"
  237. # speed "1.2"
  238. # shape "0.2"
  239. d3 $ slow 2 $
  240. spread slow [2,(7%4)] $
  241. whenmod 7 6 (density 1.5) $
  242. iter 4 $
  243. sound (samples "bass*4" "0 1")
  244. # begin "0.4"
  245. # speed "1.2"
  246. # shape "0.2"
  247. d9 $ slow 2 . whenmod 7 4 (density 1.5) $
  248. s "[~ tacscan:13] ! ~ ~"
  249. # gain "0.8"
  250. # vowel (slow 3 "e u")
  251. d7 $ slow 2 $
  252. iter 9 $
  253. s "arpy*8"
  254. # n "4 2 7 2"
  255. # gain "0.7"
  256. d3 silence
  257. d1 $ slow 2 $ stack [
  258. slow 2 $ s "peri:1 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
  259. s "[tok*2 [rm tok]] [psr:14 tok*2]"
  260. # n (slow 3 $ run 4)
  261. ]
  262. d9 silence
  263. d1 $ slow 2 $ stack [
  264. slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
  265. s "[tok*2 [rm tok]] [psr:14 tok*2]"
  266. # n (slow 3 $ run 4)
  267. ]
  268. d2 $ brak . iter 4 $
  269. s "uxay*4"
  270. # n "1 0 1 2"
  271. # gain "0.8"
  272. # speed "[0.7 1 1.2]/2"
  273. # shape "0.4 0.3 0.6"
  274. d3 $ slow 2 $
  275. spread slow [2,(7%4)] $
  276. whenmod 7 6 (density 1.5) $
  277. iter 4 $
  278. sound (samples "bass*4" "0 1")
  279. # begin "0.4"
  280. # speed "1.2"
  281. # shape "0.2"
  282. d9 $ slow 2 . whenmod 7 4 (density 1.5) $
  283. s "[~ tacscan:13] ! ~ ~"
  284. # gain "0.8"
  285. # vowel (slow 3 "e u")
  286. d3 $ slow 2 $
  287. spread slow [2,(7%4)] $
  288. whenmod 7 6 (density 1.5) $
  289. iter 4 $
  290. sound (samples "{bass*4, wobble*3}" "0 1")
  291. # begin "0.4"
  292. # speed "1.2"
  293. # shape "0.2"
  294. mapM_ ($ silence) [d2,d3,d9]
  295. d1 $ slow 2 $ stack [
  296. slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
  297. whenmod 5 3 (density 2) $
  298. s "[tok*2 [rm tok]] [psr:14 tok*2]"
  299. # n (slow 3 $ run 4)
  300. ]
  301. d1 $ slow 2 $ stack [
  302. slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
  303. whenmod 5 3 (density 2) $
  304. iter 2 $
  305. s "[tok*2 [rm tok]] [psr:14 tok*2]"
  306. # n (slow 3 $ run 4)
  307. ]
  308. d1 $ slow 2 $ stack [
  309. whenmod 8 7 rev $
  310. slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
  311. whenmod 5 3 (density 2) $
  312. iter 2 $
  313. s "[tok*2 [rm tok]] [psr:14 tok*2]"
  314. # n (slow 3 $ run 4)
  315. ]
  316. d1 $ slow 2 $ stack [
  317. every 3 rev $
  318. whenmod 8 7 rev $
  319. slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
  320. whenmod 5 3 (density 2) $
  321. iter 2 $
  322. s "[tok*2 [rm tok]] [psr:14 tok*2]"
  323. # n (slow 3 $ run 4)
  324. ]
  325. d1 $ slow 2 $ stack [
  326. whenmod 5 3 (density 2) $
  327. iter 2 $
  328. s "[tok*2 [rm tok]] [psr:14 tok*2]"
  329. # n (slow 3 $ run 4)
  330. ]
  331. d2 $ slow 2 $
  332. slow 2 . spread slow [2,4,2,3] $
  333. jux (0.25 <~) $
  334. slow 2 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
  335. # n (density 3 $ run 2)
  336. d1 $ slow 2 $ stack [
  337. slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
  338. s "[tok*2 [rm tok]] [psr:14 tok*2]"
  339. # n (slow 3 $ run 4)
  340. ]
  341. d2 $ brak . iter 4 $
  342. s "uxay*4"
  343. # n "1 0 1 2"
  344. # gain "0.8"
  345. # speed "[0.7 1 1.2]/2"
  346. # shape "0.4 0.3 0.6"
  347. d3 $ slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  348. # n (slow 2.8 "0 1 2")
  349. # vowel "i"
  350. # speed "0.8"
  351. # shape (halfosc <$> saw1)
  352. d9 $ slow 2 . whenmod 7 4 (density 1.5) $
  353. s "[~ tacscan:13] ! ~ ~"
  354. # gain "0.8"
  355. # vowel (slow 3 "e u")
  356. d6 $ slow 4 $ striate 32 $
  357. s "warbler"
  358. # n (slow 7 $ run 7)
  359. # gain "0.8"
  360. d7 $ slow 2 $
  361. iter 9 $
  362. s "arpy*8"
  363. # n "4 2 7 2"
  364. # gain "0.7"
  365. mapM_ ($ silence) [d2,d3,d9]
  366. d1 silence
  367. d7 silence
  368. hush