2
0

mcr3.megalet.tidal 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298
  1. {-
  2. megalet for all trax
  3. setlist & performance notes underneath
  4. -}
  5. let d'drum = d1
  6. d'perc = d2
  7. d'bass = d3
  8. d'bass2 = d4
  9. d'eg = d4
  10. d'gnome = d4
  11. d'fly = d5
  12. d'gt = d5
  13. d'nim = d5
  14. d'bz = d6
  15. d'hi = d6
  16. d'udu = d6
  17. d'pc = d7
  18. d'shard = d7
  19. d'wax = d7
  20. d'fx1 = d8
  21. d'misc = d8
  22. d'pcl = d8
  23. d'ant = d9
  24. d'fx2 = d9
  25. d'wbass = d9
  26. d'cymb = d10
  27. d'fx3 = d10
  28. bpm b = cps (b/60)
  29. withmod a b c d = (whenmod a b . within (c, d))
  30. every' n o f = when ((== (o-1)) . (`mod` n)) f
  31. msil = mapM_ ($ silence)
  32. bass'params = (|=| gain "0.7").
  33. (|=| hcutoff "485").
  34. (|=| hresonance "0.001")
  35. bass2'3 = slow 8 $ chop 16 $ bass'params $ sound "[dubb dubb:1]/2"
  36. |=| cut "1"
  37. |=| speed "0.2"
  38. |=| vowel "e"
  39. drum5'4 = sound "[[~ [wt wtsn]] ~ wt ~]/5"
  40. plox'4 s = within (0.5, 0.75) (iter 4) $
  41. whenmod 3 2 (slow 2) $
  42. slow 8 $ every 2 rev $ striate 128 $ sound s
  43. |=| cutoff "441"
  44. |=| resonance "0.001"
  45. |=| speed "0.7"
  46. |=| gain "0.7"
  47. bass'4 = whenmod 5 3 (density (3%2) . brak) $
  48. bass'params $
  49. rev $ (0.5 ~>) $ slow 2 . chop 8 $ sound "[dubb dubb:1]/2"
  50. |=| speed "0.5"
  51. |=| cut "1"
  52. |=| end "0.5"
  53. bz'4 = (0.5 <~) $ slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
  54. |=| speed ((+1) <$> density 1.7 sinewave1)
  55. |=| gain "0.9"
  56. bzox'4 s = whenmod 7 4 (within (0.5, 1) (density 2)) $
  57. (0.5 <~) $
  58. slow 16 . chop 32 $ sound (samples s (density 1.5 "0 1"))
  59. |=| speed ((+1.6) <$> density 2.2 sinewave1)
  60. |=| pan ((+0.25).(/2) <$> density 4.1 sinewave1)
  61. bassbass = sound "[[vb vb:1] ~]/2"
  62. # end (slow 1.4 "0.2 0.4")
  63. # vowel "e o"
  64. bassbass' = bassbass # speed (slow 2.5 "1 -1")
  65. morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
  66. hhb m = smash 16 [0.25, 0.5] $
  67. (if m then (every 3 (append $ sound "jhh:1 jhh")) else id) $
  68. sound "jhh jhh:2"
  69. # gain "0.6"
  70. ududu = slow 4 . chop 128 $
  71. sound (samples "udu" (slow 4 $ irand 4))
  72. # gain "0.8"
  73. # cut "6"
  74. eg = gap 128 $ s "eg*2"
  75. # cut "4"
  76. gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
  77. chop 128 $
  78. s "[gt [~ gt] ! ~]/2"
  79. # cut "5"
  80. pcbeep = slow 16 $ gap 48 $ sound "pc:1"
  81. # gain "0.7"
  82. # cut "7"
  83. # speed "[1 0.7]"
  84. ju'drum2 = stack [
  85. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  86. every' 16 16 (overlay $ (0.82 ~>) $ s "jsn") $ (1 ~>) $ s "jsn/2"
  87. ]
  88. tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
  89. swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
  90. swing' = swing 0.14 --0.05
  91. nim'osc = (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
  92. nim'del = (# delay "0.5") . (# delayfeedback "0.6") . (# delaytime "0.25")
  93. tmod' s e = tmod (s*(1/(105/60))) e
  94. mt s d i = slow s $ tmod' 0.5 3 $ density d $ i
  95. {-
  96. setlist:
  97. 1. piston iv, 4-5 min
  98. 2. juliese, 7-8 min
  99. 3. haddeo (algorave remix), ~13 min
  100. -}
  101. -- go
  102. -- piston iv @ 138bpm
  103. bpm 138
  104. d'misc $ bass2'3
  105. d'perc $ smash 4 [0.5,0.25] $ iter 3 $
  106. drum5'4
  107. d'shard $ whenmod 7 3 (density (5%4)) $
  108. plox'4 "[ice plode]*2"
  109. d'drum $ sound "[k sn k*2 [~ sn] [~ k]]/5"
  110. d'drum $ sound "[[k k:1]*2 sn k*2 [~ sn] [~ k]]/5"
  111. d'bz $ bz'4
  112. d'bass $ (0.75 ~>) $ bass'4
  113. d'bz $ every 3 brak $ -- every 2 @ end
  114. bzox'4 "bz bzl" -- bz, bz*2, bz bzl
  115. d'drum $ sound "[k*2 sn [~ k] sn]/4"
  116. d'shard $ whenmod 7 3 (density (5%4)) $
  117. plox'4 "[ice wtsn]*2" -- prev. ice plode
  118. # vowel "u e"
  119. -- juliese @ 99bpm
  120. bpm 99
  121. msil [d'bass, d'perc, d'ql]
  122. d'bass $
  123. slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- much later
  124. whenmod 4 2 (density 3) $ -- 2
  125. whenmod 3 2 (slow 2) $ -- 1
  126. bassbass' -- née bassbass
  127. d'perc $
  128. -- iter 4 $ -- 4
  129. -- (# pan (density 16 "0.25 0.75")) $ -- 3
  130. -- whenmod 16 15 (density 3) $ -- 1
  131. hhb False --2 -> True
  132. d'drum $ -- overlay ((1 ~>) $ s "cy/8") $
  133. overlay ((0.5 ~>) $ s "jsn/2") $ morek $ s "k"
  134. d'drum $ overlay ((0.5 ~>) $ s "jsn/2") $
  135. morek $ every' 12 2 (density 3) $ s "k"
  136. d'udu $
  137. -- (every' 5 3 $ brak) $ -- 3
  138. -- (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ -- 1
  139. -- (whenmod 7 5 $ trunc (5%6)) $ -- 2
  140. ududu
  141. d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
  142. every' 4 4 (0.32 ~>) $
  143. chop 16 $
  144. -- sound "[wb wb:1 ~ ~]/4"
  145. -- sound "[wb [wb:1 wb:2] ~ ~]/4"
  146. -- sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4"
  147. sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4"
  148. # gain "0.9"
  149. # speed "[1 1 2]/3"
  150. msil [d'perc, d'bass]
  151. d'eg $
  152. (0.18 <~) $ every 2 (const silence) $ -- 4
  153. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ -- 2
  154. density 0.25 $ -- (3) then 0.245
  155. slowspread density [1, 2, 0.5, 2] $ -- 1
  156. eg
  157. # gain "0.8"
  158. -- it's ok to just copy-paste this one
  159. d'pc $
  160. -- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- 2
  161. -- slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ -- 1
  162. pcbeep
  163. d'gt $ -- density 0.98 $
  164. gt
  165. # gain "0.87"
  166. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  167. msil [d'eg, d'wbass]
  168. d'drum $ ju'drum2
  169. mapM_ ($ silence) [d'bass, d'udu, d'pc]
  170. mapM_ ($ silence) [d'gt]
  171. -- haddeo @ 105bpm
  172. bpm 105
  173. d'drum $ stack [
  174. n "1/4" # s "drum"
  175. --n "[1*2, 0*8]/8" # s "drum"
  176. ]
  177. -- #gain out d'perc, then
  178. d'perc silence
  179. d'drum $ swing' $ stack [
  180. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  181. -- n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum", -- @end
  182. every' 16 16 (const $ sound "kit:3") $
  183. whenmod 3 2 (density 2) $
  184. withmod 11 5 0.5 1 (density 2) $
  185. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  186. n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  187. # gain "0.85"
  188. ]
  189. d'wax $ slow 16 . striate 256 $ s "icarus"
  190. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  191. -- pt1+2 nim
  192. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $ -- iter 6 @ pt1 end
  193. mt 16 16 $
  194. every 3 (density 2) $
  195. every' 2 2 (within (0, 0.5) (const silence)) $
  196. whenmod 5 3 rev $
  197. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  198. --pt3 nim
  199. d'nim $ superimpose (iter 4 . nim'osc) $
  200. every' 16 1 ((# vowel "o u") . nim'del) $
  201. whenmod 16 12 (# vowel "[a i]/3") $
  202. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  203. --pt4 nim
  204. d'nim $ mt 16 16 $
  205. (0.25 ~>) $
  206. whenmod 4 2 (const silence) $
  207. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  208. # vowel "o"
  209. -- basses
  210. let s = striate 16
  211. in d'bass $
  212. slow 8 $ stack [
  213. s $ sound "bass",
  214. s $ sound "sine"
  215. ]
  216. # gain "0.9"
  217. d'bass2 $ swing' $
  218. n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
  219. # speed (0.5 ~> "[2 1]")
  220. # gain "0.82"
  221. -- fx
  222. d'fx1 $ -- mt 16 16 $
  223. superimpose (slow 2) $
  224. (2 ~>) $ chop 16 $ s "dorr/4"
  225. # hresonance "0.05"
  226. # hcutoff "200"
  227. # gain "0.8"
  228. d'fx2 $ -- mt 16 16 $
  229. stack [
  230. 1.75 ~> s "tubal/4",
  231. chop 16 $
  232. 3.75 ~> s "duck/4"
  233. # gain "0.6"
  234. # speed "0.9"
  235. ]
  236. d'fx3 $
  237. (1.5 ~>) $
  238. slow 4 $ chop 48 $
  239. sound (samples "snoo" <$> slow 7 $ run 7)
  240. # gain "0.8"
  241. # cut "10"
  242. -- out only
  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'fx3 $ 3 ~> n "[0 1]/8" # s "duon"
  253. # gain "0.9"
  254. -- transitions
  255. msil [d'wax, d'fx2, d'fx3] -- pt1-2
  256. msil [d'fx1, d'fx2] -- pt3-intermission. then solo d'nim
  257. msil [d'nim, d'wax, d'fx2, d'fx3] -- int-pt4
  258. msil [d'bass, d'bass2, d'hi, d'fx1, d'fx3] -- outro