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

Change camera/renderer creation process

Browse Source
This commit is contained in:
oakes
2014-01-08 00:24:25 -05:00
parent 64903142ef
commit e9658884e6
3 changed files with 41 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/play_clj/core.clj
View File

@@ -28,6 +28,7 @@
{:type :actor :object obj})
(load "core_2d")
(load "core_deprecated")
(load "core_global")
(load "core_render")
@@ -46,16 +47,12 @@
(remove nil?)
(reset! entities)))
create-renderer-fn! #(swap! screen assoc :renderer (renderer %))
create-camera-fn! #(swap! screen assoc :camera (camera %))
update-fn! #(swap! screen assoc
:renderer (renderer (:renderer %))
:camera (camera (:camera %)))]
update-fn! #(swap! screen merge %)]
{:show (fn []
(->> (swap! screen assoc
:total-time 0
:delta-time 0
:create-renderer-fn! create-renderer-fn!
:create-camera-fn! create-camera-fn!
:update-fn! update-fn!)
(execute-fn! on-show)))
:render (fn [delta-time]
@@ -104,11 +101,3 @@
(defn update!
[{:keys [update-fn!]} & {:keys [] :as args}]
(update-fn! args))
(defn create-renderer!
[{:keys [create-renderer-fn!]} & {:keys [] :as args}]
(:renderer (create-renderer-fn! args)))
(defn create-camera!
[{:keys [create-camera-fn!]} & {:keys [] :as args}]
(:camera (create-camera-fn! args)))