haddeo.tidal 7.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358
  1. {-
  2. haddeo (algorave remix)
  3. by anny http://anny.audio
  4. original artist: heskin radiophonic http://heskinradiophonic.co.uk
  5. -}
  6. let bpm b = cps (b/60)
  7. withmod a b c d = (whenmod a b . within (c, d))
  8. every' n o f = when ((== (o-1)) . (`mod` n)) f
  9. msil = mapM_ ($ silence)
  10. tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
  11. let swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
  12. swing' = swing 0.14 --0.05
  13. let d'drum = d1
  14. d'bass = d3
  15. d'bass2 = d2
  16. d'wax = d4
  17. d'nim = d5
  18. d'hi = d6
  19. d'fx1 = d8
  20. d'fx2 = d9
  21. d'fx3 = d10
  22. let nim'osc = (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
  23. nim'del = (# orbit "1") .
  24. (# delay "0.5") .
  25. (# delayfeedback "0.6") .
  26. (# delaytime "0.25")
  27. -- original bpm = 105
  28. let tmod' s e = tmod (s*(1/(105/60))) e
  29. mt s d i = slow s $ tmod' 0.5 3 $ density d $ i
  30. bpm 105
  31. hush
  32. -- pt 1: intro
  33. d'drum $ stack [
  34. n "1/4" # s "drum"
  35. ]
  36. d'wax $ slow 16 . striate 256 $ s "icarus"
  37. d'drum $ stack [
  38. n "1/4" # s "drum",
  39. n "[~ 0]" # s "kit"
  40. ]
  41. d'drum $ stack [
  42. n "[1*2, 0*8]/8" # s "drum",
  43. n "[~ 0]" # s "kit"
  44. ]
  45. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  46. -- drop 1
  47. d'nim $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  48. d'wax silence
  49. d'drum $ stack [
  50. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  51. n "~ 0" # s "kit"
  52. ]
  53. d'drum $ stack [
  54. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  55. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  56. ]
  57. d'wax $ slow 16 . striate 256 $ s "icarus"
  58. d'drum $ stack [
  59. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  60. withmod 11 5 0.5 1 (density 2) $
  61. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  62. ]
  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. d'nim $ superimpose (iter 4) $
  70. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  71. d'fx1 $
  72. (2 ~>) $ chop 16 $
  73. s "dorr/4"
  74. # hresonance "0.05"
  75. # hcutoff "200"
  76. # gain "0.8"
  77. d'nim $ superimpose (iter 4 . nim'osc) $
  78. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  79. d'drum $ stack [
  80. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  81. whenmod 3 2 (density 2) $
  82. withmod 11 5 0.5 1 (density 2) $
  83. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  84. ]
  85. d'nim $ superimpose (iter 6 . nim'osc) $
  86. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  87. -- pt 2: offbeat
  88. d'drum $ mt 16 16 $ stack [
  89. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  90. whenmod 3 2 (density 2) $
  91. withmod 11 5 0.5 1 (density 2) $
  92. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  93. ]
  94. d'nim $ superimpose (iter 6 . nim'osc . (# nudge "0")) $
  95. mt 16 16 $
  96. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  97. d'fx1 $ mt 16 16 $
  98. (2 ~>) $ chop 16 $
  99. s "dorr/4"
  100. # hresonance "0.05"
  101. # hcutoff "200"
  102. # gain "0.8"
  103. msil [d'wax, d'fx2, d'fx3]
  104. d'nim $ mt 16 16 $
  105. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  106. d'nim $ mt 16 16 $
  107. whenmod 5 3 rev $
  108. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  109. d'nim $ mt 16 16 $
  110. every' 2 2 (within (0, 0.5) (const silence)) $
  111. whenmod 5 3 rev $
  112. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  113. d'fx2 $ mt 16 16 $ 1.75 ~> s "tubal/4"
  114. d'nim $ mt 16 16 $
  115. every 3 (density 2) $
  116. every' 2 2 (within (0, 0.5) (const silence)) $
  117. whenmod 5 3 rev $
  118. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  119. d'fx2 $ mt 16 16 $
  120. stack [
  121. 1.75 ~> s "tubal/4",
  122. chop 16 $
  123. 3.75 ~> s "duck/4"
  124. # gain "0.6"
  125. # speed "0.9"
  126. ]
  127. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  128. mt 16 16 $
  129. every 3 (density 2) $
  130. every' 2 2 (within (0, 0.5) (const silence)) $
  131. whenmod 5 3 rev $
  132. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  133. -- intermission
  134. msil [d'fx1, d'fx2]
  135. solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  136. mt 16 16 $
  137. every 3 (density 2) $
  138. every' 2 2 (within (0, 0.5) (const silence)) $
  139. whenmod 5 3 rev $
  140. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  141. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  142. every' 2 2 (within (0, 0.5) (const silence)) $
  143. whenmod 5 3 rev $
  144. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  145. let s = striate 16
  146. in d'bass $
  147. slow 8 $ stack [
  148. s $ sound "bass",
  149. s $ sound "sine"
  150. ]
  151. # gain "0.9"
  152. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  153. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  154. -- pt 3: funk
  155. d'drum $ n "0*4" # s "kit"
  156. # gain "0.9"
  157. d'drum $ n "0*4" # s "drum"
  158. # gain "0.9"
  159. d'drum $ swing' $ stack [
  160. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  161. whenmod 3 2 (density 2) $
  162. withmod 11 5 0.5 1 (density 2) $
  163. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  164. ]
  165. d'nim $ (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  166. d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
  167. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  168. d'nim $ every' 16 1 (# vowel "o u") $
  169. whenmod 16 12 (# vowel "[a i]/3") $
  170. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  171. d'drum $ swing' $ stack [
  172. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  173. whenmod 3 2 (density 2) $
  174. withmod 11 5 0.5 1 (density 2) $
  175. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  176. n "[~ 1]/2" # s "sn"
  177. # gain "0.85"
  178. ]
  179. d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
  180. whenmod 16 12 (# vowel "[a i]/3") $
  181. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  182. d'drum $ swing' $ stack [
  183. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  184. whenmod 3 2 (density 2) $
  185. withmod 11 5 0.5 1 (density 2) $
  186. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  187. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  188. # gain "0.85"
  189. ]
  190. d'bass2 $ swing' $
  191. n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
  192. # speed (0.5 ~> "[2 1]")
  193. # gain "0.82"
  194. d'fx1 $
  195. (2 ~>) $ chop 16 $ s "dorr/4"
  196. # hresonance "0.05"
  197. # hcutoff "200"
  198. # gain "0.8"
  199. d'fx2 $
  200. stack [
  201. 1.75 ~> s "tubal/4",
  202. chop 16 $
  203. 3.75 ~> s "duck/4"
  204. # gain "0.6"
  205. # speed "0.9"
  206. ]
  207. d'fx1 $
  208. superimpose (slow 2) $
  209. (2 ~>) $ chop 16 $ s "dorr/4"
  210. # hresonance "0.05"
  211. # hcutoff "200"
  212. # gain "0.8"
  213. d'wax $ slow 16 . striate 256 $ s "icarus"
  214. d'fx3 $
  215. (1.5 ~>) $
  216. slow 4 $ chop 48 $
  217. sound (samples "snoo" <$> slow 7 $ run 7)
  218. # gain "0.8"
  219. # cut "10"
  220. d'nim $ superimpose (iter 4) $
  221. every' 16 1 ((# vowel "o u") . nim'del) $
  222. whenmod 16 12 (# vowel "[a i]/3") $
  223. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  224. d'drum $ swing' $ stack [
  225. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  226. whenmod 3 2 (density 2) $
  227. withmod 11 5 0.5 1 (density 2) $
  228. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  229. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  230. # gain "0.85"
  231. ]
  232. d'nim $ superimpose (iter 4 . nim'osc) $
  233. every' 16 1 ((# vowel "o u") . nim'del) $
  234. whenmod 16 12 (# vowel "[a i]/3") $
  235. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  236. d'drum $ swing' $ stack [
  237. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  238. n "[~ 0]" # s "kit",
  239. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  240. # gain "0.85"
  241. ]
  242. -- outro
  243. msil [d'nim, d'wax, d'fx2, d'fx3]
  244. d'hi $
  245. swing' $
  246. every 3 rev $
  247. whenmod 12 8 (0.5 <~) $
  248. (0.5 ~>) $
  249. slow 8 $
  250. gap 64 $
  251. n "[0 1]/2" # s "nimble"
  252. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  253. d'nim $ (0.25 ~>) $
  254. whenmod 4 2 (const silence) $
  255. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  256. d'fx3 $ 3 ~> n "[0 1]/8" # s "duon"
  257. # gain "0.9"
  258. d'nim $ (0.25 ~>) $
  259. whenmod 4 2 (const silence) $
  260. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  261. # vowel "o"
  262. d'drum $ swing' $ stack [
  263. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  264. every' 16 16 (const $ sound "kit:3") $
  265. n "[~ 0]" # s "kit",
  266. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  267. # gain "0.8"
  268. ]
  269. msil [d'bass, d'bass2, d'hi, d'fx1, d'fx3]
  270. d'wax $ slow 16 . striate 256 $ s "icarus"
  271. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  272. d'drum $ swing' $ mt 16 16 $ stack [
  273. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  274. every' 16 16 (const $ sound "kit:3") $
  275. n "[~ 0]" # s "kit",
  276. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  277. # gain "0.8"
  278. ]
  279. d'nim $ mt 16 16 $
  280. (0.25 ~>) $
  281. whenmod 4 2 (const silence) $
  282. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  283. # vowel "o"
  284. hush