summaryrefslogtreecommitdiff
path: root/examples/sprite.scm
blob: 0e8b4b36a9fdd4d90962191d211a4ba7b23d0fd7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(use-modules (chickadee)
             (chickadee math vector)
             (chickadee render sprite)
             (chickadee render texture))

(define sprite #f)

(define (load)
  (set! sprite (load-image "images/chickadee.png")))

(define (draw alpha)
  (draw-sprite sprite #v(256.0 176.0)))

(run-game #:load load #:draw draw)