From fbe9750ed78f9c331c083b9825f0e82213f7b5be Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 2 Jul 2022 06:30:11 -0500 Subject: [add] wheelwork-exampes.asd system def --- examples/06-sprite.lisp | 3 ++- wheelwork-examples.asd | 14 ++++++++++++++ 2 files changed, 16 insertions(+), 1 deletion(-) create mode 100644 wheelwork-examples.asd diff --git a/examples/06-sprite.lisp b/examples/06-sprite.lisp index 91910f4..8b6380a 100644 --- a/examples/06-sprite.lisp +++ b/examples/06-sprite.lisp @@ -18,7 +18,7 @@ (unless (ww::runningp (ww::current-frameset sprite)) (setf (ww::runningp (ww::current-frameset sprite)) t))) -(define-symbol-macro +walking-speed+ 1) +(define-symbol-macro +walking-speed+ 10) (ww::defhandler move-by-face (ww::on-perframe (sprite) @@ -93,6 +93,7 @@ :right right) :frameset-key :front))) + (setf (ww::runningp (ww::current-frameset dude)) nil) (ww::add-handler dude #'move-by-face ) (ww::add-handler dude #'move-dude) (ww::add-handler dude #'stand) diff --git a/wheelwork-examples.asd b/wheelwork-examples.asd new file mode 100644 index 0000000..60753fa --- /dev/null +++ b/wheelwork-examples.asd @@ -0,0 +1,14 @@ +(asdf:defsystem #:wheelwork-examples + :description "Examples using wheelwork" + :author "colin " + :license "Artistic-2.0" + :version "0.0.1" + :serial t + :depends-on (#:wheelwork) + :pathname "examples/" + :components ((:file "01-bitmap-display") + (:file "02-moving-bitmp") + (:file "03-font-render") + (:file "04-a-button") + (:file "05-frameset-animation") + (:file "06-sprite"))) -- cgit v1.2.3