notts.tidal 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878
  1. {-
  2. anny @ notts algorave 2017
  3. setlist:
  4. - piston vi
  5. - raise - battery 1 - piston iii
  6. - juliese
  7. - haddeo (algorave remix)
  8. - battery 2 - battery 3 - piston viii
  9. -}
  10. let bpm b = cps (b/60)
  11. hush
  12. -- [1] piston vi
  13. bpm 138
  14. d'bass $ bass'6
  15. d'bz $ bass2'6
  16. d'fly $ plode'6
  17. d'cymb $ cymb'6
  18. d'perc $ wt'2 # gain "0.85"
  19. d'bass silence
  20. d'drum $ drum'6
  21. d'misc $ slow 16 $ bass' 64
  22. d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $ cymb'6
  23. d'gnome $ wtsn'6
  24. d'drum $ overlay sn'6 $ drum'6
  25. d'bass $ (0.6 ~>) $ bass'4
  26. msil [d'perc,d'gnome,d'misc]
  27. d'gnome $ gnome'6 5
  28. d'gnome $ gnome'6 3
  29. msil [d'drum,d'fly,d'bz,d'cymb]
  30. d'drum $ sound "[[k k:1]*2 [sn k:1 ~ k] [~ k:1 k ~] [~ sn ~ k]]/8"
  31. d'fly $ fly'5 False
  32. d'cymb $ (0.5 <~) $ cymb'2 "0.7"
  33. d'bz $ bass2'6
  34. d'drum $ overlay sn'6 $ drum'6
  35. msil [d'perc,d'fly,d'bz]
  36. -- [2] pigs nose: raise
  37. bpm 138
  38. bpm 120
  39. bpm 117
  40. msil [d'gnome, d'bass]
  41. d'drum $ drum'6
  42. d'ql $ slow (10%4) $ spread density [1,5%4] $
  43. sound "[qlatibro:1 qlatibro]*2"
  44. # vowel "e"
  45. d'cymb silence
  46. d'drum $ overlay (cf $ pn'hh) $ drum'6
  47. d'casio $ cf $ s "casio*2 ~"
  48. d'mons $ cf $
  49. striate 4 $ slow 2 $ s "monsterb"
  50. # gain "0.7"
  51. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  52. d'mons $ cf $
  53. spread density [1,2] $
  54. striate 4 $ slow 2 $ s "monsterb"
  55. # gain "0.7"
  56. # speed ((+0.6).(/2) <$> slow 4 sinewave1)
  57. d'bass $ bass'5
  58. d'qs $ cf $
  59. jux (iter 8) $ pn'qs 2
  60. # gain "0.95"
  61. d'bass $ every 2 (density 2) $ bass'5
  62. d'qs $ cf $
  63. jux (iter 8) $ pn'qs 2
  64. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  65. # gain "0.95"
  66. -- quickly
  67. d'drum silence
  68. d'drum $ overlay (cf $ pn'sn) $ overlay (cf $ pn'hh) $ drum'6
  69. d'qs $ cf $
  70. spread density [1,1,2,0.5] $
  71. jux (iter 8) $ pn'qs 2
  72. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  73. # gain "0.95"
  74. msil [d'mons, d'drum, d'ql]
  75. d'qs $ cf $
  76. spread density [1,1,0.5,2] $
  77. jux (iter 8) $ pn'qs 2
  78. # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
  79. # gain "0.95"
  80. d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
  81. s "k(3,8)"
  82. d'jbass $ slow 8 $ sound "jungbass jungbass:1"
  83. # pan (slow 2 sinewave1)
  84. # speed "1.2"
  85. -- transition to [2b] battery 1
  86. d'hand $ b1'hand
  87. d'fly $ fly'5 True
  88. d'hand $ b1'hand
  89. # shape ((/2) <$> slow (10%4) sinewave1)
  90. d'bass $ slow 4 $ b1'bass
  91. # n "0 1 0 0"
  92. # speed (thirdosc1 <$> slow 8 sinewave1)
  93. -- nice drum
  94. d'perc $ cf $ b1'perc
  95. d'perc $ cf $ b1'perc
  96. # n (density 3 $ run 2)
  97. d'hand $ b1'hand
  98. # shape ((/2) <$> slow (10%4) sinewave1)
  99. # pan (halfosc <$> slow (8%3) sinewave1)
  100. bpm 117
  101. bpm 123
  102. bpm 125
  103. msil [d'fly, d'casio, d'jbass]
  104. d'perc $ cf $
  105. jux (0.25 <~) $ b1'perc
  106. # n (density 3 $ run 2)
  107. -- good bass
  108. d'bass $ cf $
  109. spread slow [1,3] $
  110. striate 16 $
  111. b1'bass
  112. # n "0 1 0 0"
  113. # speed (halfosc1 <$> slow 8 sinewave1)
  114. # gain "0.9"
  115. d'drum $ cf $ overlay (pn'sn) $ pn'hh
  116. d'tac $ cf $ b1'tac
  117. d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
  118. d'drum $ cf $ overlay (sound "[~ psn:1]") $ pn'hh
  119. d'perc $ cf $
  120. spread slow [2,1] $
  121. jux (0.25 <~) $ b1'perc
  122. # n (density 3 $ run 2)
  123. d'drum $ cf $ overlay (sound "[~ psn:1]") $ overlay (pn'hh) $
  124. s "k(3,8)"
  125. d'warb $ b1'warbler
  126. d'drum $ cf $ overlay (sound "[~ psn:1]") $ overlay (pn'hh) $
  127. every 4 (brak . density 2) $ s "k(3,8)"
  128. msil [d'tac, d'bass]
  129. d'cymb $ (0.5 <~) $ cymb'2 "0.7"
  130. -- merge in a bit of [2c] piston iii
  131. d'bass2 $ bass'3 "o i" "1" True # gain "1"
  132. -- (?) d'shard $ ((1%16) <~) $ shard'2
  133. d'drum $ cf $
  134. overlay (
  135. every' 8 8 (density 1.5) $
  136. every 2 (density 3) $
  137. sound "[~ psn:1]"
  138. ) $
  139. overlay (pn'hh) $
  140. every 4 (brak . density 2) $ s "k(3,8)"
  141. d'bass $ slow 4 $ b1'bass
  142. # n "0 1 0 0"
  143. # speed (thirdosc1 <$> slow 8 sinewave1)
  144. d'perc $ cf $
  145. slow 2 . spread slow [2,4,2,3] $
  146. jux (0.25 <~) $ b1'perc
  147. # n (density 3 $ run 2)
  148. d'bass2 $ bass'3 "o i" "0" True # gain "1.1"
  149. d'drum $ cf $
  150. overlay (
  151. every' 8 8 (density 1.5) $
  152. every 2 (density 3) $
  153. sound "[~ psr:1]"
  154. ) $
  155. pn'hh
  156. d'bass2 $ bass'3 "o i" "1" True # gain "1.1"
  157. d'drum $ cf $ every' 8 8 (density 1.5) $ every 2 (density 3) $ sound "[~ psn:1]"
  158. msil [d'hand, d'bz, d'bass, d'bass2, d'cymb]
  159. d'shard silence
  160. -- [3] juliese
  161. d'bass $ bassbass
  162. bpm 125
  163. bpm 105
  164. bpm 99
  165. d'drum silence
  166. msil [d'perc, d'warb]
  167. d'drum $ s "k"
  168. d'drum $ morek $ s "k"
  169. d'perc $ hhb False
  170. d'bass $ bassbass'
  171. d'perc $ whenmod 16 15 (density 3) $ hhb False
  172. d'drum $ overlay ((0.5 ~>) $ s "rsn/2") $ morek $ s "k"
  173. d'perc $ whenmod 16 15 (density 3) $ hhb True
  174. d'drum $ overlay ((1 ~>) $ s "cy/8") $
  175. overlay ((0.5 ~>) $ s "rsn/2") $ morek $ s "k"
  176. d'bass $ whenmod 3 2 (slow 2) $ bassbass'
  177. d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  178. d'perc $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  179. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  180. d'drum $ overlay ((0.5 ~>) $ s "rsn/2") $ morek $ s "k"
  181. d'udu $ ududu
  182. d'wbass $ chop 16 $ sound "[wb wb:1 ~ ~]/4" # gain "0.9"
  183. d'wbass $ chop 16 $ sound "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
  184. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  185. d'eg $ density 0.25 $ eg
  186. # gain "0.8"
  187. d'eg $
  188. density 0.25 $
  189. slowspread density [1, 2, 0.5, 2] $ eg
  190. # gain "0.8"
  191. d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  192. density 0.25 $
  193. slowspread density [1, 2, 0.5, 2] $ eg
  194. # gain "0.8"
  195. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  196. # speed "[1 1 2]/3"
  197. d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  198. density 0.245 $ -- !
  199. slowspread density [1, 2, 0.5, 2] $ eg
  200. # gain "0.8"
  201. mapM_ ($ silence) [d'perc, d'bass]
  202. -- fuck yeah. const rules
  203. d'eg $ (0.18 <~) $ every 2 (const silence) $
  204. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  205. density 0.245 $
  206. slowspread density [1, 2, 0.5, 2] $ eg
  207. # gain "0.8"
  208. d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
  209. d'drum $ overlay ((0.5 ~>) $ s "rsn/2") $ morek $ every' 12 2 (density 3) $ s "k"
  210. d'pc $ pcbeep
  211. d'pc $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  212. d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  213. (whenmod 7 5 $ trunc (5%6)) $ ududu
  214. d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  215. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  216. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  217. # speed "[1 1 2]/3"
  218. d'pc $ whenmod 7 5 (density 1.25) $
  219. slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  220. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  221. d'gt $ gt
  222. # gain "0.87"
  223. d'gt $ gt
  224. # gain "0.87"
  225. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  226. -- OOOOOOHHHH MY FUCK
  227. d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
  228. every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  229. # speed "[1 1 2]/3"
  230. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  231. -- funkier bassline w slowspread lambda, thanks yaxu. thaxu
  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. -- bye const
  238. d'eg $ (0.18 <~) $
  239. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  240. density 0.245 $
  241. slowspread density [1, 2, 0.5, 2] $ eg
  242. # gain "0.8"
  243. d'gt $ density 0.98 $ gt
  244. # gain "0.87"
  245. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  246. mapM_ ($ silence) [d'eg, d'wbass]
  247. d'drum $ ju'drum2
  248. mapM_ ($ silence) [d'bass, d'udu, d'pc]
  249. mapM_ ($ silence) [d'gt]
  250. -- [4] haddeo (algorave remix)
  251. bpm 99
  252. bpm 104
  253. bpm 105
  254. -- pt 1: intro
  255. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  256. # gain "0.7"
  257. solo $ d'drum $ stack [
  258. n "1/4" # s "drum"
  259. ]
  260. d'wax $ slow 16 . striate 256 $ s "icarus"
  261. d'drum $ stack [
  262. n "1/4" # s "drum",
  263. n "[~ 0]" # s "kit"
  264. ]
  265. d'drum $ stack [
  266. n "[1*2, 0*8]/8" # s "drum",
  267. n "[~ 0]" # s "kit"
  268. ]
  269. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  270. -- drop 1
  271. d'nim $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  272. d'wax silence
  273. d'drum $ stack [
  274. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  275. n "~ 0" # s "kit"
  276. ]
  277. d'drum $ stack [
  278. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  279. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  280. ]
  281. d'wax $ slow 16 . striate 256 $ s "icarus"
  282. d'drum $ stack [
  283. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  284. withmod 11 5 0.5 1 (density 2) $
  285. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  286. ]
  287. d'fx3 $
  288. (1.5 ~>) $
  289. slow 4 $ chop 48 $
  290. sound (samples "snoo" <$> slow 7 $ run 7)
  291. # gain "0.8"
  292. # cut "10"
  293. d'nim $ superimpose (iter 4) $
  294. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  295. d'nim $ superimpose (iter 4 . nim'osc) $
  296. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  297. d'fx1 $
  298. (2 ~>) $ chop 16 $
  299. s "dorr/4"
  300. # hresonance "0.05"
  301. # hcutoff "200"
  302. # gain "0.8"
  303. d'drum $ stack [
  304. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  305. whenmod 3 2 (density 2) $
  306. withmod 11 5 0.5 1 (density 2) $
  307. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  308. ]
  309. d'nim $ superimpose (iter 6 . nim'osc) $
  310. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  311. -- pt 2: offbeat
  312. d'drum $ mt 16 16 $ stack [
  313. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  314. whenmod 3 2 (density 2) $
  315. withmod 11 5 0.5 1 (density 2) $
  316. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  317. ]
  318. d'nim $ superimpose (iter 6 . nim'osc . (# nudge "0")) $
  319. mt 16 16 $
  320. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  321. d'fx1 $ mt 16 16 $
  322. (2 ~>) $ chop 16 $
  323. s "dorr/4"
  324. # hresonance "0.05"
  325. # hcutoff "200"
  326. # gain "0.8"
  327. msil [d'wax, d'fx2, d'fx3]
  328. d'nim $ mt 16 16 $
  329. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  330. d'nim $ mt 16 16 $
  331. whenmod 5 3 rev $
  332. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  333. d'nim $ mt 16 16 $
  334. every' 2 2 (within (0, 0.5) (const silence)) $
  335. whenmod 5 3 rev $
  336. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  337. d'fx2 $ mt 16 16 $ 1.75 ~> s "tubal/4"
  338. d'nim $ mt 16 16 $
  339. every 3 (density 2) $
  340. every' 2 2 (within (0, 0.5) (const silence)) $
  341. whenmod 5 3 rev $
  342. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  343. d'fx2 $ mt 16 16 $
  344. stack [
  345. 1.75 ~> s "tubal/4",
  346. chop 16 $
  347. 3.75 ~> s "duck/4"
  348. # gain "0.6"
  349. # speed "0.9"
  350. ]
  351. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  352. mt 16 16 $
  353. every 3 (density 2) $
  354. every' 2 2 (within (0, 0.5) (const silence)) $
  355. whenmod 5 3 rev $
  356. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  357. -- intermission
  358. msil [d'fx1, d'fx2]
  359. solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  360. mt 16 16 $
  361. every 3 (density 2) $
  362. every' 2 2 (within (0, 0.5) (const silence)) $
  363. whenmod 5 3 rev $
  364. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  365. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  366. every' 2 2 (within (0, 0.5) (const silence)) $
  367. whenmod 5 3 rev $
  368. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  369. let s = striate 16
  370. in d'bass $
  371. slow 8 $ stack [
  372. s $ sound "hbass",
  373. s $ sound "sine"
  374. ]
  375. # gain "0.9"
  376. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  377. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  378. -- pt 3: funk
  379. d'drum $ n "0*4" # s "kit"
  380. # gain "0.9"
  381. d'drum $ n "0*4" # s "drum"
  382. # gain "0.9"
  383. d'drum $ swing' $ stack [
  384. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  385. whenmod 3 2 (density 2) $
  386. withmod 11 5 0.5 1 (density 2) $
  387. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  388. ]
  389. d'nim $ (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  390. d'drum $ swing' $ stack [
  391. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  392. whenmod 3 2 (density 2) $
  393. withmod 11 5 0.5 1 (density 2) $
  394. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  395. n "[~ 1]/2" # s "hsn"
  396. # gain "0.85"
  397. ]
  398. d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
  399. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  400. d'nim $ every' 16 1 (# vowel "o u") $
  401. whenmod 16 12 (# vowel "[a i]/3") $
  402. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  403. d'drum $ swing' $ stack [
  404. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  405. whenmod 3 2 (density 2) $
  406. withmod 11 5 0.5 1 (density 2) $
  407. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  408. n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  409. # gain "0.85"
  410. ]
  411. d'bass2 $ swing' $
  412. n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
  413. # speed (0.5 ~> "[2 1]")
  414. # gain "0.82"
  415. d'fx1 $
  416. (2 ~>) $ chop 16 $ s "dorr/4"
  417. # hresonance "0.05"
  418. # hcutoff "200"
  419. # gain "0.8"
  420. d'fx2 $
  421. stack [
  422. 1.75 ~> s "tubal/4",
  423. chop 16 $
  424. 3.75 ~> s "duck/4"
  425. # gain "0.6"
  426. # speed "0.9"
  427. ]
  428. d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
  429. whenmod 16 12 (# vowel "[a i]/3") $
  430. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  431. d'fx1 $
  432. superimpose (slow 2) $
  433. (2 ~>) $ chop 16 $ s "dorr/4"
  434. # hresonance "0.05"
  435. # hcutoff "200"
  436. # gain "0.8"
  437. d'wax $ slow 16 . striate 256 $ s "icarus"
  438. d'drum $ swing' $ stack [
  439. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  440. whenmod 3 2 (density 2) $
  441. withmod 11 5 0.5 1 (density 2) $
  442. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  443. n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  444. # gain "0.85"
  445. ]
  446. d'nim $ superimpose (iter 4) $
  447. every' 16 1 ((# vowel "o u") . nim'del) $
  448. whenmod 16 12 (# vowel "[a i]/3") $
  449. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  450. d'nim $ superimpose (iter 4 . nim'osc) $
  451. every' 16 1 ((# vowel "o u") . nim'del) $
  452. whenmod 16 12 (# vowel "[a i]/3") $
  453. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  454. d'drum $ swing' $ stack [
  455. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  456. n "[~ 0]" # s "kit",
  457. n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  458. # gain "0.85"
  459. ]
  460. -- outro
  461. msil [d'nim, d'wax, d'fx2, d'fx3]
  462. d'hi $
  463. swing' $
  464. every 3 rev $
  465. whenmod 12 8 (0.5 <~) $
  466. (0.5 ~>) $
  467. slow 8 $
  468. gap 64 $
  469. n "[0 1]/2" # s "nimble"
  470. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  471. d'nim $ (0.25 ~>) $
  472. whenmod 4 2 (const silence) $
  473. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  474. d'fx3 $ 3 ~> n "[0 1]/8" # s "duon"
  475. # gain "0.9"
  476. d'nim $ (0.25 ~>) $
  477. whenmod 4 2 (const silence) $
  478. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  479. # vowel "o"
  480. d'drum $ swing' $ stack [
  481. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  482. every' 16 16 (const $ sound "kit:3") $
  483. n "[~ 0]" # s "kit",
  484. n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  485. # gain "0.8"
  486. ]
  487. msil [d'bass, d'bass2, d'hi, d'fx1, d'fx3]
  488. -- [5] battery 2
  489. d'perc $ cf $ s "uxay*2"
  490. # n "1"
  491. d'nim silence
  492. d'perc $ b2'ux
  493. d'drum silence
  494. bpm 105
  495. bpm 123
  496. bpm 125
  497. d'perc $ b2'ux
  498. # speed "[0.7 1 1.2]/2"
  499. d'drum $ cf $ b2'psr
  500. d'drum $ cf $ b2'psrf
  501. d'drum $ cf $ every 3 (0.125 <~) $ b2'psrf
  502. d'drum $ overlay (s "k") $
  503. cf $ every 3 (0.125 <~) $ b2'psrf
  504. -- this and next 3 parts real quick
  505. d'perc $ b2'ux2 False
  506. d'drum $ cf $ -- overlay (s "k") $
  507. every 3 (0.125 <~) $ b2'psrf
  508. d'tr $ cf $ b2'trump "[~ trump ! !] ~"
  509. d'tr $ cf $ b2'trump "[~ trump ! !] ~"
  510. # speed (halfosc1 <$> slow 4 sinewave1)
  511. d'drum $ overlay (s "k") $
  512. cf $ every 3 (0.125 <~) $ b2'psrf
  513. d'perc $ b2'ux2 True
  514. -- quickly
  515. d'bass $ b2'bass
  516. d'tr silence
  517. d'bass $ b2'bass
  518. # shape "0.3" -- increase 0->0.3
  519. d'bass $ b2'bass
  520. # shape (halfosc <$> saw1)
  521. --d'shard $ ((1%16) <~) $ shard'2
  522. d'fly $ fly'2
  523. d'arpy $ cf $ b2'arpy
  524. d'arpy $ cf $ iter 9 $ b2'arpy
  525. d'arpy $ cf $
  526. whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
  527. iter 9 $ b2'arpy
  528. msil [d'fly, d'perc]
  529. d'drum $ s "k/4"
  530. d'bass silence
  531. -- transition to [5b] battery 3
  532. d'perc $ cf $
  533. slow 2 . spread slow [2,4,2,3] $
  534. jux (0.25 <~) $ b1'perc
  535. # n (density 3 $ run 2)
  536. d'drum $ overlay (s "k/4") $
  537. cf $ b3'perc
  538. d'bass $ cf $ b3'bass
  539. d'bass $ cf $
  540. whenmod 7 6 (density 1.5) $
  541. b3'bass
  542. d'drum $ overlay (s "k/4") $
  543. cf $ b3'perc
  544. # n (slow 3 $ run 4)
  545. d'bass $ cf $
  546. spread slow [2,(7%4)] $
  547. whenmod 7 6 (density 1.5) $
  548. b3'bass
  549. d'bass $ cf $
  550. spread slow [2,(7%4)] $
  551. whenmod 7 6 (density 1.5) $
  552. iter 4 $
  553. b3'bass
  554. d'hand $ b1'hand
  555. # shape ((/2) <$> slow (10%4) sinewave1)
  556. # pan (halfosc <$> slow (8%3) sinewave1)
  557. d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
  558. -- quickly
  559. d'arpy $ cf $ iter 9 $ b2'arpy
  560. msil [d'bass, d'hand]
  561. d'drum $ cf $
  562. overlay (b3'drum) $
  563. (b3'perc # n (slow 3 $ run 4))
  564. d'tac silence
  565. d'drum $ cf $
  566. overlay (b3'drumf) $
  567. (b3'perc # n (slow 3 $ run 4))
  568. d'ant $ ant'2
  569. d'bass2 $ bass'5f
  570. d'misc $ fly'2
  571. d'perc $ s "{wt/2, [~ wtsn]/8}"
  572. d'bass $ cf $
  573. spread slow [2,(7%4)] $
  574. whenmod 7 6 (density 1.5) $
  575. iter 4 $
  576. b3'bass
  577. d'perc $ snare43'1
  578. d'perc $ whenmod 5 3 rev $ snare43'1
  579. d'perc $ whenmod 5 3 (rev . chop 8) $ snare43'1
  580. d'perc $ overlay fly'1f $ whenmod 5 3 (rev . chop 8) $ snare43'1
  581. d'bass $ cf $
  582. spread slow [2,(7%4)] $
  583. whenmod 7 6 (density 1.5) $
  584. iter 4 $
  585. b3'bassf
  586. d'perc $ overlay fly'1f $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
  587. d'arpy $ cf $
  588. whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
  589. iter 9 $ b2'arpy
  590. msil [d'ant, d'misc, d'perc]
  591. -- drum solo-ish for a bit
  592. d'drum $ cf $
  593. overlay (b3'drumf) $
  594. whenmod 5 3 (density 2) $
  595. (b3'perc # n (slow 3 $ run 4))
  596. d'drum $ cf $
  597. overlay (b3'drumf) $
  598. whenmod 5 3 (density 2) $
  599. iter 2 $
  600. (b3'perc # n (slow 3 $ run 4))
  601. d'drum $ cf $
  602. every' 8 8 rev $
  603. overlay (b3'drumf) $
  604. whenmod 5 3 (density 2) $
  605. iter 2 $
  606. (b3'perc # n (slow 3 $ run 4))
  607. d'drum $ cf $
  608. every 3 rev $
  609. every' 8 8 rev $
  610. overlay (b3'drumf) $
  611. whenmod 5 3 (density 2) $
  612. iter 2 $
  613. (b3'perc # n (slow 3 $ run 4))
  614. msil [d'bass, d'arpy, d'bass2]
  615. -- remove kick
  616. d'drum $ cf $
  617. whenmod 5 3 (density 2) $
  618. iter 2 $
  619. (b3'perc # n (slow 3 $ run 4))
  620. d'perc $ cf $
  621. slow 2 . spread slow [2,4,2,3] $
  622. jux (0.25 <~) $ b1'perc
  623. # n (density 3 $ run 2)
  624. d'bass $ slow 16 $ bass' 64
  625. d'misc $ (0.75 ~>) $ bass'4
  626. -- transition to [5c] piston viii
  627. bpm 125
  628. bpm 134
  629. bpm 138
  630. d'perc silence
  631. d'drum $ overlay (s "[k [sn ~ ~ k] [~ k*2] sn]/4")
  632. $ cf $ (b3'perc # n (slow 3 $ run 4))
  633. d'misc $ overlay bass'5f $ (0.75 ~>) $ bass'4
  634. d'perc $ overlay fly'1f $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
  635. d'drum $ s "[k*2 [sn ~ ~ k] [k k*2] sn]/4"
  636. d'shard $ whenmod 7 3 (density (5%4)) $ plox'4 "[ice plode]*2"
  637. d'fly $ fly'5 True
  638. d'ant $ bass2'6
  639. d'cymb $ wtsn'6
  640. d'gnome $ gnome'6 5
  641. d'bz $ shard'3f
  642. d'gnome $ gnome'6 3
  643. d'bz $ within (0.5, 1) (density 2) $ shard'3f
  644. msil [d'fly,d'shard,d'bz,d'misc,d'cymb]
  645. d'misc $ (0.75 ~>) $ bass'4
  646. d'cymb $ (2.75 ~>) $ cymb'2 "0.7"
  647. msil [d'gnome,d'ant]
  648. d'bz $ every 3 brak $ bzox'4 "~ bzl"
  649. msil [d'bz,d'cymb,d'misc]
  650. solo $ d'perc $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
  651. hush