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

Make particle-effect delta customizable

Browse Source
This commit is contained in:
oakes
2014-01-25 12:03:05 -05:00
parent fdf54411fe
commit a91cd1c364
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/play_clj/core_graphics.clj
View File

@@ -227,12 +227,13 @@ with the tiled map file at `path` and `unit` scale
(.draw object batch x y width height))) (.draw object batch x y width height)))
(defmethod draw-entity! :particle-effect (defmethod draw-entity! :particle-effect
[^SpriteBatch batch {:keys [^ParticleEffect object x y]}] [^SpriteBatch batch {:keys [^ParticleEffect object x y delta-time]}]
(assert object) (assert object)
(let [x (float (or x 0)) (let [x (float (or x 0))
y (float (or y 0))] y (float (or y 0))
delta-time (float (or delta-time (graphics! :get-delta-time)))]
(.setPosition object x y) (.setPosition object x y)
(.draw object batch (graphics! :get-delta-time)))) (.draw object batch delta-time)))
(defmethod draw-entity! :actor (defmethod draw-entity! :actor
[^SpriteBatch batch {:keys [^Actor object] :as entity}] [^SpriteBatch batch {:keys [^Actor object] :as entity}]