diff options
Diffstat (limited to 'examples/02-moving-bitmp.lisp')
| -rw-r--r-- | examples/02-moving-bitmp.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp index e656367..3cc731a 100644 --- a/examples/02-moving-bitmp.lisp +++ b/examples/02-moving-bitmp.lisp @@ -21,11 +21,9 @@ (:scancode-up (incf (ww::unit-y target) (ww::unit-height target))) (:scancode-equals (when (or (member :lshift modifiers) (member :rshift modifiers)) - (incf (ww::unit-height target) 20.0) - (incf (ww::unit-width target) 20.0))) + (ww::scale-by target 1.10))) (:scancode-minus - (decf (ww::unit-height target) 20.0) - (decf (ww::unit-width target) 20.0))) + (ww::scale-by target 0.9))) (format t "ghoul pos: ~a,~a~%" (ww::unit-x target) (ww::unit-y target)))) |