From 937f39b8c275bc191e865d1f1a7088a7029eaa53 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Wed, 4 Sep 2013 20:40:35 -0400
Subject: Update README with new minimal example.

---
 README.org | 59 +++++++++++++++++++++--------------------------------------
 1 file changed, 21 insertions(+), 38 deletions(-)

diff --git a/README.org b/README.org
index 6de2a75..add6000 100644
--- a/README.org
+++ b/README.org
@@ -22,44 +22,23 @@
 
    #+BEGIN_SRC scheme
      (use-modules (2d sprite)
-                  (2d game-loop)
-                  (2d window)
-                  (2d helpers))
-
-     (define window-width 800)
-     (define window-height 600)
-
-     ;; Open the window.
-     (open-window window-width window-height)
-
-     ;; Load a sprite and center it on the screen.
-     (define sprite
-       (load-sprite "sprite.png"
-                    #:position (vector (/ window-width 2)
-                                       (/ window-height 2))))
-
-     (define (quit-demo)
-       (close-window)
-       (quit))
-
-     (define (key-down key mod unicode)
-       (cond ((any-equal? key 'escape 'q)
-              (quit-demo))))
-
-     ;; Draw our sprite
-     (define (render)
-       (draw-sprite sprite))
-
-     ;; Register hooks. Lambdas are used as "trampolines" so that render
-     ;; and key-down can be redefined later and the hooks will call the
-     ;; updated procedures.
-     (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)))
-
-     ;; Start the game loop.
-     ;; The render callback will be called through this procedure.
-     (run-game-loop)
+                  (2d game)
+                  (2d vector2))
+
+     (define (demo-sprite)
+       (load-sprite "images/sprite.png"
+                    #:position (vector2 320 240)))
+
+     (define-scene demo
+       #:title  "Demo"
+       #:draw   (lambda (sprite) (draw-sprite sprite))
+       #:state  (demo-sprite))
+
+     (define-game simple
+       #:title       "Simple Demo"
+       #:first-scene demo)
+
+     (run-game simple)
    #+END_SRC
 
 ** Features
@@ -272,6 +251,10 @@
      guile -L .. simple.scm
    #+END_SRC
 
+   To quit an example:
+   - Close the window
+   - Press the =ESCAPE= or =Q= key
+
 ** Platforms
 
    Guile-2d supports GNU/Linux currently. OS X support is in the
-- 
cgit v1.2.3