notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

panning

Browse Source
This commit is contained in:
Remington Covert
2015-02-21 16:37:39 -08:00
parent ed0ddefa3f
commit e15c2bd6de
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
desktop/src-common/advent/screens/scene.clj
View File

@@ -408,8 +408,6 @@
(when (and (not= previous-frame-index current-frame-index) (when (and (not= previous-frame-index current-frame-index)
((set (keys anim-sound-frames)) anim)) ((set (keys anim-sound-frames)) anim))
(when-let [[snd vol-scale] (get-in anim-sound-frames [anim current-frame-index])] (when-let [[snd vol-scale] (get-in anim-sound-frames [anim current-frame-index])]
(println "play")
(let [vol (if (= target :ego) (let [vol (if (= target :ego)
(* (/ (get-in entities [:room :entities :ego :scale-x]) 1.5) 0.75) (* (/ (get-in entities [:room :entities :ego :scale-x]) 1.5) 0.75)
(max 0.0 (max 0.0
@@ -419,11 +417,11 @@
:y-sign 2.0 :y-sign 2.0
:x-sign (/ 1.0 (get-in entities [:room :entities :ego :scale-x]))) :x-sign (/ 1.0 (get-in entities [:room :entities :ego :scale-x])))
175.0)))) 175.0))))
pan (/ (- (:x e) 160 ) 160)
vol (* vol vol-scale) vol (* vol vol-scale)
vol (max vol 0.005)] vol (max vol 0.005)]
(println vol snd)
(sound! (or (snd e) (sound! (or (snd e)
(snd (:sounds entities))) :play vol)))))) (snd (:sounds entities))) :play vol 1.0 pan))))))
(defscreen scene (defscreen scene