summaryrefslogtreecommitdiff
path: root/examples/simple.scm
blob: 04711a52726f571c66c92467dfcd7ddfbda97bb5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(use-modules (2d game)
             (2d scene)
             (2d sprite)
             (2d vector2))

(define (make-demo-sprite)
  (load-sprite "images/ghost.png"
               #:position (vector2 320 240)))

(define simple-scene
  (make-scene
   "Simple"
   #:init make-demo-sprite
   #:draw draw-sprite))

(define simple-demo
  (make-game
   #:title "Simple Demo"
   #:first-scene simple-scene))

(run-game simple-demo)