eg bugfix

This commit is contained in:
Aneurin Barker Snook
2016-04-24 19:56:37 +01:00
parent 3f3af2213d
commit 3b1cc6c3d2
+2 -1
View File
@@ -123,7 +123,8 @@ mapM_ ($ silence) [d'perc, d'bass]
d'eg $ (0.18 <~) $ every 2 (const silence) $ d'eg $ (0.18 <~) $ every 2 (const silence) $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.245 $ density 0.245 $
slowspread density [1, 2, 0.5, 2] $ eg "0.75" slowspread density [1, 2, 0.5, 2] $ eg
# gain "0.8"
d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k" d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu