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. 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. p3percd = (# orbit 1) .
  15. (# delay 0.3) .
  16. (# delayfeedback 0.5) .
  17. (# delaytime 0.766) --(138/60)/3
  18. d'drum = d1
  19. d'perc = d2
  20. d'gnome = d3
  21. d'bass = d4
  22. d'fly = d5
  23. d'bz = d6
  24. d'shard = d7
  25. d'misc = d8
  26. d'ant = d9
  27. d'cymb = d10
  28. {-
  29. @p1
  30. Anny: Piston I
  31. anny.audio | pistonlp.co.uk
  32. -}
  33. bpm 138
  34. -- @p1fly
  35. d'fly $ slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly"
  36. # hcutoff 1985 -- 0.09 * (44100/2)
  37. # hresonance 0.06
  38. # gain 1 -- 0.5 -> 1
  39. d'perc $ s "wt/2"
  40. d'drum $ sound "k:1"
  41. d'bass $ slow 8 $ 0.25 <~ bass' 16 -- @p1bass
  42. d'perc $ s "{wt/2, [~ wtsn]/8}"
  43. d'drum $ s "k"
  44. d'drum $ s "[k*2, [~ sn]]/2"
  45. -- @p1fly'
  46. d'fly $ whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $
  47. slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly"
  48. # hcutoff 1985 -- 0.09 * (44100/2)
  49. # hresonance 0.06
  50. -- @p1perc
  51. d'perc $ within (0.5, 1) (slow 1.5 . chop 4) $ -- (2)
  52. whenmod 5 3 (rev . chop 8) $ -- (0) rev (1) rev . chop 8
  53. density (4/3) $ s "[wtsn ~ wt]"
  54. -- @p1gnome
  55. d'gnome $ within (0, 0.5) rev $ chop 8 $ s "[gnome(3,8)]/2"
  56. # gain 0.8
  57. # speed (scale 0.8 1 $ slow 1.1 sine1)
  58. d'drum $ s "[k*2, ~ [sn [~ sn*3]/2]]/2"
  59. msil [d'drum, d'bass]
  60. d'drum $ s "[k(3,8)]/2"
  61. d'drum $ s "[k(3,8), ~ sn]/2"
  62. d'drum $ s "[k(3,8), ~ [sn [~ sn*3]/2]]/2"
  63. d'bass $ (every 2 $ within (0.25, 0.75) (0.5 ~>)) $ slow 8 $ bass' 16
  64. d'drum $ within (0.5, 1) (chop 8) $ s "[k(3,8), ~ [sn [~ sn*3]/2]]/2"
  65. msil [d'perc, d'fly]
  66. -- ~p1fly
  67. d'perc $ s "[~ wt*4 ~ wt*2 ~]/5"
  68. d'drum $ overlay (3.75 ~> s "wtsn/4") $ s "[k(3,8), ~ sn]/2"
  69. {-
  70. @p2
  71. Anny: Piston II
  72. anny.audio | pistonlp.co.uk
  73. -}
  74. bpm 138
  75. -- @p2drum
  76. d'drum $ slow 7 $ s "k [sn k] [k sn] [~ sn] [~ k] sn [k [k wtsn]]"
  77. msil [d'fly, d'gnome]
  78. d'perc $ s "wt*2"
  79. # vowel "[u e u a]/2"
  80. # end 0.15
  81. -- @p2bass
  82. d'bass $ slow 8 $ ((1%8) <~) $ chop 32 $ bassP $ n "[0 1]/2" # s "dubb"
  83. # speed 1.2
  84. # shape (scale 0 0.5 $ density 4 sine1)
  85. # cut 1
  86. -- # vowel "u a" -- (1)
  87. -- @p2ant
  88. d'ant $ slow 2 $ smash 16 [1,2] $ sound "ant:1"
  89. # cutoff 1764 -- 0.08 * (44100/2)
  90. # resonance 0.01
  91. -- @p2sharda
  92. d'shard $ ((1%16) <~) $ chop 16 $ s "[ice [~ ice] ~ ~]/4"
  93. # gain 0.7
  94. -- @p2fly
  95. -- solo $ -- (1)
  96. d'fly $ chop 64 $ s "[fly ~ [fly ~ ~ fly] ~]/4"
  97. # cut 1
  98. # begin 0.3
  99. # end 0.35
  100. # shape (scale 0.25 0.75 $ density 8 sine1)
  101. # speed (scale 0.92 1.92 $ density (5/4) saw1)
  102. d'drum $ 0.5 <~ sound "[[k k:1] [sn ~ ~ k]]/2"
  103. -- ~p2bass
  104. d'cymb $ (0.25 ~>) $
  105. -- @p2cymb
  106. within (0.5, 1) (# vowel "e") $ (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8"
  107. # shape (scale 0 (1/3) $ density 3.6 saw1)
  108. # gain 0.65
  109. -- @p2perc
  110. d'perc $ s "wt*2"
  111. # vowel "[u e u a]/2"
  112. # end 0.15
  113. -- ~p2bass @ (1)
  114. -- @p2shardb
  115. d'shard $
  116. every 2 (density 1.5) $ whenmod 5 3 (density 2) $ -- (1)
  117. rev $
  118. chop 16 $ s "[ice [~ ice] ~ ~]/4"
  119. # gain 0.7
  120. # shape (scale 0.25 0.75 $ density 8 saw1)
  121. msil [d'perc, d'fly]
  122. d'drum $ sound "[[k sn] [~ k:1 k:1 ~]]/2"
  123. d'drum $ sound "[k [sn k:1 k:1 ~]]/2"
  124. d'perc $ s "~ wt*2"
  125. {-
  126. @p3
  127. Anny: Piston III
  128. anny.audio | pistonlp.co.uk
  129. -}
  130. bpm 138
  131. d'drum $ s "k"
  132. msil [d'bass, d'cymb]
  133. -- @p3bz
  134. d'bz $ s "[ff(3,8) [~ [ff bz]]]/4"
  135. # end 0.3
  136. # shape "0 0.25"
  137. # gain 0.7
  138. d'drum silence
  139. d'drum $ s "[k k sn k]/2" -- @p3druma
  140. -- @p3bass
  141. let v = "o i" -- (0) i (1) o i
  142. c = "1" -- (0) 1 (3) 0
  143. b = brak -- (0) id (2) brak
  144. in -- solo $ -- (4)
  145. d'bass $
  146. (4 <~) $ every 2 (0.5 <~) $
  147. slow 4 . b $
  148. rev . chop 16 $
  149. bassP $ n "[0 1]/2" # s "dubb"
  150. # cut c
  151. # vowel v
  152. d'drum $ s "{[k*2 [~ k*2] k ~ k*2 ~ k*2 ~]/8, [~ sn]/2}" -- @p3drumb
  153. d'perc $ sound "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8"
  154. -- ~p4dubb
  155. d'misc $ slow 8 $ chop 16 $ bassP $ n "[0 1]/2" # s "dubb"
  156. # cut "1"
  157. # speed "0.2"
  158. # vowel "e"
  159. d'drum $ s "{[k*2 [~ k*2] k ~ k*2 ~ k*2 ~]/8, [~ sn]/2}"
  160. d'perc $ -- within (0, 0.5) (# vowel "o") $ -- (3)
  161. whenmod 3 2 rev $ -- (2)
  162. chop 16 $ within (0.5, 1.5) p3percd $
  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. 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 $
  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. msil [d'drum, d'fly]
  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. let b = brak
  539. in d'fly $ whenmod 5 3 rev $ b $
  540. slow 16 $ jux ((1.5 ~>) . rev) $
  541. chop 64 $ bassP $ sound "fly:1"
  542. # speed "0.7"
  543. # shape (scale 0 0.5 $ density 2.1 saw1)
  544. -- ~p6bass
  545. d'ant $ within (0, 0.5) (slow (7%6)) $
  546. every 2 (0.5 <~) $ slow 8 $
  547. bass' 32
  548. -- ~p6wtsn
  549. d'cymb $ (3 ~>) $
  550. within (0.25, 0.75) rev $
  551. slowspread ($) [chop 16, chop 32] $ s "[wtsn(3,8)]/2"
  552. # speed (scale 0.8 1.3 $ density 1.8 sine1)
  553. -- ~p6gnome
  554. let d = 5 -- (0) 5 (1) 3
  555. in d'gnome $ iter 5 $ density (9/8) $
  556. within (0, 0.5) rev $
  557. smash 8 [1,2] $ s "[gnome(3,8)]/2"
  558. # gain "0.8"
  559. # speed (scale 0.76 (0.76 + 1/d) $ slow 1.1 sine1)
  560. -- ~p3shard
  561. d'bz $ -- within (0.5, 1) (density 2) $ -- (1)
  562. iter 5 . density 2 $ (0.5 <~) $ ((1%16) <~) $
  563. chop 16 $ s "[ice [~ ice] ~ ~]/4"
  564. # vowel "e o"
  565. # gain "0.6"
  566. -- ~p6gnome @ (1)
  567. -- ~p3shard @ (1)
  568. msil [d'fly, d'shard, d'bz, d'misc, d'cymb]
  569. -- @p8bass @ (0)
  570. d'cymb $ (2.75 ~>) $
  571. -- ~p2cymb
  572. within (0.5, 1) (# vowel "e") $ (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8"
  573. # shape (scale 0 (1/3) $ density 3.6 saw1)
  574. # gain "0.7"
  575. msil [d'gnome, d'ant]
  576. -- ~p4bz
  577. d'bz $ every 3 brak $
  578. whenmod 7 4 (within (0.5, 1) (density 2)) $
  579. (0.5 <~) $
  580. slow 16 . chop 32 $ s "~ bzl"
  581. # n (density 1.5 "0 1")
  582. # speed (scale 1.6 2.6 $ density 2.2 sine1)
  583. # pan (scale 0.25 0.75 $ density 4.1 sine1)
  584. msil [d'bz, d'cymb, d'misc]
  585. -- solo ~p8perc
  586. hush