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

add color effects.

Browse Source
This commit is contained in:
Remington Covert
2015-04-16 19:28:15 -07:00
parent 63469535cb
commit d866c00cd9
1 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/play_clj/core_graphics.clj
View File

@@ -490,13 +490,24 @@ with the tiled map file at `path` and `unit` scale.
(let [^Batch batch (.getBatch renderer)]
(.setProjectionMatrix batch (.combined camera))
(.begin batch)
(doseq [{:keys [additive? opacity] :as entity} entities]
(doseq [{:keys [additive? opacity colorize?] :as entity :or {opacity 1.0}} entities
:when (> opacity 0.0)]
(when additive?
(.setBlendFunction ^Batch batch (gl :gl-src-alpha) (gl :gl-one)))
(.setColor batch (color 1 1 1 (or opacity 1.0)))
(e/draw! entity screen batch)
(.setColor batch (color 1 1 1 1))
(when additive?
(if colorize?
(do (.setBlendFunction ^Batch batch (gl :gl-dst-color) (gl :gl-one-minus-src-alpha))
(.setColor batch (color 1 1 1 opacity))
(e/draw! entity screen batch)
(.setColor batch (color 1 1 1 (* opacity 0.25)))
(.setBlendFunction ^Batch batch (gl :gl-src-alpha) (gl :gl-one))
(e/draw! entity screen batch))
(do (.setColor batch (color 1 1 1 opacity))
(e/draw! entity screen batch)
(.setColor batch (color 1 1 1 1))))
(when (or additive? colorize?)
(.setBlendFunction ^Batch batch (gl :gl-src-alpha) (gl :gl-one-minus-src-alpha))))
(.end batch))
entities)