haddeo.tidal 8.0 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 = (# 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'fx2 $ 3 ~> n "[0 1]/8" # s "duon"
  69. # gain "0.9"
  70. d'nim $ superimpose (iter 4 . nim'osc) $
  71. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  72. -- not sure this quite works so early in the tune. works better after offbeat breakdown
  73. d'fx1 $
  74. (2 ~>) $ chop 16 $
  75. s "dorr/4"
  76. # hresonance "0.05"
  77. # hcutoff "200"
  78. # gain "0.8"
  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 $
  114. stack [
  115. 1.75 ~> n "0/4" # s "blaster"
  116. # gain "0.7"
  117. ]
  118. d'nim $ mt 16 16 $
  119. every 3 (density 2) $
  120. every' 2 2 (within (0, 0.5) (const silence)) $
  121. whenmod 5 3 rev $
  122. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  123. d'fx2 $ mt 16 16 $
  124. stack [
  125. 1.75 ~> s "blaster/4"
  126. # gain "0.7",
  127. chop 16 $
  128. 3.75 ~> s "duck/4"
  129. # gain "0.6"
  130. # speed "0.9"
  131. ]
  132. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  133. mt 16 16 $
  134. every 3 (density 2) $
  135. every' 2 2 (within (0, 0.5) (const silence)) $
  136. whenmod 5 3 rev $
  137. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  138. -- intermission
  139. msil [d'fx1, d'fx2]
  140. solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  141. mt 16 16 $
  142. every 3 (density 2) $
  143. every' 2 2 (within (0, 0.5) (const silence)) $
  144. whenmod 5 3 rev $
  145. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  146. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  147. every' 2 2 (within (0, 0.5) (const silence)) $
  148. whenmod 5 3 rev $
  149. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  150. let s = striate 16
  151. in d'bass $
  152. slow 8 $ stack [
  153. s $ sound "bass",
  154. s $ sound "sine"
  155. ]
  156. # gain "0.9"
  157. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  158. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  159. -- pt 3: funk
  160. d'drum $ n "0*4" # s "drum"
  161. d'drum $ swing' $ stack [
  162. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  163. whenmod 3 2 (density 2) $
  164. withmod 11 5 0.5 1 (density 2) $
  165. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  166. ]
  167. d'nim $ (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  168. d'drum $ swing' $ stack [
  169. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  170. every' 16 16 (const $ sound "kit:3") $
  171. whenmod 3 2 (density 2) $
  172. withmod 11 5 0.5 1 (density 2) $
  173. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  174. ]
  175. d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
  176. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  177. d'drum $ swing' $ stack [
  178. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  179. every' 16 16 (const $ sound "kit:3") $
  180. whenmod 3 2 (density 2) $
  181. withmod 11 5 0.5 1 (density 2) $
  182. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  183. n "[~ 1]/2" # s "sn"
  184. # gain "0.8"
  185. ]
  186. d'nim $ every' 16 1 (# vowel "o u") $
  187. whenmod 16 12 (# vowel "[a i]/3") $
  188. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  189. d'drum $ swing' $ stack [
  190. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  191. every' 16 16 (const $ sound "kit:3") $
  192. whenmod 3 2 (density 2) $
  193. withmod 11 5 0.5 1 (density 2) $
  194. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  195. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  196. # gain "0.8"
  197. ]
  198. d'bass2 $ swing' $
  199. n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
  200. # speed (0.5 ~> "[2 1]")
  201. # gain "0.82"
  202. d'fx2 $
  203. stack [
  204. 1.75 ~> s "blaster/4"
  205. # gain "0.7",
  206. chop 16 $
  207. 3.75 ~> s "duck/4"
  208. # gain "0.6"
  209. # speed "0.9"
  210. ]
  211. d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
  212. whenmod 16 12 (# vowel "[a i]/3") $
  213. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  214. d'fx1 $
  215. superimpose (slow 2) $
  216. (2 ~>) $ chop 16 $ s "dorr/4"
  217. # hresonance "0.05"
  218. # hcutoff "200"
  219. # gain "0.8"
  220. d'wax $ slow 16 . striate 256 $ s "icarus"
  221. d'fx3 $
  222. (1.5 ~>) $
  223. slow 4 $ chop 48 $
  224. sound (samples "snoo" <$> slow 7 $ run 7)
  225. # gain "0.8"
  226. # cut "10"
  227. d'nim $ superimpose (iter 4) $
  228. every' 16 1 ((# vowel "o u") . nim'del) $
  229. whenmod 16 12 (# vowel "[a i]/3") $
  230. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  231. d'nim $ superimpose (iter 4 . nim'osc) $
  232. every' 16 1 ((# vowel "o u") . nim'del) $
  233. whenmod 16 12 (# vowel "[a i]/3") $
  234. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  235. d'drum $ swing' $ stack [
  236. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  237. n "[~ 0]" # s "kit",
  238. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  239. # gain "0.8"
  240. ]
  241. -- outro
  242. msil [d'nim, d'wax, d'fx2, d'fx3]
  243. d'hi $
  244. swing' $
  245. every 3 rev $
  246. whenmod 12 8 (0.5 <~) $
  247. (0.5 ~>) $
  248. slow 8 $
  249. gap 64 $
  250. n "[0 1]/2" # s "nimble"
  251. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  252. d'nim $ (0.25 ~>) $
  253. whenmod 4 2 (const silence) $
  254. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  255. d'drum $ swing' $ stack [
  256. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  257. every' 16 16 (const $ sound "kit:3") $
  258. n "[~ 0]" # s "kit",
  259. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  260. # gain "0.8"
  261. ]
  262. d'fx2 $ 3 ~> n "[0 1]/8" # s "duon"
  263. # gain "0.9"
  264. d'nim $ (0.25 ~>) $
  265. whenmod 4 2 (const silence) $
  266. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  267. # vowel "o"
  268. msil [d'bass, d'hi, d'bass2, d'fx1]
  269. d'wax $ slow 16 . striate 256 $ s "icarus"
  270. d'fx2 silence
  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