diff options
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 |