diff options
| author | Gene Pasquet <dev@etenil.net> | 2026-04-17 16:30:34 +0100 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2026-04-17 16:30:34 +0100 |
| commit | 8251c85a4a588504d38a2fad05e4b0fe1cdccb9d (patch) | |
| tree | c3fcedb7331caf798f2355c7549b35aa3aaf6ac8 /demo/scaling.scm | |
| parent | 5de3b9cf122542f2a0c1c906c8ce8add20e5c8c6 (diff) | |
Convert entities to alists
Diffstat (limited to 'demo/scaling.scm')
| -rw-r--r-- | demo/scaling.scm | 15 |
1 files changed, 8 insertions, 7 deletions
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 |