From 446b03d8cd6f81983eb74a05fdf7bbc7fbcd48f4 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 30 Jun 2022 06:57:04 -0500 Subject: [example] tweaking --- examples/02-moving-bitmp.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'examples/02-moving-bitmp.lisp') diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp index 9504a87..3c9ee89 100644 --- a/examples/02-moving-bitmp.lisp +++ b/examples/02-moving-bitmp.lisp @@ -15,10 +15,10 @@ "Move the target around, grow and shrink it. Print out its position no matter what happens." (case scancode - (:scancode-left (decf (ww::unit-x target) (ww::unit-width target))) - (:scancode-right (incf (ww::unit-x target) (ww::unit-width target))) - (:scancode-down (decf (ww::unit-y target) (ww::unit-height target))) - (:scancode-up (incf (ww::unit-y target) (ww::unit-height target))) + (:scancode-left (decf (ww::unit-x target) )) + (:scancode-right (incf (ww::unit-x target) )) + (:scancode-down (decf (ww::unit-y target) )) + (:scancode-up (incf (ww::unit-y target) )) (:scancode-w (incf (ww::unit-width target) 20)) (:scancode-r (incf (ww::unit-rotation target) (/ pi 3))) (:scancode-l (decf (ww::unit-rotation target) (/ pi 3))) -- cgit v1.2.3