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/font.scm | |
parent | 49f93e5fe7261dd520a0013508fd02086af6ae17 (diff) |
Update examples to use new scene/stage system.
Diffstat (limited to 'examples/font.scm')
-rw-r--r-- | examples/font.scm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/examples/font.scm b/examples/font.scm index 070da2d..3c8e085 100644 --- a/examples/font.scm +++ b/examples/font.scm @@ -8,7 +8,7 @@ (2d stage) (2d vector2)) -(define (demo-textbox) +(define (make-demo-textbox) (make-textbox (load-font "fonts/Boxy-Bold.ttf" 48) "The quick brown fox jumped over the lazy dog." (vector2 240 160) @@ -16,14 +16,15 @@ 'left 200)) -(define demo-scene +(define fonts-scene (make-scene - #:init (lambda () (stage-define textbox (demo-textbox))) - #:draw (lambda () (draw-textbox (stage-ref textbox))))) + "Fonts" + #:init make-demo-textbox + #:draw draw-textbox)) (define fonts-demo (make-game - #:title "Fonts" - #:first-scene demo-scene)) + #:title "Fonts" + #:first-scene fonts-scene)) (run-game fonts-demo) |