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

added additive blending.

Browse Source
This commit is contained in:
Remington Covert
2015-03-17 15:45:36 -07:00
parent 3b9972e958
commit 63469535cb
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/play_clj/core_graphics.clj
View File

@@ -490,10 +490,14 @@ with the tiled map file at `path` and `unit` scale.
(let [^Batch batch (.getBatch renderer)] (let [^Batch batch (.getBatch renderer)]
(.setProjectionMatrix batch (.combined camera)) (.setProjectionMatrix batch (.combined camera))
(.begin batch) (.begin batch)
(doseq [entity entities] (doseq [{:keys [additive? opacity] :as entity} entities]
(.setColor batch (color 1 1 1 (or (:opacity entity) 1.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) (e/draw! entity screen batch)
(.setColor batch (color 1 1 1 1))) (.setColor batch (color 1 1 1 1))
(when additive?
(.setBlendFunction ^Batch batch (gl :gl-src-alpha) (gl :gl-one-minus-src-alpha))))
(.end batch)) (.end batch))
entities) entities)