piston.tidal 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732
  1. {-
  2. Anny: Piston LP
  3. anny.audio | pistonlp.co.uk
  4. Current version: 1.0.1
  5. Compatibility: Tidal Cycles 1.0-dev + SuperDirt 1.0-dev + SuperCollider 3.8
  6. License: CC-BY-SA https://creativecommons.org/licenses/by-sa/4.0/
  7. See README.md for more information
  8. -}
  9. let bpm b = cps (b/60)
  10. msil = mapM_ ($ silence)
  11. bassP = (# gain 0.7) . (# hcutoff 485) . (# hresonance 0.001)
  12. bass' c = rev . chop c $ bassP $ n "[0 1]/2" # s "dubb"
  13. d'drum = d1
  14. d'perc = d2
  15. d'gnome = d3
  16. d'bass = d4
  17. d'fly = d5
  18. d'bz = d6
  19. d'shard = d7
  20. d'misc = d8
  21. d'ant = d9
  22. d'cymb = d10
  23. {-
  24. @p1
  25. Piston I
  26. -}
  27. bpm 138
  28. -- @p1fly
  29. d'fly $ slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly"
  30. # hcutoff 1985 -- 0.09 * (44100/2)
  31. # hresonance 0.06
  32. # gain 1 -- 0.5 -> 1
  33. d'perc $ s "wt/2"
  34. d'drum $ sound "k:1"
  35. d'bass $ slow 8 $ 0.25 <~ bass' 16 -- @p1bass
  36. d'perc $ s "{wt/2, [~ wtsn]/8}"
  37. d'drum $ s "k"
  38. d'drum $ s "[k*2, [~ sn]]/2"
  39. -- @p1fly'
  40. d'fly $ whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $
  41. slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly"
  42. # hcutoff 1985 -- 0.09 * (44100/2)
  43. # hresonance 0.06
  44. -- @p1perc
  45. d'perc $ within (0.5, 1) (slow 1.5 . chop 4) $ -- (2)
  46. whenmod 5 3 (rev . chop 8) $ -- (0) rev (1) rev . chop 8
  47. density (4/3) $ s "[wtsn ~ wt]"
  48. -- @p1gnome
  49. d'gnome $ within (0, 0.5) rev $ chop 8 $ s "[gnome(3,8)]/2"
  50. # gain 0.8
  51. # speed (scale 0.8 1 $ slow 1.1 sine1)
  52. d'drum $ s "[k*2, ~ [sn [~ sn*3]/2]]/2"
  53. msil [d'drum, d'bass]
  54. d'drum $ s "[k(3,8)]/2"
  55. d'drum $ s "[k(3,8), ~ sn]/2"
  56. d'drum $ s "[k(3,8), ~ [sn [~ sn*3]/2]]/2"
  57. d'bass $ (every 2 $ within (0.25, 0.75) (0.5 ~>)) $ slow 8 $ bass' 16
  58. d'drum $ within (0.5, 1) (chop 8) $ s "[k(3,8), ~ [sn [~ sn*3]/2]]/2"
  59. msil [d'perc, d'fly]
  60. -- p1fly
  61. d'perc $ s "[~ wt*4 ~ wt*2 ~]/5"
  62. d'drum $ overlay (3.75 ~> s "wtsn/4") $ s "[k(3,8), ~ sn]/2"
  63. {-
  64. @p2
  65. Piston II
  66. -}
  67. bpm 138
  68. -- @p2drum
  69. d'drum $ slow 7 $ s "k [sn k] [k sn] [~ sn] [~ k] sn [k [k wtsn]]"
  70. msil [d'fly, d'gnome]
  71. d'perc $ s "wt*2"
  72. # vowel "[u e u a]/2"
  73. # end 0.15
  74. -- @p2bass
  75. d'bass $ slow 8 $ ((1%8) <~) $ chop 32 $ bassP $ n "[0 1]/2" # s "dubb"
  76. # speed 1.2
  77. # shape (scale 0 0.5 $ density 4 sine1)
  78. # cut 1
  79. -- # vowel "u a" -- (1)
  80. -- @p2ant
  81. d'ant $ slow 2 $ smash 16 [1,2] $ sound "ant:1"
  82. # cutoff 1764 -- 0.08 * (44100/2)
  83. # resonance 0.01
  84. -- @p2sharda
  85. d'shard $ ((1%16) <~) $ chop 16 $ s "[ice [~ ice] ~ ~]/4"
  86. # gain 0.7
  87. -- @p2fly
  88. -- solo $ -- (1)
  89. d'fly $ chop 64 $ s "[fly ~ [fly ~ ~ fly] ~]/4"
  90. # cut 1
  91. # begin 0.3
  92. # end 0.35
  93. # shape (scale 0.25 0.75 $ density 8 sine1)
  94. # speed (scale 0.92 1.92 $ density (5/4) saw1)
  95. d'drum $ 0.5 <~ sound "[[k k:1] [sn ~ ~ k]]/2"
  96. -- p2bass
  97. d'cymb $ (0.25 ~>) $
  98. -- @p2cymb
  99. within (0.5, 1) (# vowel "e") $ (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8"
  100. # shape (scale 0 (1/3) $ density 3.6 saw1)
  101. # gain 0.65
  102. -- @p2perc
  103. d'perc $ s "wt*2"
  104. # vowel "[u e u a]/2"
  105. # end 0.15
  106. -- p2bass @ 1
  107. -- @p2shardb
  108. d'shard $
  109. every 2 (density 1.5) $ whenmod 5 3 (density 2) $ -- (1)
  110. rev $
  111. chop 16 $ s "[ice [~ ice] ~ ~]/4"
  112. # gain 0.7
  113. # shape (scale 0.25 0.75 $ density 8 saw1)
  114. msil [d'perc, d'fly]
  115. d'drum $ sound "[[k sn] [~ k:1 k:1 ~]]/2"
  116. d'drum $ sound "[k [sn k:1 k:1 ~]]/2"
  117. d'perc $ s "~ wt*2"
  118. {-
  119. @p3
  120. Piston III
  121. -}
  122. bpm 138
  123. do d'drum $ s "k"
  124. msil [d'bass, d'cymb]
  125. -- @p3bz
  126. d'bz $ s "[ff(3,8) [~ [ff bz]]]/4"
  127. # end 0.3
  128. # shape "0 0.25"
  129. # gain 0.7
  130. d'drum silence
  131. d'drum $ s "[k k sn k]/2" -- @p3druma
  132. -- @p3bass
  133. -- solo $ -- (4)
  134. let v = "i" -- (0) i (1) o i
  135. c = 1 -- (0) 1 (3) 0
  136. b = id -- (0) id (2) brak
  137. in d'bass $
  138. (4 <~) $ every 2 (0.5 <~) $
  139. slow 4 . b $
  140. rev . chop 16 $
  141. bassP $ n "[0 1]/2" # s "dubb"
  142. # cut c
  143. # vowel v
  144. d'drum $ s "{[k*2 [~ k*2] k ~ k*2 ~ k*2 ~]/8, [~ sn]/2}" -- @p3drumb
  145. -- solo ~p3bass
  146. d'perc $ sound "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8"
  147. -- p4dubb
  148. d'misc $ slow 8 $ chop 16 $ bassP $ n "[0 1]/2" # s "dubb"
  149. # cut 1
  150. # speed 0.2
  151. # vowel "e"
  152. d'drum $ s "{[k*2 [~ k*2] k ~ k*2 ~ k*2 ~]/8, [~ sn]/2}"
  153. d'perc $ -- within (0, 0.5) (# vowel "o") $ -- (3)
  154. whenmod 3 2 rev $ -- (2)
  155. chop 16 $
  156. within (0.5, 1.5) (
  157. (# orbit 1) .
  158. (# delay 0.3) . (# delayfeedback 0.5) . (# delaytime 0.766) --(138/60)/3
  159. ) $
  160. overlay (s "~ wt*2") $ -- (1)
  161. sound "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8"
  162. -- @p3shard
  163. d'shard $ iter 5 . density 2 $ -- (1)
  164. (0.5 <~) $ ((1%16) <~) $ chop 16 $ s "[ice [~ ice] ~ ~]/4"
  165. # gain 0.6 -- (0) 0.7 (1) 0.6
  166. # vowel "e o" -- (1)
  167. -- p1gnome
  168. d'gnome $ within (0, 0.5) rev $ chop 8 $ s "[gnome(3,8)]/2"
  169. # gain 0.8
  170. # speed (scale 0.8 1 $ slow 1.1 sine1)
  171. -- p3bass w/ v="o i", c=0, b=brak
  172. {-
  173. @p4
  174. Piston IV
  175. -}
  176. bpm 138
  177. -- @p4dubb
  178. solo $ d'misc $ slow 8 $ chop 16 $ bassP $ n "[0 1]/2" # s "dubb"
  179. # cut 1
  180. # speed 0.2
  181. # vowel "e"
  182. d'perc $ sound "[[~ [wt wtsn]] ~ wt ~]/5"
  183. -- @p4shard
  184. d'shard $ -- whenmod 7 3 (density (5/4)) $ -- (1)
  185. within (0.5, 0.75) (iter 5) $ whenmod 3 2 (slow 2) $ slow 8 $ every 2 rev $
  186. striate 128 $ s "[ice plode]*2" -- (0) ice plode (2) ice wtsn
  187. # cutoff 441 -- 0.02 * (44100/2)
  188. # resonance 0.001
  189. # speed 0.7
  190. # gain 0.7
  191. -- # vowel "u e" -- (2)
  192. -- @p4drum + @p4perc
  193. d'drum $ sound "[k sn k*2 [~ sn] [~ k]]/5"
  194. d'perc $ smash 4 [0.5,0.25] $ iter 4 $ sound "[[~ [wt wtsn]] ~ wt ~]/5"
  195. d'bz $ (0.5 <~) $ slow 16 . chop 32 $ s "bzl"
  196. # n (density 1.5 "0 1")
  197. # speed (scale 1 2 $ density 1.7 sine1)
  198. # gain 0.9
  199. d'misc silence
  200. -- p4shard @ 1
  201. d'drum $ sound "[[k k:1]*2 sn k*2 [~ sn] [~ k]]/5"
  202. d'bass $ (0.75 ~>) $
  203. -- @p4bass
  204. whenmod 5 3 (density (3/2) . brak) $
  205. bassP $
  206. rev $ (0.5 ~>) $ slow 2 . chop 8 $ n "[0 1]/2" # s "dubb"
  207. # speed 0.5
  208. # cut 1
  209. # end 0.5
  210. msil [d'perc, d'bz, d'shard]
  211. -- @p4bz
  212. d'bz $ -- every 3 brak $ -- (0) off (2) 3 (4) 2
  213. whenmod 7 4 (within (0.5, 1) (density 2)) $
  214. (0.5 <~) $
  215. slow 16 . chop 32 $
  216. s "bz" -- (0) bz (1) bz*2 (3) bz bzl (4) bz*2
  217. # n (density 1.5 "0 1")
  218. # speed (scale 1.6 2.6 $ density 2.2 sine1)
  219. # pan (scale 0.25 0.75 $ density 4.1 sine1)
  220. d'drum $ sound "[k*2 sn [~ k] sn]/4"
  221. -- p4bz @ 1
  222. -- p4shard @ 2
  223. -- p4bz @ 2
  224. d'perc $ smash 4 [0.5,0.25] $ iter 4 $ sound "[[~ [wt wtsn]] ~ wt ~]/5"
  225. d'drum silence
  226. d'drum $ sound "[[k ~ ~ k] sn [~ k] sn]/4"
  227. -- p4bz @ 3
  228. msil [d'perc,d'bass,d'shard]
  229. -- p4bz @ 4
  230. {-
  231. @p5
  232. Piston V
  233. -}
  234. bpm 138
  235. -- @p5perc
  236. d'perc $ s "~ wt wt wtsn/8"
  237. # shape (scale 0 0.5 $ density 1.2 saw1)
  238. d'drum $ overlay (s "[[k ~ ~ k] ~ [~ k] ~]/4") $ sound "{[~ ~ ~ k:1], [~ sn]/2}"
  239. -- p2ant
  240. d'ant $ slow 2 $ smash 16 [1,2] $ sound "ant:1"
  241. # cutoff 1764 -- 0.08 * (44100/2)
  242. # resonance 0.01
  243. do d'drum $ sound "{[~ ~ ~ k:1], [~ sn]/2}"
  244. msil [d'bz, d'ant]
  245. d'drum $ sound "{k, [~ ~ ~ k:1], [~ sn]/2}" -- @p5drum
  246. d'bass $ chop 16 $ bassP $ s "[~ dubb]"
  247. # n (slow 4 "0 1")
  248. # cut 1
  249. -- @p5fly
  250. let b = id -- (0) id (1) brak
  251. in d'fly $ whenmod 5 3 rev $ b $
  252. slow 16 $ jux ((1.5 ~>) . rev) $
  253. chop 64 $ bassP $ sound "fly:1"
  254. # speed 0.7
  255. # shape (scale 0 0.5 $ density 2.1 saw1)
  256. -- @p5bass
  257. d'bass $ -- within (0.5, 0.75) (# vowel "u o") $ -- (4), delete in (5)
  258. -- every 2 (density 2) $ -- (3)
  259. -- density 1.6 $ -- (2) replacing (1)
  260. -- whenmod 3 2 (density 1.6) $ -- (1), (4) replacing (2)
  261. chop 16 $ bassP $ s "[~ dubb]"
  262. # n (slow 4 "0 1")
  263. # cut 1
  264. -- # speed (scale 0.75 1.25 $ slow 1.3 sine1) -- (3)
  265. d'fly silence
  266. -- p5bass @ 1
  267. -- p5bass @ 2
  268. d'bz $ whenmod 4 3 (density 1.8) $ -- (1)
  269. chop 12 $ sound "[~ ~ [~ k:1] !]/4"
  270. # speed 0.9
  271. # shape (scale 0 (1/3) $ density 3 sine1) -- (2)
  272. -- p5bass2 @ 1
  273. -- p5bass @ 3
  274. -- p5bass2 @ 2
  275. -- @p5gnome
  276. let g sm f = smash 64 sm $ s "~ gnome" # pan (f $ slow 4 sine1)
  277. in d'gnome $ whenmod 5 3 (slow 1.5) $ rev $
  278. stack [
  279. g [0.5,1] id,
  280. g [(1/2.5),1] (0.5 <~)
  281. ]
  282. # speed 1.2
  283. # shape ((0.25 ~>) $ scale 0 0.5 $ density 3 sine1)
  284. # gain 0.6
  285. -- @p5bass @ 4
  286. msil [d'drum, d'bass]
  287. d'drum $ sound "k:1"
  288. -- @p5drum2
  289. d'bz $ -- within (0, 0.5) rev -- (1)
  290. whenmod 4 3 (density 1.8) $
  291. chop 12 $ sound "[~ ~ [~ k:1] !]/4"
  292. # speed 0.9
  293. # shape (scale 0 (1/3) $ density 3 sine1)
  294. # orbit 1
  295. # delay 0.3
  296. # delayfeedback 0.2
  297. # delaytime 0.2875 --(138/60)/8
  298. -- p5fly w/ b=brak
  299. -- p5bass @ 5
  300. d'drum $ sound "{k, [~ ~ ~ k:1], [~ sn]/2}"
  301. msil [d'perc, d'bz]
  302. d'gnome silence
  303. {-
  304. @p6
  305. Piston VI
  306. -}
  307. bpm 138
  308. -- solo $ -- (0)
  309. d'bass $ (# gain (scale 0 0.7 $ saw1)) $
  310. within (0.5, 0.75) (# vowel "u o") $ -- (4), delete in (5)
  311. every 2 (density 2) $ -- (3)
  312. whenmod 3 2 (density 1.6) $ -- (1), (4) replacing (2)
  313. chop 16 $ bassP $ s "[~ dubb]"
  314. # n (slow 4 "0 1")
  315. # cut 1
  316. # speed (scale 0.75 1.25 $ slow 1.3 sine1) -- (3)
  317. -- @p6bass
  318. d'bz $ within (0, 0.5) (slow (7/6)) $
  319. every 2 (0.5 <~) $ slow 8 $
  320. bass' 32
  321. d'fly $ superimpose (slow (5/3) . iter 3) $
  322. (# speed (scale 0.7 1.7 $ slow 1.1 sine1)) $
  323. chop 32 $ s "[plode(5,8)]/8"
  324. # cut 1
  325. d'cymb $ s "[cymb*8 ~]/8"
  326. # gain (scale 0.6 0.8 $ density 3.6 saw1)
  327. # cut 1
  328. d'perc $ s "wt*2"
  329. # vowel "[u e u a]/2"
  330. # end 0.15
  331. # gain 0.85
  332. d'bass silence
  333. d'drum $ sound "{k, [~ ~ ~ k:1] [~ k:1]}" -- @p6drum
  334. d'misc $ slow 16 $ bass' 64
  335. -- @p6cymb
  336. d'cymb $ density (5/4) $ whenmod 9 4 (density 1.5) $ -- (1)
  337. s "[cymb*8 ~]/8"
  338. # gain (scale 0.6 0.8 $ density 3.6 saw1)
  339. # cut 1
  340. -- @p6wtsn
  341. d'gnome $ (3 ~>) $ within (0.25, 0.75) rev $
  342. slowspread ($) [chop 16, chop 32] $ s "[wtsn(3,8)]/2"
  343. # speed (scale 0.8 1.3 $ density 1.8 sine1)
  344. d'drum $ sound "{k, [~ ~ ~ k:1] [~ k:1], [~ sn ~ sn*2]/8}" -- @p6drum-sn
  345. d'bass $ (0.6 ~>) $
  346. -- p4bass
  347. whenmod 5 3 (density (3/2) . brak) $
  348. bassP $
  349. rev $ (0.5 ~>) $ slow 2 . chop 8 $ n "[0 1]/2" # s "dubb"
  350. # speed 0.5
  351. # cut 1
  352. # end 0.5
  353. msil [d'perc, d'gnome, d'misc]
  354. -- @p6gnome
  355. let d = 5 -- (0) 5 (1) 3
  356. in d'gnome $ iter 5 $ density (9/8) $
  357. within (0, 0.5) rev $
  358. smash 8 [1,2] $ s "[gnome(3,8)]/2"
  359. # gain 0.8
  360. # speed (scale 0.76 (0.76 + 1/d) $ slow 1.1 sine1)
  361. msil [d'drum, d'fly, d'bz, d'cymb]
  362. d'drum $ sound "[[k k:1]*2 [sn k:1 ~ k] [~ k:1 k ~] [~ sn ~ k]]/8" -- @p6drumslow
  363. -- p5fly
  364. d'fly $ whenmod 5 3 rev $
  365. slow 16 $ jux ((1.5 ~>) . rev) $
  366. chop 64 $ bassP $ sound "fly:1"
  367. # speed 0.7
  368. # shape (scale 0 0.5 $ density 2.1 saw1)
  369. d'cymb $ (0.5 <~) $
  370. -- p2cymb
  371. within (0.5, 1) (# vowel "e") $ (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8"
  372. # shape (scale 0 (1/3) $ density 3.6 saw1)
  373. # gain 0.7
  374. d'bz $ within (0, 0.5) (slow (7/6)) $
  375. every 2 (0.5 <~) $ slow 8 $
  376. bass' 32
  377. d'drum $ sound "{k, [~ ~ ~ k:1] [~ k:1], [~ sn ~ sn*2]/8}"
  378. msil [d'perc, d'fly, d'bz]
  379. {-
  380. @p7
  381. Piston VII
  382. -}
  383. bpm 138
  384. -- solo $ -- (1)
  385. d'drum $ whenmod 3 2 (slow (4/3)) $ s "[k*2 [sn ~ ~ wt] k*2 sn [~ k]]/5"
  386. d'drum $ every 3 (density 2) $ within (0, 0.5) (jux ((1%3) ~>)) $
  387. s "[k [sn ~ k] [~ ~ sn] ~]/8"
  388. -- @p7shard
  389. d'shard $ slow 5 . chop 15 $ s "ice"
  390. # gain 0.7
  391. # resonance 0.4
  392. # cutoff 4410 -- 0.2 * (44100/2)
  393. # orbit 1
  394. # delay 0.7
  395. # delayfeedback 0.3
  396. # delaytime 0.02 -- (0) 0.02 (1) 0.76
  397. hush
  398. d'drum $ s "[k [sn ~ k] [~ ~ sn] ~]/8"
  399. d'perc $ s "[wt*3 ~]/2"
  400. # shape (scale 0 0.5 $ slow 3 saw1)
  401. -- @p7bassa
  402. d'bass $ slow 8 $
  403. slowspread ($) [rev.chop 12, rev.chop 24] $
  404. bassP $ n "[0 1]/2" # s "dubb"
  405. -- @p7fly
  406. d'fly $ slow (4/3) .
  407. slowspread ($) [slow 1, density (5/4)] $
  408. slow 12 $
  409. slowspread striate [24,36] $ sound "fly:1"
  410. # gain 0.7
  411. {- (1)
  412. # orbit 2
  413. # delay 0.6
  414. # delayfeedback 0.4
  415. # delaytime 0.62 --(112/60)/3
  416. -- -}
  417. d'bz $ rev . chop 12 $ s "bz/4"
  418. # vowel "o"
  419. msil [d'drum, d'perc]
  420. -- @p7bassb
  421. let bm f = scale f (0.5 + f) $ density (5/4) sine1
  422. in d'bass $
  423. (# begin (bm 0)) $
  424. (# end (bm 0.05)) $
  425. slow 8 $
  426. slowspread ($) [rev.chop 12, rev.chop 24] $
  427. bassP $ n "[0 1]/2" # s "dubb"
  428. -- p7shard @ 0
  429. d'drum $ s "{[k k]/2, ~ sn}" -- @p7drum2a
  430. d'drum $ s "{[[k ~ k] k]/2, ~ sn}" -- @p7drum2b
  431. -- p7shard @ 1
  432. msil [d'bass, d'shard]
  433. -- @p7bassc
  434. d'bass $ slow 8 $
  435. within (0.33, 0.67) (0.25 ~>) $
  436. slowspread ($) [rev.chop 12, rev.chop 24] $
  437. bassP $ n "[0 1]/2" # s "dubb"
  438. # vowel "o"
  439. d'bass silence
  440. d'drum $ within (0, 0.5) (jux ((1%3) ~>)) $ s "[k [sn ~ k] [~ ~ sn] ~]/8"
  441. d'bz silence
  442. {-
  443. @p8
  444. Piston VIII
  445. -}
  446. bpm 138
  447. d'bass $ slow 16 $ bass' 32
  448. d'drum $ within (0, 0.5) (superimpose ((1%3) ~>)) $ s "[k [sn ~ k] [~ ~ sn] ~]/8"
  449. d'bz $ s "[[ff bz]*2 [~ bz*2]]/2"
  450. # n (slow 2 $ run 5)
  451. # begin 0.7
  452. # end 0.85
  453. # hcutoff 882 -- 0.04 * (44100/2)
  454. # hresonance 0.1
  455. # shape (scale 0 0.2 $ slow (5/3) sine1)
  456. # gain 0.8
  457. d'drum $ s "[k*2 [sn ~ ~ wt] [~ k] sn [~ k]]/5"
  458. d'drum $ s "[k [sn ~ ~ wt] [~ k] sn]/4"
  459. d'bass $ slow 16 $ bass' 64
  460. -- p2ant
  461. d'ant $ slow 2 $ smash 16 [1,2] $ sound "ant:1"
  462. # cutoff 1764 -- 0.08 * (44100/2)
  463. # resonance 0.01
  464. -- @p8druma
  465. d'drum $ s "[k [sn ~ ~ k] [~ k] sn]/4"
  466. -- p2fly
  467. d'misc $ chop 64 $ s "[fly ~ [fly ~ ~ fly] ~]/4"
  468. # cut 1
  469. # begin 0.3
  470. # end 0.35
  471. # shape (scale 0.25 0.75 $ density 8 sine1)
  472. # speed (scale 0.92 1.92 $ density (5/4) saw1)
  473. -- p5bass
  474. d'shard $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $
  475. chop 16 $ bassP $ s "[~ dubb]"
  476. # n (slow 4 "0 1")
  477. # cut 1
  478. # speed (scale 0.75 1.25 $ slow 1.3 sine1)
  479. d'perc $ s "{wt/2, [~ wtsn]/8}"
  480. d'cymb $ density (5/4) $ whenmod 9 4 (density 1.5) $
  481. s "[cymb*8 ~]/8"
  482. # gain (scale 0.6 0.8 $ density 3.6 saw1)
  483. # cut 1
  484. -- @p8perc
  485. -- solo $
  486. d'perc $ stack [
  487. -- {- (3) ~p1fly'
  488. whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $
  489. slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly"
  490. # hcutoff 1985 -- 0.09 * (44100/2)
  491. # hresonance 0.06,
  492. -- -} -- p1perc
  493. within (0.5, 1) (slow 1.5 . chop 4) $ -- (2)
  494. whenmod 5 3 (rev . chop 8) $ -- (0) rev (1) rev . chop 8
  495. density (4/3) $ s "[wtsn ~ wt]"
  496. ]
  497. -- @p8drumb
  498. d'drum $ s "[k [sn ~ ~ k] [~ k*2] sn]/4"
  499. msil [d'fly, d'bz, d'shard, d'misc, d'ant, d'cymb]
  500. -- @p8bass
  501. d'misc $ stack [
  502. {- (1) ~p5bass
  503. every 2 (density 2) $ whenmod 3 2 (density 1.6) $
  504. chop 16 $ bassP $ s "[~ dubb]"
  505. # n (slow 4 "0 1")
  506. # cut 1
  507. # speed (scale 0.75 1.25 $ slow 1.3 sine1),
  508. (0.75 ~>) $
  509. -- -} -- p4bass
  510. whenmod 5 3 (density (3/2) . brak) $
  511. bassP $
  512. rev $ (0.5 ~>) $ slow 2 . chop 8 $ n "[0 1]/2" # s "dubb"
  513. # speed 0.5
  514. # cut 1
  515. # end 0.5
  516. ]
  517. -- @p8drumc
  518. d'drum $ s "[k*2 [sn ~ ~ k] [k k*2] sn]/4"
  519. -- p4shard
  520. d'shard $ whenmod 7 3 (density (5/4)) $
  521. within (0.5, 0.75) (iter 5) $
  522. whenmod 3 2 (slow 2) $
  523. slow 8 $ every 2 rev $ striate 128 $ s "[ice plode]*2"
  524. # cutoff 441 -- 0.02 * (44100/2)
  525. # resonance 0.001
  526. # speed 0.7
  527. # gain 0.7
  528. -- p5fly
  529. d'fly $ whenmod 5 3 rev $ brak $
  530. slow 16 $ jux ((1.5 ~>) . rev) $
  531. chop 64 $ bassP $ sound "fly:1"
  532. # speed 0.7
  533. # shape (scale 0 0.5 $ density 2.1 saw1)
  534. -- p6bass
  535. d'ant $ within (0, 0.5) (slow (7/6)) $
  536. every 2 (0.5 <~) $ slow 8 $
  537. bass' 32
  538. -- p6wtsn
  539. d'cymb $ (3 ~>) $
  540. within (0.25, 0.75) rev $
  541. slowspread ($) [chop 16, chop 32] $ s "[wtsn(3,8)]/2"
  542. # speed (scale 0.8 1.3 $ density 1.8 sine1)
  543. -- p6gnome
  544. let d = 5 -- (0) 5 (1) 3
  545. in d'gnome $ iter 5 $ density (9/8) $
  546. within (0, 0.5) rev $
  547. smash 8 [1,2] $ s "[gnome(3,8)]/2"
  548. # gain 0.8
  549. # speed (scale 0.76 (0.76 + 1/d) $ slow 1.1 sine1)
  550. -- p3shard
  551. d'bz $ -- within (0.5, 1) (density 2) $ -- (1)
  552. iter 5 . density 2 $ (0.5 <~) $ ((1%16) <~) $
  553. chop 16 $ s "[ice [~ ice] ~ ~]/4"
  554. # vowel "e o"
  555. # gain 0.6
  556. -- p6gnome @ 1
  557. -- p3shard @ 1
  558. msil [d'fly, d'shard, d'bz, d'misc, d'cymb]
  559. -- @p8bass @ 0
  560. d'cymb $ (2.75 ~>) $
  561. -- p2cymb
  562. within (0.5, 1) (# vowel "e") $ (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8"
  563. # shape (scale 0 (1/3) $ density 3.6 saw1)
  564. # gain 0.7
  565. msil [d'gnome, d'ant]
  566. -- p4bz
  567. d'bz $ every 3 brak $
  568. whenmod 7 4 (within (0.5, 1) (density 2)) $
  569. (0.5 <~) $
  570. slow 16 . chop 32 $ s "~ bzl"
  571. # n (density 1.5 "0 1")
  572. # speed (scale 1.6 2.6 $ density 2.2 sine1)
  573. # pan (scale 0.25 0.75 $ density 4.1 sine1)
  574. msil [d'bz, d'cymb, d'misc]
  575. -- solo ~p8perc
  576. hush