From 19a5db8606a82830a5ccd0ed46d8e0cf3c95db0a Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Tue, 7 Apr 2026 23:36:12 +0100 Subject: Work on demos --- scene-loader.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'scene-loader.scm') diff --git a/scene-loader.scm b/scene-loader.scm index 9b5545e..387bf38 100644 --- a/scene-loader.scm +++ b/scene-loader.scm @@ -24,11 +24,13 @@ (object-width obj) (object-height obj))) (tilemap-objects tilemap))) + ;; Create an SDL2 texture from a tileset's embedded image surface. + (define (create-texture-from-tileset renderer tileset) + (sdl2:create-texture-from-surface renderer (tileset-image tileset))) + ;; Create an SDL2 texture from the tileset image embedded in a tilemap. (define (create-tileset-texture renderer tilemap) - (sdl2:create-texture-from-surface - renderer - (tileset-image (tilemap-tileset tilemap)))) + (create-texture-from-tileset renderer (tilemap-tileset tilemap))) ;; Load a TMX tilemap file and store it in the game asset registry. ;; Returns the loaded tilemap struct. @@ -63,6 +65,7 @@ (scene (make-scene entities: '() tilemap: tm + tileset: #f camera: (make-camera x: 0 y: 0) tileset-texture: tex camera-target: #f))) -- cgit v1.2.3