diff options
author | David Thompson <dthompson2@worcester.edu> | 2013-11-03 20:03:07 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2013-11-03 20:03:07 -0500 |
commit | 777e31518c8ae52e9e15867fb60c958fa7a15610 (patch) | |
tree | 873b2cec6608ef62bbc4e9ecae85d31fe4bf6cc4 /examples/particles.scm | |
parent | 49f93e5fe7261dd520a0013508fd02086af6ae17 (diff) |
Update examples to use new scene/stage system.
Diffstat (limited to 'examples/particles.scm')
-rw-r--r-- | examples/particles.scm | 27 |
1 files changed, 17 insertions, 10 deletions
diff --git a/examples/particles.scm b/examples/particles.scm index 1c5a3db..cc7ca82 100644 --- a/examples/particles.scm +++ b/examples/particles.scm @@ -2,6 +2,8 @@ (use-modules (srfi srfi-1) (srfi srfi-9) (2d game) + (2d game-loop) + (2d scene) (2d sprite) (2d texture) (2d vector2)) @@ -63,16 +65,21 @@ (define (update state) (for-each update-particle! (demo-particles state))) -(define-scene demo - #:title "Demo" - #:draw (lambda (state) (draw state)) - #:update (lambda (state) (update state)) - #:state (make-demo-state (load-sprite "images/stars.png" - #:anchor null-vector2) - (generate-particles particle-count))) +(define (init) + (make-demo-state (load-sprite "images/stars.png" + #:anchor null-vector2) + (generate-particles particle-count))) -(define-game particles - #:title "Particles" - #:first-scene demo) +(define particles-scene + (make-scene + "Particles" + #:draw draw + #:update update + #:init init)) + +(define particles + (make-game + #:title "Particles" + #:first-scene particles-scene)) (run-game particles) |