haddeo.tidal 8.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360
  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 = (# delay "0.5") . (# delayfeedback "0.6") . (# delaytime "0.25")
  24. -- original bpm = 105
  25. let tmod' s e = tmod (s*(1/(105/60))) e
  26. mt s d i = slow s $ tmod' 0.5 3 $ density d $ i
  27. bpm 105
  28. hush
  29. -- pt 1: intro
  30. d'drum $ stack [
  31. n "1/4" # s "drum"
  32. ]
  33. d'wax $ slow 16 . striate 256 $ s "icarus"
  34. d'drum $ stack [
  35. n "1/4" # s "drum",
  36. n "[~ 0]" # s "kit"
  37. ]
  38. d'drum $ stack [
  39. n "[1*2, 0*8]/8" # s "drum",
  40. n "[~ 0]" # s "kit"
  41. ]
  42. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  43. -- drop 1
  44. d'nim $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  45. d'wax silence
  46. d'drum $ stack [
  47. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  48. n "~ 0" # s "kit"
  49. ]
  50. d'drum $ stack [
  51. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  52. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  53. ]
  54. d'wax $ slow 16 . striate 256 $ s "icarus"
  55. d'drum $ stack [
  56. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  57. withmod 11 5 0.5 1 (density 2) $
  58. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  59. ]
  60. d'fx3 $
  61. (1.5 ~>) $
  62. slow 4 $ chop 48 $
  63. sound (samples "snoo" <$> slow 7 $ run 7)
  64. # gain "0.8"
  65. # cut "10"
  66. d'nim $ superimpose (iter 4) $
  67. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  68. d'nim $ superimpose (iter 4 . nim'osc) $
  69. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  70. -- not sure this quite works so early in the tune. works better after offbeat breakdown
  71. d'fx1 $
  72. (2 ~>) $ chop 16 $
  73. s "dorr/4"
  74. # hresonance "0.05"
  75. # hcutoff "200"
  76. # gain "0.8"
  77. d'drum $ stack [
  78. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  79. whenmod 3 2 (density 2) $
  80. withmod 11 5 0.5 1 (density 2) $
  81. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  82. ]
  83. d'nim $ superimpose (iter 6 . nim'osc) $
  84. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  85. -- pt 2: offbeat
  86. d'drum $ mt 16 16 $ 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'nim $ superimpose (iter 6 . nim'osc . (# nudge "0")) $
  93. mt 16 16 $
  94. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  95. d'fx1 $ mt 16 16 $
  96. (2 ~>) $ chop 16 $
  97. s "dorr/4"
  98. # hresonance "0.05"
  99. # hcutoff "200"
  100. # gain "0.8"
  101. msil [d'wax, d'fx3]
  102. d'nim $ mt 16 16 $
  103. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  104. d'nim $ mt 16 16 $
  105. whenmod 5 3 rev $
  106. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  107. d'nim $ mt 16 16 $
  108. every' 2 2 (within (0, 0.5) (const silence)) $
  109. whenmod 5 3 rev $
  110. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  111. d'fx2 $ mt 16 16 $
  112. stack [
  113. 1.75 ~> n "0/4" # s "blaster"
  114. # gain "0.7"
  115. ]
  116. d'nim $ mt 16 16 $
  117. every 3 (density 2) $
  118. every' 2 2 (within (0, 0.5) (const silence)) $
  119. whenmod 5 3 rev $
  120. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  121. d'fx2 $ mt 16 16 $
  122. stack [
  123. 1.75 ~> s "blaster/4"
  124. # gain "0.7",
  125. chop 16 $
  126. 3.75 ~> s "duck/4"
  127. # gain "0.6"
  128. # speed "0.9"
  129. ]
  130. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  131. mt 16 16 $
  132. every 3 (density 2) $
  133. every' 2 2 (within (0, 0.5) (const silence)) $
  134. whenmod 5 3 rev $
  135. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  136. -- intermission
  137. msil [d'fx1, d'fx2]
  138. solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  139. mt 16 16 $
  140. every 3 (density 2) $
  141. every' 2 2 (within (0, 0.5) (const silence)) $
  142. whenmod 5 3 rev $
  143. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  144. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  145. every' 2 2 (within (0, 0.5) (const silence)) $
  146. whenmod 5 3 rev $
  147. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  148. let s = striate 16
  149. in d'bass $
  150. slow 8 $ stack [
  151. s $ sound "bass",
  152. s $ sound "sine"
  153. ]
  154. # gain "0.9"
  155. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  156. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  157. -- pt 3: funk
  158. d'drum $ n "0*4" # s "drum"
  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'drum $ swing' $ stack [
  167. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  168. every' 16 16 (const $ sound "kit:3") $
  169. whenmod 3 2 (density 2) $
  170. withmod 11 5 0.5 1 (density 2) $
  171. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  172. ]
  173. d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
  174. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  175. d'drum $ swing' $ stack [
  176. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  177. every' 16 16 (const $ sound "kit:3") $
  178. whenmod 3 2 (density 2) $
  179. withmod 11 5 0.5 1 (density 2) $
  180. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  181. n "[~ 1]/2" # s "sn"
  182. # gain "0.8"
  183. ]
  184. d'nim $ every' 16 1 (# vowel "o u") $
  185. whenmod 16 12 (# vowel "[a i]/3") $
  186. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  187. d'drum $ swing' $ stack [
  188. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  189. every' 16 16 (const $ sound "kit:3") $
  190. whenmod 3 2 (density 2) $
  191. withmod 11 5 0.5 1 (density 2) $
  192. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  193. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  194. # gain "0.8"
  195. ]
  196. d'bass2 $ swing' $
  197. n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
  198. # speed (0.5 ~> "[2 1]")
  199. # gain "0.82"
  200. d'fx2 $
  201. stack [
  202. 1.75 ~> s "blaster/4"
  203. # gain "0.7",
  204. chop 16 $
  205. 3.75 ~> s "duck/4"
  206. # gain "0.6"
  207. # speed "0.9"
  208. ]
  209. d'fx1 $
  210. superimpose (slow 2) $
  211. (2 ~>) $ chop 16 $ s "dorr/4"
  212. # hresonance "0.05"
  213. # hcutoff "200"
  214. # gain "0.8"
  215. d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
  216. whenmod 16 12 (# vowel "[a i]/3") $
  217. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  218. d'wax $ slow 16 . striate 256 $ s "icarus"
  219. d'fx3 $
  220. (1.5 ~>) $
  221. slow 4 $ chop 48 $
  222. sound (samples "snoo" <$> slow 7 $ run 7)
  223. # gain "0.8"
  224. # cut "10"
  225. d'nim $ superimpose (iter 4) $
  226. every' 16 1 ((# vowel "o u") . nim'del) $
  227. whenmod 16 12 (# vowel "[a i]/3") $
  228. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  229. d'nim $ superimpose (iter 4 . nim'osc) $
  230. every' 16 1 ((# vowel "o u") . nim'del) $
  231. whenmod 16 12 (# vowel "[a i]/3") $
  232. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  233. d'drum $ swing' $ stack [
  234. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  235. n "[~ 0]" # s "kit",
  236. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  237. # gain "0.8"
  238. ]
  239. -- outro
  240. msil [d'nim, d'wax, d'fx2, d'fx3]
  241. d'hi $
  242. swing' $
  243. every 3 rev $
  244. whenmod 12 8 (0.5 <~) $
  245. (0.5 ~>) $
  246. slow 8 $
  247. gap 64 $
  248. n "[0 1]/2" # s "nimble"
  249. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  250. d'nim $ (0.25 ~>) $
  251. whenmod 4 2 (const silence) $
  252. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  253. d'drum $ swing' $ stack [
  254. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  255. every' 16 16 (const $ sound "kit:3") $
  256. n "[~ 0]" # s "kit",
  257. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  258. # gain "0.8"
  259. ]
  260. d'fx2 $
  261. stack [
  262. 1.75 ~> s "blaster/4"
  263. # gain "0.7",
  264. chop 16 $
  265. 3.75 ~> s "duck/4"
  266. # gain "0.6"
  267. # speed "0.9"
  268. ]
  269. d'nim $ (0.25 ~>) $
  270. whenmod 4 2 (const silence) $
  271. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  272. # vowel "o"
  273. msil [d'bass, d'hi, d'bass2, d'fx1, d'fx2]
  274. d'wax $ slow 16 . striate 256 $ s "icarus"
  275. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  276. d'drum $ swing' $ mt 16 16 $ stack [
  277. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  278. every' 16 16 (const $ sound "kit:3") $
  279. n "[~ 0]" # s "kit",
  280. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  281. # gain "0.8"
  282. ]
  283. d'nim $ mt 16 16 $
  284. (0.25 ~>) $
  285. whenmod 4 2 (const silence) $
  286. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  287. # vowel "o"
  288. hush