aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-06-28 12:21:25 -0500
committerColin Okay <colin@cicadas.surf>2022-06-28 12:21:25 -0500
commit71d2a0f57c93046a8abde5aad0f2549188c9e64b (patch)
tree8f8eb63dbffc6e4945acef34fe2a2e8bafa09c73 /examples
parent6533563b384ac194f7a57dcfbdebb8c668bc7b71 (diff)
[example] added more controls
Diffstat (limited to 'examples')
-rw-r--r--examples/02-moving-bitmp.lisp3
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)))