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

Optimize defscreen a bit

Browse Source
This commit is contained in:
oakes
2014-01-05 13:56:04 -05:00
parent 215780ab6b
commit 266d349947
1 changed files with 20 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
src/play_clj/core.clj
View File

@@ -26,29 +26,32 @@
on-pause dummy on-resize dummy on-resume dummy}}] on-pause dummy on-resize dummy on-resume dummy}}]
(let [screen (atom {}) (let [screen (atom {})
entities (atom '()) entities (atom '())
execute (fn [func] execute (fn [func screen-map]
(some->> (func @screen @entities) (some->> (func screen-map @entities)
list list
flatten flatten
(remove nil?) (remove nil?)
(reset! entities)))] (reset! entities)))
create-renderer-fn! #(swap! screen assoc :renderer (renderer %))
create-camera-fn! #(swap! screen assoc :camera (camera %))]
(proxy [Screen] [] (proxy [Screen] []
(show [] (show []
(swap! screen assoc (->> (swap! screen assoc
:total-time 0 :total-time 0
:delta-time 0 :delta-time 0
:create-renderer #(swap! screen assoc :renderer (renderer %)) :create-renderer create-renderer-fn!
:create-camera #(swap! screen assoc :camera (camera %))) :create-camera create-camera-fn!)
(execute on-show)) (execute on-show)))
(render [delta-time] (render [delta-time]
(swap! screen assoc (->> (swap! screen (fn [val]
:total-time (+ (:total-time @screen) delta-time) (assoc val
:delta-time delta-time) :total-time (+ (:total-time val) delta-time)
(execute on-render)) :delta-time delta-time)))
(hide [] (execute on-hide)) (execute on-render)))
(pause [] (execute on-pause)) (hide [] (execute on-hide @screen))
(resize [w h] (execute on-resize)) (pause [] (execute on-pause @screen))
(resume [] (execute on-resume))))) (resize [w h] (execute on-resize @screen))
(resume [] (execute on-resume @screen)))))
(defmacro defscreen (defmacro defscreen
[n & {:keys [] :as options}] [n & {:keys [] :as options}]