aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-07-28 14:22:16 -0500
committerColin Okay <okay@toyful.space>2022-07-28 14:22:16 -0500
commit55eaec5b85891b4a55920cf7eb84d08c1109e48d (patch)
tree448c0d69c3d86b366acd2f0b95e81b7f093fb0be /examples
parent1f4a2cd3cd588be88310ddf15186e967f0db2781 (diff)
[example] added instructions print out
Diffstat (limited to 'examples')
-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