[add] frameset class and an [exmaple] using it

13 files changed, 41 insertions, 0 deletions

diff --git a/examples/05-frameset-animation.lisp b/examples/05-frameset-animation.lisp
new file mode 100644
index 0000000..4686ecc
--- /dev/null
+++ b/examples/05-frameset-animation.lisp
@@ -0,0 +1,41 @@
+;;;; examples/05-frameset-animation.lisp
+
+(defpackage #:ww.examples/5
+  (:use #:cl))
+
+(in-package #:ww.examples/5)
+
+(defclass frameset-example (ww::application) ())
+
+(ww::defhandler toggle-on-click
+    (ww::on-mousedown ()
+      (setf (ww::runningp target)
+            (not (ww::runningp target)))))
+
+(defmethod ww::boot ((app frameset-example))
+  (let ((fs
+          (ww::make-frameset
+           '("dude/Front_Stand.png"
+             "dude/Front_Left.png"
+             "dude/Front_Stand.png"
+             "dude/Front_Right.png")
+           :fps 3)))
+
+    (setf (ww::x fs) 380
+          (ww::y fs) 200)
+
+    (ww::add-handler fs #'toggle-on-click)
+    
+    (ww::add-unit app fs)))
+
+
+(defun start ()
+  (ww::start (make-instance
+              'frameset-example
+              :fps 30
+              :width 800
+              :height 600
+              :title "Wheelwork Example: An Animated Sprite"
+              :asset-root (merge-pathnames
+                           "examples/"
+                           (asdf:system-source-directory :wheelwork)))))
diff --git a/examples/dude/Back_Left.png b/examples/dude/Back_Left.png
new file mode 100644
index 0000000..e6f478a
--- /dev/null
+++ b/examples/dude/Back_Left.png
diff --git a/examples/dude/Back_Right.png b/examples/dude/Back_Right.png
new file mode 100644
index 0000000..f6ea62b
--- /dev/null
+++ b/examples/dude/Back_Right.png
diff --git a/examples/dude/Back_Stand.png b/examples/dude/Back_Stand.png
new file mode 100644
index 0000000..e19a445
--- /dev/null
+++ b/examples/dude/Back_Stand.png
diff --git a/examples/dude/Front_Left.png b/examples/dude/Front_Left.png
new file mode 100644
index 0000000..b2c2982
--- /dev/null
+++ b/examples/dude/Front_Left.png
diff --git a/examples/dude/Front_Right.png b/examples/dude/Front_Right.png
new file mode 100644
index 0000000..4ca4936
--- /dev/null
+++ b/examples/dude/Front_Right.png
diff --git a/examples/dude/Front_Stand.png b/examples/dude/Front_Stand.png
new file mode 100644
index 0000000..43c2171
--- /dev/null
+++ b/examples/dude/Front_Stand.png
diff --git a/examples/dude/Left_Left.png b/examples/dude/Left_Left.png
new file mode 100644
index 0000000..1739101
--- /dev/null
+++ b/examples/dude/Left_Left.png
diff --git a/examples/dude/Left_Right.png b/examples/dude/Left_Right.png
new file mode 100644
index 0000000..d9c82e1
--- /dev/null
+++ b/examples/dude/Left_Right.png
diff --git a/examples/dude/Left_Stand.png b/examples/dude/Left_Stand.png
new file mode 100644
index 0000000..ae0379d
--- /dev/null
+++ b/examples/dude/Left_Stand.png
diff --git a/examples/dude/Right_Left.png b/examples/dude/Right_Left.png
new file mode 100644
index 0000000..90137a8
--- /dev/null
+++ b/examples/dude/Right_Left.png
diff --git a/examples/dude/Right_Right.png b/examples/dude/Right_Right.png
new file mode 100644
index 0000000..0e5aa39
--- /dev/null
+++ b/examples/dude/Right_Right.png
diff --git a/examples/dude/Right_Stand.png b/examples/dude/Right_Stand.png
new file mode 100644
index 0000000..6763b43
--- /dev/null
+++ b/examples/dude/Right_Stand.png