haddeo.tidal 7.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355
  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'fx1 $
  69. (2 ~>) $ chop 16 $
  70. s "dorr/4"
  71. # hresonance "0.05"
  72. # hcutoff "200"
  73. # gain "0.8"
  74. d'nim $ superimpose (iter 4 . nim'osc) $
  75. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  76. d'drum $ stack [
  77. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  78. whenmod 3 2 (density 2) $
  79. withmod 11 5 0.5 1 (density 2) $
  80. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  81. ]
  82. d'nim $ superimpose (iter 6 . nim'osc) $
  83. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  84. -- pt 2: offbeat
  85. d'drum $ mt 16 16 $ stack [
  86. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  87. whenmod 3 2 (density 2) $
  88. withmod 11 5 0.5 1 (density 2) $
  89. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  90. ]
  91. d'nim $ superimpose (iter 6 . nim'osc . (# nudge "0")) $
  92. mt 16 16 $
  93. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  94. d'fx1 $ mt 16 16 $
  95. (2 ~>) $ chop 16 $
  96. s "dorr/4"
  97. # hresonance "0.05"
  98. # hcutoff "200"
  99. # gain "0.8"
  100. msil [d'wax, d'fx2, d'fx3]
  101. d'nim $ mt 16 16 $
  102. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  103. d'nim $ mt 16 16 $
  104. whenmod 5 3 rev $
  105. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  106. d'nim $ mt 16 16 $
  107. every' 2 2 (within (0, 0.5) (const silence)) $
  108. whenmod 5 3 rev $
  109. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  110. d'fx2 $ mt 16 16 $ 1.75 ~> s "tubal/4"
  111. d'nim $ mt 16 16 $
  112. every 3 (density 2) $
  113. every' 2 2 (within (0, 0.5) (const silence)) $
  114. whenmod 5 3 rev $
  115. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  116. d'fx2 $ mt 16 16 $
  117. stack [
  118. 1.75 ~> s "tubal/4",
  119. chop 16 $
  120. 3.75 ~> s "duck/4"
  121. # gain "0.6"
  122. # speed "0.9"
  123. ]
  124. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  125. mt 16 16 $
  126. every 3 (density 2) $
  127. every' 2 2 (within (0, 0.5) (const silence)) $
  128. whenmod 5 3 rev $
  129. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  130. -- intermission
  131. msil [d'fx1, d'fx2]
  132. solo $ 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. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  139. every' 2 2 (within (0, 0.5) (const silence)) $
  140. whenmod 5 3 rev $
  141. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  142. let s = striate 16
  143. in d'bass $
  144. slow 8 $ stack [
  145. s $ sound "bass",
  146. s $ sound "sine"
  147. ]
  148. # gain "0.9"
  149. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  150. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  151. -- pt 3: funk
  152. d'drum $ n "0*4" # s "kit"
  153. # gain "0.9"
  154. d'drum $ n "0*4" # s "drum"
  155. # gain "0.9"
  156. d'drum $ swing' $ stack [
  157. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  158. whenmod 3 2 (density 2) $
  159. withmod 11 5 0.5 1 (density 2) $
  160. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  161. ]
  162. d'nim $ (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  163. d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
  164. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  165. d'nim $ every' 16 1 (# vowel "o u") $
  166. whenmod 16 12 (# vowel "[a i]/3") $
  167. (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. whenmod 3 2 (density 2) $
  171. withmod 11 5 0.5 1 (density 2) $
  172. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  173. n "[~ 1]/2" # s "sn"
  174. # gain "0.85"
  175. ]
  176. d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
  177. whenmod 16 12 (# vowel "[a i]/3") $
  178. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  179. d'drum $ swing' $ stack [
  180. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  181. whenmod 3 2 (density 2) $
  182. withmod 11 5 0.5 1 (density 2) $
  183. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  184. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  185. # gain "0.85"
  186. ]
  187. d'bass2 $ swing' $
  188. n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
  189. # speed (0.5 ~> "[2 1]")
  190. # gain "0.82"
  191. d'fx1 $
  192. (2 ~>) $ chop 16 $ s "dorr/4"
  193. # hresonance "0.05"
  194. # hcutoff "200"
  195. # gain "0.8"
  196. d'fx2 $
  197. stack [
  198. 1.75 ~> s "tubal/4",
  199. chop 16 $
  200. 3.75 ~> s "duck/4"
  201. # gain "0.6"
  202. # speed "0.9"
  203. ]
  204. d'fx1 $
  205. superimpose (slow 2) $
  206. (2 ~>) $ chop 16 $ s "dorr/4"
  207. # hresonance "0.05"
  208. # hcutoff "200"
  209. # gain "0.8"
  210. d'wax $ slow 16 . striate 256 $ s "icarus"
  211. d'fx3 $
  212. (1.5 ~>) $
  213. slow 4 $ chop 48 $
  214. sound (samples "snoo" <$> slow 7 $ run 7)
  215. # gain "0.8"
  216. # cut "10"
  217. d'nim $ superimpose (iter 4) $
  218. every' 16 1 ((# vowel "o u") . nim'del) $
  219. whenmod 16 12 (# vowel "[a i]/3") $
  220. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  221. d'drum $ swing' $ stack [
  222. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  223. whenmod 3 2 (density 2) $
  224. withmod 11 5 0.5 1 (density 2) $
  225. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  226. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  227. # gain "0.85"
  228. ]
  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.85"
  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'fx3 $ 3 ~> n "[0 1]/8" # s "duon"
  254. # gain "0.9"
  255. d'nim $ (0.25 ~>) $
  256. whenmod 4 2 (const silence) $
  257. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  258. # vowel "o"
  259. d'drum $ swing' $ stack [
  260. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  261. every' 16 16 (const $ sound "kit:3") $
  262. n "[~ 0]" # s "kit",
  263. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  264. # gain "0.8"
  265. ]
  266. msil [d'bass, d'bass2, d'hi, d'fx1, d'fx3]
  267. d'wax $ slow 16 . striate 256 $ s "icarus"
  268. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  269. d'drum $ swing' $ mt 16 16 $ stack [
  270. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  271. every' 16 16 (const $ sound "kit:3") $
  272. n "[~ 0]" # s "kit",
  273. n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
  274. # gain "0.8"
  275. ]
  276. d'nim $ mt 16 16 $
  277. (0.25 ~>) $
  278. whenmod 4 2 (const silence) $
  279. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  280. # vowel "o"
  281. hush