From 7f6d69e986ae9d77b6e7f8e5572f1bdc210a0ad7 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Mon, 2 Sep 2013 09:08:20 -0400
Subject: Add a *running* flag to the game loop.

---
 examples/simple.scm | 30 ++++++++++--------------------
 1 file changed, 10 insertions(+), 20 deletions(-)

(limited to 'examples/simple.scm')

diff --git a/examples/simple.scm b/examples/simple.scm
index 6a4e928..c33b7a2 100644
--- a/examples/simple.scm
+++ b/examples/simple.scm
@@ -1,38 +1,28 @@
 (use-modules (2d sprite)
+             (2d game)
              (2d game-loop)
-             (2d window)
              (2d helpers)
              (2d vector2))
 
-(define window-width 800)
-(define window-height 600)
-
-;; Open the window.
-(open-window window-width window-height)
-
 (define sprite
-  (load-sprite "images/sprite.png"
-               #:position (vector2 (/ window-width 2)
-                                   (/ window-height 2))))
-
-(define (quit-demo)
-  (close-window)
-  (quit))
+  (delay (load-sprite "images/sprite.png"
+                      #:position (vector2 320 240))))
 
 (define (key-down key mod unicode)
   (cond ((any-equal? key 'escape 'q)
-         (quit-demo))))
+         (quit-game-loop!))))
 
 ;; Draw our sprite
 (define (render)
-  (draw-sprite sprite))
+  (draw-sprite (force sprite)))
 
 ;; Register callbacks.
 (add-hook! on-quit-hook (lambda () (quit-demo)))
 (add-hook! on-render-hook (lambda () (render)))
-(add-hook! on-key-down-hook (lambda (key mod unicode) (key-down key mod unicode)))
+(add-hook! on-key-down-hook (lambda (key mod unicode)
+                              (key-down key mod unicode)))
 
+(define-game simple
+  #:title "Simple Demo")
 
-;; Start the game loop.
-;; The render callback will be called through this procedure.
-(run-game-loop)
+(run-game simple)
-- 
cgit v1.2.3