mcr3.tidal 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647
  1. {-
  2. manchester algorave #3
  3. by anny: http://anny.audio
  4. setlist:
  5. 1. juliese
  6. 2. piston iv
  7. 3. haddeo (algorave remix)
  8. -}
  9. hush
  10. {-
  11. piston iv
  12. -}
  13. let d'drum = d1 -- k, sn
  14. let d'perc = d2 -- wt, wtsn, hh
  15. let d'gnome = d3 -- gnome, cymb
  16. let d'bass = d4 -- dubb, k
  17. let d'fly = d5 -- fly
  18. let d'bz = d6 -- bz, bzl, ff
  19. let d'shard = d7 -- ice, plode
  20. let d'ant = d9 -- ant
  21. let d'misc = d8 -- overflow channel for a few cases
  22. let d'cymb = d10 -- cymb
  23. let bass2'3 = slow 8 $ chop 16 $ bass'params $ sound "[dubb dubb:1]/2"
  24. |=| cut "1"
  25. |=| speed "0.2"
  26. |=| vowel "e"
  27. let bass'params = (|=| gain "0.7").
  28. (|=| hcutoff "485").
  29. (|=| hresonance "0.001")
  30. let drum5'4 = sound "[[~ [wt wtsn]] ~ wt ~]/5"
  31. -- used with ice, plode, wtsn..
  32. let plox'4 s = within (0.5, 0.75) (iter 4) $
  33. whenmod 3 2 (slow 2) $
  34. slow 8 $ every 2 rev $ striate 128 $ sound s
  35. |=| cutoff "441"
  36. |=| resonance "0.001"
  37. |=| speed "0.7"
  38. |=| gain "0.7"
  39. let bass'4 = whenmod 5 3 (density (3%2) . brak) $
  40. bass'params $
  41. rev $ (0.5 ~>) $ slow 2 . chop 8 $ sound "[dubb dubb:1]/2"
  42. |=| speed "0.5"
  43. |=| cut "1"
  44. |=| end "0.5"
  45. let bz'4 = (0.5 <~) $ slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
  46. |=| speed ((+1) <$> density 1.7 sinewave1)
  47. |=| gain "0.9"
  48. -- used with bz, bzl
  49. let bzox'4 s = whenmod 7 4 (within (0.5, 1) (density 2)) $
  50. (0.5 <~) $
  51. slow 16 . chop 32 $ sound (samples s (density 1.5 "0 1"))
  52. |=| speed ((+1.6) <$> density 2.2 sinewave1)
  53. |=| pan ((+0.25).(/2) <$> density 4.1 sinewave1)
  54. -- go
  55. bpm 138
  56. solo $ d'misc $ bass2'3
  57. d'perc $ drum5'4
  58. d'shard $ plox'4 "[ice plode]*2"
  59. -- we're back
  60. d'drum $ sound "[k sn k*2 [~ sn] [~ k]]/5"
  61. d'perc $ smash 4 [0.5,0.25] $ iter 3 $ drum5'4
  62. d'bz $ bz'4
  63. d'misc silence
  64. d'shard $ whenmod 7 3 (density (5%4)) $ plox'4 "[ice plode]*2"
  65. d'drum $ sound "[[k k:1]*2 sn k*2 [~ sn] [~ k]]/5"
  66. d'bass $ (0.75 ~>) $ bass'4
  67. -- o yes
  68. msil [d'perc,d'bz,d'shard]
  69. d'bz $ bzox'4 "bz"
  70. d'drum $ sound "[k*2 sn [~ k] sn]/4"
  71. d'bz $ bzox'4 "bz*2"
  72. d'shard $ whenmod 7 3 (density (5%4)) $ plox'4 "[ice wtsn]*2" |=| vowel "u e"
  73. d'bz $ every 3 brak $ bzox'4 "bz*2"
  74. d'perc $ smash 4 [0.5,0.25] $ iter 3 $ drum5'4
  75. d'drum silence
  76. d'drum $ sound "[[k ~ ~ k] sn [~ k] sn]/4"
  77. d'bz $ every 3 brak $ bzox'4 "bz bzl"
  78. msil [d'perc,d'bass,d'shard]
  79. d'bz $ every 2 brak $ bzox'4 "bz*2"
  80. -- transition to haddeo
  81. d'drum $ s "[~ sn]/2"
  82. bpm 135
  83. bpm 130 -- ...to 99
  84. d'drum silence
  85. {-
  86. anny: juliese
  87. to be performed at leeds algorave, 29th april 2016
  88. -}
  89. cps (99/60)
  90. -- alt every
  91. let every' n o f = when ((== (o-1)) . (`mod` n)) f
  92. -- channel maps
  93. let d'drum = d1
  94. d'perc = d2
  95. d'bass = d3
  96. d'eg = d4
  97. d'gt = d5
  98. d'udu = d6
  99. d'pc = d7
  100. d'pcl = d8
  101. d'wbass = d9
  102. -- bass template
  103. let bassbass = sound "[[vb vb:1] ~]/2"
  104. # end (slow 1.4 "0.2 0.4")
  105. # vowel "e o"
  106. let bassbass' = bassbass # speed (slow 2.5 "1 -1")
  107. -- lay more k over 4tf k
  108. let morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
  109. -- final main drum loop, for reference
  110. -- n.b. DO NOT copy such shit all over the place like you did with piston, you ass
  111. let drum1'f = overlay ((0.5 ~>) $ s "jsn/2") $ every' 12 2 (density 3) $ morek $ s "k"
  112. -- basic hats
  113. let hhb m = smash 16 [0.25, 0.5] $
  114. (if m then (every 3 (append $ sound "jhh:1 jhh")) else id) $
  115. sound "jhh jhh:2"
  116. # gain "0.6"
  117. -- udu
  118. let ududu = slow 4 . chop 128 $
  119. sound (samples "udu" (slow 4 $ irand 4))
  120. # gain "0.8"
  121. # cut "6"
  122. -- guitar (i think)
  123. let eg = gap 128 $ s "eg*2"
  124. # cut "4"
  125. -- other guitar
  126. let gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
  127. chop 128 $
  128. s "[gt [~ gt] ! ~]/2"
  129. # cut "5"
  130. let pcbeep = slow 16 $ gap 48 $ sound "pc:1"
  131. # gain "0.7"
  132. # cut "7"
  133. # speed "[1 0.7]"
  134. {-
  135. here goes i guess
  136. -}
  137. hush
  138. d'drum $ s "k"
  139. d'bass $ bassbass
  140. d'drum $ morek $ s "k"
  141. d'bass $ bassbass'
  142. d'perc $ hhb False
  143. d'bz silence
  144. d'perc $ whenmod 16 15 (density 3) $ hhb False
  145. d'drum $ overlay ((0.5 ~>) $ s "jsn/2") $ morek $ s "k"
  146. d'perc $ whenmod 16 15 (density 3) $ hhb True
  147. d'drum $ overlay ((1 ~>) $ s "cy/8") $
  148. overlay ((0.5 ~>) $ s "jsn/2") $ morek $ s "k"
  149. d'bass $ whenmod 3 2 (slow 2) $ bassbass'
  150. d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  151. d'perc $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  152. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  153. d'drum $ overlay ((0.5 ~>) $ s "jsn/2") $ morek $ s "k"
  154. d'udu $ ududu
  155. d'wbass $ chop 16 $ sound "[wb wb:1 ~ ~]/4" # gain "0.9"
  156. d'wbass $ chop 16 $ sound "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
  157. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  158. d'eg $ density 0.25 $ eg
  159. # gain "0.8"
  160. d'eg $
  161. density 0.25 $
  162. slowspread density [1, 2, 0.5, 2] $ eg
  163. # gain "0.8"
  164. d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  165. density 0.25 $
  166. slowspread density [1, 2, 0.5, 2] $ eg
  167. # gain "0.8"
  168. d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  169. # speed "[1 1 2]/3"
  170. d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  171. density 0.245 $ -- !
  172. slowspread density [1, 2, 0.5, 2] $ eg
  173. # gain "0.8"
  174. mapM_ ($ silence) [d'perc, d'bass]
  175. -- fuck yeah. const rules
  176. d'eg $ (0.18 <~) $ every 2 (const silence) $
  177. (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  178. density 0.245 $
  179. slowspread density [1, 2, 0.5, 2] $ eg
  180. # gain "0.8"
  181. d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
  182. d'drum $ overlay ((0.5 ~>) $ s "jsn/2") $ morek $ every' 12 2 (density 3) $ s "k"
  183. d'pc $ pcbeep
  184. d'pc $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  185. d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  186. (whenmod 7 5 $ trunc (5%6)) $ ududu
  187. d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  188. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  189. 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"
  190. # speed "[1 1 2]/3"
  191. d'pc $ whenmod 7 5 (density 1.25) $
  192. slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  193. slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
  194. d'gt $ gt
  195. # gain "0.87"
  196. d'gt $ gt
  197. # gain "0.87"
  198. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  199. -- OOOOOOHHHH MY FUCK
  200. d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
  201. every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  202. # speed "[1 1 2]/3"
  203. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  204. -- funkier bassline w slowspread lambda, thanks yaxu. thaxu
  205. d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
  206. whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
  207. d'udu $ (every' 5 3 $ brak) $
  208. (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  209. (whenmod 7 5 $ trunc (5%6)) $ ududu
  210. -- bye const
  211. d'eg $ (0.18 <~) $
  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'gt $ density 0.98 $ gt
  217. # gain "0.87"
  218. # speed ((+1).(/4) <$> slow 1.95 sinewave1)
  219. let ju'drum2 = stack [
  220. every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  221. every' 16 16 (overlay $ (0.82 ~>) $ s "jsn") $ (1 ~>) $ s "jsn/2"
  222. ]
  223. mapM_ ($ silence) [d'eg, d'wbass]
  224. d'drum $ ju'drum2
  225. mapM_ ($ silence) [d'bass, d'udu, d'pc]
  226. mapM_ ($ silence) [d'gt]
  227. {-
  228. haddeo (algorave remix)
  229. -}
  230. let bpm b = cps (b/60)
  231. withmod a b c d = (whenmod a b . within (c, d))
  232. every' n o f = when ((== (o-1)) . (`mod` n)) f
  233. msil = mapM_ ($ silence)
  234. tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
  235. let swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
  236. swing' = swing 0.14 --0.05
  237. let d'drum = d1
  238. d'bass = d3
  239. d'bass2 = d2
  240. d'wax = d4
  241. d'nim = d5
  242. d'hi = d6
  243. d'fx1 = d8
  244. d'fx2 = d9
  245. d'fx3 = d10
  246. let nim'osc = (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
  247. nim'del = (# delay "0.5") . (# delayfeedback "0.6") . (# delaytime "0.25")
  248. -- original bpm = 105
  249. let tmod' s e = tmod (s*(1/(105/60))) e
  250. mt s d i = slow s $ tmod' 0.5 3 $ density d $ i
  251. bpm 105
  252. -- pt 1: intro
  253. d'drum $ stack [
  254. n "1/4" # s "drum"
  255. ]
  256. d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
  257. # gain "0.4"
  258. d'perc silence
  259. d'wax $ slow 16 . striate 256 $ s "icarus"
  260. d'drum $ stack [
  261. n "1/4" # s "drum",
  262. n "[~ 0]" # s "kit"
  263. ]
  264. d'drum $ stack [
  265. n "[1*2, 0*8]/8" # s "drum",
  266. n "[~ 0]" # s "kit"
  267. ]
  268. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  269. -- drop 1
  270. d'nim $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  271. d'wax silence
  272. d'drum $ stack [
  273. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  274. n "~ 0" # s "kit"
  275. ]
  276. d'drum $ stack [
  277. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  278. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  279. ]
  280. d'wax $ slow 16 . striate 256 $ s "icarus"
  281. d'drum $ stack [
  282. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  283. withmod 11 5 0.5 1 (density 2) $
  284. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  285. ]
  286. d'fx3 $
  287. (1.5 ~>) $
  288. slow 4 $ chop 48 $
  289. sound (samples "snoo" <$> slow 7 $ run 7)
  290. # gain "0.8"
  291. # cut "10"
  292. d'nim $ superimpose (iter 4) $
  293. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  294. d'nim $ superimpose (iter 4 . nim'osc) $
  295. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  296. d'fx1 $
  297. (2 ~>) $ chop 16 $
  298. s "dorr/4"
  299. # hresonance "0.05"
  300. # hcutoff "200"
  301. # gain "0.8"
  302. d'drum $ stack [
  303. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  304. whenmod 3 2 (density 2) $
  305. withmod 11 5 0.5 1 (density 2) $
  306. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  307. ]
  308. d'nim $ superimpose (iter 6 . nim'osc) $
  309. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  310. -- pt 2: offbeat
  311. d'drum $ mt 16 16 $ stack [
  312. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  313. whenmod 3 2 (density 2) $
  314. withmod 11 5 0.5 1 (density 2) $
  315. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  316. ]
  317. d'nim $ superimpose (iter 6 . nim'osc . (# nudge "0")) $
  318. mt 16 16 $
  319. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  320. d'fx1 $ mt 16 16 $
  321. (2 ~>) $ chop 16 $
  322. s "dorr/4"
  323. # hresonance "0.05"
  324. # hcutoff "200"
  325. # gain "0.8"
  326. msil [d'wax, d'fx2, d'fx3]
  327. d'nim $ mt 16 16 $
  328. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  329. d'nim $ mt 16 16 $
  330. whenmod 5 3 rev $
  331. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  332. d'nim $ mt 16 16 $
  333. every' 2 2 (within (0, 0.5) (const silence)) $
  334. whenmod 5 3 rev $
  335. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  336. d'fx2 $ mt 16 16 $ 1.75 ~> s "tubal/4"
  337. d'nim $ mt 16 16 $
  338. every 3 (density 2) $
  339. every' 2 2 (within (0, 0.5) (const silence)) $
  340. whenmod 5 3 rev $
  341. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  342. d'fx2 $ mt 16 16 $
  343. stack [
  344. 1.75 ~> s "tubal/4",
  345. chop 16 $
  346. 3.75 ~> s "duck/4"
  347. # gain "0.6"
  348. # speed "0.9"
  349. ]
  350. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  351. mt 16 16 $
  352. every 3 (density 2) $
  353. every' 2 2 (within (0, 0.5) (const silence)) $
  354. whenmod 5 3 rev $
  355. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  356. -- intermission
  357. msil [d'fx1, d'fx2]
  358. solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  359. mt 16 16 $
  360. every 3 (density 2) $
  361. every' 2 2 (within (0, 0.5) (const silence)) $
  362. whenmod 5 3 rev $
  363. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  364. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  365. every' 2 2 (within (0, 0.5) (const silence)) $
  366. whenmod 5 3 rev $
  367. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  368. let s = striate 16
  369. in d'bass $
  370. slow 8 $ stack [
  371. s $ sound "bass",
  372. s $ sound "sine"
  373. ]
  374. # gain "0.9"
  375. d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
  376. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  377. -- pt 3: funk
  378. d'drum $ n "0*4" # s "kit"
  379. # gain "0.9"
  380. d'drum $ n "0*4" # s "drum"
  381. # gain "0.9"
  382. d'drum $ swing' $ stack [
  383. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  384. whenmod 3 2 (density 2) $
  385. withmod 11 5 0.5 1 (density 2) $
  386. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
  387. ]
  388. d'nim $ (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  389. d'drum $ swing' $ stack [
  390. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  391. whenmod 3 2 (density 2) $
  392. withmod 11 5 0.5 1 (density 2) $
  393. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  394. n "[~ 1]/2" # s "hsn"
  395. # gain "0.85"
  396. ]
  397. d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
  398. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  399. d'nim $ every' 16 1 (# vowel "o u") $
  400. whenmod 16 12 (# vowel "[a i]/3") $
  401. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  402. d'drum $ swing' $ stack [
  403. n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
  404. whenmod 3 2 (density 2) $
  405. withmod 11 5 0.5 1 (density 2) $
  406. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  407. n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  408. # gain "0.85"
  409. ]
  410. d'bass2 $ swing' $
  411. n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
  412. # speed (0.5 ~> "[2 1]")
  413. # gain "0.82"
  414. d'fx2 $
  415. stack [
  416. 1.75 ~> s "tubal/4",
  417. chop 16 $
  418. 3.75 ~> s "duck/4"
  419. # gain "0.6"
  420. # speed "0.9"
  421. ]
  422. d'fx1 $
  423. (2 ~>) $ chop 16 $ s "dorr/4"
  424. # hresonance "0.05"
  425. # hcutoff "200"
  426. # gain "0.8"
  427. d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
  428. whenmod 16 12 (# vowel "[a i]/3") $
  429. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  430. d'fx1 $
  431. superimpose (slow 2) $
  432. (2 ~>) $ chop 16 $ s "dorr/4"
  433. # hresonance "0.05"
  434. # hcutoff "200"
  435. # gain "0.8"
  436. d'wax $ slow 16 . striate 256 $ s "icarus"
  437. d'drum $ swing' $ stack [
  438. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  439. whenmod 3 2 (density 2) $
  440. withmod 11 5 0.5 1 (density 2) $
  441. n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
  442. n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  443. # gain "0.85"
  444. ]
  445. d'nim $ superimpose (iter 4) $
  446. every' 16 1 ((# vowel "o u") . nim'del) $
  447. whenmod 16 12 (# vowel "[a i]/3") $
  448. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  449. d'nim $ superimpose (iter 4 . nim'osc) $
  450. every' 16 1 ((# vowel "o u") . nim'del) $
  451. whenmod 16 12 (# vowel "[a i]/3") $
  452. (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  453. d'drum $ swing' $ stack [
  454. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  455. n "[~ 0]" # s "kit",
  456. n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  457. # gain "0.85"
  458. ]
  459. -- outro
  460. msil [d'nim, d'wax, d'fx2, d'fx3]
  461. d'hi $
  462. swing' $
  463. every 3 rev $
  464. whenmod 12 8 (0.5 <~) $
  465. (0.5 ~>) $
  466. slow 8 $
  467. gap 64 $
  468. n "[0 1]/2" # s "nimble"
  469. # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
  470. d'nim $ (0.25 ~>) $
  471. whenmod 4 2 (const silence) $
  472. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  473. d'fx3 $ 3 ~> n "[0 1]/8" # s "duon"
  474. # gain "0.9"
  475. d'nim $ (0.25 ~>) $
  476. whenmod 4 2 (const silence) $
  477. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  478. # vowel "o"
  479. d'drum $ swing' $ stack [
  480. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  481. every' 16 16 (const $ sound "kit:3") $
  482. n "[~ 0]" # s "kit",
  483. n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  484. # gain "0.8"
  485. ]
  486. msil [d'bass, d'bass2, d'hi, d'fx1, d'fx3]
  487. d'wax $ slow 16 . striate 256 $ s "icarus"
  488. d'wax $ retrig $ slow 20 $ sound "icarus:1"
  489. d'drum $ swing' $ mt 16 16 $ stack [
  490. n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
  491. every' 16 16 (const $ sound "kit:3") $
  492. n "[~ 0]" # s "kit",
  493. n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
  494. # gain "0.8"
  495. ]
  496. d'nim $ mt 16 16 $
  497. (0.25 ~>) $
  498. whenmod 4 2 (const silence) $
  499. slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
  500. # vowel "o"
  501. hush