battery123.tidal 8.0 KB

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