piston.tidal 16 KB

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