for-mix2.tidal 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180
  1. cps (99/60)
  2. let every' n o f = when ((== (o-1)) . (`mod` n)) f
  3. hush
  4. d1 $ s "k"
  5. d3 $
  6. s "[[vb vb:1] ~]/2"
  7. # end (slow 1.4 "0.2 0.4")
  8. # vowel "e o"
  9. d2 $
  10. smash 16 [0.25, 0.5] $
  11. s "hh hh:2"
  12. # gain "0.6"
  13. d1 $ every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k"
  14. d2 $
  15. whenmod 16 15 (density 3) $
  16. smash 16 [0.25, 0.5] $
  17. s "hh hh:2"
  18. # gain "0.6"
  19. d1 $ stack [
  20. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
  21. (0.5 ~>) $ s "sn/2"
  22. ]
  23. d3 $
  24. s "[[vb vb:1] ~]/2"
  25. # end (slow 1.4 "0.2 0.4")
  26. # speed (slow 2.5 "1 -1")
  27. # vowel "e o"
  28. d1 $ stack [
  29. (1 ~>) $ sound "cy/8",
  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. d2 $
  40. whenmod 16 15 (density 3) $
  41. smash 16 [0.25, 0.5] $
  42. every 3 (append $ s "hh:1 hh") $
  43. s "hh hh:2"
  44. # gain "0.6"
  45. d1 $ stack [
  46. (1 ~>) $ sound "cy/8",
  47. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  48. every' 12 2 (density 3) $
  49. s "k",
  50. (0.5 ~>) $ s "sn/2"
  51. ]
  52. -- these two quickly
  53. d2 $
  54. iter 4 $
  55. (# pan (density 16 "0.25 0.75")) $
  56. whenmod 16 15 (density 3) $
  57. smash 16 [0.25, 0.5] $
  58. every 3 (append $ s "hh:1 hh") $
  59. s "hh hh:2"
  60. # gain "0.6"
  61. d1 $ stack [
  62. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  63. every' 12 2 (density 3) $
  64. s "k",
  65. (0.5 ~>) $ s "sn/2"
  66. ]
  67. d3 $
  68. whenmod 3 2 (slow 2) $
  69. (whenmod 4 2 $ density 3) $
  70. s "[[vb vb:1] ~]/2"
  71. # end (slow 1.4 "0.2 0.4")
  72. # speed (slow 2.5 "1 -1")
  73. # vowel "e o"
  74. d4 $
  75. density 0.25 $
  76. gap 128 $ s "eg*2"
  77. # gain "0.7" -- fade up to 0.7
  78. # cut "4"
  79. d4 $
  80. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  81. density 0.25 $
  82. gap 128 $ s "eg*2"
  83. # gain "0.7"
  84. # cut "4"
  85. d4 $
  86. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  87. density 0.25 $
  88. slowspread density [1, 2, 0.5, 2] $
  89. gap 128 $ s "eg*2"
  90. # gain "0.7"
  91. # cut "4"
  92. d4 $
  93. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  94. density 0.245 $
  95. slowspread density [1, 2, 0.5, 2] $
  96. gap 128 $
  97. s "eg*2"
  98. # gain "0.7"
  99. # cut "4"
  100. d2 silence
  101. d4 $
  102. (0.18 <~) $ every 2 (const silence) $
  103. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  104. density 0.245 $
  105. slowspread density [1, 2, 0.5, 2] $
  106. gap 128 $ s "eg*2"
  107. # gain "0.8"
  108. # cut "4"
  109. d1 $ stack [
  110. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
  111. s "[k ~ k*2 ~]/4",
  112. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $
  113. (1 ~>) $ s "sn/2"
  114. ]
  115. d5 $
  116. chop 128 $ s "[gt [~ gt] ! ~]/2"
  117. # gain "0.7"
  118. # cut "4"
  119. d5 $
  120. density 0.98 $
  121. chop 128 $ s "[gt [~ gt] ! ~]/2"
  122. # gain "0.7"
  123. # cut "4"
  124. d5 $
  125. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  126. density 0.98 $
  127. chop 128 $ s "[gt [~ gt] ! ~]/2"
  128. # gain "0.7"
  129. # cut "4"
  130. d4 $
  131. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  132. density 0.245 $
  133. slowspread density [1, 2, 0.5, 2] $
  134. gap 128 $ s "eg*2"
  135. # gain "0.7"
  136. # cut "4"
  137. d1 $ stack [
  138. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  139. every' 12 2 (density 3) $
  140. s "k",
  141. (1 ~>) $ s "sn/2"
  142. ]
  143. mapM_ ($ silence) [d4,d5]
  144. -- fast!
  145. d1 $ stack [
  146. every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
  147. (0.5 ~>) $ s "sn"
  148. ]
  149. hush