From 6078b530af223889ce4bcd057241b1754030b38a Mon Sep 17 00:00:00 2001 From: oakes Date: Sat, 4 Jan 2014 22:16:01 -0500 Subject: [PATCH] Add more image attributes --- src/play_clj/core_2d.clj | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/play_clj/core_2d.clj b/src/play_clj/core_2d.clj index 7943fb9..948ef62 100644 --- 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))