a few tweaks

This commit is contained in:
Aneurin Barker Snook
2016-04-25 19:13:48 +01:00
parent 8d0b6a242e
commit 62846810b6
+15 -9
View File
@@ -180,7 +180,7 @@ d'fly $ fly'5 True
d'bass $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ bass'5 d'bass $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ bass'5
# speed ((+0.75).(/2) <$> slow 1.3 sinewave1) # speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
msil [d'casio, d'mons, d'drum] msil [d'mons, d'drum]
d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $ d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
s "k(3,8)" s "k(3,8)"
@@ -190,14 +190,20 @@ d'qs $ cf $
jux (iter 8) $ pn'qs 2 jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1) # speed ((+0.7).(/2) <$> slow 3.2 triwave1)
d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
every 4 (brak . density 2) $ s "k(3,8)"
d'bass2 $ slow 8 $ s "jungbass jungbass:1" d'bass2 $ slow 8 $ s "jungbass jungbass:1"
# pan (slow 2 sinewave1) # pan (slow 2 sinewave1)
# speed "1.2" # speed "1.2"
msil [d'perc, d'qs] d'drum $ cf $ overlay (pn'sn) $ overlay (pn'hh) $
every 4 (brak . density 2) $ s "k(3,8)"
d'qs $ cf $
spread density [1,1,0.5,2] $
jux (iter 8) $ pn'qs 2
# speed ((+0.7).(/2) <$> slow 3.2 triwave1)
# vowel "a"
msil [d'casio, d'perc, d'qs]
d'fly silence d'fly silence
{- {-
@@ -296,10 +302,6 @@ d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
d'perc $ iter 4 $ (# 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'gt $ density 0.98 $ gt
# gain "0.87"
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass' whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
@@ -313,6 +315,10 @@ d'eg $ (0.18 <~) $
slowspread density [1, 2, 0.5, 2] $ eg slowspread density [1, 2, 0.5, 2] $ eg
# gain "0.8" # gain "0.8"
d'gt $ density 0.98 $ gt
# gain "0.87"
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
msil [d'perc, d'eg, d'wbass] msil [d'perc, d'eg, d'wbass]
d'drum $ ju'drum2 d'drum $ ju'drum2