From ae5214db37dbb2a762c2629a7fa4a01e808cadd1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 17 Jul 2013 23:33:42 -0400
Subject: Add animation example.

---
 examples/animation.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 examples/animation.scm

(limited to 'examples/animation.scm')

diff --git a/examples/animation.scm b/examples/animation.scm
new file mode 100644
index 0000000..df713c5
--- /dev/null
+++ b/examples/animation.scm
@@ -0,0 +1,46 @@
+(use-modules (2d sprite)
+             (2d game-loop)
+             (2d window)
+             (2d vector)
+             (2d input)
+             (2d helpers))
+
+(init-2d)
+
+(define window-width 800)
+(define window-height 600)
+(define sprite #f)
+
+(define (key-down key mod unicode)
+  (cond ((any-equal? key (keycode escape) (keycode q))
+         (close-window)
+         (quit))))
+
+;; Draw our sprite
+(define (render)
+  (draw-sprite sprite))
+
+;; Register callbacks.
+(set-render-callback (lambda () (render)))
+(set-key-down-callback (lambda (key mod unicode) (key-down key mod unicode)))
+
+;; Open the window.
+(open-window window-width window-height)
+
+;; Load a texture, split it into 64x64 tiles, and build an animated
+;; sprite out of it.
+(let* ((tiles (split-texture (load-texture "images/princess.png") 64 64))
+       (frames (vector (vector-ref tiles 19)
+                       (vector-ref tiles 20)
+                       (vector-ref tiles 21)
+                       (vector-ref tiles 22)
+                       (vector-ref tiles 23)
+                       (vector-ref tiles 24)
+                       (vector-ref tiles 25)
+                       (vector-ref tiles 26)))
+       (animation (make-animation frames 6 #t)))
+  (set! sprite (make-sprite animation
+                            #:position (vector (/ window-width 2)
+                                               (/ window-height 2)))))
+
+(run-game-loop)
-- 
cgit v1.2.3