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

Add more image attributes

Browse Source
This commit is contained in:
oakes
2014-01-04 22:16:01 -05:00
parent fc433e7b63
commit 6078b530af
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/play_clj/core_2d.clj
View File

@@ -40,8 +40,13 @@
(TextureRegion. ^TextureRegion val))] (TextureRegion. ^TextureRegion val))]
(doseq [[k v] options] (doseq [[k v] options]
(case k (case k
:x (.setRegionX img v)
:y (.setRegionY img v)
:width (.setRegionWidth img v) :width (.setRegionWidth img v)
:height (.setRegionHeight img v) :height (.setRegionHeight img v)
:region (.setRegion img
^long (nth v 0) ^long (nth v 1)
^long (nth v 2) ^long (nth v 3))
nil)) nil))
img)) img))