From 2e2fe8f8d5262ec1d479f72c84f1d0b44269e311 Mon Sep 17 00:00:00 2001
From: oakes <zsoakes@gmail.com>
Date: Mon, 6 Jan 2014 03:58:08 -0500
Subject: [PATCH] Rename image functions

---
 src/play_clj/core_2d.clj | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/play_clj/core_2d.clj b/src/play_clj/core_2d.clj
index 2dda0bf..a4673c1 100644
--- 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))