summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--heyllama.scm35
-rw-r--r--llama_eat.pngbin0 -> 11051 bytes
-rw-r--r--llama_walk.pngbin0 -> 11280 bytes
-rw-r--r--sheep_walk.pngbin0 -> 8222 bytes
4 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)
diff --git a/llama_eat.png b/llama_eat.png
new file mode 100644
index 0000000..8852c93
--- /dev/null
+++ b/llama_eat.png
Binary files differ
diff --git a/llama_walk.png b/llama_walk.png
new file mode 100644
index 0000000..00cc39d
--- /dev/null
+++ b/llama_walk.png
Binary files differ
diff --git a/sheep_walk.png b/sheep_walk.png
new file mode 100644
index 0000000..9696e10
--- /dev/null
+++ b/sheep_walk.png
Binary files differ