battery123.tidal 6.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364
  1. {-
  2. Anny FM: Battery 1,2,3
  3. anny.audio
  4. Current version: 1.0
  5. Compatibility: Tidal Cycles 1.0-dev + SuperDirt 1.0-dev + SuperCollider 3.8
  6. License: CC-BY-SA https://creativecommons.org/licenses/by-sa/4.0/
  7. See README.md for more information
  8. -}
  9. let bpm b = cps (b/60)
  10. msil = mapM_ ($ silence)
  11. cf = slow 2
  12. every' n o f = when ((== (o-1)) . (`mod` n)) f
  13. d'drum = d1
  14. d'perc = d2
  15. d'bass = d3
  16. d'hand = d4
  17. d'warb = d5
  18. d'bass2 = d6
  19. d'arpy = d7
  20. d'tr = d8
  21. d'tac = d9
  22. {-
  23. @b1
  24. Anny FM: Battery 1
  25. anny.audio
  26. -}
  27. bpm 125
  28. d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
  29. # begin 0.2
  30. d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
  31. # begin 0.2
  32. # n "0 1 0 0"
  33. -- @b1bass1
  34. d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
  35. # begin 0.2
  36. # n "0 1 0 0"
  37. # speed (scale 1 (4/3) $ slow 8 sine1)
  38. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  39. # speed 0.7
  40. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  41. # speed 0.7
  42. # shape (scale 0 0.5 $ slow (10/4) sine1)
  43. d'perc $ cf $ slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  44. -- @b1hand
  45. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  46. # speed 0.7
  47. # shape (scale 0 0.5 $ slow (10/4) sine1)
  48. # pan (scale 0.25 0.75 $ slow (8/3) sine1)
  49. d'perc $ cf $ slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  50. # n (density 3 $ run 2)
  51. -- @b1perc1
  52. d'perc $ cf $
  53. jux (0.25 <~) $
  54. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  55. # n (density 3 $ run 2)
  56. -- @b1bass2
  57. d'bass $
  58. spread slow [1,3] $
  59. striate 16 $
  60. s "bass3 [~ bass3] ! ~"
  61. # begin 0.2
  62. # n "0 1 0 0"
  63. # speed (scale 1 1.5 $ slow 8 sine1)
  64. # gain 0.9
  65. d'drum $ cf $ sound "~ psr:1"
  66. -- @b1drum1
  67. d'drum $ cf $
  68. overlay (sound "~ psr:1") $
  69. slow 2 $ s "peri [~ peri] ! ~"
  70. d'drum $ cf $ sound "~ psr:1"
  71. -- @b1drum2
  72. d'drum $ cf $
  73. overlay (sound "~ psr:1") $
  74. every 4 (density 1.5) $ slow 2 $ s "peri [~ peri] ! ~"
  75. d'drum $ cf $ sound "~ psr:1"
  76. -- @b1tac
  77. d'tac $ cf $
  78. -- whenmod 7 4 (density 1.5) $ -- (1)
  79. s "[~ tacscan] ! ~ ~"
  80. # gain 0.8
  81. # vowel (slow 3 "e u")
  82. d'drum $ overlay (s "peri") $ cf $
  83. sound "~ psr:1"
  84. d'drum $ cf $ sound "~ psr:1"
  85. -- @b1warbler
  86. d'warb $ slow 4 $ striate 32 $ s "warbler"
  87. # n (slow 7 $ run 7)
  88. # gain 0.8
  89. -- @b1perc2
  90. d'perc $ cf $
  91. spread slow [2, 1] $
  92. jux (0.25 <~) $
  93. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  94. # n (density 3 $ run 2)
  95. d'drum $ overlay (s "peri") $ cf $
  96. sound "~ psr:1"
  97. d'drum $ overlay (s "peri") $ cf $
  98. every 2 (density 3) $ sound "~ psr:1"
  99. msil [d'bass, d'tac]
  100. -- @b1drum3
  101. d'drum $ overlay (s "peri") $ cf $
  102. every' 8 8 (density 1.5) $
  103. every 2 (density 3) $ sound "~ psr:1"
  104. -- @b1perc3
  105. d'perc $ cf $
  106. slow 2 . spread slow [2,4,2,3] $
  107. jux (0.25 <~) $
  108. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  109. # n (density 3 $ run 2)
  110. d'hand silence
  111. d'drum $ cf $ every' 8 8 (density 1.5) $ every 2 (density 3) $ sound "~ psr:1"
  112. d'drum silence
  113. {-
  114. @b2
  115. Anny FM: Battery 2
  116. anny.audio
  117. -}
  118. bpm 125
  119. d'perc $ cf $ s "uxay*2" # n "1 0 1 2"
  120. d'perc $ cf $ s "uxay*4" # n "1 0 1 2"
  121. d'perc $ cf $ s "uxay*4"
  122. # n "1 0 1 2"
  123. # speed "[0.7 1 1.2]/2"
  124. d'drum $ cf $ s "psr*4 psr*2"
  125. # gain 0.6
  126. -- @b2drum
  127. d'drum $ overlay (s "peri") $ -- (2,3) toggle
  128. cf $
  129. every 3 (0.125 <~) $ -- (1)
  130. s "[[psr*4 psr*2] ! ! psr*8]/4"
  131. # gain 0.6
  132. -- @b2perc
  133. let b = brak . iter 4 -- (1)
  134. -- b = cf . brak
  135. in d'perc $ b $ s "uxay*4"
  136. # n "1 0 1 2"
  137. # gain 0.8
  138. # shape "0.4 0.3 0.6"
  139. # speed "[0.7 1 1.2]/2"
  140. d'warb silence
  141. -- ~b2drum w/o peri
  142. -- @b2trump
  143. d'tr $ cf $ whenmod 5 4 rev $ s "[~ trump ! !] ~"
  144. # n (slow 3.2 $ run 4)
  145. # gain 0.8
  146. # vowel (slow 3.2 "a e o")
  147. # shape 0.6
  148. -- # speed (scale 0.5 1.5 $ slow 4 sine1) -- (1)
  149. -- ~b2drum w/ peri
  150. -- ~b2perc w/ b=brak . iter 4
  151. d'bass $ slow 8 $
  152. s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  153. # n (slow 2.8 "0 1 2")
  154. # vowel "i"
  155. # speed 0.8
  156. d'tr silence
  157. -- @b2bass
  158. d'bass $ slow 8 $
  159. 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 -- (1) increase 0->0.3
  164. -- # shape (scale 0.25 0.75 $ saw1) -- (2) replaces (1)
  165. d'arpy $ cf $ s "arpy*8"
  166. # n "2 1 3 1"
  167. # gain 0.7
  168. msil [d'perc, d'bass]
  169. -- ~b2drum w/o peri
  170. -- @b2arpy
  171. d'arpy $ cf $ iter 9 $ s "arpy*8"
  172. # n "2 1 3 1"
  173. # gain 0.7
  174. -- ~b2perc @ (1)
  175. -- ~b2drum w/ peri
  176. msil [d'drum, d'perc]
  177. {-
  178. @b3
  179. Anny FM: Battery 3
  180. anny.audio
  181. -}
  182. bpm 125
  183. -- @b3arpy
  184. d'arpy $ cf $
  185. whenmod 7 4 (# vowel "a") $ -- (1) remove
  186. iter 9 $ s "arpy*8"
  187. # n "2 1 3 1"
  188. # gain 0.7
  189. -- ~b1perc3
  190. d'perc $ cf $
  191. slow 2 . spread slow [2,4,2,3] $
  192. jux (0.25 <~) $
  193. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  194. # n (density 3 $ run 2)
  195. d'drum $ cf $ sound "[tok*2 [rm tok]] [psr:1 tok*2]"
  196. -- @b3bass
  197. d'bass $ cf $
  198. -- spread slow [2,(7/4)] $ -- (2)
  199. -- whenmod 7 6 (density 1.5) $ -- (1)
  200. -- iter 4 $ -- (3)
  201. s "bass*4"
  202. # n "0 1"
  203. # begin 0.4
  204. # speed 1.2
  205. # shape 0.2
  206. -- ~b3bass @ (1)
  207. d'drum $ cf $ sound "[tok*2 [rm tok]] [psr:1 tok*2]"
  208. # n (slow 3 $ run 4)
  209. -- ~b3bass @ (2)
  210. -- ~b3bass @ (3)
  211. -- ~b1hand
  212. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  213. # speed 0.7
  214. # shape (scale 0 0.5 $ slow (10/4) sine1)
  215. # pan (scale 0.25 0.75 $ slow (8/3) sine1)
  216. -- ~b1tac
  217. d'tac $ cf . whenmod 7 4 (density 1.5) $
  218. s "[~ tacscan] ! ~ ~"
  219. # gain 0.8
  220. # vowel (slow 3 "e u")
  221. -- ~b3arpy @ (1)
  222. msil [d'bass, d'hand]
  223. -- @b3drum1
  224. d'drum $ cf $
  225. overlay (slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~") $
  226. sound "[tok*2 [rm tok]] [psr:1 tok*2]"
  227. # n (slow 3 $ run 4)
  228. d'tac silence
  229. -- @b3drum2
  230. d'drum $ cf $
  231. overlay (slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~") $
  232. sound "[tok*2 [rm tok]] [psr:1 tok*2]"
  233. # n (slow 3 $ run 4)
  234. -- ~b1hand
  235. -- ~b1perc3 @ (1)
  236. -- ~b3bass
  237. -- ~b1tac
  238. -- @b3bassloud
  239. d'bass $ cf $
  240. spread slow [2,(7/4)] $
  241. whenmod 7 6 (density 1.5) $
  242. iter 4 $
  243. s "{bass*4, wobble*3}"
  244. # n "0 1"
  245. # begin 0.4
  246. # speed 1.2
  247. # shape 0.2
  248. msil [d'perc, d'tac]
  249. -- @b3drumfull
  250. d'drum $ cf $
  251. -- every 3 rev $ -- (4) and (5) remove
  252. -- every' 8 8 rev $ -- (3)
  253. overlay (slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~") $ -- (5) remove
  254. -- whenmod 5 3 (density 2) $ -- (1)
  255. -- iter 2 $ -- (2)
  256. sound "[tok*2 [rm tok]] [psr:1 tok*2]"
  257. # n (slow 3 $ run 4)
  258. msil [d'bass, d'arpy]
  259. -- ~b3drumfull @ (5)
  260. d'hand silence
  261. -- ~b2perc1
  262. d'perc $ cf $
  263. slow 2 . spread slow [2,4,2,3] $
  264. jux (0.25 <~) $
  265. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  266. # n (density 3 $ run 2)
  267. -- ~b3drum2
  268. d'drum $ cf $
  269. overlay (slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~") $
  270. sound "[tok*2 [rm tok]] [psr:1 tok*2]"
  271. # n (slow 3 $ run 4)
  272. -- ~b2perc @ (1)
  273. -- ~b2bass @ (2)
  274. -- ~b1tac
  275. -- ~b1bass1 [on channel d'bass2]
  276. -- ~b3arpy @ (1)
  277. -- ~b1warbler
  278. -- ~b1hand
  279. msil [d'perc, d'bass, d'tac, d'bass2, d'hand]
  280. d'drum silence
  281. d'arpy silence
  282. hush