leeds2016.tidal 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593
  1. {-
  2. anny: leeds 2016 live performance
  3. setlist:
  4. - piston vi
  5. - battery 2 (edit)
  6. - raise/piston v
  7. - juliese [new]
  8. - something to say (version)
  9. - battery 1 vs. piston
  10. -}
  11. {-
  12. piston vi
  13. -}
  14. cps (138/60)
  15. solo $ d'bass $ bass'6
  16. d'bz $ bass2'6
  17. d'fly $ plode'6
  18. d'cymb $ cymb'6
  19. d'perc $ wt'2 # gain "0.85"
  20. d'bass silence
  21. d'drum $ drum'6
  22. hush
  23. d'misc $ slow 16 $ bass' 64
  24. d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $ cymb'6
  25. d'gnome $ wtsn'6
  26. d'drum $ overlay sn'6 $ drum'6
  27. d'bass $ (0.6 ~>) $ bass'4
  28. msil [d'perc,d'gnome,d'misc]
  29. d'gnome $ gnome'6 5
  30. d'gnome $ gnome'6 3
  31. msil [d'drum,d'fly,d'bz,d'cymb]
  32. d'drum $ s "[[k k:1]*2 [sn k:1 ~ k] [~ k:1 k ~] [~ sn ~ k]]/8"
  33. d'fly $ fly'5 False
  34. d'cymb $ (0.5 <~) $ cymb'2 "0.7"
  35. d'bz $ bass2'6
  36. d'drum $ overlay sn'6 $ drum'6
  37. msil [d'perc,d'fly,d'bz]
  38. {-
  39. battery 2 (edit)
  40. -}
  41. cps (135/60)
  42. cps (130/60)
  43. cps (125/60)
  44. let b2'ux = cf $ s "uxay*4"
  45. # n "1 0 1 2"
  46. let b2'ux2 i = (if i then brak . iter 4 else cf . brak) $
  47. b2'uxp $ s "uxay*4"
  48. # n "1 0 1 2"
  49. # shape "0.4 0.3 0.6"
  50. d'perc $ b2'ux
  51. msil [d'drum, d'fly, d'gnome, d'bass]
  52. d'perc $ b2'ux
  53. # speed "[0.7 1 1.2]/2"
  54. d'drum $ cf $ b2'psr
  55. d'drum $ cf $ b2'psrf
  56. d'drum $ cf $ every 3 (0.125 <~) $ b2'psrf
  57. -- quickly
  58. d'cymb silence
  59. d'drum $ overlay (s "k") $
  60. cf $ every 3 (0.125 <~) $ b2'psrf
  61. -- this and next 3 parts real quick
  62. d'perc $ b2'ux2 False
  63. d'drum $ cf $ -- overlay (s "peri") $
  64. every 3 (0.125 <~) $ b2'psrf
  65. d'tr $ cf $ b2'trump "[~ trump ! !] ~"
  66. d'tr $ cf $ b2'trump "[~ trump ! !] ~"
  67. # speed (halfosc1 <$> slow 4 sinewave1)
  68. d'drum $ overlay (s "k") $
  69. cf $ every 3 (0.125 <~) $ b2'psrf
  70. d'perc $ b2'ux2 True
  71. d'bz $ 0.5 ~> bzox'4 "bz"
  72. d'bz $ 0.5 ~> bzox'4 "bz*2"
  73. d'tr silence
  74. d'bass $ b2'bass
  75. d'bass $ b2'bass
  76. # shape "0.3" -- increase 0->0.3
  77. d'bass $ b2'bass
  78. # shape (halfosc <$> saw1)
  79. d'arpy $ cf $ b2'arpy
  80. d'arpy $ cf $ iter 9 $ b2'arpy
  81. {-
  82. raise/piston v
  83. -}
  84. d'ql $ slow (10%4) $ spread density [1,5%4] $
  85. s "[qlatibro:1 qlatibro]*2"
  86. # vowel "e"
  87. let pn'hh = s "[phh*8 [phh*4 ho]]/2"
  88. -- yknow this is a pretty neat sample
  89. d'casio $ cf $ s "casio*2 ~"
  90. # gain "0.85"
  91. msil [d'drum, d'perc]
  92. cps (120/60)
  93. cps (117/60)
  94. d'drum $ cf $ pn'hh
  95. msil [d'bz, d'bass]
  96. d'perc $ 0.75 ~> s "wtsn/8"
  97. d'mons $ cf $
  98. striate 4 $ slow 2 $ s "monsterb"
  99. # gain "0.7"
  100. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  101. d'mons $ cf $
  102. spread density [1,2] $
  103. striate 4 $ slow 2 $ s "monsterb"
  104. # gain "0.7"
  105. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  106. d'arpy silence
  107. d'bass $ bass'5
  108. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  109. s "pbd*2"
  110. d'bass $ every 2 (density 2) $ bass'5
  111. d'qs $ cf $
  112. slowspread density [1,2] $
  113. jux (iter 8) $ pn'qs 2
  114. # gain "0.95"
  115. d'qs $ cf $
  116. slowspread density [1,2] $
  117. jux (iter 8) $ pn'qs 2
  118. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  119. # gain "0.95"
  120. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  121. s "k*2"
  122. d'bass $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ bass'5
  123. # speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
  124. d'qs $ cf $
  125. spread density [1,1,2,0.5] $
  126. jux (iter 8) $ pn'qs 2
  127. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  128. # gain "0.95"
  129. msil [d'mons, d'drum]
  130. -- quickly
  131. d'qs $ cf $
  132. spread density [1,1,0.5,2] $
  133. jux (iter 8) $ pn'qs 2
  134. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  135. # gain "0.95"
  136. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  137. s "k(3,8)"
  138. d'bass2 $ slow 8 $ s "jungbass jungbass:1"
  139. # speed "1.2"
  140. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  141. every 4 (brak . density 2) $ s "k(3,8)"
  142. d'qs $ cf $
  143. spread density [1,1,0.5,2] $
  144. jux (iter 8) $ pn'qs 2
  145. # speed ((+0.7).(/1.5) <$> slow 3.2 triwave1)
  146. msil [d'perc, d'qs]
  147. d'fly $ fly'5 True
  148. d'casio $ cf $
  149. spread density [1,4%3] $ s "casio*2 ~"
  150. # gain "0.85"
  151. d'casio $ cf $
  152. jux (slow (4%3)) $
  153. spread density [1,4%3] $ s "casio*2 ~"
  154. # gain "0.85"
  155. d'casio silence
  156. d'arpy $ cf $
  157. spread density [1,2] $
  158. striate 4 $ slow 2 $ s "monsterb"
  159. # gain "0.7"
  160. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  161. msil [d'arpy, d'fly]
  162. {-
  163. juliese [new]
  164. -}
  165. let hhb m = smash 16 [0.25, 0.5] $
  166. (if m then (every 3 (append $ s "rhh:1 rhh")) else id) $
  167. s "rhh rhh:2"
  168. # gain "0.6"
  169. d'bass $ every 2 (density 2) $ bass'5
  170. cps (111/60)
  171. cps (105/60)
  172. d'drum $ cf $ overlay (pn'sn # gain "0.8") $ s "k*2"
  173. msil [d'bass, d'perc, d'ql]
  174. cps (99/60)
  175. d'bass $ bassbass
  176. d'bass $ bassbass'
  177. d'drum $ s "k"
  178. d'perc $ hhb False
  179. d'drum $ morek $ s "k"
  180. d'perc $ whenmod 16 15 (density 3) $ hhb False
  181. d'bass2 silence
  182. d'drum $ overlay ((0.5 ~>) $ s "rsn/2") $ morek $ s "k"
  183. d'bass $ whenmod 3 2 (slow 2) $ bassbass'
  184. -- quickly
  185. d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  186. d'drum $ overlay ((1 ~>) $ s "cy/8") $
  187. overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  188. d'perc $ whenmod 16 15 (density 3) $ hhb True
  189. d'perc $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  190. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  191. d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  192. d'udu $ ududu
  193. d'wbass $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
  194. d'wbass $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
  195. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  196. d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
  197. d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  198. density 0.25 $ eg
  199. # gain "0.8"
  200. d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  201. density 0.25 $
  202. slowspread density [1, 2, 0.5, 2] $ eg
  203. # gain "0.8"
  204. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  205. # speed "[1 1 2]/3"
  206. d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  207. density 0.245 $ -- !
  208. slowspread density [1, 2, 0.5, 2] $ eg
  209. # gain "0.8"
  210. msil [d'perc, d'bass]
  211. d'eg $ (0.18 <~) $ every 2 (const silence) $
  212. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  213. density 0.245 $
  214. slowspread density [1, 2, 0.5, 2] $ eg
  215. # gain "0.8"
  216. d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ every' 12 2 (density 3) $ s "k"
  217. d'pc $ pcbeep
  218. d'pc $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  219. d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  220. (whenmod 7 5 $ trunc (5%6)) $ ududu
  221. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  222. # speed "[1 1 2]/3"
  223. d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  224. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  225. d'gt $ gt
  226. # gain "0.87"
  227. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  228. d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
  229. every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  230. # speed "[1 1 2]/3"
  231. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  232. d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
  233. whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  234. d'udu $ (every' 5 3 $ brak) $
  235. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  236. (whenmod 7 5 $ trunc (5%6)) $ ududu
  237. d'eg $ (0.18 <~) $
  238. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  239. density 0.245 $
  240. slowspread density [1, 2, 0.5, 2] $ eg
  241. # gain "0.8"
  242. d'gt $ density 0.98 $ gt
  243. # gain "0.87"
  244. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  245. msil [d'perc, d'eg, d'wbass]
  246. d'drum $ ju'drum2
  247. {-
  248. something to say (version)
  249. -}
  250. let ss'perc = s "{[sbd ~ ~ sbd] msg, rhh*2}"
  251. ss'perc' = s "{[rm ~ ~ rm] msg, rhh*2}"
  252. d'gt silence
  253. d'drum $ every' 32 32 (const silence) $ slow 2 $ ju'drum2
  254. d'bass silence
  255. cps (102/60)
  256. cps (104/60)
  257. cps (106/60)
  258. d'perc $ cf $
  259. every 2 (superimpose $ iter' 3) $
  260. slow 2 $ ss'perc
  261. d'gt $ cf $ ss'stab
  262. # speed "0.7"
  263. -- quickly
  264. d'udu silence
  265. d'pc silence
  266. d'gt $ cf $
  267. slow 2 $ every 4 (density 2) $ every 2 (density 2) $
  268. ss'stab
  269. # speed "0.7"
  270. d'voc $ cf $ slow 4 $ ss'verse
  271. # vowel "e"
  272. d'kurt $ cf $ ss'kurt
  273. # n (slow 7 $ run 7)
  274. d'gt $ cf $
  275. density 2 $ iter 2 $
  276. ss'stab
  277. # speed "0.7"
  278. d'kurt $ cf $ s "kurt"
  279. # n (slow 4 "5 6 4")
  280. d'gt $ cf $
  281. density 2 $ iter 2 $
  282. ss'stab
  283. # speed ((+0.7).(/2) <$> slow 5 sinewave1)
  284. d'voc $ cf $ slow 4 $ ss'chorus
  285. # vowel "e"
  286. d'voc $ cf $ slow 4 $
  287. iter 3 . striate 4 $
  288. ss'chorus
  289. # vowel "e"
  290. d'gt $
  291. stut 2 0.8 0.5 $ -- new
  292. cf $
  293. density 2 $ iter 2 $
  294. ss'stab
  295. # speed ((+0.7).(/2) <$> slow 5 sinewave1)
  296. d'voc $ cf $ slow 2 $
  297. iter 3 . striate 4 $
  298. ss'chorus
  299. # vowel "e"
  300. -- somewhat quickly
  301. msil [d'drum, d'perc]
  302. d'drum $ cf $
  303. every 2 (superimpose $ iter' 3) $
  304. slow 2 $ ss'perc'
  305. msil [d'gt, d'kurt, d'pc, d'voc]
  306. d'voc $ cf $ slow 4 $ ss'verse
  307. # vowel "e"
  308. d'gt $ cf $
  309. slow 2 $ every 4 (density 2) $ every 2 (density 2) $
  310. ss'stab
  311. # speed "0.7"
  312. d'kurt $ cf $ s "kurt"
  313. # n (slow 4 "5 6 4")
  314. d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  315. d'moog $ cf $
  316. slow 8 . striate 8 $
  317. 0.25 <~ s "moog"
  318. # n (slow 2 "0 1")
  319. # speed "0.6 0.7"
  320. # pan (slow 8 sinewave)
  321. d'kurt $ cf $ s "kurt"
  322. # n (slow 7 $ run 7)
  323. d'voc $ cf $ slow 4 $ ss'chorus
  324. # vowel "e"
  325. d'voc $ cf $ slow 2 $
  326. iter 3 . striate 4 $
  327. ss'chorus
  328. # vowel "e"
  329. d'voc $ cf $ slow 2 $
  330. iter 3 . striate 4 $
  331. ss'chorus
  332. # vowel "e"
  333. # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
  334. d'bass silence
  335. d'drum $ overlay (morek $ s "k") $ cf $
  336. every 2 (superimpose $ iter' 3) $
  337. slow 2 $ ss'perc'
  338. d'drum $ overlay (morek $ s "k") $ cf $
  339. every 2 (superimpose $ iter' 3) $
  340. slow 2 $ ss'perc
  341. d'voc $ cf $
  342. iter 3 . striate 4 $
  343. ss'chorus
  344. # vowel "e"
  345. # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
  346. d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  347. -- this is new
  348. d'voc $ cf $
  349. slowspread ($) [id, (within (0.25, 0.5) $ const silence), (# speed "-1")] $
  350. iter 3 . striate 16 $
  351. ss'chorus
  352. # vowel "e"
  353. # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
  354. d'misc $ bass2'3
  355. -- also this
  356. d'voc $ cf $
  357. slowspread ($) [id, (within (0.25, 0.5) $ const silence), (# speed "-1")] $
  358. iter 3 . striate 16 $
  359. ss'chorus
  360. # vowel "u e"
  361. # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
  362. {-
  363. battery 1 vs. piston
  364. -}
  365. msil [d'voc, d'moog]
  366. d'drum $ overlay (s "k") $ cf $
  367. every 2 (superimpose $ iter' 3) $
  368. slow 2 $ ss'perc
  369. d'bass silence
  370. d'hand $ b1'hand
  371. # shape ((/2) <$> slow (10%4) sinewave1)
  372. # pan (halfosc <$> slow (8%3) sinewave1)
  373. cps (110/60)
  374. cps (120/60)
  375. cps (130/60)
  376. cps (140/60)
  377. msil [d'gt, d'kurt]
  378. d'bass $ cf $
  379. spread slow [1,3] $
  380. striate 16 $
  381. b1'bass
  382. # n "0 1 0 0"
  383. # speed (halfosc1 <$> slow 8 sinewave1)
  384. # gain "0.9"
  385. d'perc $ cf $
  386. spread slow [2,1] $
  387. jux (0.25 <~) $ b1'perc
  388. # n (density 3 $ run 2)
  389. d'tac $ cf $ b1'tac
  390. d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
  391. d'drum silence
  392. d'drum $ cf $
  393. overlay (s "~ rsn") $
  394. every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~"
  395. d'bass2 $ bass'3 "o i" "1" True
  396. d'bz $ every 3 brak $ bzox'4 "~ bzl"
  397. d'hand silence
  398. msil [d'tac, d'bz]
  399. d'bass2 $ overlay (slow 16 $ bass' 64) $
  400. bass'3 "o i" "1" True
  401. d'ant $ within (0.5, 1) (slow 1.5 . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
  402. d'drum $ cf $
  403. overlay (every 2 (density 3) $ s "~ rsn") $
  404. every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~"
  405. d'fly $ cf $ b2'trump "[~ tacscan ! !] ~"
  406. # end "0.2"
  407. d'drum $ cf $
  408. overlay (every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ rsn") $
  409. every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~"
  410. d'bz $ every 3 brak $ bzox'4 "~ bzl"
  411. d'qs $ cf $ s "casio*2 ~"
  412. # gain "0.85"
  413. d'arpy $ shard'3f
  414. msil [d'bass, d'tac, d'bass2, d'bz]
  415. cps (135/60)
  416. cps (130/60)
  417. cps (125/60)
  418. msil [d'fly, d'arpy]
  419. d'perc $ cf $
  420. slow 2 . spread slow [2,4,2,3] $
  421. jux (0.25 <~) $ b1'perc
  422. # n (density 3 $ run 2)
  423. msil [d'drum, d'ant]
  424. hush