Add type hints

src/play_clj/core_graphics.clj

@@ -16,7 +16,8 @@ memory.
 
     (pixmap! object :dispose)"
   [object k & options]
-  `(u/call! ^Pixmap ~object ~k ~@options))
+  `(let [^Pixmap object# ~object]
+     (u/call! object# ~k ~@options)))
 
 (defmacro shape-type
   "Returns a static field from [ShapeRenderer.ShapeType](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/glutils/ShapeRenderer.ShapeType.html).

src/play_clj/g2d.clj

@@ -24,10 +24,12 @@
       (-> ^String arg Texture. TextureRegion.)
       (isa? (type arg) Pixmap)
       (-> ^Pixmap arg Texture. TextureRegion.)
+      (isa? (type arg) TextureRegion)
+      arg
       (:object arg)
       (TextureRegion. ^TextureRegion (:object arg))
       :else
-      arg)))
+      (TextureRegion. arg))))
 
 (defmacro texture
   "Returns an entity based on [TextureRegion](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g2d/TextureRegion.html).