diff options
Diffstat (limited to 'examples')
-rw-r--r-- | examples/simple.scm | 30 |
1 files changed, 10 insertions, 20 deletions
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) |