Rearrange texture constructor so reflection isn't needed

2014-06-03 13:49:59 -04:00
parent 29fcab7c28
commit a541ae8d7b
1 changed files with 4 additions and 4 deletions
--- a/src/play_clj/g2d.clj
+++ b/src/play_clj/g2d.clj
@@ -46,12 +46,12 @@
          TextureRegion.)
      (isa? (type arg) Pixmap)
      (-> ^Pixmap arg Texture. TextureRegion.)
-      (isa? (type arg) TextureRegion)
-      arg
+      (isa? (type arg) Texture)
+      (-> ^Texture arg TextureRegion.)
      (isa? (type arg) TextureEntity)
-      (TextureRegion. ^TextureRegion (:object arg))
+      (-> ^TextureRegion (:object arg) TextureRegion.)
      :else
-      (TextureRegion. arg))))
+      arg)))

 (defmacro texture
  "Returns an entity based on [TextureRegion](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g2d/TextureRegion.html).