From 183b1792b4baa6a50ef839b0dbf2b7618bf25c95 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 5 Apr 2026 16:55:57 +0100 Subject: feat: add render-scene! to renderer — draw full scene in one call MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- renderer.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'renderer.scm') 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 -- cgit v1.2.3