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

Allow creating textures from pixmaps

Browse Source
This commit is contained in:
oakes
2014-04-08 14:42:40 -04:00
parent f8c8d65ae1
commit 08a9eb9ff3
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/play_clj/g2d.clj
View File

@@ -1,6 +1,6 @@
(ns play-clj.g2d
(:require [play-clj.utils :as u])
(:import [com.badlogic.gdx.graphics Texture]
(:import [com.badlogic.gdx.graphics Pixmap Texture]
[com.badlogic.gdx.graphics.g2d Animation BitmapFont NinePatch
ParticleEffect TextureAtlas TextureRegion]
[play_clj.entities TextureEntity NinePatchEntity
@@ -22,6 +22,8 @@
(cond
(string? arg)
(-> ^String arg Texture. TextureRegion.)
(isa? (type arg) Pixmap)
(-> ^Pixmap arg Texture. TextureRegion.)
(:object arg)
(TextureRegion. ^TextureRegion (:object arg))
:else
@@ -31,10 +33,10 @@
"Returns an entity based on [TextureRegion](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g2d/TextureRegion.html).
(texture \"image.png\")
(texture \"image.png\" :flip true false)
(texture \"image.png\"
:flip true false
:set-region 0 0 100 100)"
:set-region 0 0 100 100)
(texture (texture \"image.png\"))"
[arg & options]
`(let [entity# (texture* ~arg)]
(u/calls! ^TextureRegion (u/get-obj entity# :object) ~@options)