Work on demos

1 files changed, 6 insertions, 3 deletions

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)))