feat: add render-scene! to renderer — draw full scene in one call

1 files changed, 11 insertions, 0 deletions

diff --git a/renderer.scm b/renderer.scm
index e415394..e2d2c5a 100644
--- a/renderer.scm
+++ b/renderer.scm
@@ -85,4 +85,15 @@
       (sdl2:render-copy! renderer texture #f
                          (sdl2:make-rect x y w h))))
 
+  ;; --- Scene drawing ---
+
+  (define (render-scene! renderer scene)
+    (let ((camera          (scene-camera scene))
+          (tilemap         (scene-tilemap scene))
+          (tileset-texture (scene-tileset-texture scene))
+          (tileset         (tilemap-tileset (scene-tilemap scene)))
+          (entities        (scene-entities scene)))
+      (draw-tilemap renderer camera tileset-texture tilemap)
+      (draw-entities renderer camera tileset tileset-texture entities)))
+
 ) ;; end module renderer