{- Anny: Piston LP anny.audio | pistonlp.co.uk See README.md for more information ~ Version info ~ Current version: 1.0 Compatibility: Tidal Cycles 0.8 + SuperCollider 3.7.2 + SuperDirt Updated: 27 March 2017 Notes: All Piston LP Tidal code is now "demystified" so all code blocks are all-inclusive and can be run in-place with a minimal megalet at the top of the document, serving three purposes: 1) to make all the code easier for any Tidal Cycles user to understand and if they wish, reuse and remix 2) to reduce maintenance, especially when playing parts of Piston LP live; this file will be my primary reference in live practice 2) to contribute better to the shared goal in live coding of showing my working-out in live performance License: CC-BY-SA https://creativecommons.org/licenses/by-sa/4.0/ ~ Navigating this Tidal Cycles document ~ I have used @tags throughout this document to mark checkpoints (Piston I, Piston II etc.) and 'optimal' versions of key elements of each tune that I have found cause to reuse in crossover tracks. For example, to search for/within Piston I, search the document for "@p1". In places where elements are reused, particularly in later tracks, a references is made with the format "~p1..." so you know where it all links up (and I know where to copy-paste future updates). -} let bpm b = cps (b/60) msil = mapM_ ($ silence) bassP = (# gain "0.7") . (# hcutoff "485") . (# hresonance "0.001") bass' c = rev . chop c $ bassP $ n "[0 1]/2" # s "dubb" d'drum = d1 d'perc = d2 d'gnome = d3 d'bass = d4 d'fly = d5 d'bz = d6 d'shard = d7 d'misc = d8 d'ant = d9 d'cymb = d10 {- @p1 Anny: Piston I anny.audio | pistonlp.co.uk -} bpm 138 -- @p1fly d'fly $ slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly" # hcutoff "1985" -- 0.09 * (44100/2) # hresonance "0.06" # gain "1" -- 0.5 -> 1 d'perc $ s "wt/2" d'drum $ sound "k:1" d'bass $ slow 8 $ 0.25 <~ bass' 16 -- @p1bass d'perc $ s "{wt/2, [~ wtsn]/8}" d'drum $ s "k" d'drum $ s "[k*2, [~ sn]]/2" -- @p1fly' d'fly $ whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $ slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly" # hcutoff "1985" -- 0.09 * (44100/2) # hresonance "0.06" -- @p1perc d'perc $ within (0.5, 1) (slow 1.5 . chop 4) $ -- (2) whenmod 5 3 (rev . chop 8) $ -- (0) rev (1) rev . chop 8 density (4%3) $ s "[wtsn ~ wt]" -- @p1gnome d'gnome $ within (0, 0.5) rev $ chop 8 $ s "[gnome(3,8)]/2" # gain "0.8" # speed (scale 0.8 1 $ slow 1.1 sine1) d'drum $ s "[k*2, ~ [sn [~ sn*3]/2]]/2" msil [d'drum, d'bass] d'drum $ s "[k(3,8)]/2" d'drum $ s "[k(3,8), ~ sn]/2" d'drum $ s "[k(3,8), ~ [sn [~ sn*3]/2]]/2" d'bass $ (every 2 $ within (0.25, 0.75) (0.5 ~>)) $ slow 8 $ bass' 16 d'drum $ within (0.5, 1) (chop 8) $ s "[k(3,8), ~ [sn [~ sn*3]/2]]/2" msil [d'perc, d'fly] d'fly $ slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly" # hcutoff "1985" -- 0.09 * (44100/2) # hresonance "0.06" d'perc $ s "[~ wt*4 ~ wt*2 ~]/5" d'drum $ overlay (3.75 ~> s "wtsn/4") $ s "[k(3,8), ~ sn]/2" {- @p2 Anny: Piston II anny.audio | pistonlp.co.uk -} bpm 138 -- @p2drum d'drum $ slow 7 $ s "k [sn k] [k sn] [~ sn] [~ k] sn [k [k wtsn]]" msil [d'fly, d'gnome] d'perc $ s "wt*2" # vowel "[u e u a]/2" # end "0.15" d'bass $ slow 8 $ ((1%8) <~) $ chop 32 $ bassP $ n "[0 1]/2" # s "dubb" # speed "1.2" # shape (scale 0 0.5 $ density 4 sine1) # cut "1" -- @p2ant d'ant $ slow 2 $ smash 16 [1,2] $ sound "ant:1" # cutoff "1764" -- 0.08 * (44100/2) # resonance "0.01" -- @p2sharda d'shard $ ((1%16) <~) $ chop 16 $ s "[ice [~ ice] ~ ~]/4" # gain "0.7" -- @p2fly -- solo $ -- (1) d'fly $ chop 64 $ s "[fly ~ [fly ~ ~ fly] ~]/4" # cut "1" # begin "0.3" # end "0.35" # shape (scale 0.25 0.75 $ density 8 sine1) # speed (scale 0.92 1.92 $ density (5%4) saw1) d'drum $ 0.5 <~ sound "[[k k:1] [sn ~ ~ k]]/2" d'bass $ slow 8 $ ((1%8) <~) $ chop 32 $ bassP $ n "[0 1]/2" # s "dubb" # speed "1.2" # shape (scale 0 0.5 $ density 4 sine1) # cut "1" d'cymb $ (0.25 ~>) $ -- @p2cymb within (0.5, 1) (# vowel "e") $ (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8" # shape (scale 0 (1/3) $ density 3.6 saw1) # gain "0.65" -- @p2perc d'perc $ s "wt*2" # vowel "[u e u a]/2" # end "0.15" d'bass $ slow 8 $ ((1%8) <~) $ chop 32 $ bassP $ n "[0 1]/2" # s "dubb" # speed "1.2" # shape (scale 0 0.5 $ density 4 sine1) # cut "1" # vowel "u a" -- @p2shardb d'shard $ every 2 (density 1.5) $ whenmod 5 3 (density 2) $ -- (1) rev $ chop 16 $ s "[ice [~ ice] ~ ~]/4" # gain "0.7" # shape (scale 0.25 0.75 $ density 8 saw1) d'bass $ slow 8 $ ((1%8) <~) $ chop 32 $ bassP $ n "[0 1]/2" # s "dubb" # speed "0.8 1.2" # shape (scale 0 0.5 $ density 4 sine1) # cut "1" # vowel "u a" msil [d'perc, d'fly] d'drum $ sound "[[k sn] [~ k:1 k:1 ~]]/2" d'drum $ sound "[k [sn k:1 k:1 ~]]/2" d'perc $ s "~ wt*2" {- @p3 Anny: Piston III anny.audio | pistonlp.co.uk -} let p3percd = (# orbit "1") . (# delay "0.3") . (# delayfeedback "0.5") . (# delaytime "0.766") --(138/60)/3 bpm 138 d'drum $ s "k" msil [d'bass, d'cymb] -- @p3bz d'bz $ s "[ff(3,8) [~ [ff bz]]]/4" # end "0.3" # shape "0 0.25" # gain "0.7" d'drum silence d'drum $ s "[k k sn k]/2" -- @p3druma -- @p3bass let v = "o i" -- (0) i (1) o i c = "1" -- (0) 1 (3) 0 b = brak -- (0) id (2) brak in -- solo $ -- (4) d'bass $ (4 <~) $ every 2 (0.5 <~) $ slow 4 . b $ rev . chop 16 $ bassP $ n "[0 1]/2" # s "dubb" # cut c # vowel v d'drum $ s "{[k*2 [~ k*2] k ~ k*2 ~ k*2 ~]/8, [~ sn]/2}" -- @p3drumb d'perc $ sound "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8" -- @p3bass2 d'misc $ slow 8 $ chop 16 $ bassP $ n "[0 1]/2" # s "dubb" # cut "1" # speed "0.2" # vowel "e" d'drum $ s "{[k*2 [~ k*2] k ~ k*2 ~ k*2 ~]/8, [~ sn]/2}" d'perc $ -- within (0, 0.5) (# vowel "o") $ -- (3) whenmod 3 2 rev $ -- (2) chop 16 $ within (0.5, 1.5) p3percd $ overlay (s "~ wt*2") $ -- (1) sound "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8" -- @p3shard d'shard $ iter 4 . density 2 $ -- (1) (0.5 <~) $ ((1%16) <~) $ chop 16 $ s "[ice [~ ice] ~ ~]/4" # gain "0.6" -- (0) 0.7 (1) 0.6 # vowel "e o" -- (1) -- ~p1gnome d'gnome $ within (0, 0.5) rev $ chop 8 $ s "[gnome(3,8)]/2" # gain "0.8" # speed (scale 0.8 1 $ slow 1.1 sine1) -- ~p3bass w/ v="o i", c="0", b=brak {- @p4 Anny: Piston IV anny.audio | pistonlp.co.uk -} bpm 138 solo $ d'misc $ slow 8 $ chop 16 $ bassP $ n "[0 1]/2" # s "dubb" # cut "1" # speed "0.2" # vowel "e" d'perc $ sound "[[~ [wt wtsn]] ~ wt ~]/5" -- @p4shard d'shard $ whenmod 7 3 (density (5%4)) $ -- (1) within (0.5, 0.75) (iter 4) $ whenmod 3 2 (slow 2) $ slow 8 $ every 2 rev $ striate 128 $ s "[ice plode]*2" -- (0) ice plode (2) ice wtsn # cutoff "441" -- 0.02 * (44100/2) # resonance "0.001" # speed "0.7" # gain "0.7" -- # vowel "u e" -- (2) -- @p4drum + @p4perc d'drum $ sound "[k sn k*2 [~ sn] [~ k]]/5" d'perc $ smash 4 [0.5,0.25] $ iter 3 $ sound "[[~ [wt wtsn]] ~ wt ~]/5" d'bz $ (0.5 <~) $ slow 16 . chop 32 $ s "bzl" # n (density 1.5 "0 1") # speed (scale 1 2 $ density 1.7 sine1) # gain "0.9" d'misc silence -- ~p4shard w/ (1) d'drum $ sound "[[k k:1]*2 sn k*2 [~ sn] [~ k]]/5" d'bass $ (0.75 ~>) $ -- @p4bass whenmod 5 3 (density (3%2) . brak) $ bassP $ rev $ (0.5 ~>) $ slow 2 . chop 8 $ n "[0 1]/2" # s "dubb" # speed "0.5" # cut "1" # end "0.5" msil [d'perc, d'bz, d'shard] -- @p4bz d'bz $ -- every 3 brak $ -- (0) off (2) 3 (4) 2 whenmod 7 4 (within (0.5, 1) (density 2)) $ (0.5 <~) $ slow 16 . chop 32 $ s "bz" -- (0) bz (1) bz*2 (3) bz bzl (4) bz*2 # n (density 1.5 "0 1") # speed (scale 1.6 2.6 $ density 2.2 sine1) # pan (scale 0.25 0.75 $ density 4.1 sine1) d'drum $ sound "[k*2 sn [~ k] sn]/4" -- ~p4bz w/ (1) -- ~p4shard w/ (2) -- ~p4bz w/ (2) d'perc $ smash 4 [0.5,0.25] $ iter 3 $ sound "[[~ [wt wtsn]] ~ wt ~]/5" d'drum silence d'drum $ sound "[[k ~ ~ k] sn [~ k] sn]/4" -- ~p4bz w/ (3) msil [d'perc,d'bass,d'shard] -- ~p4bz w/ (4) {- @p5 Anny: Piston V anny.audio | pistonlp.co.uk -} bpm 138 -- @p5perc d'perc $ s "~ wt wt wtsn/8" # shape (scale 0 0.5 $ density 1.2 saw1) d'drum $ overlay (s "[[k ~ ~ k] ~ [~ k] ~]/4") $ sound "{[~ ~ ~ k:1], [~ sn]/2}" -- ~p2ant d'ant $ slow 2 $ smash 16 [1,2] $ sound "ant:1" # cutoff "1764" -- 0.08 * (44100/2) # resonance "0.01" d'drum $ sound "{[~ ~ ~ k:1], [~ sn]/2}" msil [d'bz, d'ant] d'drum $ sound "{k, [~ ~ ~ k:1], [~ sn]/2}" -- @p5drum d'bass $ chop 16 $ bassP $ s "[~ dubb]" # n (slow 4 "0 1") # cut "1" -- @p5fly let b = id -- (0) id (1) brak in d'fly $ whenmod 5 3 rev $ b $ slow 16 $ jux ((1.5 ~>) . rev) $ chop 64 $ bassP $ sound "fly:1" # speed "0.7" # shape (scale 0 0.5 $ density 2.1 saw1) -- @p5bass d'bass $ -- within (0.5, 0.75) (# vowel "u o") $ -- (4), delete in (5) -- every 2 (density 2) $ -- (3) -- density 1.6 $ -- (2) replacing (1) -- whenmod 3 2 (density 1.6) $ -- (1), (4) replacing (2) chop 16 $ bassP $ s "[~ dubb]" # n (slow 4 "0 1") # cut "1" -- # speed (scale 0.75 1.25 $ slow 1.3 sine1) -- (3) d'fly silence -- ~p5bass w/ (1) -- ~p5bass w/ (2) d'bz $ whenmod 4 3 (density 1.8) $ -- (1) chop 12 $ sound "[~ ~ [~ k:1] !]/4" # speed "0.9" # shape (scale 0 (1/3) $ density 3 sine1) -- (2) -- ~p5bass2 w/ (1) -- ~p5bass w/ (3) -- ~p5bass2 w/ (2) -- @p5gnome let g sm f = smash 64 sm $ s "~ gnome" # pan (f $ slow 4 sine1) in d'gnome $ whenmod 5 3 (slow 1.5) $ rev $ stack [ g [0.5,1] id, g [(1/2.5),1] (0.5 <~) ] # speed "1.2" # shape ((0.25 ~>) $ scale 0 0.5 $ density 3 sine1) # gain "0.6" -- @p5bass w/ (4) msil [d'drum, d'bass] d'drum $ sound "k:1" -- @p5drum2 d'bz $ -- within (0, 0.5) rev -- (1) whenmod 4 3 (density 1.8) $ chop 12 $ sound "[~ ~ [~ k:1] !]/4" # speed "0.9" # shape (scale 0 (1/3) $ density 3 sine1) # orbit "1" # delay "0.3" # delayfeedback "0.2" # delaytime "0.2875" --(138/60)/8 -- ~p5fly w/ b=brak -- ~p5bass @ (5) d'drum $ sound "{k, [~ ~ ~ k:1], [~ sn]/2}" msil [d'perc, d'bz] d'gnome silence {- @p6 Anny: Piston VI anny.audio | pistonlp.co.uk -} bpm 138 -- solo $ d'bass $ (# gain (scale 0 0.7 $ saw1)) $ within (0.5, 0.75) (# vowel "u o") $ -- (4), delete in (5) every 2 (density 2) $ -- (3) whenmod 3 2 (density 1.6) $ -- (1), (4) replacing (2) chop 16 $ bassP $ s "[~ dubb]" # n (slow 4 "0 1") # cut "1" # speed (scale 0.75 1.25 $ slow 1.3 sine1) -- (3) msil [d'drum, d'fly] -- @p6bass d'bz $ within (0, 0.5) (slow (7%6)) $ every 2 (0.5 <~) $ slow 8 $ bass' 32 d'fly $ superimpose (slow (5%3) . iter 2) $ (# speed (scale 0.7 1.7 $ slow 1.1 sine1)) $ chop 32 $ s "[plode(5,8)]/8" # cut "1" d'cymb $ s "[cymb*8 ~]/8" # gain (scale 0.6 0.8 $ density 3.6 saw1) # cut "1" d'perc $ s "wt*2" # vowel "[u e u a]/2" # end "0.15" # gain "0.85" d'bass silence d'drum $ sound "{k, [~ ~ ~ k:1] [~ k:1]}" -- @p6drum d'misc $ slow 16 $ bass' 64 -- @p6cymb d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $ -- (1) s "[cymb*8 ~]/8" # gain (scale 0.6 0.8 $ density 3.6 saw1) # cut "1" -- @p6wtsn d'gnome $ (3 ~>) $ within (0.25, 0.75) rev $ slowspread ($) [chop 16, chop 32] $ s "[wtsn(3,8)]/2" # speed (scale 0.8 1.3 $ density 1.8 sine1) d'drum $ sound "{k, [~ ~ ~ k:1] [~ k:1], [~ sn ~ sn*2]/8}" -- @p6drum-sn d'bass $ (0.6 ~>) $ -- ~p4bass whenmod 5 3 (density (3%2) . brak) $ bassP $ rev $ (0.5 ~>) $ slow 2 . chop 8 $ n "[0 1]/2" # s "dubb" # speed "0.5" # cut "1" # end "0.5" msil [d'perc, d'gnome, d'misc] -- @p6gnome let d = 5 -- (0) 5 (1) 3 in d'gnome $ iter 4 $ density (9%8) $ within (0, 0.5) rev $ smash 8 [1,2] $ s "[gnome(3,8)]/2" # gain "0.8" # speed (scale 0.76 (0.76 + 1/d) $ slow 1.1 sine1) msil [d'drum, d'fly, d'bz, d'cymb] d'drum $ sound "[[k k:1]*2 [sn k:1 ~ k] [~ k:1 k ~] [~ sn ~ k]]/8" -- @p6drumslow -- ~p5fly d'fly $ whenmod 5 3 rev $ slow 16 $ jux ((1.5 ~>) . rev) $ chop 64 $ bassP $ sound "fly:1" # speed "0.7" # shape (scale 0 0.5 $ density 2.1 saw1) d'cymb $ (0.5 <~) $ -- ~p2cymb within (0.5, 1) (# vowel "e") $ (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8" # shape (scale 0 (1/3) $ density 3.6 saw1) # gain "0.7" d'bz $ within (0, 0.5) (slow (7%6)) $ every 2 (0.5 <~) $ slow 8 $ bass' 32 d'drum $ sound "{k, [~ ~ ~ k:1] [~ k:1], [~ sn ~ sn*2]/8}" msil [d'perc, d'fly, d'bz] {- @p7 Anny: Piston VII anny.audio | pistonlp.co.uk -} bpm 138 -- solo $ -- (1) d'drum $ whenmod 3 2 (slow (4%3)) $ s "[k*2 [sn ~ ~ wt] k*2 sn [~ k]]/5" d'drum $ every 3 (density 2) $ within (0, 0.5) (jux ((1%3) ~>)) $ s "[k [sn ~ k] [~ ~ sn] ~]/8" -- @p7shard d'shard $ slow 5 . chop 15 $ s "ice" # gain "0.7" # resonance "0.4" # cutoff "4410" -- 0.2 * (44100/2) # orbit "1" # delay "0.7" # delayfeedback "0.3" # delaytime "0.02" -- (0) 0.02 (1) 0.76 hush d'drum $ s "[k [sn ~ k] [~ ~ sn] ~]/8" d'perc $ s "[wt*3 ~]/2" # shape (scale 0 0.5 $ slow 3 saw1) -- @p7bassa d'bass $ slow 8 $ slowspread ($) [rev.chop 12, rev.chop 24] $ bassP $ n "[0 1]/2" # s "dubb" -- @p7fly d'fly $ slow (4%3) . slowspread ($) [slow 1, density (5%4)] $ slow 12 $ slowspread striate [24,36] $ sound "fly:1" # gain "0.7" {- (1) # orbit "2" # delay "0.6" # delayfeedback "0.4" # delaytime "0.62" --(112/60)/3 -- -} d'bz $ rev . chop 12 $ s "bz/4" # vowel "o" msil [d'drum, d'perc] -- @p7bassb let bm f = scale f (0.5 + f) $ density (5%4) sine1 in d'bass $ (# begin (bm 0)) $ (# end (bm 0.05)) $ slow 8 $ slowspread ($) [rev.chop 12, rev.chop 24] $ bassP $ n "[0 1]/2" # s "dubb" -- ~p7shard w/ (0) d'drum $ s "{[k k]/2, ~ sn}" -- @p7drum2a d'drum $ s "{[[k ~ k] k]/2, ~ sn}" -- @p7drum2b -- ~p7shard w/ (1) msil [d'bass, d'shard] -- @p7bassc d'bass $ slow 8 $ within (0.33, 0.67) (0.25 ~>) $ slowspread ($) [rev.chop 12, rev.chop 24] $ bassP $ n "[0 1]/2" # s "dubb" # vowel "o" d'bass silence d'drum $ within (0, 0.5) (jux ((1%3) ~>)) $ s "[k [sn ~ k] [~ ~ sn] ~]/8" d'bz silence {- @p8 Anny: Piston VIII anny.audio | pistonlp.co.uk -} bpm 138 d'bass $ slow 16 $ bass' 32 d'drum $ within (0, 0.5) (superimpose ((1%3) ~>)) $ s "[k [sn ~ k] [~ ~ sn] ~]/8" d'bz $ s "[[ff bz]*2 [~ bz*2]]/2" # n (slow 2 $ run 5) # begin "0.7" # end "0.85" # hcutoff "882" -- 0.04 * (44100/2) # hresonance "0.1" # shape (scale 0 0.2 $ slow (5%3) sine1) # gain "0.8" d'drum $ s "[k*2 [sn ~ ~ wt] [~ k] sn [~ k]]/5" d'drum $ s "[k [sn ~ ~ wt] [~ k] sn]/4" d'bass $ slow 16 $ bass' 64 -- ~p2ant d'ant $ slow 2 $ smash 16 [1,2] $ sound "ant:1" # cutoff "1764" -- 0.08 * (44100/2) # resonance "0.01" -- @p8druma d'drum $ s "[k [sn ~ ~ k] [~ k] sn]/4" -- ~p2fly d'misc $ chop 64 $ s "[fly ~ [fly ~ ~ fly] ~]/4" # cut "1" # begin "0.3" # end "0.35" # shape (scale 0.25 0.75 $ density 8 sine1) # speed (scale 0.92 1.92 $ density (5%4) saw1) -- ~p5bass d'shard $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassP $ s "[~ dubb]" # n (slow 4 "0 1") # cut "1" # speed (scale 0.75 1.25 $ slow 1.3 sine1) d'perc $ s "{wt/2, [~ wtsn]/8}" d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $ s "[cymb*8 ~]/8" # gain (scale 0.6 0.8 $ density 3.6 saw1) # cut "1" -- @p8perc -- solo $ d'perc $ stack [ -- {- (3) ~p1fly' whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $ slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly" # hcutoff "1985" -- 0.09 * (44100/2) # hresonance "0.06", -- -} -- ~p1perc within (0.5, 1) (slow 1.5 . chop 4) $ -- (2) whenmod 5 3 (rev . chop 8) $ -- (0) rev (1) rev . chop 8 density (4%3) $ s "[wtsn ~ wt]" ] -- @p8drumb d'drum $ s "[k [sn ~ ~ k] [~ k*2] sn]/4" msil [d'fly, d'bz, d'shard, d'misc, d'ant, d'cymb] -- @p8bass d'misc $ stack [ {- (1) ~p5bass every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassP $ s "[~ dubb]" # n (slow 4 "0 1") # cut "1" # speed (scale 0.75 1.25 $ slow 1.3 sine1), (0.75 ~>) $ -- -} -- ~p4bass whenmod 5 3 (density (3%2) . brak) $ bassP $ rev $ (0.5 ~>) $ slow 2 . chop 8 $ n "[0 1]/2" # s "dubb" # speed "0.5" # cut "1" # end "0.5" ] -- @p8drumc d'drum $ s "[k*2 [sn ~ ~ k] [k k*2] sn]/4" -- ~p4shard d'shard $ whenmod 7 3 (density (5%4)) $ within (0.5, 0.75) (iter 4) $ whenmod 3 2 (slow 2) $ slow 8 $ every 2 rev $ striate 128 $ s "[ice plode]*2" # cutoff "441" -- 0.02 * (44100/2) # resonance "0.001" # speed "0.7" # gain "0.7" -- ~p5fly let b = brak in d'fly $ whenmod 5 3 rev $ b $ slow 16 $ jux ((1.5 ~>) . rev) $ chop 64 $ bassP $ sound "fly:1" # speed "0.7" # shape (scale 0 0.5 $ density 2.1 saw1) -- ~p6bass d'ant $ within (0, 0.5) (slow (7%6)) $ every 2 (0.5 <~) $ slow 8 $ bass' 32 -- ~p6wtsn d'cymb $ (3 ~>) $ within (0.25, 0.75) rev $ slowspread ($) [chop 16, chop 32] $ s "[wtsn(3,8)]/2" # speed (scale 0.8 1.3 $ density 1.8 sine1) -- ~p6gnome let d = 5 -- (0) 5 (1) 3 in d'gnome $ iter 4 $ density (9%8) $ within (0, 0.5) rev $ smash 8 [1,2] $ s "[gnome(3,8)]/2" # gain "0.8" # speed (scale 0.76 (0.76 + 1/d) $ slow 1.1 sine1) -- ~p3shard d'bz $ -- within (0.5, 1) (density 2) $ -- (1) iter 4 . density 2 $ (0.5 <~) $ ((1%16) <~) $ chop 16 $ s "[ice [~ ice] ~ ~]/4" # vowel "e o" # gain "0.6" -- ~p6gnome w/ (1) -- ~p3shard w/ (1) msil [d'fly, d'shard, d'bz, d'misc, d'cymb] -- @p8bass w/ (0) d'cymb $ (2.75 ~>) $ -- ~p2cymb within (0.5, 1) (# vowel "e") $ (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8" # shape (scale 0 (1/3) $ density 3.6 saw1) # gain "0.7" msil [d'gnome, d'ant] -- ~p4bz d'bz $ every 3 brak $ whenmod 7 4 (within (0.5, 1) (density 2)) $ (0.5 <~) $ slow 16 . chop 32 $ s "~ bzl" # n (density 1.5 "0 1") # speed (scale 1.6 2.6 $ density 2.2 sine1) # pan (scale 0.25 0.75 $ density 4.1 sine1) msil [d'bz, d'cymb, d'misc] -- solo ~p8perc hush