piston.tidal 18 KB

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