for-mix2.tidal 5.6 KB

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