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

Add pixmap-format and a new arity to pixmap*

Browse Source
This commit is contained in:
oakes
2014-09-26 23:56:34 -04:00
parent f10639ed99
commit 5d90389c27
2 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/play_clj/core_graphics.clj
View File

@@ -1,9 +1,18 @@
(in-ns 'play-clj.core)
(defmacro pixmap-format
"Returns a static field from [Pixmap.Format](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/Pixmap.Format.html).
(pixmap-format :alpha)"
[k]
(u/gdx-field :graphics "Pixmap$Format" (u/key->pascal k)))
(defn pixmap*
[path]
(or (u/load-asset path Pixmap)
(Pixmap. (files! :internal path))))
([^String path]
(or (u/load-asset path Pixmap)
(Pixmap. (files! :internal path))))
([^long width ^long height ^Pixmap$Format fmt]
(Pixmap. width height fmt)))
(defmacro pixmap
"Returns a [Pixmap](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/Pixmap.html).