fixed sound problems.

2015-10-26 15:08:51 +01:00
parent dc5c4d71d5
commit 4f281a0522
3 changed files with 19 additions and 12 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -418,7 +418,8 @@

 (defn scale-vol-from-fade [entities vol]
  (* vol
-     (- 1.0 (get-in entities [:fade :opacity]))))
+     (- 1.0 (get-in entities [:fade :opacity]))
+     (get-in entities [:volume :value])))

 (defn play-sound!
  ([screen entities snd volume-fn]