diff options
| -rw-r--r-- | examples/14-canvas-paint.lisp | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/examples/14-canvas-paint.lisp b/examples/14-canvas-paint.lisp index 30db422..224778a 100644 --- a/examples/14-canvas-paint.lisp +++ b/examples/14-canvas-paint.lisp @@ -143,9 +143,20 @@ :pixel-height (canvas-size app)))) (setf *last-draw-time* 0) (ww:add-unit canvas) - (ww:refocus-on canvas))) - - + (ww:refocus-on canvas)) + (instructions)) + +(defun instructions () + (format + t + " + INSTRUCTIONS +------------------------ +Click and drag to draw. +Use +/- to increase/decrease the size of the pencil. +Use the mousewheel (or however you scroll) to zoom in/out. +Hold shift to click and drag. +")) (defun start (&key (size 800) (window 800)) (ww:start |