2
0

notts.tidal 19 KB

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