blob: de66e6b4f9339f888b5adfd912c8edf6d7170499 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(use-modules (2d sprite)
(2d game)
(2d game-loop)
(2d helpers)
(2d vector2))
(define sprite
(delay (load-sprite "images/sprite.png"
#:position (vector2 320 240))))
(define (key-down key mod unicode)
(cond ((any-equal? key 'escape 'q)
(quit-game-loop!))))
;; Draw our sprite
(define (render)
(draw-sprite (force sprite)))
;; Register callbacks.
(add-hook! on-quit-hook quit-game-loop!)
(add-hook! on-render-hook (lambda () (render)))
(add-hook! on-key-down-hook (lambda (key mod unicode)
(key-down key mod unicode)))
(define-game simple
#:title "Simple Demo")
(run-game simple)
|
