summaryrefslogtreecommitdiff
path: root/examples/simple.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/simple.scm')
-rw-r--r--examples/simple.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/examples/simple.scm b/examples/simple.scm
index c55de6f..751c214 100644
--- a/examples/simple.scm
+++ b/examples/simple.scm
@@ -3,11 +3,14 @@
(2d window)
(2d helpers))
-(init-2d)
-
(define window-width 800)
(define window-height 600)
-(define sprite #f)
+
+;; Open the window.
+(open-window window-width window-height)
+
+(define sprite (load-sprite "images/grass.jpg" #:position (vector (/ window-width 2)
+ (/ window-height 2))))
(define (quit-demo)
(close-window)
@@ -26,13 +29,10 @@
(add-hook! on-render-hook (lambda () (render)))
(add-hook! on-key-down-hook (lambda (key mod unicode) (key-down key mod unicode)))
-;; Open the window.
-(open-window window-width window-height)
;; Load a sprite and center it on the screen.
;; Must be done AFTER opening the window.
-(set! sprite (load-sprite "images/sprite.png" #:position (vector (/ window-width 2)
- (/ window-height 2))))
+;; (set! )
;; Start the game loop.
;; The render callback will be called through this procedure.