Add move-x and move-y

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!
+(defn move-x!
-  [{:keys [^Camera camera]} x y]
+  [{: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!