From 77f22c24c1703af399d105c2cf79de7b49254210 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 10 Nov 2014 07:54:35 -0500
Subject: render: Enable blending in render context.

* sly/render/context.scm (set-render-context-blend-mode!): Enable
  blending before applying a blend mode.
---
 sly/render/context.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sly/render/context.scm b/sly/render/context.scm
index 541661d..291e080 100644
--- a/sly/render/context.scm
+++ b/sly/render/context.scm
@@ -70,7 +70,9 @@
 (define (set-render-context-blend-mode! context blend-mode)
   (unless (equal? (render-context-blend-mode context) blend-mode)
     (if blend-mode
-        (apply-blend-mode blend-mode)
+        (begin
+          (gl-enable (enable-cap blend))
+          (apply-blend-mode blend-mode))
         ;; Turn off blending if there is no blend-mode specified.
         (gl-disable (enable-cap blend)))
     (%set-render-context-blend-mode! context blend-mode)))
-- 
cgit v1.2.3