diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-28 12:21:25 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-28 12:21:25 -0500 |
| commit | 71d2a0f57c93046a8abde5aad0f2549188c9e64b (patch) | |
| tree | 8f8eb63dbffc6e4945acef34fe2a2e8bafa09c73 /examples/02-moving-bitmp.lisp | |
| parent | 6533563b384ac194f7a57dcfbdebb8c668bc7b71 (diff) | |
[example] added more controls
Diffstat (limited to 'examples/02-moving-bitmp.lisp')
| -rw-r--r-- | examples/02-moving-bitmp.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp index 282d003..a1c3c87 100644 --- a/examples/02-moving-bitmp.lisp +++ b/examples/02-moving-bitmp.lisp @@ -19,6 +19,9 @@ (: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-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))) (:scancode-equals (when (or (member :lshift modifiers) (member :rshift modifiers)) (ww::scale-by target 1.10))) |