diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-01 19:19:03 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-01 19:19:03 -0500 |
| commit | 7036229a91e7360a4f40c7e9844d80812e3b8ae5 (patch) | |
| tree | 21a2fc09aa95e02dbce1a692e937447a007e3735 /examples/02-moving-bitmp.lisp | |
| parent | 123a33f9061353ae2fd88b4b563c746d5db5fc8b (diff) | |
[example] speeiding up gelatinouscube
Diffstat (limited to 'examples/02-moving-bitmp.lisp')
| -rw-r--r-- | examples/02-moving-bitmp.lisp | 8 |
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))) |