[example] altering rotation on click

1 files changed, 6 insertions, 2 deletions

diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp
index ca32b44..318bed4 100644
--- a/examples/02-moving-bitmp.lisp
+++ b/examples/02-moving-bitmp.lisp
@@ -63,6 +63,10 @@
     (ww::on-mousedown ()
       (format t "~a was clicked at ~a,~a!~%" target x y)))
 
+(ww::defhandler flip-on-click
+    (ww::on-mousedown ()
+      (incf (ww::unit-rotation target) (ww::radians 180) )))
+
 (ww::defhandler mouse-over
     (ww::on-mousemotion ()
       (print (list target x y xrel yrel state))))
@@ -99,8 +103,8 @@
     (setf (ww::unit-x bm2) 90
           (ww::unit-y bm2) 90)
     (ww::set-handler bm2 #'move-thing)
-    (ww::set-handler bm2 #'thing-clicked)
-    (ww::set-handler bm2 #'look-at-me )
+    (ww::set-handler bm2 #'flip-on-click )
+    (ww::set-handler bm2 #'look-at-me)
     (ww::set-handler bm2 #'look-away)
     (ww::set-handler bm2 #'wheelie)
     (ww::add-unit app bm2)))