blob: 1288326e11416a0261b8571dad51f7b4354eb0a4 (
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
29
30
31
32
33
34
35
|
(use-modules (chickadee)
(chickadee math vector)
(chickadee render font)
(chickadee render sprite)
(chickadee render texture))
(define pos #v(100.0 140.0))
(define sprite #f)
(define ss 0)
(define time 0)
(define (draw alpha)
(draw-sprite (texture-atlas-ref sprite (+ 12 ss))
pos))
(define (update t)
(set! time (+ time 1))
(set! pos (vec2+ pos #v(1.0 0.0)))
(when (eq? (floor-remainder time 4) 0)
(set! ss (floor-remainder (+ ss 1) 4))))
(define (load)
(set! sprite (split-texture (load-image "llama_walk.png")
128 128)))
(define (key-press key scancode modifier repea?)
(when (eq? key 'q)
(abort-game)))
(run-game #:load load
#:draw draw
#:key-press key-press
#:update update)
|