Refresh docs and re-indent

1 files changed, 33 insertions, 33 deletions

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*)