From 8251c85a4a588504d38a2fad05e4b0fe1cdccb9d Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Fri, 17 Apr 2026 16:30:34 +0100 Subject: Convert entities to alists --- demo/tweens.scm | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) (limited to 'demo/tweens.scm') diff --git a/demo/tweens.scm b/demo/tweens.scm index 609c541..51a72b2 100644 --- a/demo/tweens.scm +++ b/demo/tweens.scm @@ -1,12 +1,14 @@ (import scheme (chicken base) (only srfi-1 iota) + (only (list-utils alist) plist->alist) (prefix sdl2 "sdl2:") (prefix sdl2-ttf "ttf:") downstroke-engine downstroke-world downstroke-renderer - downstroke-entity) + downstroke-entity + downstroke-tween) ;; ── Constants ──────────────────────────────────────────────────────────────── @@ -31,15 +33,16 @@ (define (make-ease-entity ease-sym y rgb) (let* ((left 20) (right (+ left 120)) - (base (list #:x left #:y y))) - (list #:type 'tween-demo #:x left #:y y - #:width 14 #:height 14 - #:vx 0 #:vy 0 #:gravity? #f #:solid? #f - #:color rgb - #:ease-name ease-sym - #:tween (make-tween base props: `((#:x . ,right)) - duration: +ease-duration+ ease: ease-sym - repeat: -1 yoyo?: #t)))) + (base (plist->alist (list #:x left #:y y)))) + (plist->alist + (list #:type 'tween-demo #:x left #:y y + #:width 14 #:height 14 + #:vx 0 #:vy 0 #:gravity? #f #:solid? #f + #:color rgb + #:ease-name ease-sym + #:tween (make-tween base props: `((#:x . ,right)) + duration: +ease-duration+ ease: ease-sym + repeat: -1 yoyo?: #t))))) ;; ── Rendering ──────────────────────────────────────────────────────────────── -- cgit v1.2.3