tiny tweaks

This commit is contained in:
Aneurin Barker Snook
2017-01-31 13:11:22 +00:00
parent 7c6e7a4ead
commit 2f3b2088b5
2 changed files with 25 additions and 15 deletions
+1 -1
View File
@@ -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
View File
@@ -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"