From 8251c85a4a588504d38a2fad05e4b0fe1cdccb9d Mon Sep 17 00:00:00 2001
From: Gene Pasquet <dev@etenil.net>
Date: Fri, 17 Apr 2026 16:30:34 +0100
Subject: Convert entities to alists

---
 demo/scaling.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'demo/scaling.scm')

diff --git a/demo/scaling.scm b/demo/scaling.scm
index 982817a..1d74e6a 100644
--- a/demo/scaling.scm
+++ b/demo/scaling.scm
@@ -1,5 +1,6 @@
 (import scheme
         (chicken base)
+        (only (list-utils alist) plist->alist)
         (prefix sdl2 "sdl2:")
         (prefix sdl2-ttf "ttf:")
         downstroke-engine
@@ -25,13 +26,13 @@
     create: (lambda (game)
       (game-scene-set! game
         (make-scene
-          entities: (list (list #:type    'box
-                                #:x       (/ +width+ 2)
-                                #:y       (/ +height+ 2)
-                                #:width   +box-size+
-                                #:height  +box-size+
-                                #:vx 0 #:vy 0
-                                #:color   '(255 200 0)))
+          entities: (list (plist->alist (list #:type    'box
+                                              #:x       (/ +width+ 2)
+                                              #:y       (/ +height+ 2)
+                                              #:width   +box-size+
+                                              #:height  +box-size+
+                                              #:vx 0 #:vy 0
+                                              #:color   '(255 200 0))))
           tilemap:         #f
           camera:          (make-camera x: 0 y: 0)
           tileset-texture: #f
-- 
cgit v1.2.3