Rename image functions

2014-01-06 03:58:08 -05:00
parent e048450251
commit 2e2fe8f8d5
1 changed files with 5 additions and 5 deletions
--- a/src/play_clj/core_2d.clj
+++ b/src/play_clj/core_2d.clj
@@ -43,7 +43,7 @@

 ; textures

-(defn create-image*
+(defn image*
  [img]
  (cond
    (string? img)
@@ -51,11 +51,11 @@
    :else
    (TextureRegion. ^TextureRegion img)))

-(defmacro create-image
-  [img & options]
-  `(utils/calls! ^TextureRegion (create-image* ~img) ~@options))
-
 (defmacro image
+  [img & options]
+  `(utils/calls! ^TextureRegion (image* ~img) ~@options))
+
+(defmacro image!
  [img k & options]
  `(utils/call! ^TextureRegion ~img ~k ~@options))