Add more image attributes

2014-01-04 22:16:01 -05:00
parent fc433e7b63
commit 6078b530af
1 changed files with 5 additions and 0 deletions
--- a/src/play_clj/core_2d.clj
+++ b/src/play_clj/core_2d.clj
@@ -40,8 +40,13 @@
              (TextureRegion. ^TextureRegion val))]
    (doseq [[k v] options]
      (case k
+        :x (.setRegionX img v)
+        :y (.setRegionY img v)
        :width (.setRegionWidth 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))
    img))