for-mix2.tidal 4.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264
  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. d1 $ stack [
  40. (1 ~>) $ sound "cy/8",
  41. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
  42. (0.5 ~>) $ s "sn/2"
  43. ]
  44. d2 $
  45. whenmod 16 15 (density 3) $
  46. smash 16 [0.25, 0.5] $
  47. every 3 (append $ s "hh:1 hh") $
  48. s "hh hh:2"
  49. # gain "0.6"
  50. d1 $ stack [
  51. (1 ~>) $ sound "cy/8",
  52. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  53. every' 12 2 (density 3) $
  54. s "k",
  55. (0.5 ~>) $ s "sn/2"
  56. ]
  57. -- these two quickly
  58. d2 $
  59. iter 4 $
  60. (# pan (density 16 "0.25 0.75")) $
  61. whenmod 16 15 (density 3) $
  62. smash 16 [0.25, 0.5] $
  63. every 3 (append $ s "hh:1 hh") $
  64. s "hh hh:2"
  65. # gain "0.6"
  66. d1 $ stack [
  67. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  68. every' 12 2 (density 3) $
  69. s "k",
  70. (0.5 ~>) $ s "sn/2"
  71. ]
  72. d6 $
  73. slow 4 . chop 128 $
  74. s (samples "udu" (slow 4 $ irand 4))
  75. # gain "0.8"
  76. # cut "6"
  77. d3 $
  78. whenmod 3 2 (slow 2) $
  79. (whenmod 4 2 $ density 3) $
  80. s "[[vb vb:1] ~]/2"
  81. # end (slow 1.4 "0.2 0.4")
  82. # speed (slow 2.5 "1 -1")
  83. # vowel "e o"
  84. d4 $
  85. density 0.25 $
  86. gap 128 $ s "eg*2"
  87. # gain "0.8" -- fade up to 0.8
  88. # cut "4"
  89. d4 $
  90. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  91. density 0.25 $
  92. gap 128 $ s "eg*2"
  93. # gain "0.8"
  94. # cut "4"
  95. d4 $
  96. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  97. density 0.25 $
  98. slowspread density [1, 2, 0.5, 2] $
  99. gap 128 $ s "eg*2"
  100. # gain "0.8"
  101. # cut "4"
  102. d6 $
  103. (whenmod 3 2 . sometimesBy 0.5 $ density (4%3)) $
  104. slow 4 . chop 128 $
  105. s (samples "udu" (slow 4 $ irand 4))
  106. # gain "0.8"
  107. # cut "6"
  108. d4 $
  109. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  110. density 0.245 $
  111. slowspread density [1, 2, 0.5, 2] $
  112. gap 128 $
  113. s "eg*2"
  114. # gain "0.8"
  115. # cut "4"
  116. d1 $ stack [
  117. (1 ~>) $ sound "cy/8",
  118. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  119. every' 12 2 (density 3) $
  120. s "k",
  121. (0.5 ~>) $ s "sn/2"
  122. ]
  123. mapM_ ($ silence) [d2,d3]
  124. d1 $ stack [
  125. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  126. every' 12 2 (density 3) $
  127. s "k",
  128. (0.5 ~>) $ s "sn/2"
  129. ]
  130. d4 $
  131. (0.18 <~) $ every 2 (const silence) $
  132. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  133. density 0.245 $
  134. slowspread density [1, 2, 0.5, 2] $
  135. gap 128 $ s "eg*2"
  136. # gain "0.8"
  137. # cut "4"
  138. d6 $
  139. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  140. (whenmod 7 5 $ trunc (5%6)) $
  141. slow 4 . chop 128 $
  142. s (samples "udu" (slow 4 $ irand 4))
  143. # gain "0.8"
  144. # cut "6"
  145. d5 $
  146. chop 128 $ s "[gt [~ gt] ! ~]/2"
  147. -- # gain "0.8"
  148. # gain "0.8" -- fade up to 0.8
  149. # cut "5"
  150. d6 $
  151. (every' 5 3 $ brak) $
  152. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  153. (whenmod 7 5 $ trunc (5%6)) $
  154. slow 4 . chop 128 $
  155. s (samples "udu" (slow 4 $ irand 4))
  156. # gain "0.8"
  157. # cut "6"
  158. d5 $
  159. chop 128 $ s "[gt [~ gt] ! ~]/2"
  160. # gain "0.8" -- fade up to 0.8
  161. # cut "5"
  162. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  163. d3 $
  164. (whenmod 3 2 $ slow 2) $
  165. (whenmod 4 2 $ density 3) $
  166. s "[[vb vb:1] ~]/2"
  167. # end (slow 1.4 "0.2 0.4")
  168. # speed (slow 2.5 "1 -1")
  169. # vowel "e o"
  170. d5 $
  171. density 0.98 $
  172. chop 128 $ s "[gt [~ gt] ! ~]/2"
  173. # gain "0.8"
  174. # cut "5"
  175. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  176. d4 $
  177. (0.18 <~) $
  178. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  179. density 0.245 $
  180. slowspread density [1, 2, 0.5, 2] $
  181. gap 128 $ s "eg*2"
  182. # gain "0.8"
  183. # cut "4"
  184. d2 $
  185. iter 4 $
  186. (# pan (density 16 "0.25 0.75")) $
  187. whenmod 16 15 (density 3) $
  188. smash 16 [0.25, 0.5] $
  189. every 3 (append $ s "hh:1 hh") $
  190. s "hh hh:2"
  191. # gain "0.6"
  192. d3 $
  193. within (0.5, 1) (slow (4%3) . brak) $
  194. (whenmod 4 2 $ density 3) $
  195. (whenmod 3 2 $ slow 2) $
  196. s "[[vb vb:1] ~]/2"
  197. # end (slow 1.4 "0.2 0.4")
  198. # speed (slow 2.5 "1 -1")
  199. # vowel "e o"
  200. d4 silence
  201. d1 $ stack [
  202. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
  203. s "[k ~ k*2 ~]/4",
  204. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $
  205. (1 ~>) $ s "sn/2"
  206. ]
  207. {-
  208. d1 $ stack [
  209. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  210. s "k",
  211. (1 ~>) $ s "sn/2"
  212. ]
  213. -}
  214. d3 $
  215. whenmod 3 2 (slow 2) $
  216. (whenmod 4 2 $ density 3) $
  217. s "[[vb vb:1] ~]/2"
  218. # end (slow 1.4 "0.2 0.4")
  219. # speed (slow 2.5 "1 -1")
  220. # vowel "e o"
  221. mapM_ ($ silence) [d2,d5]
  222. hush