diff options
Diffstat (limited to 'examples/02-moving-bitmp.lisp')
| -rw-r--r-- | examples/02-moving-bitmp.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp index bb6ae8f..7cb03d3 100644 --- a/examples/02-moving-bitmp.lisp +++ b/examples/02-moving-bitmp.lisp @@ -19,7 +19,7 @@ (:scancode-right (incf (ww::x target) )) (:scancode-down (decf (ww::y target) )) (:scancode-up (incf (ww::y target) )) - (:scancode-w (incf (ww::unit-width target) 20)) + (:scancode-w (incf (ww::width target) 20)) (:scancode-r (incf (ww::rotation target) (/ pi 3))) (:scancode-l (decf (ww::rotation target) (/ pi 3))) (:scancode-equals @@ -44,10 +44,10 @@ (dx 0) (dy 0)) (case scancode - (:scancode-down (setf dy -1 desty (- ty (ww::unit-height target)))) - (:scancode-up (setf dy 1 desty (+ ty (ww::unit-height target)))) - (:scancode-left (setf dx -1 destx (- tx (ww::unit-width target)))) - (:scancode-right (setf dx 1 destx (+ tx (ww::unit-width target))))) + (:scancode-down (setf dy -1 desty (- ty (ww::height target)))) + (:scancode-up (setf dy 1 desty (+ ty (ww::height target)))) + (:scancode-left (setf dx -1 destx (- tx (ww::width target)))) + (:scancode-right (setf dx 1 destx (+ tx (ww::width target))))) (ww::add-handler target (ww::on-perframe () |