diff options
author | Thomas White <taw@physics.org> | 2020-09-18 09:37:46 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-09-18 09:37:46 +0200 |
commit | b1f6fa21e8b1ab5ffd2d3cceabb91b9e5dd8226a (patch) | |
tree | 540d086a1541c14fc5363d9e72e18022087fc9a4 /heyllama.scm |
Initial commit
Diffstat (limited to 'heyllama.scm')
-rw-r--r-- | heyllama.scm | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/heyllama.scm b/heyllama.scm new file mode 100644 index 0000000..1288326 --- /dev/null +++ b/heyllama.scm @@ -0,0 +1,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) |