render: Enable render context reuse when rendering scene graphs.

* sly/render/renderer.scm (%make-renderer): Delete.
  (make-renderer): Expose record type constructor.
* sly/render/scene.scm (scene->renderer): Add 'context' parameter.
  (draw-scene): Likewise.

2 files changed, 7 insertions, 8 deletions

diff --git a/sly/render/renderer.scm b/sly/render/renderer.scm
index fc9e5e6..498e00c 100644
--- a/sly/render/renderer.scm
+++ b/sly/render/renderer.scm
@@ -104,15 +104,12 @@ CONTEXT."
                      %null-pointer))))
 
 (define-record-type <renderer>
-  (%make-renderer context cameras ops)
+  (make-renderer context cameras ops)
   renderer?
   (context renderer-context)
   (cameras renderer-cameras)
   (ops renderer-ops))
 
-(define (make-renderer cameras ops)
-  (%make-renderer (make-render-context) cameras ops))
-
 (define (render renderer)
   "Apply all of the render operations in RENDERER.  The render
 operations are applied once for each camera."
diff --git a/sly/render/scene.scm b/sly/render/scene.scm
index e2961a0..3249cc2 100644
--- a/sly/render/scene.scm
+++ b/sly/render/scene.scm
@@ -93,7 +93,7 @@ whether to draw the node and all of its children or not."
 
 (set-identity! t)
 
-(define (scene->renderer node camera)
+(define (scene->renderer node context camera)
   "Traverse the scene graph defined by NODE and its children, as seen
 by CAMERA, and return a list of the render operations needed to
 display the scene."
@@ -111,9 +111,11 @@ display the scene."
                   (map (cut iter <> transform)
                        (scene-node-children node))))
           '())))
-  (make-renderer (list camera) (flatten (iter node identity-transform))))
+  (make-renderer context
+                 (list camera)
+                 (flatten (iter node identity-transform))))
 
-(define (draw-scene node camera)
+(define (draw-scene node context camera)
   "Draw the scene defined by NODE, as seen by CAMERA."
   (apply-viewport (camera-viewport camera))
-  (render (scene->renderer node camera)))
+  (render (scene->renderer node context camera)))