blob: a132c925bfa5ce6c6509fdbd95fd90b17c5fe555 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(use-modules (chickadee)
(chickadee math vector)
(chickadee graphics sprite)
(chickadee graphics 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)
|
