|
|
@@ -9,7 +9,14 @@ let bpm b = cps (b/60)
|
|
|
bassP = (# gain 0.7) . (# hcutoff 485) . (# hresonance 0.001)
|
|
|
cf = slow 2
|
|
|
every' n o f = when ((== (o-1)) . (\`mod\` n)) f
|
|
|
+ withmod a b c d = (whenmod a b . within (c, d))
|
|
|
+ tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
|
|
|
+ swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
|
|
|
+ -- given bpm = 105
|
|
|
+ tmod' s e = tmod (s*(1/(105/60))) e
|
|
|
+ mt i = slow 16 $ tmod' 0.5 3 $ density 16 $ i
|
|
|
d'drum = d1
|
|
|
+ d'hi = d2
|
|
|
d'perc = d2
|
|
|
d'print = d2
|
|
|
d'wobb = d2
|
|
|
@@ -23,13 +30,16 @@ let bpm b = cps (b/60)
|
|
|
d'hand = d4
|
|
|
-- d'jbass = d4
|
|
|
d'qs = d4
|
|
|
+ d'wax = d4
|
|
|
d'fly = d5
|
|
|
d'gt = d5
|
|
|
d'mons = d5
|
|
|
+ d'nim = d5
|
|
|
d'warb = d5
|
|
|
d'bass2 = d6
|
|
|
d'bz = d6
|
|
|
d'gt2 = d6
|
|
|
+ -- d'hi = d6
|
|
|
d'udu = d6
|
|
|
d'arpy = d7
|
|
|
d'casio = d7
|
|
|
@@ -37,13 +47,16 @@ let bpm b = cps (b/60)
|
|
|
d'pc = d7
|
|
|
d'shard = d7
|
|
|
d'arm = d8
|
|
|
+ d'fx1 = d8
|
|
|
d'misc = d8
|
|
|
d'pcl = d8
|
|
|
d'ql = d8
|
|
|
d'tr = d8
|
|
|
d'ant = d9
|
|
|
d'baa = d9
|
|
|
+ d'fx2 = d9
|
|
|
d'tac = d9
|
|
|
d'wbass = d9
|
|
|
d'cymb = d10
|
|
|
+ d'fx3 = d10
|
|
|
d'jbass = d10
|
Aneurin Barker Snook