haddeo.tidal 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237
  1. {- just composition notes here, setup in scratch.tidal -}
  2. -- pt 1: intro
  3. d'drum $ stack [
  4. n "1/4" # s "drum"
  5. ]
  6. d'wax $ slow 16 . striate 256 $ s "icarus"
  7. d'drum $ stack [
  8. n "1/4" # s "drum",
  9. n "[~ 0]" # s "kit"
  10. ]
  11. d'drum $ stack [
  12. n "[1*2, 0*8]/8" # s "drum",
  13. n "[~ 0]" # s "kit"
  14. ]
  15. d'wax $ retrig $ n "1" # s "[icarus]/20"
  16. -- drop 1
  17. d'nim $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  18. d'wax silence
  19. d'drum $ stack [
  20. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  21. n "~ 0" # s "kit"
  22. ]
  23. d'drum $ stack [
  24. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  25. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  26. ]
  27. d'wax $ slow 16 . striate 256 $ s "icarus"
  28. d'drum $ stack [
  29. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  30. withmod 11 5 0.5 1 (density 2) $
  31. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  32. ]
  33. d'nim $ superimpose (iter 4) $
  34. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  35. d'nim $ superimpose (iter 4 . nim'osc) $
  36. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  37. d'drum $ stack [
  38. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  39. whenmod 3 2 (density 2) $
  40. withmod 11 5 0.5 1 (density 2) $
  41. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  42. ]
  43. d'nim $ superimpose (iter 6 . nim'osc) $
  44. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  45. -- pt 2
  46. d'drum $ mt 16 16 $ stack [
  47. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  48. whenmod 3 2 (density 2) $
  49. withmod 11 5 0.5 1 (density 2) $
  50. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  51. ]
  52. d'nim $ superimpose (iter 6 . nim'osc . (# nudge "0")) $
  53. mt 16 16 $
  54. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  55. d'wax silence
  56. d'nim $ mt 16 16 $
  57. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  58. d'nim $ mt 16 16 $
  59. whenmod 5 3 rev $
  60. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  61. d'nim $ mt 16 16 $
  62. every' 2 2 (within (0, 0.5) (const silence)) $
  63. whenmod 5 3 rev $
  64. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  65. -- pt 3
  66. solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  67. mt 16 16 $
  68. every' 2 2 (within (0, 0.5) (const silence)) $
  69. whenmod 5 3 rev $
  70. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  71. d'wax $ slow 16 . striate 256 $ s "icarus"
  72. let s = striate 16
  73. in d'bass $
  74. slow 8 $ stack [
  75. s $ sound "bass",
  76. s $ sound "sine"
  77. ]
  78. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  79. every' 2 2 (within (0, 0.5) (const silence)) $
  80. whenmod 5 3 rev $
  81. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  82. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  83. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  84. d'drum $ --swing' $
  85. n "0*4" # s "drum"
  86. d'drum $ swing' $ stack [
  87. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  88. every' 16 16 (const $ s "kit:3") $
  89. whenmod 3 2 (density 2) $
  90. withmod 11 5 0.5 1 (density 2) $
  91. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  92. ]
  93. d'nim $ (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  94. d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
  95. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  96. d'drum $ swing' $ stack [
  97. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  98. every' 16 16 (const $ s "kit:3") $
  99. whenmod 3 2 (density 2) $
  100. withmod 11 5 0.5 1 (density 2) $
  101. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  102. n "[~ 1]/2" # s "sn"
  103. # gain "0.8"
  104. ]
  105. d'nim $ every' 16 1 (# vowel "o u") $
  106. whenmod 16 12 (# vowel "[a i]/3") $
  107. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  108. d'bass silence
  109. let s = gap 32
  110. in d'bass $ swing' $
  111. (0.25 ~>) $ slow 8 $ stack [
  112. s $ sound "bass",
  113. s $ sound "sine"
  114. ]
  115. let s = gap 32
  116. in d'bass $ swing' $
  117. slowspread (slow) [4%3, 1] $
  118. (0.25 ~>) $ slow 8 $ stack [
  119. s $ sound "bass",
  120. s $ sound "sine"
  121. ]
  122. d'drum $ swing' $ stack [
  123. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  124. every' 16 16 (const $ s "kit:3") $
  125. whenmod 3 2 (density 2) $
  126. withmod 11 5 0.5 1 (density 2) $
  127. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  128. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  129. # gain "0.8"
  130. ]
  131. d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
  132. whenmod 16 12 (# vowel "[a i]/3") $
  133. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  134. let s = gap 32
  135. in d'bass $ swing' $
  136. whenmod 3 2 (within (0, 0.5) (const silence)) $
  137. whenmod 10 8 (within (0.5, 1) (const silence)) $
  138. slowspread (slow) [4%3, 1] $
  139. (0.25 ~>) $
  140. slow 8 $ stack [
  141. s $ sound "bass",
  142. s $ sound "sine"
  143. ]
  144. d'nim $ superimpose (iter 4 . nim'osc) $
  145. every' 16 1 ((# vowel "o u") . nim'del) $
  146. whenmod 16 12 (# vowel "[a i]/3") $
  147. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  148. {-
  149. d'drum $ swing' $
  150. stack [
  151. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  152. every' 16 16 (const $ s "kit:3") $
  153. whenmod 3 2 (density 2) $
  154. withmod 11 5 0.5 1 (density 2) $
  155. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  156. every' 4 3 (density 2) $
  157. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  158. # gain "0.8"
  159. ]
  160. -}
  161. d'drum $ swing' $ stack [
  162. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  163. every' 16 16 (const $ s "kit:3") $
  164. whenmod 3 2 (density 2) $
  165. withmod 11 5 0.5 1 (density 2) $
  166. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  167. 0.5 <~ n "[~ [1/2 0/8 1 0/2]]/2" # s "sn"
  168. # gain "0.8"
  169. ]
  170. d'hi $
  171. swing' $
  172. every 3 rev $
  173. whenmod 12 8 (0.5 <~) $
  174. (0.5 ~>) $
  175. slow 8 $
  176. gap 64 $
  177. n "[0 1]/2" # s "nimble"
  178. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  179. msil [d'wax, d'nim, d'bass]
  180. d'hi $
  181. swing' $
  182. every 3 rev $
  183. within (0.5, 1) (density 2) $
  184. whenmod 12 8 (0.5 <~) $
  185. (0.5 ~>) $
  186. slow 8 $
  187. gap 64 $
  188. n "[0 1]/2" # s "nimble"
  189. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  190. # gain "0.9"
  191. hush