[example] speeiding up gelatinouscube

1 files changed, 4 insertions, 4 deletions

diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp
index 52cf0ca..bf05a7c 100644
--- a/examples/02-moving-bitmp.lisp
+++ b/examples/02-moving-bitmp.lisp
@@ -15,10 +15,10 @@
       "Move the target around, grow and shrink it. Print out its
        position no matter what happens."
       (case scancode
-        (:scancode-left (decf (ww::x target) ))
-        (:scancode-right (incf (ww::x target) ))
-        (:scancode-down (decf (ww::y target) ))
-        (:scancode-up (incf (ww::y target) ))
+        (:scancode-left (decf (ww::x target) 4))
+        (:scancode-right (incf (ww::x target) 4))
+        (:scancode-down (decf (ww::y target) 4))
+        (:scancode-up (incf (ww::y target) 4))
         (:scancode-w (incf (ww::width target) 20))
         (:scancode-r (incf (ww::rotation target) (/ pi 3)))
         (:scancode-l (decf (ww::rotation target) (/ pi 3)))