From 38eee24832fe6da4f135cae455881ab97953b23a Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sat, 18 Apr 2026 02:47:10 +0100 Subject: Refresh docs and re-indent --- demo/tweens.scm | 66 ++++++++++++++++++++++++++++----------------------------- 1 file changed, 33 insertions(+), 33 deletions(-) (limited to 'demo/tweens.scm') diff --git a/demo/tweens.scm b/demo/tweens.scm index 51a72b2..b56676e 100644 --- a/demo/tweens.scm +++ b/demo/tweens.scm @@ -16,7 +16,7 @@ (define +ease-syms+ '(linear quad-in quad-out quad-in-out cubic-in cubic-out cubic-in-out - sine-in-out expo-in expo-out expo-in-out back-out)) + sine-in-out expo-in expo-out expo-in-out back-out)) (define +ease-colors+ '((220 90 90) (240 140 60) (240 200 60) (180 220 70) @@ -41,50 +41,50 @@ #:color rgb #:ease-name ease-sym #:tween (make-tween base props: `((#:x . ,right)) - duration: +ease-duration+ ease: ease-sym - repeat: -1 yoyo?: #t))))) + duration: +ease-duration+ ease: ease-sym + repeat: -1 yoyo?: #t))))) ;; ── Rendering ──────────────────────────────────────────────────────────────── (define (draw-ease-labels! renderer entities) (let ((white (sdl2:make-color 255 255 255 255))) (draw-ui-text renderer *title-font* - "Tween demo - easing curves" white 12 6) + "Tween demo - easing curves" white 12 6) (draw-ui-text renderer *label-font* - "Each box ping-pongs with repeat: -1 yoyo?: #t" white 12 32) + "Each box ping-pongs with repeat: -1 yoyo?: #t" white 12 32) (for-each - (lambda (e) - (let ((name (entity-ref e #:ease-name #f))) - (when name - (draw-ui-text renderer *label-font* (symbol->string name) white - 158 (- (entity-ref e #:y 0) 2))))) - entities))) + (lambda (e) + (let ((name (entity-ref e #:ease-name #f))) + (when name + (draw-ui-text renderer *label-font* (symbol->string name) white + 158 (- (entity-ref e #:y 0) 2))))) + entities))) ;; ── Game ───────────────────────────────────────────────────────────────────── (define *game* (make-game - title: "Demo: Tweens" width: 640 height: 480 - - preload: (lambda (_game) - (set! *title-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 22)) - (set! *label-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 13))) - - create: (lambda (game) - (game-scene-set! game - (make-scene - entities: (map (lambda (ease i) - (make-ease-entity ease (+ 52 (* i 20)) - (list-ref +ease-colors+ i))) - +ease-syms+ (iota (length +ease-syms+))) - tilemap: #f - camera: (make-camera x: 0 y: 0) - tileset-texture: #f - camera-target: #f - background: '(26 28 34)))) - - render: (lambda (game) - (draw-ease-labels! (game-renderer game) - (scene-entities (game-scene game)))))) + title: "Demo: Tweens" width: 640 height: 480 + + preload: (lambda (_game) + (set! *title-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 22)) + (set! *label-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 13))) + + create: (lambda (game) + (game-scene-set! game + (make-scene + entities: (map (lambda (ease i) + (make-ease-entity ease (+ 52 (* i 20)) + (list-ref +ease-colors+ i))) + +ease-syms+ (iota (length +ease-syms+))) + tilemap: #f + camera: (make-camera x: 0 y: 0) + tileset-texture: #f + camera-target: #f + background: '(26 28 34)))) + + render: (lambda (game) + (draw-ease-labels! (game-renderer game) + (scene-entities (game-scene game)))))) (game-run! *game*) -- cgit v1.2.3