aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--examples/14-canvas-paint.lisp17
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