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

Remove redundancy

Browse Source
This commit is contained in:
oakes
2014-01-18 00:40:08 -05:00
parent da9b61c47e
commit 3c7f6e4211
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/play_clj/g2d_physics.clj
View File

@@ -74,18 +74,15 @@
(defn body-x! (defn body-x!
[entity x] [entity x]
(body-transform! entity x (body-y entity) (body-angle entity)) (body-transform! entity x (body-y entity) (body-angle entity)))
entity)
(defn body-y! (defn body-y!
[entity y] [entity y]
(body-transform! entity (body-x entity) y (body-angle entity)) (body-transform! entity (body-x entity) y (body-angle entity)))
entity)
(defn body-angle! (defn body-angle!
[entity angle] [entity angle]
(body-transform! entity (body-x entity) (body-y entity) angle) (body-transform! entity (body-x entity) (body-y entity) angle))
entity)
; fixtures ; fixtures