[example] added instructions print out

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