put kurt on some funk, and outro tweaks

This commit is contained in:
Aneurin Barker Snook
2016-04-24 23:19:08 +01:00
parent 41db0000a6
commit 73fb04bd79
+28 -10
View File
@@ -385,7 +385,7 @@ d'voc $ cf $ slow 2 $
ss'chorus ss'chorus
# vowel "e" # vowel "e"
d'perc silence msil [d'drum, d'perc]
d'drum $ cf $ d'drum $ cf $
every 2 (superimpose $ iter' 3) $ every 2 (superimpose $ iter' 3) $
@@ -404,6 +404,8 @@ d'gt $ cf $
d'kurt $ cf $ s "kurt" d'kurt $ cf $ s "kurt"
# n (slow 4 "5 6 4") # n (slow 4 "5 6 4")
d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
d'moog $ cf $ d'moog $ cf $
slow 8 . striate 8 $ slow 8 . striate 8 $
0.25 <~ s "moog" 0.25 <~ s "moog"
@@ -425,11 +427,11 @@ d'voc $ cf $ slow 2 $
# vowel "e" # vowel "e"
# speed ((+0.5).(*1.2) <$> slow 5 sinewave1) # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
d'drum $ overlay (s "k") $ cf $ d'drum $ overlay (morek $ s "k") $ cf $
every 2 (superimpose $ iter' 3) $ every 2 (superimpose $ iter' 3) $
slow 2 $ ss'perc' slow 2 $ ss'perc'
d'drum $ overlay (s "k") $ cf $ d'drum $ overlay (morek $ s "k") $ cf $
every 2 (superimpose $ iter' 3) $ every 2 (superimpose $ iter' 3) $
slow 2 $ ss'perc slow 2 $ ss'perc
@@ -439,6 +441,10 @@ d'voc $ cf $
# vowel "e" # vowel "e"
# speed ((+0.5).(*1.2) <$> slow 5 sinewave1) # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
d'drum $ overlay (morek $ s "k") $ cf $
every 2 (superimpose $ iter' 3) $
slow 2 $ ss'perc
d'voc $ cf $ d'voc $ cf $
within (0.5, 0.75) rev $ within (0.5, 0.75) rev $
iter 3 . striate 4 $ iter 3 . striate 4 $
@@ -446,15 +452,17 @@ d'voc $ cf $
# vowel "e" # vowel "e"
# speed ((+0.5).(*1.2) <$> slow 5 sinewave1) # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
-- do more? -- this is new
{-
d'voc $ cf $ d'voc $ cf $
slowspread (\x -> within (0, 0.5) (x)) [id, const silence, (# speed "-1")] $
within (0.5, 0.75) rev $ within (0.5, 0.75) rev $
iter 3 . striate 4 $ iter 3 . striate 4 $
ss'chorus ss'chorus
# vowel "e" # vowel "e"
# speed ((+0.5).(*1.2) <$> slow 5 sinewave1) # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
-}
d'bass2 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4"
# gain "0.9"
{- {-
battery 1/piston i/iii/iv battery 1/piston i/iii/iv
@@ -464,6 +472,12 @@ d'misc $ bass2'3
msil [d'voc, d'moog] msil [d'voc, d'moog]
d'drum $ overlay (s "k") $ cf $
every 2 (superimpose $ iter' 3) $
slow 2 $ ss'perc
msil [d'bass, d'bass2]
d'hand $ b1'hand d'hand $ b1'hand
# shape ((/2) <$> slow (10%4) sinewave1) # shape ((/2) <$> slow (10%4) sinewave1)
# pan (halfosc <$> slow (8%3) sinewave1) # pan (halfosc <$> slow (8%3) sinewave1)
@@ -499,12 +513,10 @@ d'drum $ cf $
d'bass2 $ bass'3 "o i" "1" True d'bass2 $ bass'3 "o i" "1" True
d'bz $ every 3 brak $ bzox'4 "~ bzl" d'bz $ every 3 brak $ bzox'4 "~ bzl"
d'tac $ shard'3f
msil [d'tac, d'hand, d'bz, d'bass]
d'tac $ every 2 (density 2) $ bass'5
msil [d'hand, d'bass]
d'bass $ slow 16 $ bass' 64 d'bass $ slow 16 $ bass' 64
msil [d'tac, d'bz]
d'drum $ cf $ d'drum $ cf $
overlay (every 2 (density 3) $ s "~ rsn") $ overlay (every 2 (density 3) $ s "~ rsn") $
@@ -514,6 +526,8 @@ d'drum $ cf $
overlay (every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ rsn") $ overlay (every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ rsn") $
every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~" every 4 (density 1.5) $ slow 2 $ s "k [~ k] ! ~"
d'arpy $ shard'3f
msil [d'drum, d'bass, d'tac, d'bass2] msil [d'drum, d'bass, d'tac, d'bass2]
d'perc $ cf $ d'perc $ cf $
@@ -521,4 +535,8 @@ d'perc $ cf $
jux (0.25 <~) $ b1'perc jux (0.25 <~) $ b1'perc
# n (density 3 $ run 2) # n (density 3 $ run 2)
cps (130/60)
cps (120/60)
cps (100/60)
hush hush