for-mix2.tidal 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244
  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 . striate 128 $
  74. s (samples "udu" (slow 4 $ irand 4))
  75. # gain "0.8"
  76. d3 $
  77. whenmod 3 2 (slow 2) $
  78. (whenmod 4 2 $ density 3) $
  79. s "[[vb vb:1] ~]/2"
  80. # end (slow 1.4 "0.2 0.4")
  81. # speed (slow 2.5 "1 -1")
  82. # vowel "e o"
  83. d4 $
  84. density 0.25 $
  85. gap 128 $ s "eg*2"
  86. # gain "0.7" -- fade up to 0.7
  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.7"
  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.7"
  100. # cut "4"
  101. d6 $
  102. within (0, 0.5) rev $
  103. slow 4 . striate 128 $
  104. s (samples "udu" (slow 4 $ irand 4))
  105. # gain "0.8"
  106. d4 $
  107. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  108. density 0.245 $
  109. slowspread density [1, 2, 0.5, 2] $
  110. gap 128 $
  111. s "eg*2"
  112. # gain "0.8"
  113. # cut "4"
  114. mapM_ ($ silence) [d2,d3]
  115. d4 $
  116. (0.18 <~) $ every 2 (const silence) $
  117. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  118. density 0.245 $
  119. slowspread density [1, 2, 0.5, 2] $
  120. gap 128 $ s "eg*2"
  121. # gain "0.8"
  122. # cut "4"
  123. d6 $
  124. (whenmod 3 2 $ slow 2) $
  125. within (0, 0.5) rev $
  126. slow 4 . striate 128 $
  127. s (samples "udu" (slow 4 $ irand 4))
  128. # gain "0.8"
  129. d5 $
  130. chop 128 $ s "[gt [~ gt] ! ~]/2"
  131. # gain "0.8"
  132. # cut "4"
  133. d6 $
  134. (whenmod 3 2 $ slow 2) $
  135. (whenmod 5 3 $ brak) $
  136. within (0, 0.5) rev $
  137. slow 4 . striate 128 $
  138. s (samples "udu" (slow 4 $ irand 4))
  139. # gain "0.8"
  140. d5 $
  141. density 0.98 $
  142. chop 128 $ s "[gt [~ gt] ! ~]/2"
  143. # gain "0.8"
  144. # cut "4"
  145. d3 $
  146. (whenmod 3 2 $ slow 2) $
  147. (whenmod 4 2 $ density 3) $
  148. s "[[vb vb:1] ~]/2"
  149. # end (slow 1.4 "0.2 0.4")
  150. # speed (slow 2.5 "1 -1")
  151. # vowel "e o"
  152. d4 $
  153. (0.18 <~) $
  154. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  155. density 0.245 $
  156. slowspread density [1, 2, 0.5, 2] $
  157. gap 128 $ s "eg*2"
  158. # gain "0.7"
  159. # cut "4"
  160. d2 $
  161. iter 4 $
  162. (# pan (density 16 "0.25 0.75")) $
  163. whenmod 16 15 (density 3) $
  164. smash 16 [0.25, 0.5] $
  165. every 3 (append $ s "hh:1 hh") $
  166. s "hh hh:2"
  167. # gain "0.6"
  168. d5 $
  169. density 0.98 $
  170. chop 128 $ s "[gt [~ gt] ! ~]/2"
  171. # gain "0.8"
  172. # cut "4"
  173. d4 silence
  174. mapM_ ($ silence) [d2,d5] -- silence
  175. d3 $
  176. within (0.5, 1) (slow (4%3) . brak) $
  177. (whenmod 4 2 $ density 3) $
  178. (whenmod 3 2 $ slow 2) $
  179. s "[[vb vb:1] ~]/2"
  180. # end (slow 1.4 "0.2 0.4")
  181. # speed (slow 2.5 "1 -1")
  182. # vowel "e o"
  183. -- put off this d1 transition to much later, the first drum loop is way funkier
  184. d1 $ stack [
  185. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  186. every' 12 2 (density 3) $
  187. s "k",
  188. (1 ~>) $ s "sn/2"
  189. ]
  190. d1 $ stack [
  191. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
  192. s "[k ~ k*2 ~]/4",
  193. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $
  194. (1 ~>) $ s "sn/2"
  195. ]
  196. d3 $
  197. whenmod 3 2 (slow 2) $
  198. (whenmod 4 2 $ density 3) $
  199. s "[[vb vb:1] ~]/2"
  200. # end (slow 1.4 "0.2 0.4")
  201. # speed (slow 2.5 "1 -1")
  202. # vowel "e o"
  203. hush