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

Clear the physics world during REPL development

Browse Source
This commit is contained in:
oakes
2014-05-25 19:01:48 -04:00
parent 70cea243ca
commit 9f03440009
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/play_clj/core.clj
View File

@@ -82,6 +82,13 @@
:entities entities :entities entities
:options options :options options
:show (fn [] :show (fn []
; if using a physics engine in a REPL, we need to forcibly remove
; the entities and world so they are cleaned up properly
(when (:world @screen)
(update-screen! @screen (reset! entities []))
(some-> @screen :world :object .dispose)
(update-fn! dissoc [:world]))
; set the initial values in the screen map
(update-fn! assoc (update-fn! assoc
[:total-time 0 [:total-time 0
:update-fn! update-fn! :update-fn! update-fn!
@@ -89,7 +96,9 @@
:on-timer on-timer :on-timer on-timer
:input-listeners (input-listeners options execute-fn!) :input-listeners (input-listeners options execute-fn!)
:ui-listeners (ui-listeners options execute-fn!)]) :ui-listeners (ui-listeners options execute-fn!)])
; run :on-show
(execute-fn! on-show) (execute-fn! on-show)
; update the physics contact listener if a :world was created
(some->> (contact-listener @screen options execute-fn!) (some->> (contact-listener @screen options execute-fn!)
(vector :contact-listener) (vector :contact-listener)
(update-fn! assoc))) (update-fn! assoc)))