From dec204b546e128dcf3eb7ad30a21e97ead1a69f1 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 30 Nov 2013 10:35:20 -0500 Subject: Add temporary rewrite-test example. --- examples/rewrite-test.scm | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 examples/rewrite-test.scm (limited to 'examples') 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) -- cgit v1.2.3