|
@@ -55,6 +55,7 @@ let b1'warbler = slow 4 $ striate 32 $ s "warbler"
|
|
|
# n (slow 7 $ run 7)
|
|
|
# gain "0.8"
|
|
|
|
|
|
+-- go
|
|
|
d'bass $ slow 4 $ b1'bass
|
|
|
|
|
|
d'bass $ slow 4 $ b1'bass
|
|
@@ -64,11 +65,13 @@ d'bass $ slow 4 $ b1'bass
|
|
|
# n "0 1 0 0"
|
|
|
# speed (thirdosc1 <$> slow 8 sinewave1)
|
|
|
|
|
|
+-- reversed snare, but so named cause someone told me it sounded like a mosquito
|
|
|
d'mosq $ b1'mosq
|
|
|
|
|
|
d'mosq $ b1'mosq
|
|
|
# shape ((/2) <$> slow (10%4) sinewave1)
|
|
|
|
|
|
+-- nice drum
|
|
|
d'perc $ cf $ b1'perc
|
|
|
|
|
|
d'mosq $ b1'mosq
|
|
@@ -82,6 +85,7 @@ d'perc $ cf $
|
|
|
jux (0.25 <~) $ b1'perc
|
|
|
# n (density 3 $ run 2)
|
|
|
|
|
|
+-- good bass
|
|
|
d'bass $ cf $
|
|
|
spread slow [1,3] $
|
|
|
striate 16 $
|
|
@@ -98,14 +102,15 @@ d'drum $ cf $
|
|
|
|
|
|
d'drum $ cf $ s "~ psr:1"
|
|
|
|
|
|
+-- good drum
|
|
|
d'drum $ cf $
|
|
|
overlay (s "~ psr:1") $
|
|
|
every 4 (density 1.5) $ slow 2 $ s "peri [~ peri] ! ~"
|
|
|
|
|
|
d'drum $ cf $ s "~ psr:1"
|
|
|
|
|
|
+-- bring a funk
|
|
|
d'tac $ cf $ b1'tac
|
|
|
-
|
|
|
d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
|
|
|
|
|
|
d'drum $ overlay (s "peri") $ cf $
|
|
@@ -113,6 +118,7 @@ d'drum $ overlay (s "peri") $ cf $
|
|
|
|
|
|
d'drum $ cf $ s "~ psr:1"
|
|
|
|
|
|
+-- birdsong. don't play it for too long. gets annoying
|
|
|
d'warb $ b1'warbler
|
|
|
|
|
|
d'perc $ cf $
|
|
@@ -128,6 +134,7 @@ d'drum $ overlay (s "peri") $ cf $
|
|
|
|
|
|
mapM_ ($ silence) [d'bass, d'tac]
|
|
|
|
|
|
+-- drum + perc are real nice at this point
|
|
|
d'drum $ overlay (s "peri") $ cf $
|
|
|
every' 8 8 (density 1.5) $
|
|
|
every 2 (density 3) $ s "~ psr:1"
|
|
@@ -172,6 +179,7 @@ let b2'arpy = s "arpy*8"
|
|
|
# n "2 1 3 1"
|
|
|
# gain "0.7"
|
|
|
|
|
|
+-- go
|
|
|
d'perc $ cf $ s "uxay*2"
|
|
|
# n "1"
|
|
|
|
|
@@ -189,13 +197,14 @@ d'drum $ cf $ every 3 (0.125 <~) $ b2'psrf
|
|
|
d'drum $ overlay (s "peri") $
|
|
|
cf $ every 3 (0.125 <~) $ b2'psrf
|
|
|
|
|
|
-d'warb silence
|
|
|
-
|
|
|
+-- this and next 3 parts real quick
|
|
|
d'perc $ cf $ brak $
|
|
|
b2'uxp $ s "uxay*4"
|
|
|
# n "1 0 1 2"
|
|
|
# shape "0.4 0.3 0.6"
|
|
|
|
|
|
+d'warb silence
|
|
|
+
|
|
|
d'drum $ cf $ -- overlay (s "peri") $
|
|
|
every 3 (0.125 <~) $ b2'psrf
|
|
|
|
|
@@ -269,6 +278,7 @@ let b3'bass = s "bass*4"
|
|
|
let b3'drum = slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~"
|
|
|
b3'drumf = slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~"
|
|
|
|
|
|
+-- go
|
|
|
d'arpy $ cf $
|
|
|
whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
|
|
|
iter 9 $ b2'arpy
|
|
@@ -347,6 +357,7 @@ d'bass $ cf $
|
|
|
|
|
|
mapM_ ($ silence) [d'perc, d'tac]
|
|
|
|
|
|
+-- drum solo-ish for a bit
|
|
|
d'drum $ cf $
|
|
|
overlay (b3'drumf) $
|
|
|
whenmod 5 3 (density 2) $
|
|
@@ -388,6 +399,7 @@ d'perc $ cf $
|
|
|
jux (0.25 <~) $ b1'perc
|
|
|
# n (density 3 $ run 2)
|
|
|
|
|
|
+-- rebuild yr way out
|
|
|
d'drum $ cf $
|
|
|
overlay (b3'drumf) $
|
|
|
(b3'perc # n (slow 3 $ run 4))
|