Refresh docs and re-indent

1 files changed, 37 insertions, 37 deletions

diff --git a/demo/sandbox.scm b/demo/sandbox.scm
index ef71053..9d6b0fe 100644
--- a/demo/sandbox.scm
+++ b/demo/sandbox.scm
@@ -39,13 +39,13 @@
          (map-data  (append (map (lambda (_) empty-row) (iota (- nrows 1)))
                             (list floor-row))))
     (make-tilemap
-      width: ncols height: nrows
-      tilewidth: tw tileheight: th
-      tileset-source: "" tileset: ts
-      layers: (list (make-layer name: "ground"
-                                width: ncols height: nrows
-                                map: map-data))
-      objects: '())))
+     width: ncols height: nrows
+     tilewidth: tw tileheight: th
+     tileset-source: "" tileset: ts
+     layers: (list (make-layer name: "ground"
+                               width: ncols height: nrows
+                               map: map-data))
+     objects: '())))
 
 ;; ── Entity factories ─────────────────────────────────────────────────────────
 
@@ -93,10 +93,10 @@
          (x-left  (entity-ref origin #:x 0))
          (x-right (+ x-left (* 6 tw)))
          (tweened (entity-set origin #:tween
-                    (make-tween origin
-                      props: `((#:x . ,x-right))
-                      duration: 3500 ease: 'sine-in-out
-                      repeat: -1 yoyo?: #t))))
+                              (make-tween origin
+                                          props: `((#:x . ,x-right))
+                                          duration: 3500 ease: 'sine-in-out
+                                          repeat: -1 yoyo?: #t))))
     (cons tweened (cdr shelf-list))))
 
 (define (make-sandbox-scene game)
@@ -109,41 +109,41 @@
          (gh   (game-height game))
          (tm   (make-sandbox-tilemap ts tw th gw gh))
          (shelf-list (attach-shelf-tween!
-                       (instantiate-group-prefab reg 'shelf-platform
-                         (* 10 tw) (- gh (* 6 th)))
-                       tw))
+                      (instantiate-group-prefab reg 'shelf-platform
+                                                (* 10 tw) (- gh (* 6 th)))
+                      tw))
          (raft-list  (instantiate-group-prefab reg 'collision-raft
-                       120 (- gh (* 14 th))))
+                                               120 (- gh (* 14 th))))
          (bots  (list (make-demo-bot  80 80 tw th 0)
                       (make-demo-bot 220 60 tw th 1)
                       (make-demo-bot 380 100 tw th 2))))
     (make-scene
-      entities:        (append shelf-list raft-list (spawn-boxes tw th) bots)
-      tilemap:         tm
-      tileset:         #f
-      camera:          (make-camera x: 0 y: 0)
-      tileset-texture: tex
-      camera-target:   #f
-      background:      '(32 34 40))))
+     entities:        (append shelf-list raft-list (spawn-boxes tw th) bots)
+     tilemap:         tm
+     tileset:         #f
+     camera:          (make-camera x: 0 y: 0)
+     tileset-texture: tex
+     camera-target:   #f
+     background:      '(32 34 40))))
 
 ;; ── Game ─────────────────────────────────────────────────────────────────────
 
 (define *game*
   (make-game
-    title: "Demo: Physics Sandbox"
-    width: +game-width+ height: +game-height+
-
-    create: (lambda (game)
-      (game-scene-set! game (make-sandbox-scene game)))
-
-    update: (lambda (game dt)
-      (set! *demo-t* (+ *demo-t* dt))
-      (let ((scene (game-scene game)))
-        (game-scene-set! game
-          (scene-map-entities scene
-            (lambda (scene_ e)
-              (if (eq? (entity-type e) 'demo-bot)
-                  (update-demo-bot e dt)
-                  e))))))))
+   title: "Demo: Physics Sandbox"
+   width: +game-width+ height: +game-height+
+
+   create: (lambda (game)
+             (game-scene-set! game (make-sandbox-scene game)))
+
+   update: (lambda (game dt)
+             (set! *demo-t* (+ *demo-t* dt))
+             (let ((scene (game-scene game)))
+               (game-scene-set! game
+                                (scene-map-entities scene
+                                                    (lambda (scene_ e)
+                                                      (if (eq? (entity-type e) 'demo-bot)
+                                                          (update-demo-bot e dt)
+                                                          e))))))))
 
 (game-run! *game*)