2
0

haddeo.tidal 5.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258
  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 $ slow 20 $ n "1" # s "icarus"
  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. -- develop here
  62. d'nim $ mt 16 16 $
  63. every' 2 2 (within (0, 0.5) (const silence)) $
  64. whenmod 5 3 rev $
  65. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  66. -- pt 3
  67. solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  68. mt 16 16 $
  69. every' 2 2 (within (0, 0.5) (const silence)) $
  70. whenmod 5 3 rev $
  71. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  72. let s = striate 16
  73. in d'bass $
  74. slow 8 $ stack [
  75. s $ sound "bass",
  76. s $ sound "sine"
  77. ]
  78. # gain "0.9"
  79. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  80. every' 2 2 (within (0, 0.5) (const silence)) $
  81. whenmod 5 3 rev $
  82. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  83. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  84. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  85. d'drum $ n "0*4" # s "drum"
  86. d'drum $ swing' $ stack [
  87. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  88. whenmod 3 2 (density 2) $
  89. withmod 11 5 0.5 1 (density 2) $
  90. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  91. ]
  92. d'drum $ swing' $ stack [
  93. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  94. every' 16 16 (const $ n "3" # s "kit") $
  95. whenmod 3 2 (density 2) $
  96. withmod 11 5 0.5 1 (density 2) $
  97. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  98. ]
  99. d'nim $ (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  100. d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
  101. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  102. d'drum $ swing' $ stack [
  103. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  104. every' 16 16 (const $ n "3" # s "kit") $
  105. whenmod 3 2 (density 2) $
  106. withmod 11 5 0.5 1 (density 2) $
  107. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  108. n "[~ 1]/2" # s "sn"
  109. # gain "0.8"
  110. ]
  111. d'nim $ every' 16 1 (# vowel "o u") $
  112. whenmod 16 12 (# vowel "[a i]/3") $
  113. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  114. d'drum $ swing' $ stack [
  115. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  116. every' 16 16 (const $ n "3" # s "kit") $
  117. whenmod 3 2 (density 2) $
  118. withmod 11 5 0.5 1 (density 2) $
  119. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  120. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  121. # gain "0.8"
  122. ]
  123. d'bass silence
  124. let s = gap 32
  125. in d'bass $ swing' $
  126. (0.25 ~>) $ slow 8 $ stack [
  127. s $ sound "bass",
  128. s $ sound "sine"
  129. ]
  130. # gain "0.9"
  131. let s = gap 32
  132. in d'bass $ swing' $
  133. slowspread (slow) [4%3, 1] $
  134. (0.25 ~>) $ slow 8 $ stack [
  135. s $ sound "bass",
  136. s $ sound "sine"
  137. ]
  138. # gain "0.9"
  139. d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
  140. whenmod 16 12 (# vowel "[a i]/3") $
  141. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  142. -- experimental
  143. d9 $ swing' $
  144. -- iter 3 $
  145. -- superimpose (0.75 ~>) $
  146. chop 8 $
  147. n "[0*2 1 [[~ 0]!] 0]/4" # s "bass2"
  148. # speed "[2 1]"
  149. # gain "0.9"
  150. {-
  151. let s = gap 32
  152. in d'bass $ swing' $
  153. whenmod 3 2 (within (0, 0.5) (const silence)) $
  154. whenmod 10 8 (within (0.5, 1) (const silence)) $
  155. slowspread (slow) [4%3, 1] $
  156. (0.25 ~>) $
  157. slow 8 $ stack [
  158. s $ sound "bass",
  159. s $ sound "sine"
  160. ]
  161. # gain "0.9"
  162. -}
  163. d'nim $ superimpose (iter 4 . nim'osc) $
  164. every' 16 1 ((# vowel "o u") . nim'del) $
  165. whenmod 16 12 (# vowel "[a i]/3") $
  166. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  167. d'wax $ slow 16 . striate 256 $ s "icarus"
  168. d'drum $ swing' $ stack [
  169. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  170. n "[~ 0]" # s "kit",
  171. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  172. # gain "0.8"
  173. ]
  174. msil [d'nim, d'bass, d'wax]
  175. d'hi $
  176. swing' $
  177. every 3 rev $
  178. whenmod 12 8 (0.5 <~) $
  179. (0.5 ~>) $
  180. slow 8 $
  181. gap 64 $
  182. n "[0 1]/2" # s "nimble"
  183. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  184. # gain "0.9"
  185. d'nim $ (0.25 ~>) $
  186. whenmod 4 2 (const silence) $
  187. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  188. let s = striate 16
  189. in d'bass $
  190. slow 8 $ stack [
  191. s $ sound "bass",
  192. s $ sound "sine"
  193. ]
  194. # gain "0.9"
  195. d'hi $
  196. swing' $
  197. every 3 rev $
  198. within (0.5, 1) (density 2) $
  199. whenmod 12 8 (0.5 <~) $
  200. (0.5 ~>) $
  201. slow 8 $
  202. gap 64 $
  203. n "[0 1]/2" # s "nimble"
  204. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  205. # gain "0.9"
  206. msil [d'bass, d'hi, d9]
  207. hush