node-2d: Apply blend mode in <sprite> render method.

1 files 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 <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)))))
 
 
 ;;;