haddeo.tidal 5.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279
  1. {-
  2. Anny: Haddeo (Algorave Remix)
  3. anny.audio
  4. Current version: 1.0.2
  5. Compatibility: Tidal Cycles 1.0-dev + SuperDirt 1.0-dev + SuperCollider 3.8
  6. License: CC-BY-SA https://creativecommons.org/licenses/by-sa/4.0/
  7. See README.md for more information
  8. -}
  9. let bpm b = cps (b/60)
  10. withmod a b c d = (whenmod a b . within (c, d))
  11. every' n o f = when ((== (o-1)) . (`mod` n)) f
  12. msil = mapM_ ($ silence)
  13. tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
  14. swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
  15. d'drum = d1
  16. d'bass = d3
  17. d'bass2 = d2
  18. d'wax = d4
  19. d'nim = d5
  20. d'hi = d6
  21. d'fx1 = d8
  22. d'fx2 = d9
  23. d'fx3 = d10
  24. -- given bpm = 105
  25. tmod' s e = tmod (s*(1/(105/60))) e
  26. mt i = slow 16 $ tmod' 0.5 3 $ density 16 $ i
  27. bpm 105
  28. hush
  29. -- pt 1: intro
  30. -- @hdrum0
  31. d'drum $ stack [
  32. n "1/4" # s "drum" -- (2) remove
  33. -- n "[1*2, 0*8]/8" # s "drum", -- (2)
  34. -- n "[~ 0]" # s "kit" -- (1)
  35. ]
  36. -- @hic1
  37. d'wax $ slow 16 . striate 256 $ s "icarus"
  38. -- ~hdrum0 @ 1
  39. -- ~hdrum0 @ 2
  40. -- @hic2
  41. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  42. -- drop 1
  43. -- @hnim1
  44. d'nim $
  45. {- -- (1)
  46. superimpose (iter 4 -- (3) iter 6
  47. -- .(# speed (scale 0.8 (0.8+(2/3)) $ slow 2.5 sine1)) -- (2)
  48. ) $ -- -}
  49. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  50. d'wax silence
  51. -- @hdrum1
  52. d'drum $ stack [
  53. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  54. -- whenmod 3 2 (density 2) $ -- (3)
  55. -- withmod 11 5 0.5 1 (density 2) $ -- (2)
  56. n "~ 0" # s "kit"
  57. -- n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit" -- (1)
  58. ]
  59. -- ~hdrum1 @ 1
  60. -- ~hic1
  61. -- ~drum1 @ 2
  62. -- @hsnoo
  63. d'fx3 $
  64. (1.5 ~>) $
  65. slow 4 $ chop 48 $
  66. sound (samples "snoo" <$> slow 7 $ run 7)
  67. # gain 0.8
  68. # cut 10
  69. -- ~hnim1 @ 1
  70. -- @hdorr1
  71. d'fx1 $ -- mt $ -- (1)
  72. (2 ~>) $ chop 16 $
  73. s "dorr/4"
  74. # hresonance 0.05
  75. # hcutoff 200
  76. # gain 0.8
  77. -- ~hnim1 @ 2
  78. -- ~hdrum1 @ 3
  79. -- ~ hnim1 @ 3
  80. -- pt 2 transition
  81. -- @hdrum2
  82. d'drum $ mt $ stack [
  83. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  84. whenmod 3 2 (density 2) $
  85. withmod 11 5 0.5 1 (density 2) $
  86. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  87. ]
  88. d'nim $ superimpose (iter 6 .
  89. (# speed (scale 0.8 (0.8+(2/3)) $ slow 2.5 sine1)) .
  90. (# nudge 0)) $
  91. mt $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  92. -- ~hdorr1 @ 1 (mt)
  93. -- pt 2: offbeat
  94. msil [d'wax, d'fx2, d'fx3]
  95. -- @hnim2
  96. d'nim $
  97. {- -- (4)
  98. superimpose (iter 4 .
  99. (# speed (scale 0.8 (0.8+(2/3)) $ slow 2.5 sine1)) .
  100. (# nudge 0)) $ -- -}
  101. mt $
  102. -- every 3 (density 2) $ -- (3)
  103. -- every' 2 2 (within (0, 0.5) (const silence)) $ -- (2)
  104. -- whenmod 5 3 rev $ -- (1)
  105. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  106. -- ~hnim2 @ 1
  107. -- ~hnim2 @ 2
  108. d'fx2 $ mt $ 1.75 ~> s "tubal/4"
  109. -- ~hnim2 @ 3
  110. -- @hduck
  111. d'fx2 $ mt $
  112. stack [
  113. 1.75 ~> s "tubal/4",
  114. (3.75 ~>) $ chop 16 $ s "duck/4"
  115. # gain 0.6
  116. # speed 0.9
  117. ]
  118. -- ~hnim2 @ 4
  119. -- intermission
  120. msil [d'fx1, d'fx2]
  121. -- solo ~hnim2f
  122. -- solo ~hnim2f w/o mt
  123. -- @hbass
  124. let s = striate 16
  125. in d'bass $
  126. slow 8 $ stack [
  127. s $ sound "bass",
  128. s $ sound "sine"
  129. ]
  130. # gain 0.9
  131. -- ~hnim2f @ 0 keeping superimpose
  132. -- pt 3: funk
  133. d'drum $ n "0*4" # s "kit" # gain 0.9 -- (1) s "drum"
  134. -- @hdrum3
  135. d'drum $ swing 0.14 $ stack [
  136. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  137. whenmod 3 2 (density 2) $
  138. withmod 11 5 0.5 1 (density 2) $
  139. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  140. -- n "[~ 1]/2" # s "sn" # gain 0.85 -- (1)
  141. -- n "[~ [1 0/8 1/2 0/2]]/2" # s "sn" # gain 0.85 -- (2)
  142. ]
  143. -- @hnim3
  144. d'nim $
  145. {- -- (4)
  146. superimpose (iter 4
  147. .(# speed (scale 0.8 (0.8+(2/3)) $ slow 2.5 sine1)) -- (5)
  148. ) $ -- -}
  149. {- -- (2)
  150. every' 16 1 ((# vowel "o u")
  151. {- -- (3)
  152. .(# orbit 1) -- opt. remove to delay all the things
  153. .(# delay 0.5).(# delayfeedback 0.6).(# delaytime 0.25)
  154. -- -}
  155. ) $ -- -}
  156. -- whenmod 16 12 (# vowel "[a i]/3") $ -- (1)
  157. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  158. -- ~hnim3 @ 1
  159. -- ~hnim3 @ 2
  160. -- ~hdrum3 @ 1
  161. -- ~hdrum3 @ 2
  162. -- @hbass2
  163. d'bass2 $ swing 0.14 $
  164. n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
  165. # speed (0.5 ~> "[2 1]")
  166. # gain 0.82
  167. -- @hdorr2
  168. d'fx1 $
  169. -- superimpose (slow 2) $ -- (1)
  170. (2 ~>) $ chop 16 $ s "dorr/4"
  171. # hresonance 0.05
  172. # hcutoff 200
  173. # gain 0.8
  174. -- ~hduck w/o mt
  175. -- ~hdorr2 @ 1
  176. -- ~hic1
  177. -- ~hsnoo
  178. -- ~hnim3 @ 4
  179. -- @hdrum4
  180. d'drum $ swing 0.14 $ -- mt $ -- (3)
  181. stack [
  182. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  183. -- every' 16 16 (const $ sound "kit:3") $ -- (2)
  184. -- n "[~ 0]" # s "kit", -- (1)
  185. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit", -- (1) remove
  186. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  187. # gain 0.85
  188. ]
  189. -- ~hnim3 @ 5
  190. -- ~hdrum4 @ 1
  191. -- outro
  192. msil [d'nim, d'wax, d'fx2, d'fx3]
  193. -- @hhi
  194. d'hi $
  195. swing 0.14 $
  196. every 3 rev $
  197. whenmod 12 8 (0.5 <~) $
  198. (0.5 ~>) $
  199. slow 8 $
  200. gap 64 $
  201. n "[0 1]/2" # s "nimble"
  202. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  203. -- @hnim4
  204. d'nim $ -- mt $ -- (2)
  205. (0.25 ~>) $
  206. whenmod 4 2 (const silence) $
  207. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  208. -- # vowel "o" -- (1)
  209. -- @hduon
  210. d'fx3 $ 3 ~> n "[0 1]/8" # s "duon"
  211. # gain 0.9
  212. -- ~hnim4 @ 1
  213. -- ~hdrum4 @ 2
  214. msil [d'bass, d'bass2, d'hi, d'fx1, d'fx3]
  215. -- ~hic1
  216. -- ~hic2
  217. -- ~hdrum4 @ 3 w/ mt
  218. -- ~hnim4 @ 2 w/ mt
  219. hush