Add temporary rewrite-test example.

1 files changed, 32 insertions, 0 deletions

diff --git a/examples/rewrite-test.scm b/examples/rewrite-test.scm
new file mode 100644
index 0000000..54664ac
--- /dev/null
+++ b/examples/rewrite-test.scm
@@ -0,0 +1,32 @@
+(use-modules (2d game)
+             (2d signals)
+             (2d sprite)
+             (2d vector2))
+
+(define sprite
+  (delay (load-sprite "images/ghost.png"
+                      #:position (vector2 320 240))))
+
+(define quit-on-esc
+  (signal-lift (lambda (down?)
+                 (when down?
+                   (quit-game)))
+               (key-is-down 'escape)))
+
+(define sprite-position
+  (signal-lift (lambda (pos)
+                 (when (game-running?)
+                   (set-sprite-position! (force sprite) pos)))
+               mouse-position))
+
+(define (draw)
+  (draw-sprite (force sprite)))
+
+;; TODO: make the quit condition a signal
+
+(define demo
+  (make-game
+   #:title "Simple Demo"
+   #:draw draw))
+
+(run-game demo)