diff options
Diffstat (limited to 'demo/sandbox.scm')
| -rw-r--r-- | demo/sandbox.scm | 15 |
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*) |