for-mix2.tidal 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308
  1. cps (99/60)
  2. let every' n o f = when ((== (o-1)) . (`mod` n)) f
  3. hush
  4. d3 $
  5. s "[[vb vb:1] ~]/2"
  6. # speed (slow 2.5 "1 -1")
  7. # vowel "e o"
  8. d3 $
  9. s "[[vb vb:1] ~]/2"
  10. # end (slow 1.4 "0.2 0.4")
  11. -- # speed (slow 2.5 "1 -1") -- not this, but don't delete it. comes back
  12. # vowel "e o"
  13. d2 $
  14. smash 16 [0.25, 0.5] $
  15. s "hh hh:2"
  16. # gain "0.6"
  17. d1 $ s "k"
  18. d3 $
  19. s "[[vb vb:1] ~]/2"
  20. # end (slow 1.4 "0.2 0.4")
  21. # speed (slow 2.5 "1 -1")
  22. # vowel "e o"
  23. d1 $ every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k"
  24. d2 $
  25. whenmod 16 15 (density 3) $
  26. smash 16 [0.25, 0.5] $
  27. s "hh hh:2"
  28. # gain "0.6"
  29. d1 $ stack [
  30. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
  31. (0.5 ~>) $ s "sn/2"
  32. ]
  33. d3 $
  34. whenmod 3 2 (slow 2) $
  35. s "[[vb vb:1] ~]/2"
  36. # end (slow 1.4 "0.2 0.4")
  37. # speed (slow 2.5 "1 -1")
  38. # vowel "e o"
  39. d3 $
  40. whenmod 3 2 (slow 2) $
  41. (whenmod 4 2 $ density 3) $
  42. s "[[vb vb:1] ~]/2"
  43. # end (slow 1.4 "0.2 0.4")
  44. # speed (slow 2.5 "1 -1")
  45. # vowel "e o"
  46. d1 $ stack [
  47. (1 ~>) $ sound "cy/8",
  48. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
  49. (0.5 ~>) $ s "sn/2"
  50. ]
  51. d7 $
  52. slowspread ($) [id, slow 2] $
  53. slow 16 $ gap 48 $ s "pc:1"
  54. # gain "0.9"
  55. # cut "7"
  56. # speed "[1 0.7]"
  57. d2 $
  58. whenmod 16 15 (density 3) $
  59. smash 16 [0.25, 0.5] $
  60. every 3 (append $ s "hh:1 hh") $
  61. s "hh hh:2"
  62. # gain "0.6"
  63. d1 $ stack [
  64. (1 ~>) $ sound "cy/8",
  65. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  66. every' 12 2 (density 3) $
  67. s "k",
  68. (0.5 ~>) $ s "sn/2"
  69. ]
  70. d1 $ stack [
  71. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  72. every' 12 2 (density 3) $
  73. s "k",
  74. (0.5 ~>) $ s "sn/2"
  75. ]
  76. d7 silence
  77. d2 $
  78. iter 4 $
  79. (# pan (density 16 "0.25 0.75")) $
  80. whenmod 16 15 (density 3) $
  81. smash 16 [0.25, 0.5] $
  82. every 3 (append $ s "hh:1 hh") $
  83. s "hh hh:2"
  84. # gain "0.6"
  85. d6 $
  86. slow 4 . chop 128 $
  87. s (samples "udu" (slow 4 $ irand 4))
  88. # gain "0.8"
  89. # cut "6"
  90. d4 $
  91. density 0.25 $
  92. gap 128 $ s "eg*2"
  93. # gain "0.8" -- fade up to 0.8
  94. # cut "4"
  95. d4 $
  96. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  97. density 0.25 $
  98. gap 128 $ s "eg*2"
  99. # gain "0.8"
  100. # cut "4"
  101. d4 $
  102. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  103. density 0.25 $
  104. slowspread density [1, 2, 0.5, 2] $
  105. gap 128 $ s "eg*2"
  106. # gain "0.8"
  107. # cut "4"
  108. d6 $
  109. (whenmod 3 2 . sometimesBy 0.5 $ density (4%3)) $
  110. slow 4 . chop 128 $
  111. s (samples "udu" (slow 4 $ irand 4))
  112. # gain "0.8"
  113. # cut "6"
  114. d4 $
  115. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  116. density 0.245 $
  117. slowspread density [1, 2, 0.5, 2] $
  118. gap 128 $
  119. s "eg*2"
  120. # gain "0.8"
  121. # cut "4"
  122. d1 $ stack [
  123. (1 ~>) $ sound "cy/8",
  124. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  125. every' 12 2 (density 3) $
  126. s "k",
  127. (0.5 ~>) $ s "sn/2"
  128. ]
  129. mapM_ ($ silence) [d2,d3]
  130. d1 $ stack [
  131. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  132. every' 12 2 (density 3) $
  133. s "k",
  134. (0.5 ~>) $ s "sn/2"
  135. ]
  136. d4 $
  137. (0.18 <~) $ every 2 (const silence) $
  138. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  139. density 0.245 $
  140. slowspread density [1, 2, 0.5, 2] $
  141. gap 128 $ s "eg*2"
  142. # gain "0.8"
  143. # cut "4"
  144. d6 $
  145. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  146. (whenmod 7 5 $ trunc (5%6)) $
  147. slow 4 . chop 128 $
  148. s (samples "udu" (slow 4 $ irand 4))
  149. # gain "0.8"
  150. # cut "6"
  151. d7 $
  152. slowspread ($) [id, slow 2] $
  153. slow 16 $ gap 48 $ s "[pc pc:1]"
  154. # gain "0.8"
  155. # cut "7"
  156. # speed "[1 0.7]"
  157. d6 $
  158. (every' 5 3 $ brak) $
  159. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  160. (whenmod 7 5 $ trunc (5%6)) $
  161. slow 4 . chop 128 $
  162. s (samples "udu" (slow 4 $ irand 4))
  163. # gain "0.8"
  164. # cut "6"
  165. d7 $
  166. slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  167. slowspread ($) [id, slow 2] $
  168. slow 16 $ gap 48 $ s "[pc pc:1]"
  169. # gain "0.8"
  170. # cut "7"
  171. # speed "[1 0.7]"
  172. d7 $
  173. whenmod 7 5 (density 1.25) $
  174. slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  175. slowspread ($) [id, slow 2] $
  176. slow 16 $ gap 48 $ s "[pc pc:1]"
  177. # gain "0.8"
  178. # cut "7"
  179. # speed "[1 0.7]"
  180. d5 $
  181. chop 128 $ s "[gt [~ gt] ! ~]/2"
  182. # gain "0.8" -- fade up to 0.8
  183. # cut "5"
  184. d5 $
  185. chop 128 $ s "[gt [~ gt] ! ~]/2"
  186. # gain "0.8" -- fade up to 0.8
  187. # cut "5"
  188. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  189. d5 $
  190. density 0.98 $
  191. chop 128 $ s "[gt [~ gt] ! ~]/2"
  192. # gain "0.8"
  193. # cut "5"
  194. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  195. d3 $
  196. (whenmod 3 2 $ slow 2) $
  197. (whenmod 4 2 $ density 3) $
  198. s "[[vb vb:1] ~]/2"
  199. # end (slow 1.4 "0.2 0.4")
  200. # speed (slow 2.5 "1 -1")
  201. # vowel "e o"
  202. d4 $
  203. (0.18 <~) $
  204. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  205. density 0.245 $
  206. slowspread density [1, 2, 0.5, 2] $
  207. gap 128 $ s "eg*2"
  208. # gain "0.8"
  209. # cut "4"
  210. d3 $
  211. within (0.5, 1) (slow (4%3) . brak) $
  212. (whenmod 4 2 $ density 3) $
  213. (whenmod 3 2 $ slow 2) $
  214. s "[[vb vb:1] ~]/2"
  215. # end (slow 1.4 "0.2 0.4")
  216. # speed (slow 2.5 "1 -1")
  217. # vowel "e o"
  218. d1 $ stack [
  219. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
  220. s "[k ~ k*2 ~]/4",
  221. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $
  222. (1 ~>) $ s "sn/2"
  223. ]
  224. d4 silence
  225. d8 $ slow 16 . gap 64 $ s "pclow"
  226. # gain "0.86"
  227. {-
  228. d1 $ stack [
  229. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  230. s "k",
  231. (1 ~>) $ s "sn/2"
  232. ]
  233. -}
  234. d3 $
  235. whenmod 3 2 (slow 2) $
  236. (whenmod 4 2 $ density 3) $
  237. s "[[vb vb:1] ~]/2"
  238. # end (slow 1.4 "0.2 0.4")
  239. # speed (slow 2.5 "1 -1")
  240. # vowel "e o"
  241. d5 silence
  242. d7 $
  243. stut 4 0.8 0.5 $
  244. whenmod 7 5 (density 1.25) $
  245. slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  246. slowspread ($) [id, slow 2] $
  247. slow 16 $ gap 48 $ s "[pc pc:1]"
  248. # gain "0.8"
  249. # cut "7"
  250. # speed "[1 0.7]"
  251. d2 $
  252. iter 4 $
  253. (# pan (density 16 "0.25 0.75")) $
  254. whenmod 16 15 (density 3) $
  255. smash 16 [0.25, 0.5] $
  256. every 3 (append $ s "hh:1 hh") $
  257. s "hh hh:2"
  258. # gain "0.6"
  259. hush