leeds2016.tidal 9.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496
  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. - batter 1/piston iii/piston iv
  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. d'misc $ slow 16 $ bass' 64
  23. d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $ cymb'6
  24. d'gnome $ wtsn'6
  25. d'drum $ overlay sn'6 $ drum'6
  26. d'bass $ (0.6 ~>) $ bass'4
  27. msil [d'perc,d'gnome,d'misc]
  28. d'gnome $ gnome'6 5
  29. d'gnome $ gnome'6 3
  30. msil [d'drum,d'fly,d'bz,d'cymb]
  31. d'drum $ s "[[k k:1]*2 [sn k:1 ~ k] [~ k:1 k ~] [~ sn ~ k]]/8"
  32. d'fly $ fly'5 False
  33. d'cymb $ (0.5 <~) $ cymb'2 "0.7"
  34. d'bz $ bass2'6
  35. d'drum $ overlay sn'6 $ drum'6
  36. msil [d'perc,d'fly,d'bz]
  37. {-
  38. battery 2 (edit)
  39. -}
  40. cps (135/60)
  41. cps (130/60)
  42. cps (125/60)
  43. d'perc $ cf $ s "uxay*4"
  44. # n "1 0 1 2"
  45. msil [d'drum, d'fly, d'gnome, d'bass]
  46. d'perc $ cf $ s "uxay*4"
  47. # n "1 0 1 2"
  48. # speed "[0.7 1 1.2]/2"
  49. d'drum $ cf $ b2'psr
  50. d'drum $ cf $ b2'psrf
  51. d'drum $ cf $ every 3 (0.125 <~) $ b2'psrf
  52. -- quickly
  53. d'cymb silence
  54. d'drum $ overlay (s "k") $
  55. cf $ every 3 (0.125 <~) $ b2'psrf
  56. -- this and next 3 parts real quick
  57. d'perc $ cf $ brak $
  58. b2'uxp $ s "uxay*4"
  59. # n "1 0 1 2"
  60. # shape "0.4 0.3 0.6"
  61. d'drum $ cf $ -- overlay (s "peri") $
  62. every 3 (0.125 <~) $ b2'psrf
  63. d'tr $ cf $ b2'trump "[~ trump ! !] ~"
  64. d'tr $ cf $ b2'trump "[~ trump ! !] ~"
  65. # speed (halfosc1 <$> slow 4 sinewave1)
  66. d'drum $ overlay (s "k") $
  67. cf $ every 3 (0.125 <~) $ b2'psrf
  68. d'perc $ brak . iter 4 $
  69. b2'uxp $ s "uxay*4"
  70. # n "1 0 1 2"
  71. # shape "0.4 0.3 0.6"
  72. -- quickly
  73. d'bass $ b2'bass
  74. d'tr silence
  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. msil [d'drum, d'perc]
  91. cps (120/60)
  92. cps (117/60)
  93. d'bass silence
  94. d'drum $ cf $ pn'hh
  95. d'perc $ perc'5
  96. d'mons $ cf $
  97. striate 4 $ slow 2 $ s "monsterb"
  98. # gain "0.7"
  99. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  100. d'mons $ cf $
  101. spread density [1,2] $
  102. striate 4 $ slow 2 $ s "monsterb"
  103. # gain "0.7"
  104. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  105. d'arpy silence
  106. d'bass $ bass'5
  107. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  108. s "pbd*2"
  109. d'bass $ every 2 (density 2) $ bass'5
  110. d'qs $ cf $
  111. spread density [1,2] $
  112. jux (iter 8) $ pn'qs 2
  113. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  114. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  115. s "k*2"
  116. d'tac $ cf $
  117. spread density [1,1,2,0.5] $
  118. jux (iter 8) $ pn'qs 2
  119. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  120. d'fly $ fly'5 True
  121. msil [d'casio, d'mons, d'drum]
  122. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  123. s "k(3,8)"
  124. d'qs $ cf $
  125. spread density [1,1,0.5,2] $
  126. jux (iter 8) $ pn'qs 2
  127. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  128. d'bass2 $ slow 8 $ s "jungbass jungbass:1"
  129. # pan (slow 2 sinewave1)
  130. # speed "1.2"
  131. d'qs silence
  132. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  133. every 4 (brak . density 2) $ s "k(3,8)"
  134. -- borrowed from juliese
  135. d'udu $ ududu
  136. d'fly silence
  137. {-
  138. juliese [new]
  139. -}
  140. let hhb m = smash 16 [0.25, 0.5] $
  141. (if m then (every 3 (append $ s "rhh:1 rhh")) else id) $
  142. s "rhh rhh:2"
  143. # gain "0.6"
  144. cps (111/60)
  145. cps (105/60)
  146. msil [d'bass, d'perc, d'ql]
  147. cps (99/60)
  148. d3 $ bassbass
  149. d'drum $ cf $ overlay (pn'sn) $ -- overlay (pn'hh) $
  150. every 4 (brak . density 2) $ s "k(3,8)"
  151. d'perc $ hhb False
  152. msil [d'drum, d'udu]
  153. d3 $ bassbass'
  154. d'bass2 silence
  155. d1 $ s "k"
  156. d1 $ morek $ s "k"
  157. d2 $ whenmod 16 15 (density 3) $ hhb False
  158. d1 $ overlay ((0.5 ~>) $ s "rsn/2") $ morek $ s "k"
  159. d3 $ whenmod 3 2 (slow 2) $ bassbass'
  160. d3 $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  161. d1 $ overlay ((1 ~>) $ s "cy/8") $
  162. overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  163. d2 $ whenmod 16 15 (density 3) $ hhb True
  164. d2 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  165. d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  166. d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
  167. d6 $ ududu
  168. d9 $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
  169. d9 $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
  170. d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  171. d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
  172. d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  173. density 0.25 $ eg "0.8"
  174. d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  175. density 0.25 $
  176. slowspread density [1, 2, 0.5, 2] $ eg "0.8"
  177. d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  178. # speed "[1 1 2]/3"
  179. d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  180. density 0.245 $ -- !
  181. slowspread density [1, 2, 0.5, 2] $ eg "0.8"
  182. mapM_ ($ silence) [d2,d3]
  183. d4 $ (0.18 <~) $ every 2 (const silence) $
  184. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  185. density 0.245 $
  186. slowspread density [1, 2, 0.5, 2] $ eg "0.8"
  187. d1 $ overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  188. d7 $ pcbeep
  189. d7 $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  190. d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  191. (whenmod 7 5 $ trunc (5%6)) $ ududu
  192. d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  193. # speed "[1 1 2]/3"
  194. d7 $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  195. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  196. d5 $ gt "0.75"
  197. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  198. d9 $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
  199. every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  200. # speed "[1 1 2]/3"
  201. d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  202. d5 $ density 0.98 $ gt "0.75"
  203. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  204. d3 $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
  205. whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  206. d6 $ (every' 5 3 $ brak) $
  207. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  208. (whenmod 7 5 $ trunc (5%6)) $ ududu
  209. mapM_ ($ silence) [d4,d9]
  210. d1 $ stack [
  211. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  212. every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  213. ]
  214. mapM_ ($ silence) [d3,d6,d7]
  215. d8 $ slow 16 . gap 64 $ s "pclow"
  216. # gain "0.8"
  217. mapM_ ($ silence) [d2,d5]
  218. {-
  219. something to say (version)
  220. -}
  221. let ss'perc = s "{[sbd ~ ~ sbd] msg, rhh*2}"
  222. ss'perc' = s "{[rm ~ ~ rm] msg, rhh*2}"
  223. cps (102/60)
  224. cps (104/60)
  225. cps (106/60)
  226. d'gt $ cf $ ss'stab
  227. # speed "0.7"
  228. d'gt $ cf $
  229. slow 2 $ every 4 (density 2) $ every 2 (density 2) $
  230. ss'stab
  231. # speed "0.7"
  232. d'voc $ cf $ slow 4 $ ss'verse
  233. |+| vowel "e"
  234. d'kurt $ cf $ ss'kurt
  235. # n (slow 7 $ run 7)
  236. d'perc $ cf $
  237. every 2 (superimpose $ iter' 3) $
  238. slow 2 $ ss'perc
  239. d8 $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
  240. # gain "0.8"
  241. # speed "1 1.5"
  242. d'kurt $ cf $ s "kurt"
  243. # n (slow 4 "5 6 4")
  244. d'gt $ cf $
  245. density 2 $ iter 2 $
  246. ss'stab
  247. # speed "0.7"
  248. d'voc $ cf $ slow 4 $ ss'chorus
  249. # vowel "e"
  250. d'gt $ cf $
  251. density 2 $ iter 2 $
  252. ss'stab
  253. # speed ((+0.7).(/2) <$> slow 5 sinewave1)
  254. d'voc $ cf $ slow 4 $
  255. iter 3 . striate 4 $
  256. ss'chorus
  257. # vowel "e"
  258. d'voc silence
  259. hush
  260. d'drum $ cf $
  261. every 2 (superimpose $ iter' 3) $
  262. slow 2 $ ss'perc'
  263. d'voc $ cf $ slow 4 $ ss'verse
  264. |+| vowel "e"
  265. d'gt $ cf $
  266. slow 2 $ every 4 (density 2) $ every 2 (density 2) $
  267. ss'stab
  268. # speed "0.7"
  269. d'kurt $ cf $ s "kurt"
  270. # n (slow 4 "5 6 4")
  271. d'moog $ cf $
  272. slow 8 . striate 8 $
  273. 0.25 <~ s "moog"
  274. # n (slow 2 "0 1")
  275. # speed "0.6 0.7"
  276. # pan (slow 8 sinewave)
  277. d'voc $ cf $ slow 2 $
  278. iter 3 . striate 4 $
  279. ss'chorus
  280. # vowel "e"
  281. d'kurt $ cf $ s "kurt"
  282. # n (slow 7 $ run 7)
  283. d'voc $ cf $ slow 2 $
  284. iter 3 . striate 4 $
  285. ss'chorus
  286. # vowel "e"
  287. # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
  288. d'drum $ overlay (s "k") $ cf $
  289. every 2 (superimpose $ iter' 3) $
  290. slow 2 $ ss'perc'
  291. d'drum $ overlay (s "k") $ cf $
  292. every 2 (superimpose $ iter' 3) $
  293. slow 2 $ ss'perc
  294. d'voc $ cf $
  295. iter 3 . striate 4 $
  296. ss'chorus
  297. # vowel "e"
  298. # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
  299. {-
  300. battery 1/piston iii/piston iv
  301. -}
  302. d'misc $ bass2'3
  303. msil [d'voc, d'moog]
  304. d'mosq $ b1'mosq
  305. # shape ((/2) <$> slow (10%4) sinewave1)
  306. # pan (halfosc <$> slow (8%3) sinewave1)
  307. cps (110/60)
  308. cps (120/60)
  309. cps (130/60)
  310. cps (140/60)
  311. d'gt silence
  312. d'bz $ bzox'4 "bz*2"
  313. d'bz $ every 3 brak $ bzox'4 "bz*2"
  314. d'tac $ cf $ b1'tac
  315. d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
  316. d'bass $ cf $
  317. spread slow [1,3] $
  318. striate 16 $
  319. b1'bass
  320. # n "0 1 0 0"
  321. # speed (halfosc1 <$> slow 8 sinewave1)
  322. # gain "0.9"
  323. d'drum silence
  324. d'drum $ cf $
  325. overlay (s "~ rsn") $
  326. every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~"
  327. d'cymb $ bass'3 "o i" "1" True
  328. d'bz $ every 3 brak $ bzox'4 "~ bzl"
  329. d'perc $ cf $
  330. spread slow [2,1] $
  331. jux (0.25 <~) $ b1'perc
  332. # n (density 3 $ run 2)
  333. mapM_ ($ silence) [d'tac, d'bz, d'mosq]
  334. d'bz $ every 2 (density 2) $ bass'5
  335. msil [d'cymb, d'bass, d'bz]
  336. cps (125/60)
  337. d'drum $ cf $
  338. overlay (every 2 (density 3) $ s "~ rsn") $
  339. every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~"
  340. d'drum $ cf $
  341. overlay (every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ rsn") $
  342. every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~"
  343. d'perc $ cf $
  344. slow 2 . spread slow [2,4,2,3] $
  345. jux (0.25 <~) $ b1'perc
  346. # n (density 3 $ run 2)
  347. d'drum silence
  348. hush