Refactor update pipelines

1 files changed, 6 insertions, 9 deletions

diff --git a/demo/sandbox.scm b/demo/sandbox.scm
index 6a6030f..a34ebd9 100644
--- a/demo/sandbox.scm
+++ b/demo/sandbox.scm
@@ -162,14 +162,11 @@
       (let ((tm (scene-tilemap (game-scene game))))
         (game-scene-set! game
           (chain (game-scene game)
-            (scene-update-entities _ (cut step-tweens <> dt))
-            (scene-update-entities _ (cut integrate-entity <> dt tm))
-            (scene-sync-groups _)
-            (scene-resolve-collisions _)
-            (scene-update-entities _
-              (lambda (e)
-                (if (entity-ref e #:gravity? #f)
-                    (detect-on-solid e tm (scene-entities _))
-                    e)))))))))
+            (scene-map-entities _ (cut step-tweens <> dt))
+            (scene-map-entities _ (cut integrate-entity <> dt tm))
+            (scene-transform-entities _ sync-groups)
+            (scene-transform-entities _ resolve-entity-collisions)
+            (scene-map-entities _
+              (lambda (e) (detect-on-solid e tm (scene-entities _))))))))))
 
 (game-run! *game*)