battery123.tidal 8.1 KB

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