diff options
author | David Thompson <dthompson@member.fsf.org> | 2013-08-25 14:48:51 -0400 |
---|---|---|
committer | David Thompson <dthompson@member.fsf.org> | 2013-08-25 14:48:51 -0400 |
commit | c8f8ad1319d3946e58626df3afee6205e084b76b (patch) | |
tree | 68a61c0fffd97e88ef7cad19ad6443e78de0c41f /README.org | |
parent | b740960d681e6c0985dbdb734d6486784c9a370b (diff) | |
parent | fd326a63b6ef49257c165289e8244bff92ef0994 (diff) |
Merge branch 'master' of github.com:davexunit/guile-2d
Diffstat (limited to 'README.org')
-rw-r--r-- | README.org | 22 |
1 files changed, 12 insertions, 10 deletions
@@ -23,7 +23,8 @@ #+BEGIN_SRC scheme (use-modules (2d sprite) (2d game-loop) - (2d window)) + (2d window) + (2d helpers)) (define window-width 800) (define window-height 600) @@ -37,13 +38,13 @@ #:position (vector (/ window-width 2) (/ window-height 2)))) - (define (key-down key) - (display key) (newline) - (case key - ;; Quit program when ESCAPE or Q is pressed. - ((any-equal? key 'escape 'q) - (close-window) - (quit)))) + (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) @@ -52,8 +53,9 @@ ;; 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) (key-down key))) + (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. @@ -72,7 +74,7 @@ Guile-2d uses the FreeImage library and can load many different image formats. See the FreeImage [[http://freeimage.sourceforge.net/features.html][features page]] for a full list of - support formats. + supported formats. #+BEGIN_SRC scheme (define sprite |