From 777e31518c8ae52e9e15867fb60c958fa7a15610 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 3 Nov 2013 20:03:07 -0500 Subject: Update examples to use new scene/stage system. --- examples/particles.scm | 27 +++++++++++++++++---------- 1 file changed, 17 insertions(+), 10 deletions(-) (limited to 'examples/particles.scm') 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) -- cgit v1.2.3