notts.tidal 19 KB

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