Add vector macros

src/play_clj/math.clj

@@ -1,8 +1,26 @@
 (ns play-clj.math
   (:import [com.badlogic.gdx.math Vector2 Vector3]))
 
-(defn vector
-  ([x y]
-    (Vector2. x y))
-  ([x y z]
-    (Vector3. x y z)))
+(defn vector-2*
+  [x y]
+  (Vector2. x y))
+
+(defmacro vector-2
+  [x y & options]
+  `(u/calls! ^Vector2 (vector-2* ~x ~y) ~@options))
+
+(defmacro vector-2!
+  [object k & options]
+  `(u/call! ^Vector2 ~object ~k ~@options))
+
+(defn vector-3*
+  [x y z]
+  (Vector3. x y z))
+
+(defmacro vector-3
+  [x y z & options]
+  `(u/calls! ^Vector3 (vector-3* ~x ~y ~z) ~@options))
+
+(defmacro vector-3!
+  [object k & options]
+  `(u/call! ^Vector3 ~object ~k ~@options))

src/play_clj/physics.clj

@@ -9,7 +9,7 @@
   ([gravity-x gravity-y]
     (world* gravity-x gravity-y true))
   ([gravity-x gravity-y sleep?]
-    (World. (m/vector gravity-x gravity-y) sleep?)))
+    (World. (m/vector-2 gravity-x gravity-y) sleep?)))
 
 (defmacro world
   [gravity-x gravity-y & options]