aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples/02-moving-bitmp.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-06-30 07:45:23 -0500
committerColin Okay <colin@cicadas.surf>2022-06-30 07:45:23 -0500
commit099c3f927c11fe7ae4d12933d6f72abc0b53e973 (patch)
treeb8d497bcffd98459e6b510d2b2541269218df6b5 /examples/02-moving-bitmp.lisp
parente0fc8f0f7a8b4756226cfb5e1c7581e411420228 (diff)
[modify] changed unit-width/height to just width/height. made defun
Diffstat (limited to 'examples/02-moving-bitmp.lisp')
-rw-r--r--examples/02-moving-bitmp.lisp10
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 ()