Archived
tiny tweaks
This commit is contained in:
+1
-1
@@ -368,7 +368,7 @@ let d'drum = d1
|
|||||||
d'cymb = d9 -- !
|
d'cymb = d9 -- !
|
||||||
d'jbass = d10
|
d'jbass = d10
|
||||||
d'moog = d10
|
d'moog = d10
|
||||||
d'qs = d10
|
d'qs = d10 -- clashes with jbass
|
||||||
|
|
||||||
-- custom lets for this performance to fix sample refs. see samples.csv
|
-- custom lets for this performance to fix sample refs. see samples.csv
|
||||||
|
|
||||||
|
|||||||
+24
-14
@@ -56,7 +56,7 @@ msil [d'perc,d'fly,d'bz]
|
|||||||
|
|
||||||
-- [2] pigs nose: raise
|
-- [2] pigs nose: raise
|
||||||
bpm 138
|
bpm 138
|
||||||
bpm 125
|
bpm 120
|
||||||
bpm 117
|
bpm 117
|
||||||
|
|
||||||
msil [d'gnome, d'bass]
|
msil [d'gnome, d'bass]
|
||||||
@@ -143,6 +143,7 @@ d'hand $ b1'hand
|
|||||||
# pan (halfosc <$> slow (8%3) sinewave1)
|
# pan (halfosc <$> slow (8%3) sinewave1)
|
||||||
|
|
||||||
bpm 117
|
bpm 117
|
||||||
|
bpm 123
|
||||||
bpm 125
|
bpm 125
|
||||||
|
|
||||||
msil [d'fly, d'casio, d'jbass]
|
msil [d'fly, d'casio, d'jbass]
|
||||||
@@ -160,7 +161,7 @@ d'bass $ cf $
|
|||||||
# speed (halfosc1 <$> slow 8 sinewave1)
|
# speed (halfosc1 <$> slow 8 sinewave1)
|
||||||
# gain "0.9"
|
# gain "0.9"
|
||||||
|
|
||||||
d'drum $ cf $ pn'hh
|
d'drum $ cf $ overlay (pn'sn) $ pn'hh
|
||||||
d'tac $ cf $ b1'tac
|
d'tac $ cf $ b1'tac
|
||||||
|
|
||||||
d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
|
d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
|
||||||
@@ -184,6 +185,10 @@ msil [d'tac, d'bass]
|
|||||||
|
|
||||||
d'cymb $ (0.5 <~) $ cymb'2 "0.7"
|
d'cymb $ (0.5 <~) $ cymb'2 "0.7"
|
||||||
|
|
||||||
|
-- merge in a bit of [2c] piston iii
|
||||||
|
d'bass2 $ bass'3 "o i" "1" True # gain "1"
|
||||||
|
-- (?) d'shard $ ((1%16) <~) $ shard'2
|
||||||
|
|
||||||
d'drum $ cf $
|
d'drum $ cf $
|
||||||
overlay (
|
overlay (
|
||||||
every' 8 8 (density 1.5) $
|
every' 8 8 (density 1.5) $
|
||||||
@@ -193,9 +198,9 @@ d'drum $ cf $
|
|||||||
overlay (pn'hh) $
|
overlay (pn'hh) $
|
||||||
every 4 (brak . density 2) $ s "k(3,8)"
|
every 4 (brak . density 2) $ s "k(3,8)"
|
||||||
|
|
||||||
-- merge in a bit of [2c] piston iii
|
d'bass $ slow 4 $ b1'bass
|
||||||
d'bass2 $ bass'3 "o i" "1" True # gain "1.1"
|
# n "0 1 0 0"
|
||||||
-- (?) d'shard $ ((1%16) <~) $ shard'2
|
# speed (thirdosc1 <$> slow 8 sinewave1)
|
||||||
|
|
||||||
d'perc $ cf $
|
d'perc $ cf $
|
||||||
slow 2 . spread slow [2,4,2,3] $
|
slow 2 . spread slow [2,4,2,3] $
|
||||||
@@ -216,7 +221,7 @@ 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]"
|
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]
|
msil [d'hand, d'bz, d'bass, d'bass2, d'cymb]
|
||||||
d'shard silence
|
d'shard silence
|
||||||
|
|
||||||
-- [3] juliese
|
-- [3] juliese
|
||||||
@@ -348,19 +353,19 @@ mapM_ ($ silence) [d'gt]
|
|||||||
|
|
||||||
-- [4] haddeo (algorave remix)
|
-- [4] haddeo (algorave remix)
|
||||||
|
|
||||||
|
bpm 99
|
||||||
|
bpm 104
|
||||||
bpm 105
|
bpm 105
|
||||||
|
|
||||||
-- pt 1: intro
|
-- pt 1: intro
|
||||||
|
|
||||||
d'drum $ stack [
|
d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
|
||||||
|
# gain "0.7"
|
||||||
|
|
||||||
|
solo $ d'drum $ stack [
|
||||||
n "1/4" # s "drum"
|
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'wax $ slow 16 . striate 256 $ s "icarus"
|
||||||
|
|
||||||
d'drum $ stack [
|
d'drum $ stack [
|
||||||
@@ -660,7 +665,7 @@ d'perc $ b2'ux
|
|||||||
d'drum silence
|
d'drum silence
|
||||||
|
|
||||||
bpm 105
|
bpm 105
|
||||||
bpm 121
|
bpm 123
|
||||||
bpm 125
|
bpm 125
|
||||||
|
|
||||||
d'perc $ b2'ux
|
d'perc $ b2'ux
|
||||||
@@ -788,6 +793,10 @@ d'bass $ cf $
|
|||||||
|
|
||||||
d'perc $ overlay fly'1f $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
|
d'perc $ overlay fly'1f $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ snare43'1
|
||||||
|
|
||||||
|
d'arpy $ cf $
|
||||||
|
whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
|
||||||
|
iter 9 $ b2'arpy
|
||||||
|
|
||||||
msil [d'ant, d'misc, d'perc]
|
msil [d'ant, d'misc, d'perc]
|
||||||
|
|
||||||
-- drum solo-ish for a bit
|
-- drum solo-ish for a bit
|
||||||
@@ -835,7 +844,7 @@ d'misc $ (0.75 ~>) $ bass'4
|
|||||||
|
|
||||||
-- transition to [5c] piston viii
|
-- transition to [5c] piston viii
|
||||||
bpm 125
|
bpm 125
|
||||||
bpm 135
|
bpm 134
|
||||||
bpm 138
|
bpm 138
|
||||||
|
|
||||||
d'perc silence
|
d'perc silence
|
||||||
@@ -845,6 +854,7 @@ d'drum $ overlay (s "[k [sn ~ ~ k] [~ k*2] sn]/4")
|
|||||||
|
|
||||||
d'misc $ overlay bass'5f $ (0.75 ~>) $ bass'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'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'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'shard $ whenmod 7 3 (density (5%4)) $ plox'4 "[ice plode]*2"
|
||||||
|
|||||||
Reference in New Issue
Block a user