diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/05-frameset-animation.lisp | 41 | ||||
| -rw-r--r-- | examples/dude/Back_Left.png | bin | 0 -> 1106 bytes | |||
| -rw-r--r-- | examples/dude/Back_Right.png | bin | 0 -> 1112 bytes | |||
| -rw-r--r-- | examples/dude/Back_Stand.png | bin | 0 -> 1041 bytes | |||
| -rw-r--r-- | examples/dude/Front_Left.png | bin | 0 -> 1348 bytes | |||
| -rw-r--r-- | examples/dude/Front_Right.png | bin | 0 -> 1356 bytes | |||
| -rw-r--r-- | examples/dude/Front_Stand.png | bin | 0 -> 1356 bytes | |||
| -rw-r--r-- | examples/dude/Left_Left.png | bin | 0 -> 1174 bytes | |||
| -rw-r--r-- | examples/dude/Left_Right.png | bin | 0 -> 1227 bytes | |||
| -rw-r--r-- | examples/dude/Left_Stand.png | bin | 0 -> 1038 bytes | |||
| -rw-r--r-- | examples/dude/Right_Left.png | bin | 0 -> 1206 bytes | |||
| -rw-r--r-- | examples/dude/Right_Right.png | bin | 0 -> 1189 bytes | |||
| -rw-r--r-- | examples/dude/Right_Stand.png | bin | 0 -> 1043 bytes |
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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew file mode 100644 index 0000000..6763b43 --- /dev/null +++ b/examples/dude/Right_Stand.png |
