first draft setlist for notts algo in a couple weeks

all samples resolved
need to address conflicting channels in haddeo v. everything else

.gitignore

@@ -0,0 +1,3 @@
+.DS_Store
+*.tidal~
+*.swp

notts.megalet.tidal

@@ -0,0 +1,395 @@
+-- megalet for pigs-nose.tidal
+let msil = mapM_ ($ silence)
+    cf = slow 2
+    d'drum = d1
+    d'print = d2
+    d'wobb = d2
+    d'qs = d3
+    d'jbass = d4
+    d'mons = d5
+    d'bass = d6
+    d'casio = d7
+    d'ql = d8
+    d'arm = d8
+    d'baa = d9
+    pn'hointro = s "[~ [~ ho] ~ ho ~ ~ ho ~]/2"
+    pn'sn = sound "[~ [~ sn:1] ~ sn:1 ~ ~ sn:1 ~]/2"
+    pn'bd = s "[bd [~ ~ ~ bd] bd*2 ~]/2"
+    pn'hh = s "[hh*8 [hh*4 ho]]/2"
+    pn'qs sl = slow sl . striate 4 $ s "qspace"
+    pn'bass4 = s "bass*2 bass*2 bass*3 bass*3"
+    pn'bass5 = s "bass*2 bass*2 bass*3 bass*3 ~"
+
+-- megalet for battery123.tidal
+let msil = mapM_ ($ silence)
+    cf = slow 2
+    every' n o f = when ((== (o-1)) . (`mod` n)) f
+    halfosc = (/2).(+0.5)
+    halfosc1 = (+1).(/2)
+    thirdosc1 = (+1).(/3)
+    d'drum = d1
+    d'perc = d2
+    d'bass = d3
+    d'hand = d4
+    d'warb = d5 -- warbler
+    d'bass2 = d6 -- more bass right at the end
+    d'arpy = d7
+    d'tr = d8 -- trump
+    d'tac = d9 -- tacscan
+    b1'bass = s "bass3 [~ bass3] ! ~"
+              # begin "0.2"
+    b1'hand = slow 8 $ rev . striate 256 $ s "hand*8"
+              # speed "0.7"
+    b1'perc = slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
+    b1'tac = s "[~ tacscan] ! ~ ~"
+             # gain "0.8"
+             # vowel (slow 3 "e u")
+    b1'warbler = slow 4 $ striate 32 $ s "warbler"
+                 # n (slow 7 $ run 7)
+                 # gain "0.8"
+    b2'uxp = (# gain "0.8") .
+             (# speed "[0.7 1 1.2]/2")
+    b2'ux = cf $ s "uxay*4"
+            # n "1 0 1 2"
+    b2'ux2 i = (if i then brak . iter 4 else cf . brak) $
+               b2'uxp $ s "uxay*4"
+               # n "1 0 1 2"
+               # shape "0.4 0.3 0.6"
+    b2'psr = s "psr*4 psr*2"
+             # gain "0.6"
+    b2'psrf = s "[[psr*4 psr*2] ! ! psr*8]/4"
+              # gain "0.6"
+    b2'trump p = whenmod 5 4 rev $ s p
+                 # n (slow 3.2 $ run 4)
+                 # gain "0.8"
+                 # speed (halfosc1 <$> slow 4 sinewave1)
+                 # vowel (slow 3.2 "a e o")
+                 # shape "0.6"
+    b2'bass = slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
+              # n (slow 2.8 "0 1 2")
+              # vowel "i"
+              # speed "0.8"
+    b2'arpy = s "arpy*8"
+              # n "2 1 3 1"
+              # gain "0.7"
+    b3'perc = sound "[tok*2 [rm tok]] [psr:1 tok*2]"
+    b3'bass = s "bass*4"
+              # n "0 1"
+              # begin "0.4"
+              # speed "1.2"
+              # shape "0.2"
+    b3'bassf = s "{bass*4, wobble*3}"
+               # n "0 1"
+               # begin "0.4"
+               # speed "1.2"
+               # shape "0.2"
+    b3'drum = slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~"
+    b3'drumf = slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~"
+
+-- megalet for piston.tidal
+let d'drum = d1 -- k, sn
+    d'perc = d2 -- wt, wtsn, hh
+    d'gnome = d3 -- gnome, cymb
+    d'bass = d4 -- dubb, k
+    d'fly = d5 -- fly
+    d'bz = d6 -- bz, bzl, ff
+    d'shard = d7 -- ice, plode
+    d'ant = d9 -- ant
+    d'misc = d8 -- overflow channel for a few cases
+    d'cymb = d10 -- cymb
+    msil = mapM_ ($ silence)
+    k = s "k"
+    k1 = sound "k:1"
+    sn = s "[~ sn]/2"
+    bass'params = (# gain "0.7").
+                  (# hcutoff "485"). -- 0.022 * (44100/2)
+                  (# hresonance "0.001")
+    bass' c = rev . chop c $ bass'params $ n "[0 1]/2" # s "dubb"
+    fly'1 = slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly"
+            # hcutoff "1985" -- 0.09 * (44100/2)
+            # hresonance "0.06"
+    fly'1f = whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $ fly'1
+    snare43'1 = density (4%3) $ s "[wtsn ~ wt]"
+    shnare'1 = s "[~ ~ sn [~ sn*3]/2]/2"
+    kick38'1 = s "[k(3,8)]/2"
+    gnome'1 = within (0, 0.5) rev $ chop 8 $ s "[gnome(3,8)]/2"
+              # gain "0.8"
+              # speed ((+0.8).(/5) <$> slow 1.1 sinewave1)
+    bass'1'm = every 2 $ within (0.25, 0.75) (0.5 ~>)
+    wt'2 = s "wt*2"
+           # vowel "[u e u a]/2"
+           # end "0.15"
+    bass'2 = slow 8 $ ((1%8) <~) $ chop 32 $
+             bass'params $ n "[0 1]/2" # s "dubb"
+             # speed "1.2"
+             # shape ((/2) <$> density 4 sinewave1)
+             # cut "1"
+    ant'2 = slow 2 $ smash 16 [1,2] $ sound "ant:1"
+            # cutoff "1764" -- 0.08 * (44100/2)
+            # resonance "0.01"
+    shard'2 = chop 16 $ s "[ice [~ ice] ~ ~]/4"
+              # gain "0.7"
+    shard'2f = every 2 (density 1.5) $ whenmod 5 3 (density 2) $ rev $ shard'2
+               # shape ((+0.25).(/2) <$> density 8 saw1)
+    fly'2 = chop 64 $ s "[fly ~ [fly ~ ~ fly] ~]/4"
+            # cut "1"
+            # begin "0.3"
+            # end "0.35"
+            # shape ((+0.25).(/2) <$> density 8 sinewave1)
+            # speed ((+0.92) <$> density (5%4) saw1)
+    cymb'2 g = within (0.5,1) (# vowel "e") $
+               (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8"
+               # shape ((/3) <$> density 3.6 saw1)
+               # gain g
+    bass'3 v c b = (4 <~) $ every 2 (0.5 <~) $
+                   slow 4 .
+                   (if b then brak else id) $
+                   rev . chop 16 $
+                   bass'params $ n "[0 1]/2" # s "dubb"
+                   # cut c
+                   # vowel v
+    bz'3 = s "[ff(3,8) [~ [ff bz]]]/4"
+           # end "0.3"
+           # shape "0 0.25"
+           # gain "0.7"
+    drum'3 = overlay (s "[~ sn]/2") $ s "[k*2 [~ k*2] k ~ k*2 ~ k*2 ~]/8"
+    bass2'3 = slow 8 $ chop 16 $ bass'params $ n "[0 1]/2" # s "dubb"
+              # cut "1"
+              # speed "0.2"
+              # vowel "e"
+    perc'3 = sound "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8"
+    perc'3'delay = (# orbit "1").
+                   (# delay "0.3").
+                   (# delayfeedback "0.5").
+                   (# delaytime "0.766") --(138/60)/3
+    shard'3f = iter 4 . density 2 $ (0.5 <~) $ ((1%16) <~) $ shard'2
+               # vowel "e o"
+               # gain "0.6"
+    drum5'4 = s "[[~ [wt wtsn]] ~ wt ~]/5"
+    plox'4 so = within (0.5, 0.75) (iter 4) $
+                whenmod 3 2 (slow 2) $
+                slow 8 $ every 2 rev $ striate 128 $ s so
+                # cutoff "441" -- 0.02 * (44100/2)
+                # resonance "0.001"
+                # speed "0.7"
+                # gain "0.7"
+    bass'4 = whenmod 5 3 (density (3%2) . brak) $
+             bass'params $
+             rev $ (0.5 ~>) $ slow 2 . chop 8 $ n "[0 1]/2" # s "dubb"
+             # speed "0.5"
+             # cut "1"
+             # end "0.5"
+    bz'4 = (0.5 <~) $ slow 16 . chop 32 $ s "bzl"
+           # n (density 1.5 "0 1")
+           # speed ((+1) <$> density 1.7 sinewave1)
+           # gain "0.9"
+    bzox'4 so = whenmod 7 4 (within (0.5, 1) (density 2)) $
+                (0.5 <~) $
+                slow 16 . chop 32 $ s so
+                # n (density 1.5 "0 1")
+                # speed ((+1.6) <$> density 2.2 sinewave1)
+                # pan ((+0.25).(/2) <$> density 4.1 sinewave1)
+    perc'5 = s "~ wt wt wtsn/8"
+             # shape ((/2) <$> density 1.2 saw1)
+    drum'5 = sound "{[~ ~ ~ k:1], [~ sn]/2}"
+    drum'5f = overlay k $ drum'5
+    bass'5 = chop 16 $ bass'params $ s "[~ dubb]"
+             # n (slow 4 "0 1")
+             # cut "1"
+    bass'5f = every 2 (density 2) $ whenmod 3 2 (density 1.6) $ bass'5
+              # speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
+    fly'5 b = whenmod 5 3 rev $
+              (if b then brak else id) $
+              slow 16 $ jux ((1.5 ~>).rev) $
+              chop 64 $ bass'params $ sound "fly:1"
+              # speed "0.7"
+              # shape ((/2) <$> density 2.1 saw1)
+    bass2'5 = chop 12 $ sound "[~ ~ [~ k:1] !]/4"
+              # speed "0.9"
+    bass2'5b = whenmod 4 3 (density 1.8) $ bass2'5
+               # shape ((/3) <$> density 3 sinewave1)
+               # orbit "1"
+               # delay "0.3"
+               # delayfeedback "0.2"
+               # delaytime "0.2875" --(138/60)/8
+    gnome'5 sm f = smash 64 sm $
+                   (# speed "1.2").
+                   (# shape ((/2) <$> ((0.25 ~>) . density 3) sinewave1)).
+                   (# gain "0.6") $
+                   s "~ gnome"
+                   # pan (f $ slow 4 sinewave1)
+    sn'6 = s "[~ sn ~ sn*2]/8"
+    bass'6 = (# gain ((*0.7) <$> saw1)) $ bass'5f
+    bass2'6 = within (0, 0.5) (slow (7%6)) $
+              every 2 (0.5 <~) $ slow 8 $
+              bass' 32
+    plode'6 = superimpose (slow (5%3) . iter 2) $
+              (# speed ((+0.7) <$> slow 1.1 sinewave1)) $
+              chop 32 $ s "[plode(5,8)]/8"
+              # cut "1"
+    cymb'6 = s "[cymb*8 ~]/8"
+             # gain ((+0.6).(/5) <$> density 3.6 saw1)
+             # cut "1"
+    cymb'6f = density (5%4) $ whenmod 9 4 (density 1.5) $ cymb'6
+    drum'6 = sound "{k, [~ ~ ~ k:1] [~ k:1]}"
+    wtsn'6 = (3 ~>) $ within (0.25, 0.75) rev $
+             slowspread ($) [chop 16, chop 32] $ s "[wtsn(3,8)]/2"
+             # speed ((+0.8).(/2) <$> density 1.8 sinewave1)
+    gnome'6 d = iter 4 $ density (9%8) $
+                within (0, 0.5) rev $
+                smash 8 [1,2] $ s "[gnome(3,8)]/2"
+                # gain "0.8"
+                # speed ((+0.76).(/d) <$> slow 1.1 sinewave1)
+    shard'7 dt = 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 dt
+    bass'7 f = slow 8 $ f $
+               slowspread ($) [rev.chop 12, rev.chop 24] $
+               bass'params $ n "[0 1]/2" # s "dubb"
+    bass'7'm f = (f . (/2) <$> density (5%4) sinewave1)
+    fly'7 = slow (4%3) .
+            slowspread ($) [slow 1, density (5%4)] $
+            slow 12 $
+            slowspread striate [24,36] $ sound "fly:1"
+            # gain "0.7"
+    bz'8 = 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 ((/5) <$> slow (5%3) sinewave1)
+
+-- megalet for juliese.tidal
+let every' n o f = when ((== (o-1)) . (`mod` n)) f
+    d'drum = d1
+    d'perc = d2
+    d'bass = d3
+    d'eg = d4
+    d'gt = d5
+    d'udu = d6
+    d'pc = d7
+    d'pcl = d8
+    d'wbass = d9
+    bassbass = sound "[[vb vb:1] ~]/2"
+               # end (slow 1.4 "0.2 0.4")
+               # vowel "e o"
+    bassbass' = bassbass # speed (slow 2.5 "1 -1")
+    morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
+    drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
+    hhb m = smash 16 [0.25, 0.5] $
+            (if m then (every 3 (append $ sound "hh:1 hh")) else id) $
+            sound "hh hh:2"
+            # gain "0.6"
+    ududu = slow 4 . chop 128 $
+            sound (samples "udu" (slow 4 $ irand 4))
+            # gain "0.8"
+            # cut "6"
+    eg = gap 128 $ s "eg*2"
+         # cut "4"
+    gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
+         chop 128 $
+         s "[gt [~ gt] ! ~]/2"
+         # cut "5"
+    pcbeep = slow 16 $ gap 48 $ sound "pc:1"
+             # gain "0.7"
+             # cut "7"
+             # speed "[1 0.7]"
+    ju'drum2 = stack [
+               every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
+               every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
+               ]
+
+-- megalet for haddeo.tidal
+let bpm b = cps (b/60)
+    withmod a b c d = (whenmod a b . within (c, d))
+    every' n o f = when ((== (o-1)) . (`mod` n)) f
+    msil = mapM_ ($ silence)
+    tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
+    swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
+    swing' = swing 0.14 --0.05
+    d'drum = d1
+    d'bass = d3
+    d'bass2 = d2
+    d'wax = d4
+    d'nim = d5
+    d'hi = d6
+    d'fx1 = d8
+    d'fx2 = d9
+    d'fx3 = d10
+    nim'osc = (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
+    nim'del = (# orbit "1") .
+              (# delay "0.5") .
+              (# delayfeedback "0.6") .
+              (# delaytime "0.25")
+    tmod' s e = tmod (s*(1/(105/60))) e
+    mt s d i = slow s $ tmod' 0.5 3 $ density d $ i
+
+-- resolved channel mapping (reducing conflicts as much as possible)
+-- @todo update with haddeo channels
+let d'drum = d1
+    d'perc = d2
+    d'eg = d3
+    d'gnome = d3
+    d'hand = d3
+--    d'tac = d3
+    d'tac = d8 -- !
+    d'tr = d3
+    d'bass = d4
+    d'fly = d5
+    d'gt = d5
+    d'mons = d5
+--    d'warb = d5
+    d'warb = d6 -- !
+    d'bz = d6
+    d'kurt = d6
+    d'udu = d6
+    d'arpy = d7
+    d'pc = d7
+    d'shard = d7
+    d'arm = d8
+    d'misc = d8
+    d'pcl = d8
+    d'ql = d8
+    d'ant = d9
+    d'baa = d9
+    d'casio = d9
+    d'print = d9
+    d'voc = d9
+    d'wbass = d9
+    d'wobb = d9
+    d'bass2 = d10
+--    d'cymb = d10
+    d'cymb = d9 -- !
+    d'jbass = d10
+    d'moog = d10
+    d'qs = d10
+
+-- custom lets for this performance to fix sample refs. see samples.csv
+
+let pn'hh = s "[phh*8 [phh*4 ho]]/2"
+    pn'sn = sound "[~ [~ psn:1] ~ psn:1 ~ ~ psn:1 ~]/2"
+
+let hhb m = smash 16 [0.25, 0.5] $
+            (if m then (every 3 (append $ sound "rhh:1 rhh")) else id) $
+            sound "rhh rhh:2"
+            # gain "0.65"
+
+let ju'drum2 = stack [
+               every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
+               every' 16 16 (overlay $ (0.82 ~>) $ s "rsn") $ (1 ~>) $ s "rsn/2"
+               ]
+
+let ss'perc = s "{[sbd ~ ~ sbd] msg, rhh*2}"
+    ss'perc' = s "{[rm ~ ~ rm] msg, rhh*2}"
+
+let b3'perc = sound "[tok*2 [rm tok]] [psn:1 tok*2]"
+    b3'drum = slow 2 $ s "k [~ ~ ~ k] [~ k k ~] ~"
+    b3'drumf = slow 2 $ s "k*2 [~ ~ ~ k] [~ k k ~] ~"
+
+-- @todo keep an eye (ear... eye ear) on any other redefs

notts.scd

@@ -0,0 +1,8 @@
+include("SuperDirt")
+
+Server.local.options.device = "Soundflower (2ch)";
+SuperDirt.start(2, s, 4)
+
+~dirt.loadSoundFiles(thisProcess.nowExecutingPath.dirname +/+ "/samples/*")
+
+~dirt.stop

notts.tidal

@@ -0,0 +1,868 @@
+{-
+anny @ notts algorave 2017
+setlist:
+  - piston vi
+  - raise - battery 1 - piston iii
+  - juliese
+  - haddeo (algorave remix)
+  - battery 2 - battery 3 - piston viii
+-}
+
+let bpm b = cps (b/60)
+hush
+
+-- [1] piston vi
+
+bpm 138
+
+d'bass $ bass'6
+
+d'bz $ bass2'6
+d'fly $ plode'6
+d'cymb $ cymb'6
+
+d'perc $ wt'2 # gain "0.85"
+
+d'bass silence
+d'drum $ drum'6
+
+d'misc $ slow 16 $ bass' 64
+
+d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $ cymb'6
+
+d'gnome $ wtsn'6
+
+d'drum $ overlay sn'6 $ drum'6
+
+d'bass $ (0.6 ~>) $ bass'4
+
+msil [d'perc,d'gnome,d'misc]
+
+d'gnome $ gnome'6 5
+d'gnome $ gnome'6 3
+
+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"
+
+d'fly $ fly'5 False
+
+d'cymb $ (0.5 <~) $ cymb'2 "0.7"
+
+d'bz $ bass2'6
+d'drum $ overlay sn'6 $ drum'6
+
+msil [d'perc,d'fly,d'bz]
+
+-- [2] pigs nose: raise
+bpm 138
+bpm 125
+bpm 117
+
+msil [d'gnome, d'bass]
+d'drum $ drum'6
+
+d'ql $ slow (10%4) $ spread density [1,5%4] $
+  sound "[qlatibro:1 qlatibro]*2"
+  # vowel "e"
+
+d'cymb silence
+
+d'drum $ overlay (cf $ pn'hh) $ drum'6
+d'casio $ cf $ s "casio*2 ~"
+
+d'mons $ cf $
+  striate 4 $ slow 2 $ s "monsterb"
+  # gain "0.7"
+  # speed ((+0.6).(/2) <$> slow 4 sinewave1)
+
+d'mons $ cf $
+  spread density [1,2] $
+  striate 4 $ slow 2 $ s "monsterb"
+  # gain "0.7"
+  # speed ((+0.6).(/2) <$> slow 4 sinewave1)
+
+d'bass $ bass'5
+
+d'qs $ cf $
+  jux (iter 8) $ pn'qs 2
+  # gain "0.95"
+
+d'bass $ every 2 (density 2) $ bass'5
+
+d'qs $ cf $
+  jux (iter 8) $ pn'qs 2
+  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
+  # gain "0.95"
+
+-- quickly
+d'drum silence
+d'drum $ overlay (cf $ pn'sn) $ overlay (cf $ pn'hh) $ drum'6
+
+d'qs $ cf $
+  spread density [1,1,2,0.5] $
+  jux (iter 8) $ pn'qs 2
+  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
+  # gain "0.95"
+
+msil [d'mons, d'drum, d'ql]
+
+d'qs $ cf $
+  spread density [1,1,0.5,2] $
+  jux (iter 8) $ pn'qs 2
+  # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
+  # gain "0.95"
+
+d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
+  s "k(3,8)"
+
+d'jbass $ slow 8 $ sound "jungbass jungbass:1"
+  # pan (slow 2 sinewave1)
+  # speed "1.2"
+
+-- transition to [2b] battery 1
+d'hand $ b1'hand
+
+d'fly $ fly'5 True
+
+d'hand $ b1'hand
+  # shape ((/2) <$> slow (10%4) sinewave1)
+
+d'bass $ slow 4 $ b1'bass
+  # n "0 1 0 0"
+  # speed (thirdosc1 <$> slow 8 sinewave1)
+
+-- nice drum
+d'perc $ cf $ b1'perc
+
+d'perc $ cf $ b1'perc
+  # n (density 3 $ run 2)
+
+d'hand $ b1'hand
+  # shape ((/2) <$> slow (10%4) sinewave1)
+  # pan (halfosc <$> slow (8%3) sinewave1)
+
+bpm 117
+bpm 125
+
+msil [d'fly, d'casio, d'jbass]
+
+d'perc $ cf $
+  jux (0.25 <~) $ b1'perc
+  # n (density 3 $ run 2)
+
+-- good bass
+d'bass $ cf $
+  spread slow [1,3] $
+  striate 16 $
+  b1'bass
+  # n "0 1 0 0"
+  # speed (halfosc1 <$> slow 8 sinewave1)
+  # gain "0.9"
+
+d'drum $ cf $ pn'hh
+d'tac $ cf $ b1'tac
+
+d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
+
+d'drum $ cf $ overlay (sound "[~ psn:1]") $ pn'hh
+
+d'perc $ cf $
+  spread slow [2,1] $
+  jux (0.25 <~) $ b1'perc
+  # n (density 3 $ run 2)
+
+d'drum $ cf $ overlay (sound "[~ psn:1]") $ overlay (pn'hh) $
+  s "k(3,8)"
+
+d'warb $ b1'warbler
+
+d'drum $ cf $ overlay (sound "[~ psn:1]") $ overlay (pn'hh) $
+  every 4 (brak . density 2) $ s "k(3,8)"
+
+msil [d'tac, d'bass]
+
+d'cymb $ (0.5 <~) $ cymb'2 "0.7"
+
+d'drum $ cf $
+  overlay (
+    every' 8 8 (density 1.5) $
+    every 2 (density 3) $
+    sound "[~ psn:1]"
+    ) $
+  overlay (pn'hh) $
+  every 4 (brak . density 2) $ s "k(3,8)"
+
+-- merge in a bit of [2c] piston iii
+d'bass2 $ bass'3 "o i" "1" True # gain "1.1"
+d'shard $ ((1%16) <~) $ shard'2
+
+d'perc $ cf $
+  slow 2 . spread slow [2,4,2,3] $
+  jux (0.25 <~) $ b1'perc
+  # n (density 3 $ run 2)
+
+d'bass2 $ bass'3 "o i" "0" True # gain "1.1"
+
+d'drum $ cf $
+  overlay (
+    every' 8 8 (density 1.5) $
+    every 2 (density 3) $
+    sound "[~ psr:1]"
+    ) $
+  pn'hh
+
+d'bass2 $ bass'3 "o i" "1" True # gain "1.1"
+
+d'drum $ cf $ every' 8 8 (density 1.5) $ every 2 (density 3) $ sound "[~ psn:1]"
+
+msil [d'hand, d'bz, d'bass2, d'cymb]
+d'shard silence
+
+-- [3] juliese
+
+d'bass $ bassbass
+
+bpm 125
+bpm 105
+bpm 99
+
+d'drum silence
+
+msil [d'perc, d'warb]
+d'drum $ s "k"
+d'drum $ morek $ s "k"
+d'perc $ hhb False
+d'bass $ bassbass'
+
+d'perc $ whenmod 16 15 (density 3) $ hhb False
+d'drum $ overlay ((0.5 ~>) $ s "rsn/2") $ morek $ s "k"
+
+d'perc $ whenmod 16 15 (density 3) $ hhb True
+
+d'drum $ overlay ((1 ~>) $ s "cy/8") $
+  overlay ((0.5 ~>) $ s "rsn/2") $ morek $ s "k"
+
+d'bass $ whenmod 3 2 (slow 2) $ bassbass'
+d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
+
+d'perc $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
+
+d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
+d'drum $ overlay ((0.5 ~>) $ s "rsn/2") $ morek $ s "k"
+
+d'udu $ ududu
+
+d'wbass $ chop 16 $ sound "[wb wb:1 ~ ~]/4" # gain "0.9"
+d'wbass $ chop 16 $ sound "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
+
+d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
+
+d'eg $ density 0.25 $ eg
+  # gain "0.8"
+
+d'eg $
+  density 0.25 $
+  slowspread density [1, 2, 0.5, 2] $ eg
+  # gain "0.8"
+
+d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
+  density 0.25 $
+  slowspread density [1, 2, 0.5, 2] $ eg
+  # gain "0.8"
+
+d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
+  # speed "[1 1 2]/3"
+
+d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
+  density 0.245 $ -- !
+  slowspread density [1, 2, 0.5, 2] $ eg
+  # gain "0.8"
+
+mapM_ ($ silence) [d'perc, d'bass]
+
+-- fuck yeah. const rules
+d'eg $ (0.18 <~) $ every 2 (const silence) $
+  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
+  density 0.245 $
+  slowspread density [1, 2, 0.5, 2] $ eg
+  # gain "0.8"
+
+d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
+d'drum $ overlay ((0.5 ~>) $ s "rsn/2") $ morek $ every' 12 2 (density 3) $ s "k"
+
+d'pc $ pcbeep
+d'pc $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
+
+d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
+  (whenmod 7 5 $ trunc (5%6)) $ ududu
+
+d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
+  slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
+
+d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
+  # speed "[1 1 2]/3"
+
+d'pc $ whenmod 7 5 (density 1.25) $
+  slowspread ($) [rev, id, brak, (0.25 ~>), id] $
+  slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
+
+d'gt $ gt
+  # gain "0.87"
+
+d'gt $ gt
+  # gain "0.87"
+  # speed ((+1).(/4) <$> slow 1.95 sinewave1)
+
+-- OOOOOOHHHH MY FUCK
+d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
+  every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
+  # speed "[1 1 2]/3"
+
+d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
+
+-- funkier bassline w slowspread lambda, thanks yaxu. thaxu
+d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
+  whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
+
+d'udu $ (every' 5 3 $ brak) $
+  (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
+  (whenmod 7 5 $ trunc (5%6)) $ ududu
+
+-- bye const
+d'eg $ (0.18 <~) $
+  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
+  density 0.245 $
+  slowspread density [1, 2, 0.5, 2] $ eg
+  # gain "0.8"
+
+d'gt $ density 0.98 $ gt
+  # gain "0.87"
+  # speed ((+1).(/4) <$> slow 1.95 sinewave1)
+
+mapM_ ($ silence) [d'eg, d'wbass]
+d'drum $ ju'drum2
+
+mapM_ ($ silence) [d'bass, d'udu, d'pc]
+mapM_ ($ silence) [d'gt]
+
+-- [4] haddeo (algorave remix)
+
+bpm 105
+
+-- pt 1: intro
+
+d'drum $ stack [
+  n "1/4" # s "drum"
+  ]
+
+d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
+  # gain "0.4"
+
+d'perc silence
+
+d'wax $ slow 16 . striate 256 $ s "icarus"
+
+d'drum $ stack [
+  n "1/4" # s "drum",
+  n "[~ 0]" # s "kit"
+  ]
+
+d'drum $ stack [
+  n "[1*2, 0*8]/8" # s "drum",
+  n "[~ 0]" # s "kit"
+  ]
+
+d'wax $ retrig $ slow 20 $ sound "icarus:1"
+
+-- drop 1
+
+d'nim $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+d'wax silence
+
+d'drum $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  n "~ 0" # s "kit"
+  ]
+
+d'drum $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
+  ]
+
+d'wax $ slow 16 . striate 256 $ s "icarus"
+
+d'drum $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
+  ]
+
+d'fx3 $
+  (1.5 ~>) $
+  slow 4 $ chop 48 $
+  sound (samples "snoo" <$> slow 7 $ run 7)
+  # gain "0.8"
+  # cut "10"
+
+d'nim $ superimpose (iter 4) $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'nim $ superimpose (iter 4 . nim'osc) $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'fx1 $
+  (2 ~>) $ chop 16 $
+  s "dorr/4"
+  # hresonance "0.05"
+  # hcutoff "200"
+  # gain "0.8"
+
+d'drum $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  whenmod 3 2 (density 2) $
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
+  ]
+
+d'nim $ superimpose (iter 6 . nim'osc) $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+-- pt 2: offbeat
+
+d'drum $ mt 16 16 $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  whenmod 3 2 (density 2) $
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
+  ]
+
+d'nim $ superimpose (iter 6 . nim'osc . (# nudge "0")) $
+  mt 16 16 $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'fx1 $ mt 16 16 $
+  (2 ~>) $ chop 16 $
+  s "dorr/4"
+  # hresonance "0.05"
+  # hcutoff "200"
+  # gain "0.8"
+
+msil [d'wax, d'fx2, d'fx3]
+
+d'nim $ mt 16 16 $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'nim $ mt 16 16 $
+  whenmod 5 3 rev $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'nim $ mt 16 16 $
+  every' 2 2 (within (0, 0.5) (const silence)) $
+  whenmod 5 3 rev $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'fx2 $ mt 16 16 $ 1.75 ~> s "tubal/4"
+
+d'nim $ mt 16 16 $
+  every 3 (density 2) $
+  every' 2 2 (within (0, 0.5) (const silence)) $
+  whenmod 5 3 rev $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'fx2 $ mt 16 16 $
+  stack [
+    1.75 ~> s "tubal/4",
+    chop 16 $
+    3.75 ~> s "duck/4"
+    # gain "0.6"
+    # speed "0.9"
+    ]
+
+d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
+  mt 16 16 $
+  every 3 (density 2) $
+  every' 2 2 (within (0, 0.5) (const silence)) $
+  whenmod 5 3 rev $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+-- intermission
+
+msil [d'fx1, d'fx2]
+
+solo $ d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
+  mt 16 16 $
+  every 3 (density 2) $
+  every' 2 2 (within (0, 0.5) (const silence)) $
+  whenmod 5 3 rev $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
+  every' 2 2 (within (0, 0.5) (const silence)) $
+  whenmod 5 3 rev $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+let s = striate 16
+  in d'bass $
+     slow 8 $ stack [
+       s $ sound "hbass",
+       s $ sound "sine"
+       ]
+     # gain "0.9"
+
+d'nim $ superimpose (iter 4 . nim'osc . (# nudge "0")) $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+-- pt 3: funk
+
+d'drum $ n "0*4" # s "kit"
+  # gain "0.9"
+
+d'drum $ n "0*4" # s "drum"
+  # gain "0.9"
+
+d'drum $ swing' $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  whenmod 3 2 (density 2) $
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
+  ]
+
+d'nim $ (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'drum $ swing' $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  whenmod 3 2 (density 2) $
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
+  n "[~ 1]/2" # s "hsn"
+  # gain "0.85"
+  ]
+
+d'nim $ whenmod 16 12 (# vowel "[a i]/3") $
+  (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'nim $ every' 16 1 (# vowel "o u") $
+  whenmod 16 12 (# vowel "[a i]/3") $
+  (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'drum $ swing' $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  whenmod 3 2 (density 2) $
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
+  n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
+  # gain "0.85"
+  ]
+
+d'bass2 $ swing' $
+  n "[~ [~ 1] [~!! 0] [~ 0 1 ~]]/4" # s "bass2"
+  # speed (0.5 ~> "[2 1]")
+  # gain "0.82"
+
+d'fx1 $
+  (2 ~>) $ chop 16 $ s "dorr/4"
+  # hresonance "0.05"
+  # hcutoff "200"
+  # gain "0.8"
+
+d'fx2 $
+  stack [
+    1.75 ~> s "tubal/4",
+    chop 16 $
+    3.75 ~> s "duck/4"
+    # gain "0.6"
+    # speed "0.9"
+    ]
+
+d'nim $ every' 16 1 ((# vowel "o u") . nim'del) $
+  whenmod 16 12 (# vowel "[a i]/3") $
+  (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'fx1 $
+  superimpose (slow 2) $
+  (2 ~>) $ chop 16 $ s "dorr/4"
+  # hresonance "0.05"
+  # hcutoff "200"
+  # gain "0.8"
+
+d'wax $ slow 16 . striate 256 $ s "icarus"
+
+d'drum $ swing' $ stack [
+  n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
+  whenmod 3 2 (density 2) $
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
+  n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
+  # gain "0.85"
+  ]
+
+d'nim $ superimpose (iter 4) $
+  every' 16 1 ((# vowel "o u") . nim'del) $
+  whenmod 16 12 (# vowel "[a i]/3") $
+  (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'nim $ superimpose (iter 4 . nim'osc) $
+  every' 16 1 ((# vowel "o u") . nim'del) $
+  whenmod 16 12 (# vowel "[a i]/3") $
+  (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'drum $ swing' $ stack [
+  n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
+  n "[~ 0]" # s "kit",
+  n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
+  # gain "0.85"
+  ]
+
+-- outro
+
+msil [d'nim, d'wax, d'fx2, d'fx3]
+
+d'hi $
+  swing' $
+  every 3 rev $
+  whenmod 12 8 (0.5 <~) $
+  (0.5 ~>) $
+  slow 8 $
+  gap 64 $
+  n "[0 1]/2" # s "nimble"
+  # speed ((-4+).(*(-1)) <$> density 1.1 sine1)
+
+d'nim $ (0.25 ~>) $
+  whenmod 4 2 (const silence) $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+
+d'fx3 $ 3 ~> n "[0 1]/8" # s "duon"
+  # gain "0.9"
+
+d'nim $ (0.25 ~>) $
+  whenmod 4 2 (const silence) $
+  slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
+  # vowel "o"
+
+d'drum $ swing' $ stack [
+  n "[1*2, 0*8, [[~ 0] ~! [~!! 0] [~! 0!] ~!!]]/8" # s "drum",
+  every' 16 16 (const $ sound "kit:3") $
+  n "[~ 0]" # s "kit",
+  n "[~ [1 0/8 1/2 0/2]]/2" # s "hsn"
+  # gain "0.8"
+  ]
+
+msil [d'bass, d'bass2, d'hi, d'fx1, d'fx3]
+
+-- [5] battery 2
+
+d'perc $ cf $ s "uxay*2"
+  # n "1"
+
+d'nim silence
+d'perc $ b2'ux
+d'drum silence
+
+bpm 105
+bpm 121
+bpm 125
+
+d'perc $ b2'ux
+  # speed "[0.7 1 1.2]/2"
+
+d'drum $ cf $ b2'psr
+d'drum $ cf $ b2'psrf
+d'drum $ cf $ every 3 (0.125 <~) $ b2'psrf
+
+d'drum $ overlay (s "k") $
+  cf $ every 3 (0.125 <~) $ b2'psrf
+
+-- this and next 3 parts real quick
+d'perc $ b2'ux2 False
+
+d'drum $ cf $ -- overlay (s "k") $
+  every 3 (0.125 <~) $ b2'psrf
+
+d'tr $ cf $ b2'trump "[~ trump ! !] ~"
+
+d'tr $ cf $ b2'trump "[~ trump ! !] ~"
+  # speed (halfosc1 <$> slow 4 sinewave1)
+
+d'drum $ overlay (s "k") $
+  cf $ every 3 (0.125 <~) $ b2'psrf
+
+d'perc $ b2'ux2 True
+
+-- quickly
+d'bass $ b2'bass
+d'tr silence
+
+d'bass $ b2'bass
+  # shape "0.3" -- increase 0->0.3
+
+d'bass $ b2'bass
+  # shape (halfosc <$> saw1)
+
+--d'shard $ ((1%16) <~) $ shard'2
+d'fly $ fly'2
+
+d'arpy $ cf $ b2'arpy
+d'arpy $ cf $ iter 9 $ b2'arpy
+
+d'arpy $ cf $
+  whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
+  iter 9 $ b2'arpy
+
+msil [d'fly, d'perc]
+d'drum $ s "k/4"
+d'bass silence
+
+-- transition to [5b] battery 3
+
+d'perc $ cf $
+  slow 2 . spread slow [2,4,2,3] $
+  jux (0.25 <~) $ b1'perc
+  # n (density 3 $ run 2)
+
+d'drum $ overlay (s "k/4") $
+  cf $ b3'perc
+
+d'bass $ cf $ b3'bass
+
+d'bass $ cf $
+  whenmod 7 6 (density 1.5) $
+  b3'bass
+
+d'drum $ overlay (s "k/4") $
+  cf $ b3'perc
+  # n (slow 3 $ run 4)
+
+d'bass $ cf $
+  spread slow [2,(7%4)] $
+  whenmod 7 6 (density 1.5) $
+  b3'bass
+
+d'bass $ cf $
+  spread slow [2,(7%4)] $
+  whenmod 7 6 (density 1.5) $
+  iter 4 $
+  b3'bass
+
+d'hand $ b1'hand
+  # shape ((/2) <$> slow (10%4) sinewave1)
+  # pan (halfosc <$> slow (8%3) sinewave1)
+
+d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
+
+-- quickly
+d'arpy $ cf $ iter 9 $ b2'arpy
+msil [d'bass, d'hand]
+
+d'drum $ cf $
+  overlay (b3'drum) $
+  (b3'perc # n (slow 3 $ run 4))
+
+d'tac silence
+
+d'drum $ cf $
+  overlay (b3'drumf) $
+  (b3'perc # n (slow 3 $ run 4))
+
+d'ant $ ant'2
+d'bass2 $ bass'5f
+d'misc $ fly'2
+d'perc $ s "{wt/2, [~ wtsn]/8}"
+
+d'bass $ cf $
+  spread slow [2,(7%4)] $
+  whenmod 7 6 (density 1.5) $
+  iter 4 $
+  b3'bass
+
+d'perc $ snare43'1
+d'perc $ whenmod 5 3 rev $ snare43'1
+d'perc $ whenmod 5 3 (rev . chop 8) $ snare43'1
+d'perc $ overlay fly'1f $ whenmod 5 3 (rev . chop 8) $ snare43'1
+
+d'bass $ cf $
+  spread slow [2,(7%4)] $
+  whenmod 7 6 (density 1.5) $
+  iter 4 $
+  b3'bassf
+
+d'perc $ overlay fly'1f $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
+
+msil [d'ant, d'misc, d'perc]
+
+-- drum solo-ish for a bit
+d'drum $ cf $
+  overlay (b3'drumf) $
+  whenmod 5 3 (density 2) $
+  (b3'perc # n (slow 3 $ run 4))
+
+d'drum $ cf $
+  overlay (b3'drumf) $
+  whenmod 5 3 (density 2) $
+  iter 2 $
+  (b3'perc # n (slow 3 $ run 4))
+
+d'drum $ cf $
+  every' 8 8 rev $
+  overlay (b3'drumf) $
+  whenmod 5 3 (density 2) $
+  iter 2 $
+  (b3'perc # n (slow 3 $ run 4))
+
+d'drum $ cf $
+  every 3 rev $
+  every' 8 8 rev $
+  overlay (b3'drumf) $
+  whenmod 5 3 (density 2) $
+  iter 2 $
+  (b3'perc # n (slow 3 $ run 4))
+
+msil [d'bass, d'arpy, d'bass2]
+
+-- remove kick
+d'drum $ cf $
+  whenmod 5 3 (density 2) $
+  iter 2 $
+  (b3'perc # n (slow 3 $ run 4))
+
+d'perc $ cf $
+  slow 2 . spread slow [2,4,2,3] $
+  jux (0.25 <~) $ b1'perc
+  # n (density 3 $ run 2)
+
+d'bass $ slow 16 $ bass' 64
+d'misc $ (0.75 ~>) $ bass'4
+
+-- transition to [5c] piston viii
+bpm 125
+bpm 135
+bpm 138
+
+d'perc silence
+
+d'drum $ overlay (s "[k [sn ~ ~ k] [~ k*2] sn]/4")
+  $ cf $ (b3'perc # n (slow 3 $ run 4))
+
+d'misc $ overlay bass'5f $ (0.75 ~>) $ bass'4
+d'perc $ overlay fly'1f $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
+d'drum $ s "[k*2 [sn ~ ~ k] [k k*2] sn]/4"
+
+d'shard $ whenmod 7 3 (density (5%4)) $ plox'4 "[ice plode]*2"
+d'fly $ fly'5 True
+d'ant $ bass2'6
+d'cymb $ wtsn'6
+d'gnome $ gnome'6 5
+d'bz $ shard'3f
+d'gnome $ gnome'6 3
+d'bz $ within (0.5, 1) (density 2) $ shard'3f
+
+msil [d'fly,d'shard,d'bz,d'misc,d'cymb]
+d'misc $ (0.75 ~>) $ bass'4
+d'cymb $ (2.75 ~>) $ cymb'2 "0.7"
+msil [d'gnome,d'ant]
+d'bz $ every 3 brak $ bzox'4 "~ bzl"
+msil [d'bz,d'cymb,d'misc]
+
+solo $ d'perc $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
+
+hush

samples.csv

@@ -0,0 +1,69 @@
+project,original_sample,new_sample
+battery123,arpy,arpy
+battery123,bass,bbass
+battery123,bass3,bass3
+battery123,hand,hand
+battery123,jvbass,jvbass
+battery123,peri,peri
+battery123,psr,psr
+battery123,rm,rm
+battery123,tacscan,tacscan
+battery123,tok,tok
+battery123,trump,trump
+battery123,uxay,uxay
+battery123,warbler,warbler
+battery123,wobble,wobble
+juliese,cy,cy
+juliese,eg,eg
+juliese,gt,gt
+juliese,hh,rhh
+juliese,k,k
+juliese,pc,pc
+juliese,pclow,pclow
+juliese,sn,rsn
+juliese,udu,udu
+juliese,vb,vb
+juliese,wb,wb
+pigs-nose,armora,armora
+pigs-nose,baa,baa
+pigs-nose,bass,pbass
+pigs-nose,bd,pbd
+pigs-nose,casio,casio
+pigs-nose,hh,phh
+pigs-nose,ho,ho
+pigs-nose,house,house
+pigs-nose,jungbass,jungbass
+pigs-nose,monsterb,monsterb
+pigs-nose,print,print
+pigs-nose,qlatibro,qlatibro
+pigs-nose,qspace,qspace
+pigs-nose,rm,rm
+pigs-nose,sn,psn
+pigs-nose,wobble,wobble
+piston,ant,ant
+piston,bz,bz
+piston,bzl,bzl
+piston,cymb,cymb
+piston,dubb,dubb
+piston,ff,ff
+piston,fly,fly
+piston,gnome,gnome
+piston,hh,hh
+piston,ice,ice
+piston,k,k
+piston,plode,plode
+piston,sn,sn
+piston,wt,wt
+piston,wtsn,wtsn
+something-to-say,bass,sbass
+something-to-say,bd,sbd
+something-to-say,hh,hh
+something-to-say,house,house
+something-to-say,kurt,kurt
+something-to-say,moog,moog
+something-to-say,msg,msg
+something-to-say,rm,rm
+something-to-say,sitw,sitw
+something-to-say,sitwc,sitwc
+something-to-say,stab,stab
+something-to-say,wobble,wobble

samples/bass3/_readme_and_license.txt

@@ -0,0 +1,53 @@
+Sound pack downloaded from Freesound.org
+----------------------------------------
+
+This pack of sounds contains sounds by zgump ( http://www.freesound.org/people/zgump/  )
+You can find this pack online at: http://www.freesound.org/people/zgump/packs/5466/
+
+
+License details
+---------------
+
+Sampling+: http://creativecommons.org/licenses/sampling+/1.0/
+Creative Commons 0: http://creativecommons.org/publicdomain/zero/1.0/
+Attribution: http://creativecommons.org/licenses/by/3.0/
+Attribution Noncommercial: http://creativecommons.org/licenses/by-nc/3.0/
+
+
+Sounds in this pack
+-------------------
+
+  * 85057__zgump__Reverse_Bass_02.wav
+    * url: http://www.freesound.org/people/zgump/sounds/85057/
+    * license: Creative Commons 0
+  * 85056__zgump__Reverse_Bass_01.wav
+    * url: http://www.freesound.org/people/zgump/sounds/85056/
+    * license: Creative Commons 0
+  * 83253__zgump__BASS_0209.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83253/
+    * license: Creative Commons 0
+  * 83252__zgump__BASS_0208.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83252/
+    * license: Creative Commons 0
+  * 83251__zgump__BASS_0207.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83251/
+    * license: Creative Commons 0
+  * 83250__zgump__BASS_0206.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83250/
+    * license: Creative Commons 0
+  * 83249__zgump__BASS_0205.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83249/
+    * license: Creative Commons 0
+  * 83248__zgump__BASS_0204.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83248/
+    * license: Creative Commons 0
+  * 83247__zgump__BASS_0203.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83247/
+    * license: Creative Commons 0
+  * 83246__zgump__BASS_0202.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83246/
+    * license: Creative Commons 0
+  * 83245__zgump__BASS_0201.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83245/
+    * license: Creative Commons 0
+