diff options
author | Colin Okay <colin@cicadas.surf> | 2022-06-29 08:21:28 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-06-29 08:21:28 -0500 |
commit | 4d1ee56c96ce254134b692f0e3b3271c87a42b54 (patch) | |
tree | f0a29ec11c4478d5f5ff47b60d6190b7d2471c89 /examples/03-font-render.lisp | |
parent | 467e3343bc1620157073ff88b4990f39a60e3365 (diff) |
[example] fiddling
Diffstat (limited to 'examples/03-font-render.lisp')
-rw-r--r-- | examples/03-font-render.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp index bf9c893..6f7d1a7 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) 7))) + (incf (ww::unit-x target) 5 ))) (defvar *spin-table* (make-hash-table :synchronized t)) @@ -32,12 +32,13 @@ (ww::on-perframe () (let ((rot (gethash target *spin-table* 0.0))) - (if (< rot (* 20 pi)) + (if (< rot (* 8 pi)) (setf (gethash target *spin-table*) (+ rot 0.88) + (ww::text-color target) (random-text-color) (ww::unit-rotation target) rot) (progn - (setf (ww::unit-rotation target) 0.0) + (setf (ww::unit-rotation target) 0.0) (ww::remove-handler target #'spin) (remhash target *spin-table*)))))) |