notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rename image functions

Browse Source
This commit is contained in:
oakes
2014-01-06 03:58:08 -05:00
parent e048450251
commit 2e2fe8f8d5
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/play_clj/core_2d.clj
View File

@@ -43,7 +43,7 @@
; textures ; textures
(defn create-image* (defn image*
[img] [img]
(cond (cond
(string? img) (string? img)
@@ -51,11 +51,11 @@
:else :else
(TextureRegion. ^TextureRegion img))) (TextureRegion. ^TextureRegion img)))
(defmacro create-image
[img & options]
`(utils/calls! ^TextureRegion (create-image* ~img) ~@options))
(defmacro image (defmacro image
[img & options]
`(utils/calls! ^TextureRegion (image* ~img) ~@options))
(defmacro image!
[img k & options] [img k & options]
`(utils/call! ^TextureRegion ~img ~k ~@options)) `(utils/call! ^TextureRegion ~img ~k ~@options))