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

trying to limit memory.

Browse Source
This commit is contained in:
Bryce Covert
2016-08-05 17:03:53 -07:00
parent 58540cfbbe
commit 02a76a4263
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/play_clj/core.clj
View File

@@ -77,10 +77,9 @@
(exec func {}))
([func options]
(when func
(let [screen-map (merge @screen options)
old-entities @entities]
(let [old-entities @entities]
(some->> (with-meta
#(normalize (func screen-map old-entities))
#(normalize (func @screen old-entities options))
(meta func))
(wrapper screen)
(reset-changed! entities old-entities)
@@ -116,8 +115,11 @@
(update-fn! assoc :contact-listener)
update-screen!))
:render (fn [d]
(swap! screen update-in [:total-time] #(+ (or %1 0) %2) d)
(execute-fn! on-render (assoc @screen :delta-time d)))
(swap! screen (fn [s]
(-> s
(assoc :delta-time d)
(update-in [:total-time] #(+ (or %1 0) d)))))
(execute-fn! on-render @screen))
:hide #(execute-fn! on-hide)
:pause #(execute-fn! on-pause)
:resize (fn [w h]