From a6343f2942b03f2f4c761c81c706bb0e83110010 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 31 Jul 2022 12:49:36 -0400 Subject: node-2d: Apply blend mode in render method. --- starling/node-2d.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/starling/node-2d.scm b/starling/node-2d.scm index 67ec6e6..2c4db01 100644 --- a/starling/node-2d.scm +++ b/starling/node-2d.scm @@ -691,9 +691,10 @@ (define-method (render (sprite ) alpha) (let ((t (texture sprite))) - (draw-sprite* t (size sprite) (world-matrix sprite) - #:tint (tint sprite) - #:texcoords (texture-gl-tex-rect t)))) + (with-graphics-state ((g:blend-mode (blend-mode sprite))) + (draw-sprite* t (size sprite) (world-matrix sprite) + #:tint (tint sprite) + #:texcoords (texture-gl-tex-rect t))))) ;;; -- cgit v1.2.3