piston.tidal 16 KB

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