cauldron sound.

2015-10-27 20:24:05 -07:00
parent 6a6e702dbe
commit 1d25ba98b5
5 changed files with 17 additions and 8 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -445,6 +445,7 @@
     (play-sound! screen entities snd volume-fn pan type 1.0))

  ([screen entities snd volume-fn pan type pitch]
+     
     (let [vol (volume-fn entities)
           sound-id (if (= :once type)
                      (sound! snd :play (scale-vol-from-fade entities (current-sound-volume vol)) (or pitch 1.0) pan )