Add contact listener for 3D physics

2014-04-19 01:10:06 -04:00
parent 41ee2b947c
commit c8ffc51de7
8 changed files with 113 additions and 62 deletions
--- a/src/play_clj/core.clj
+++ b/src/play_clj/core.clj
@@ -77,9 +77,9 @@
                    :on-timer on-timer
                    :ui-listeners (ui-listeners options execute-fn!))
             (execute-fn! on-show)
-             (swap! screen assoc
-                    :physics-listeners
-                    (physics-listeners @screen options execute-fn!)))
+             (when-not (:contact-listener @screen)
+               (->> (contact-listener @screen options execute-fn!)
+                    (swap! screen assoc :contact-listener))))
     :render (fn [d]
               (swap! screen #(assoc % :total-time (+ (:total-time %) d)))
               (execute-fn! on-render :delta-time d))