From b99ada53b715def5492c7d04c0d327fa7048e5d3 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 5 Apr 2026 23:12:54 +0100 Subject: Complete implementation --- engine.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'engine.scm') diff --git a/engine.scm b/engine.scm index 553dddf..69a30c7 100644 --- a/engine.scm +++ b/engine.scm @@ -154,6 +154,16 @@ (render-fn (or (and state (state-hook state #:render)) (game-render-hook game)))) (when update-fn (update-fn game dt)) + ;; Auto camera-follow: if scene has a camera-target tag, follow it + (when (game-scene game) + (let ((target-tag (scene-camera-target (game-scene game)))) + (when target-tag + (let ((target (scene-find-tagged (game-scene game) target-tag))) + (when target + (camera-follow! (scene-camera (game-scene game)) + target + (game-width game) + (game-height game))))))) (sdl2:render-clear! (game-renderer game)) (when (game-scene game) (render-scene! (game-renderer game) (game-scene game))) -- cgit v1.2.3