gain tweaks

This commit is contained in:
Aneurin Barker Snook
2016-04-24 22:33:58 +01:00
parent 3b1cc6c3d2
commit 48e0607360
+3 -3
View File
@@ -147,10 +147,10 @@ d'pc $ whenmod 7 5 (density 1.25) $
slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
d'gt $ gt d'gt $ gt
# gain "0.8" # gain "0.87"
d'gt $ gt d'gt $ gt
# gain "0.8" # gain "0.87"
# speed ((+1).(/4) <$> slow 1.95 sinewave1) # speed ((+1).(/4) <$> slow 1.95 sinewave1)
-- OOOOOOHHHH MY FUCK -- OOOOOOHHHH MY FUCK
@@ -178,7 +178,7 @@ d'eg $ (0.18 <~) $
# gain "0.8" # gain "0.8"
d'gt $ density 0.98 $ gt d'gt $ density 0.98 $ gt
# gain "0.8" # gain "0.87"
# speed ((+1).(/4) <$> slow 1.95 sinewave1) # speed ((+1).(/4) <$> slow 1.95 sinewave1)
mapM_ ($ silence) [d'eg, d'wbass] mapM_ ($ silence) [d'eg, d'wbass]