Make functions pure

2014-01-03 10:06:47 -05:00
parent 7fe9000f39
commit 77081f74f9
1 changed files with 4 additions and 4 deletions
--- a/src/play_clj/core_2d.clj
+++ b/src/play_clj/core_2d.clj
@@ -41,14 +41,14 @@
 (defn image-width
  ([^TextureRegion img]
    (.getRegionWidth img))
-  ([^TextureRegion img val]
-    (.setRegionWidth img val)))
+  ([img val]
+    (doto ^TextureRegion (image img) (.setRegionWidth val))))

 (defn image-height
  ([^TextureRegion img]
    (.getRegionHeight img))
-  ([^TextureRegion img val]
-    (.setRegionHeight img val)))
+  ([img val]
+    (doto ^TextureRegion (image img) (.setRegionHeight val))))

 (defn split-image
  ([val size]