battery123.tidal 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290
  1. {-
  2. Anny FM: Battery 1,2,3
  3. anny.audio
  4. Current version: 1.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. Battery 1
  25. -}
  26. bpm 125
  27. -- @b1bass1
  28. d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
  29. # begin 0.2
  30. -- # n "0 1 0 0" -- (1)
  31. -- # speed (scale 1 (4/3) $ slow 8 sine1) -- (2)
  32. -- b1bass1 @ 1
  33. -- b1bass1 @ 2
  34. -- @b1hand
  35. d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
  36. # speed 0.7
  37. -- # shape (scale 0 0.5 $ slow (10/4) sine1) -- (1)
  38. -- # pan (scale 0.25 0.75 $ slow (8/3) sine1) -- (2)
  39. -- b1hand @ 1
  40. -- b1hand @ 2
  41. -- @b1perc
  42. d'perc $ cf $
  43. -- fastspread slow [2,1] $ -- (3)
  44. -- slow 2 . fastspread slow [2,4,2,3] $ -- (4) replace (3)
  45. -- jux (0.25 <~) $ -- (2)
  46. slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  47. -- # n (density 3 $ run 2) -- (1)
  48. -- b1perc @ 1
  49. -- b1perc @ 2
  50. -- @b1bass2
  51. d'bass $
  52. spread slow [1,3] $
  53. striate 16 $
  54. s "bass3 [~ bass3] ! ~"
  55. # begin 0.2
  56. # n "0 1 0 0"
  57. # speed (scale 1 1.5 $ slow 8 sine1)
  58. # gain 0.9
  59. -- @b1drum1
  60. d'drum $ cf $ stack [
  61. -- every 4 (density 1.5) $ -- (2)
  62. -- slow 2 $ s "peri [~ peri] ! ~", -- (1)
  63. sound "~ psr:1"
  64. ]
  65. -- b1drum1 @ 1
  66. -- b1drum1 @ 2
  67. -- b1drum1 @ 0
  68. -- @b1tac
  69. d'tac $ cf $
  70. -- whenmod 7 4 (density 1.5) $ -- (1)
  71. s "[~ tacscan] ! ~ ~"
  72. # gain 0.8
  73. # vowel (slow 3 "e u")
  74. -- b1tac @ 1
  75. -- @b1drum2
  76. d'drum $ cf $
  77. stack [
  78. s "peri*2", -- (-1) remove
  79. -- every' 8 8 (density 1.5) $ -- (2)
  80. -- every 2 (density 3) $ -- (1)
  81. sound "~ psr:1"
  82. ]
  83. -- b1drum2 @ -1
  84. -- @b1warbler
  85. d'warb $ slow 4 $ striate 32 $ s "warbler"
  86. # n (slow 7 $ run 7)
  87. # gain 0.8
  88. -- b1perc @ 3
  89. -- b1drum2 @ 0
  90. -- b1drum2 @ 1
  91. msil [d'bass, d'tac]
  92. -- b1drum2 @ 2
  93. -- b1perc @ 4
  94. d'hand silence
  95. -- b1drum2 @ 2, w/o peri
  96. d'drum silence
  97. {-
  98. @b2
  99. Battery 2
  100. -}
  101. bpm 125
  102. -- @b2perca
  103. d'perc $ cf $ s "uxay*2" -- (1) uxay*4
  104. # n "1 0 1 2"
  105. -- # speed "[0.7 1 1.2]/2" -- (2)
  106. -- b2perca @ 1
  107. -- b2perca @ 2
  108. -- @b2drum
  109. d'drum $ -- overlay (s "peri") $ -- (3,4) toggle
  110. cf $
  111. -- every 3 (0.125 <~) $ -- (2)
  112. s "psr*4 psr*2"
  113. -- s "[[psr*4 psr*2] ! ! psr*8]/4" -- (1)
  114. # gain 0.6
  115. -- b2drum @ 1
  116. -- @b2percb
  117. let -- b = brak . iter 4 -- (1)
  118. b = cf . brak
  119. in d'perc $ b $ s "uxay*4"
  120. # n "1 0 1 2"
  121. # gain 0.8
  122. # shape "0.4 0.3 0.6"
  123. # speed "[0.7 1 1.2]/2"
  124. d'warb silence
  125. -- b2drum w/o peri
  126. -- @b2trump
  127. d'tr $ cf $ whenmod 5 4 rev $ s "[~ trump ! !] ~"
  128. # n (slow 3.2 $ run 4)
  129. # gain 0.8
  130. # vowel (slow 3.2 "a e o")
  131. # shape 0.6
  132. -- # speed (scale 0.5 1.5 $ slow 4 sine1) -- (1)
  133. -- b2drum w/ peri
  134. -- b2percb @ 1
  135. -- @b2bass
  136. d'bass $ slow 8 $
  137. s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  138. # n (slow 2.8 "0 1 2")
  139. # vowel "i"
  140. # speed 0.8
  141. -- # shape 0.3 -- (1) increase 0->0.3
  142. -- # shape (scale 0.25 0.75 $ saw1) -- (2) replaces (1)
  143. d'tr silence
  144. -- b2bass @ 1
  145. -- b2bass @ 2
  146. -- @b2arpy
  147. d'arpy $ cf $
  148. -- whenmod 7 4 (# vowel "a") $ -- (2)
  149. -- iter 9 $ -- (1)
  150. s "arpy*8"
  151. # n "2 1 3 1"
  152. # gain 0.7
  153. msil [d'perc, d'bass]
  154. -- b2drum w/o peri
  155. -- b2arpy @ 1
  156. -- b2percb @ 1
  157. -- b2drum w/ peri
  158. msil [d'drum, d'perc]
  159. {-
  160. @b3
  161. Battery 3
  162. -}
  163. bpm 125
  164. -- b2arpy @ 2
  165. -- b1perc @ 4
  166. -- @b3drum
  167. d'drum $ cf $
  168. -- every 3 rev $ -- (f4) and (f5) remove
  169. -- every' 8 8 rev $ -- (f3)
  170. stack [
  171. -- slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~", -- (2), (3) ^peri*2 -- (f5) remove
  172. -- whenmod 5 3 (density 2) $ -- (f1)
  173. -- iter 2 $ -- (f2)
  174. sound "[tok*2 [rm tok]] [psr:1 tok*2]"
  175. -- # n (slow 3 $ run 4) -- (1)
  176. ]
  177. -- @b3bass
  178. let p = "bass*4" -- "{bass*4, wobble*3}" (4)
  179. in d'bass $ cf $
  180. -- spread slow [2,(7/4)] $ -- (2)
  181. -- whenmod 7 6 (density 1.5) $ -- (1)
  182. -- iter 4 $ -- (3)
  183. s p
  184. # n "0 1"
  185. # begin 0.4
  186. # speed 1.2
  187. # shape 0.2
  188. -- b3bass @ 1
  189. -- b3drum @ 1
  190. -- b3bass @ 2
  191. -- b3bass @ 3
  192. -- b1hand @ 3
  193. -- b1tac @ 1
  194. -- b2arpy @ 1
  195. msil [d'bass, d'hand]
  196. -- b3drum @ 2
  197. d'tac silence
  198. -- b3drum @ 3
  199. -- b1hand @ 2
  200. -- b1perc @ 4
  201. -- b3bass @ 3
  202. -- b1tac @ 1
  203. -- b3bass @ 4
  204. msil [d'perc, d'tac, d'hand]
  205. -- b3drum @ f1-f5
  206. msil [d'bass, d'arpy]
  207. -- b1perc @ 4
  208. -- b3drum @ 3
  209. -- b2percb @ 1
  210. -- b2bass @ 2
  211. -- b1tac
  212. -- b1bass1 [on channel d'bass2]
  213. -- b3arpy @ 1
  214. -- b1warbler
  215. -- b1hand @ 2
  216. msil [d'perc, d'bass, d'tac, d'bass2, d'hand]
  217. d'drum silence
  218. d'arpy silence
  219. hush