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/font.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'examples/font.scm') 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) -- cgit v1.2.3