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

fixes.

Browse Source
This commit is contained in:
Bryce Covert
2015-07-26 16:18:31 -07:00
parent 71799fef35
commit 284b0c20df
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/play_clj/entities.clj
View File

@@ -24,19 +24,17 @@
scale-x scale-y angle origin-x origin-y something]} scale-x scale-y angle origin-x origin-y something]}
_ _
batch] batch]
(let [x (- (float (or x 0)) (* (float (or origin-x 0.0)) (float (or scale-x 1.0)))) (let [x (float (- (float (or x 0)) (or origin-x 0.0)))
y (float (or y 0)) y (float (- (float (or y 0)) (or origin-y 0.0)))
width (float (or width (.getRegionWidth object))) width (float (or width (.getRegionWidth object)))
height (float (or height (.getRegionHeight object)))] height (float (or height (.getRegionHeight object)))]
(if (or scale-x scale-y angle) (if (or scale-x scale-y angle)
(let [scale-x (float (or scale-x 1)) (let [scale-x (float (or scale-x 1))
scale-y (float (or scale-y 1)) scale-y (float (or scale-y 1))
origin-x (float (or origin-x (/ width 2))) origin-x (float (or origin-x (/ width 2)))
origin-y (float (or origin-y (/ height 2))) origin-y (float (or origin-y (/ height 2)))
angle (float (or angle 0))] angle (float (or angle 0))]
(.draw ^Batch batch object x y (* origin-x scale-x) (* origin-y scale-y) width height (.draw ^Batch batch object x y origin-x origin-y width height
scale-x scale-y angle)) scale-x scale-y angle))
(.draw ^Batch batch object x y width height))))) (.draw ^Batch batch object x y width height)))))