diff --git a/src/play_clj/core_render.clj b/src/play_clj/core_render.clj index f1bb260..115400e 100644 --- a/src/play_clj/core_render.clj +++ b/src/play_clj/core_render.clj @@ -110,13 +110,23 @@ [screen new-width] (size! screen new-width (* new-width (/ (game :height) (game :width))))) -(defn move! - [{:keys [^Camera camera]} x y] +(defn move-x! + [{:keys [^Camera camera]} x] (assert camera) (when x (set! (. (. camera position) x) x)) + (.update camera)) + +(defn move-y! + [{:keys [^Camera camera]} y] + (assert camera) (when y (set! (. (. camera position) y) y)) (.update camera)) +(defn move! + [screen x y] + (move-x! screen x) + (move-y! screen y)) + ; interop (defmacro orthogonal-tiled-map!