piston-lp/piston.tidal

{-
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 @ (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 @ (1)
-- ~p4shard @ (2)
-- ~p4bz @ (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 @ (3)
msil [d'perc,d'bass,d'shard]
-- ~p4bz @ (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 @ (1)
-- ~p5bass @ (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 @ (1)
-- ~p5bass @ (3)
-- ~p5bass2 @ (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 @ (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 @ (0)

d'drum $ s "{[k k]/2, ~ sn}" -- @p7drum2a
d'drum $ s "{[[k ~ k] k]/2, ~ sn}" -- @p7drum2b

-- ~p7shard @ (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 @ (1)
-- ~p3shard @ (1)

msil [d'fly, d'shard, d'bz, d'misc, d'cymb]

-- @p8bass @ (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