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

fixing skipped frame issue

Browse Source
This commit is contained in:
Bryce Covert
2017-07-27 20:39:34 -07:00
parent 9a6b1b4b84
commit 0db00c633d
2 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -911,12 +911,22 @@
(assoc-in [:fade :opacity] 1.0)))
entities))
(defn get-necessary-sound [anim-sound-frames previous-frame-index current-frame-index]
(loop [x (inc previous-frame-index)]
(cond
(anim-sound-frames x)
(anim-sound-frames x)
(< x current-frame-index )
(recur (inc x))
:else
nil)))
(defn play-sound-if-necessary [screen entities target {:keys [previous-frame-index current-frame-index anim-sound-frames anim x y] :as e :or {anim-sound-frames {}}}]
(if (and (not= previous-frame-index current-frame-index)
(anim-sound-frames anim))
(if-let [[snd vol-scale pitch] (get-in anim-sound-frames [anim current-frame-index])]
(if-let [[snd vol-scale pitch] (get-necessary-sound (anim-sound-frames anim) previous-frame-index current-frame-index)]
(let [snd (if (fn? snd)
(snd entities)
snd)