diff options
author | Colin Okay <colin@cicadas.surf> | 2022-06-28 17:35:50 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-06-28 17:35:50 -0500 |
commit | 6d5da708925afcb935e9c99ea104caa548dc7894 (patch) | |
tree | 00a0db3dd1c871f8a58d5f23da3b53932273c92b | |
parent | 71d2a0f57c93046a8abde5aad0f2549188c9e64b (diff) |
[example] 03, spin faster!
-rw-r--r-- | examples/03-font-render.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp index ff68ac5..bf9c893 100644 --- a/examples/03-font-render.lisp +++ b/examples/03-font-render.lisp @@ -24,7 +24,7 @@ (when (< 900 (ww::unit-x target)) (setf (ww::unit-x target) -800)) - (incf (ww::unit-x target) 5))) + (incf (ww::unit-x target) 7))) (defvar *spin-table* (make-hash-table :synchronized t)) @@ -32,9 +32,9 @@ (ww::on-perframe () (let ((rot (gethash target *spin-table* 0.0))) - (if (< rot (* 7.5 pi)) + (if (< rot (* 20 pi)) (setf - (gethash target *spin-table*) (+ rot 0.2) + (gethash target *spin-table*) (+ rot 0.88) (ww::unit-rotation target) rot) (progn (setf (ww::unit-rotation target) 0.0) |