diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-02 06:30:11 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-02 06:30:11 -0500 |
| commit | fbe9750ed78f9c331c083b9825f0e82213f7b5be (patch) | |
| tree | fd77c2071d340ac64e6c055ba31b5f763179e2f4 | |
| parent | 5495e46fcd79009389f12163df3f13b7efa11950 (diff) | |
[add] wheelwork-exampes.asd system def
| -rw-r--r-- | examples/06-sprite.lisp | 3 | ||||
| -rw-r--r-- | wheelwork-examples.asd | 14 |
2 files changed, 16 insertions, 1 deletions
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 <colin@cicadas.surf>" + :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"))) |