From 30bd4bdf2bf9b18b671538be4749148d02ccfcc3 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 6 Dec 2014 11:18:56 -0500
Subject: render: group: Properly reset render context before rendering.

* sly/render/group.scm (draw-group): Use with-render-context macro.
---
 sly/render/group.scm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/sly/render/group.scm b/sly/render/group.scm
index 7ccb582..9cfc062 100644
--- a/sly/render/group.scm
+++ b/sly/render/group.scm
@@ -95,14 +95,15 @@ or not to render child nodes."
     (lambda* (group camera #:optional (context context))
       "Draw the scene defined by GROUP as viewed by CAMERA, with the given
 render CONTEXT."
-      (with-temp-transform context view
-        (transform*! view
-                     (camera-location camera)
-                     (camera-projection camera))
-        (with-temp-transform context base-transform
-          (set-transform-identity! base-transform)
-          (apply-viewport (camera-viewport camera))
-          (%draw-group group base-transform view context))))))
+      (with-render-context context
+        (with-temp-transform context view
+          (transform*! view
+                       (camera-location camera)
+                       (camera-projection camera))
+          (with-temp-transform context base-transform
+            (set-transform-identity! base-transform)
+            (apply-viewport (camera-viewport camera))
+            (%draw-group group base-transform view context)))))))
 
 ;;;
 ;;; Utility Procedures
-- 
cgit v1.2.3