leeds2016.megalet.tidal 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395
  1. {-
  2. generated (unmodified)
  3. -}
  4. -- megalet for battery123.tidal
  5. let msil = mapM_ ($ silence)
  6. cf = slow 2
  7. every' n o f = when ((== (o-1)) . (`mod` n)) f
  8. halfosc = (/2).(+0.5)
  9. halfosc1 = (+1).(/2)
  10. thirdosc1 = (+1).(/3)
  11. d'drum = d1
  12. d'perc = d2
  13. d'bass = d3
  14. d'hand = d4
  15. d'warb = d5 -- warbler
  16. d'bass2 = d6 -- more bass right at the end
  17. d'arpy = d7
  18. d'tr = d8 -- trump
  19. d'tac = d9 -- tacscan
  20. b1'bass = s "bass3 [~ bass3] ! ~"
  21. # begin "0.2"
  22. b1'hand = slow 8 $ rev . striate 256 $ s "hand*8"
  23. # speed "0.7"
  24. b1'perc = slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
  25. b1'tac = s "[~ tacscan] ! ~ ~"
  26. # gain "0.8"
  27. # vowel (slow 3 "e u")
  28. b1'warbler = slow 4 $ striate 32 $ s "warbler"
  29. # n (slow 7 $ run 7)
  30. # gain "0.8"
  31. b2'uxp = (# gain "0.8") .
  32. (# speed "[0.7 1 1.2]/2")
  33. b2'psr = s "psr*4 psr*2"
  34. # gain "0.6"
  35. b2'psrf = s "[[psr*4 psr*2] ! ! psr*8]/4"
  36. # gain "0.6"
  37. b2'trump p = whenmod 5 4 rev $ s p
  38. # n (slow 3.2 $ run 4)
  39. # gain "0.8"
  40. # speed (halfosc1 <$> slow 4 sinewave1)
  41. # vowel (slow 3.2 "a e o")
  42. # shape "0.6"
  43. b2'bass = slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
  44. # n (slow 2.8 "0 1 2")
  45. # vowel "i"
  46. # speed "0.8"
  47. b2'arpy = s "arpy*8"
  48. # n "2 1 3 1"
  49. # gain "0.7"
  50. b3'perc = s "[tok*2 [rm tok]] [psr:1 tok*2]"
  51. b3'bass = s "bass*4"
  52. # n "0 1"
  53. # begin "0.4"
  54. # speed "1.2"
  55. # shape "0.2"
  56. b3'bassf = s "{bass*4, wobble*3}"
  57. # n "0 1"
  58. # begin "0.4"
  59. # speed "1.2"
  60. # shape "0.2"
  61. b3'drum = slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~"
  62. b3'drumf = slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~"
  63. -- megalet for juliese.tidal
  64. let every' n o f = when ((== (o-1)) . (`mod` n)) f
  65. d'drum = d1
  66. d'perc = d2
  67. d'bass = d3
  68. d'eg = d4
  69. d'gt = d5
  70. d'udu = d6
  71. d'pc = d7
  72. d'pcl = d8
  73. d'wbass = d9
  74. bassbass = s "[[vb vb:1] ~]/2"
  75. # end (slow 1.4 "0.2 0.4")
  76. # vowel "e o"
  77. bassbass' = bassbass # speed (slow 2.5 "1 -1")
  78. morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
  79. drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  80. hhb m = smash 16 [0.25, 0.5] $
  81. (if m then (every 3 (append $ s "hh:1 hh")) else id) $
  82. s "hh hh:2"
  83. # gain "0.6"
  84. ududu = slow 4 . chop 128 $
  85. s (samples "udu" (slow 4 $ irand 4))
  86. # gain "0.8"
  87. # cut "6"
  88. eg = gap 128 $ s "eg*2"
  89. # cut "4"
  90. gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
  91. chop 128 $
  92. s "[gt [~ gt] ! ~]/2"
  93. # cut "5"
  94. pcbeep = slow 16 $ gap 48 $ s "pc:1"
  95. # gain "0.7"
  96. # cut "7"
  97. # speed "[1 0.7]"
  98. ju'drum2 = stack [
  99. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  100. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  101. ]
  102. -- megalet for pigs-nose.tidal
  103. let msil = mapM_ ($ silence)
  104. cf = slow 2
  105. d'drum = d1
  106. d'print = d2
  107. d'wobb = d2
  108. d'qs = d3
  109. d'jbass = d4
  110. d'mons = d5
  111. d'bass = d6
  112. d'casio = d7
  113. d'ql = d8
  114. d'arm = d8
  115. d'baa = d9
  116. pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
  117. pn'sn = s "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
  118. pn'bd = s "[bd [~ ~ ~ bd] bd*2 ~]/2"
  119. pn'hh = s "[hh*8 [hh*4 ho]]/2"
  120. pn'qs sl = slow sl . striate 4 $ s "qspace"
  121. pn'bass4 = s "bass*2 bass*2 bass*3 bass*3"
  122. pn'bass5 = s "bass*2 bass*2 bass*3 bass*3 ~"
  123. -- megalet for piston.tidal
  124. let d'drum = d1 -- k, sn
  125. d'perc = d2 -- wt, wtsn, hh
  126. d'gnome = d3 -- gnome, cymb
  127. d'bass = d4 -- dubb, k
  128. d'fly = d5 -- fly
  129. d'bz = d6 -- bz, bzl, ff
  130. d'shard = d7 -- ice, plode
  131. d'ant = d9 -- ant
  132. d'misc = d8 -- overflow channel for a few cases
  133. d'cymb = d10 -- cymb
  134. msil = mapM_ ($ silence)
  135. k = s "k"
  136. k1 = s "k:1"
  137. sn = s "[~ sn]/2"
  138. bass'params = (# gain "0.7").
  139. (# hcutoff "0.022").
  140. (# hresonance "0.001")
  141. bass' c = rev . chop c $ bass'params $ s "[dubb dubb:1]/2"
  142. fly'1 = slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly"
  143. # hcutoff "0.09"
  144. # hresonance "0.06"
  145. fly'1f = whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $ fly'1
  146. snare43'1 = density (4%3) $ s "[wtsn ~ wt]"
  147. shnare'1 = s "[~ ~ sn [~ sn*3]/2]/2"
  148. kick38'1 = s "[k(3,8)]/2"
  149. gnome'1 = within (0, 0.5) rev $ chop 8 $ s "[gnome(3,8)]/2"
  150. # gain "0.8"
  151. # speed ((+0.8).(/5) <$> slow 1.1 sinewave1)
  152. bass'1'm = every 2 $ within (0.25, 0.75) (0.5 ~>)
  153. wt'2 = s "wt*2"
  154. # vowel "[u e u a]/2"
  155. # end "0.15"
  156. bass'2 = slow 8 $ ((1%8) <~) $ chop 32 $
  157. bass'params $ s "[dubb dubb:1]/2"
  158. # speed "1.2"
  159. # shape ((/2) <$> density 4 sinewave1)
  160. # cut "1"
  161. ant'2 = slow 2 $ smash 16 [1,2] $ s "ant:1"
  162. # cutoff "0.08"
  163. # resonance "0.01"
  164. shard'2 = chop 16 $ s "[ice [~ ice] ~ ~]/4"
  165. # gain "0.7"
  166. shard'2f = every 2 (density 1.5) $ whenmod 5 3 (density 2) $ rev $ shard'2
  167. # shape ((+0.25).(/2) <$> density 8 saw1)
  168. fly'2 = chop 64 $ s "[fly ~ [fly ~ ~ fly] ~]/4"
  169. # cut "1"
  170. # begin "0.3"
  171. # end "0.35"
  172. # shape ((+0.25).(/2) <$> density 8 sinewave1)
  173. # speed ((+0.92) <$> density (5%4) saw1)
  174. cymb'2 g = within (0.5,1) (# vowel "e") $
  175. (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8"
  176. # shape ((/3) <$> density 3.6 saw1)
  177. # gain g
  178. bass'3 v c b = (4 <~) $ every 2 (0.5 <~) $
  179. slow 4 .
  180. (if b then brak else id) $
  181. rev . chop 16 $
  182. bass'params $ s "[dubb dubb:1]/2"
  183. # cut c
  184. # vowel v
  185. bz'3 = s "[ff(3,8) [~ [ff bz]]]/4"
  186. # end "0.3"
  187. # shape "0 0.25"
  188. # gain "0.7"
  189. drum'3 = overlay (s "[~ sn]/2") $ s "[k*2 [~ k*2] k ~ k*2 ~ k*2 ~]/8"
  190. bass2'3 = slow 8 $ chop 16 $ bass'params $ s "[dubb dubb:1]/2"
  191. # cut "1"
  192. # speed "0.2"
  193. # vowel "e"
  194. perc'3 = s "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8"
  195. perc'3'delay = (# delay "0.3").
  196. (# delayfeedback "0.5").
  197. (# delaytime "0.766") --(138/60)/3
  198. shard'3f = iter 4 . density 2 $ (0.5 <~) $ ((1%16) <~) $ shard'2
  199. # vowel "e o"
  200. # gain "0.6"
  201. drum5'4 = s "[[~ [wt wtsn]] ~ wt ~]/5"
  202. plox'4 so = within (0.5, 0.75) (iter 4) $
  203. whenmod 3 2 (slow 2) $
  204. slow 8 $ every 2 rev $ striate 128 $ s so
  205. # cutoff "0.02"
  206. # resonance "0.001"
  207. # speed "0.7"
  208. # gain "0.7"
  209. bass'4 = whenmod 5 3 (density (3%2) . brak) $
  210. bass'params $
  211. rev $ (0.5 ~>) $ slow 2 . chop 8 $ s "[dubb dubb:1]/2"
  212. # speed "0.5"
  213. # cut "1"
  214. # end "0.5"
  215. bz'4 = (0.5 <~) $ slow 16 . chop 32 $ s "bzl"
  216. # n (density 1.5 "0 1")
  217. # speed ((+1) <$> density 1.7 sinewave1)
  218. # gain "0.9"
  219. bzox'4 so = whenmod 7 4 (within (0.5, 1) (density 2)) $
  220. (0.5 <~) $
  221. slow 16 . chop 32 $ s so
  222. # n (density 1.5 "0 1")
  223. # speed ((+1.6) <$> density 2.2 sinewave1)
  224. # pan ((+0.25).(/2) <$> density 4.1 sinewave1)
  225. perc'5 = s "~ wt wt wtsn/8"
  226. # shape ((/2) <$> density 1.2 saw1)
  227. drum'5 = s "{[~ ~ ~ k:1], [~ sn]/2}"
  228. drum'5f = overlay k $ drum'5
  229. bass'5 = chop 16 $ bass'params $ s "[~ dubb]"
  230. # n (slow 4 "0 1")
  231. # cut "1"
  232. bass'5f = every 2 (density 2) $ whenmod 3 2 (density 1.6) $ bass'5
  233. # speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
  234. fly'5 b = whenmod 5 3 rev $
  235. (if b then brak else id) $
  236. slow 16 $ jux ((1.5 ~>).rev) $
  237. chop 64 $ bass'params $ s "fly:1"
  238. # speed "0.7"
  239. # shape ((/2) <$> density 2.1 saw1)
  240. bass2'5 = chop 12 $ s "[~ ~ [~ k:1] !]/4"
  241. # speed "0.9"
  242. bass2'5b = whenmod 4 3 (density 1.8) $ bass2'5
  243. # shape ((/3) <$> density 3 sinewave1)
  244. # delay "0.3"
  245. # delayfeedback "0.2"
  246. # delaytime "0.2875" --(138/60)/8
  247. gnome'5 sm f = smash 64 sm $
  248. (# speed "1.2").
  249. (# shape ((/2) <$> ((0.25 ~>) . density 3) sinewave1)).
  250. (# gain "0.6") $
  251. s "~ gnome"
  252. # pan (f $ slow 4 sinewave1)
  253. sn'6 = s "[~ sn ~ sn*2]/8"
  254. bass'6 = (# gain ((*0.7) <$> saw1)) $ bass'5f
  255. bass2'6 = within (0, 0.5) (slow (7%6)) $
  256. every 2 (0.5 <~) $ slow 8 $
  257. bass' 32
  258. plode'6 = superimpose (slow (5%3) . iter 2) $
  259. (# speed ((+0.7) <$> slow 1.1 sinewave1)) $
  260. chop 32 $ s "[plode(5,8)]/8"
  261. # cut "1"
  262. cymb'6 = s "[cymb*8 ~]/8"
  263. # gain ((+0.6).(/5) <$> density 3.6 saw1)
  264. # cut "1"
  265. cymb'6f = density (5%4) $ whenmod 9 4 (density 1.5) $ cymb'6
  266. drum'6 = s "{k, [~ ~ ~ k:1] [~ k:1]}"
  267. wtsn'6 = (3 ~>) $ within (0.25, 0.75) rev $
  268. slowspread ($) [chop 16, chop 32] $ s "[wtsn(3,8)]/2"
  269. # speed ((+0.8).(/2) <$> density 1.8 sinewave1)
  270. gnome'6 d = iter 4 $ density (9%8) $
  271. within (0, 0.5) rev $
  272. smash 8 [1,2] $ s "[gnome(3,8)]/2"
  273. # gain "0.8"
  274. # speed ((+0.76).(/d) <$> slow 1.1 sinewave1)
  275. shard'7 dt = slow 5 . chop 15 $ s "ice"
  276. # gain "0.7"
  277. # resonance "0.4"
  278. # cutoff "0.2"
  279. # delay "0.7"
  280. # delayfeedback "0.3"
  281. # delaytime dt
  282. bass'7 f = slow 8 $ f $
  283. slowspread ($) [rev.chop 12, rev.chop 24] $
  284. bass'params $ s "[dubb dubb:1]/2"
  285. bass'7'm f = (f . (/2) <$> density (5%4) sinewave1)
  286. fly'7 = slow (4%3) .
  287. slowspread ($) [slow 1, density (5%4)] $
  288. slow 12 $
  289. slowspread striate [24,36] $ s "fly:1"
  290. # gain "0.7"
  291. bz'8 = s "[[ff bz]*2 [~ bz*2]]/2"
  292. # n (slow 2 $ run 5)
  293. # begin "0.7"
  294. # end "0.85"
  295. # hcutoff "0.04"
  296. # hresonance "0.1"
  297. # shape ((/5) <$> slow (5%3) sinewave1)
  298. -- megalet for something-to-say.tidal
  299. let msil = mapM_ ($ silence)
  300. cf = slow 2
  301. iter' n p = slowcat $ map (\i -> ((fromIntegral i)%(fromIntegral n)) ~> p) [0 .. n]
  302. ss'stab = s "stab"
  303. # n (slow 6 "1 2 3 4 [5 6]/3")
  304. # vowel "i"
  305. ss'kurt = s "kurt"
  306. # speed "0.6"
  307. # shape "0.3"
  308. # vowel "u"
  309. ss'perc = s "{[bd ~ ~ bd] msg, hh*2}"
  310. ss'perc' = s "{[rm ~ ~ rm] msg, hh*2}"
  311. ss'verse = s "sitw"
  312. # n (slow 8 $ run 8)
  313. ss'chorus = s "sitwc"
  314. # n (slow 4 $ run 4)
  315. d'drum = d1
  316. d'bass = d2
  317. d'gt = d3 -- guitar [stab]
  318. d'kurt = d4
  319. d'moog = d5
  320. d'voc = d9 -- vocal
  321. {-
  322. specific for leeds
  323. -}
  324. -- resolved channel mapping (reducing conflicts as much as possible)
  325. let d'drum = d1
  326. d'perc = d2
  327. d'eg = d3
  328. d'gnome = d3
  329. d'hand = d3
  330. d'qs = d3
  331. d'tac = d3
  332. d'tr = d3
  333. d'bass = d4
  334. d'fly = d5
  335. d'gt = d5
  336. d'mons = d5
  337. d'warb = d5
  338. d'bz = d6
  339. d'kurt = d6
  340. d'udu = d6
  341. d'arpy = d7
  342. d'pc = d7
  343. d'shard = d7
  344. d'arm = d8
  345. d'misc = d8
  346. d'pcl = d8
  347. d'ql = d8
  348. d'ant = d9
  349. d'baa = d9
  350. d'casio = d9
  351. d'print = d9
  352. d'voc = d9
  353. d'wbass = d9
  354. d'wobb = d9
  355. d'bass2 = d10
  356. d'cymb = d10
  357. d'jbass = d10
  358. d'moog = d10
  359. -- custom lets for this performance to fix sample refs. see samples.csv
  360. let pn'hh = s "[phh*8 [phh*4 ho]]/2"
  361. let hhb m = smash 16 [0.25, 0.5] $
  362. (if m then (every 3 (append $ s "rhh:1 rhh")) else id) $
  363. s "rhh rhh:2"
  364. # gain "0.65"
  365. let ss'perc = s "{[sbd ~ ~ sbd] msg, rhh*2}"
  366. ss'perc' = s "{[rm ~ ~ rm] msg, rhh*2}"
  367. -- should backport these two to battery123.tidal
  368. let b2'ux = cf $ s "uxay*4"
  369. # n "1 0 1 2"
  370. let b2'ux2 i = (if i then brak . iter 4 else cf . brak) $
  371. b2'uxp $ s "uxay*4"
  372. # n "1 0 1 2"
  373. # shape "0.4 0.3 0.6"
  374. -- don't backport, you normally build up to this, but lands outta nowhere in leeds
  375. let b1'bassf = cf $
  376. spread slow [1,3] $
  377. striate 16 $
  378. b1'bass
  379. # n "0 1 0 0"
  380. # speed (halfosc1 <$> slow 8 sinewave1)
  381. # gain "0.9"