From 55eaec5b85891b4a55920cf7eb84d08c1109e48d Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 28 Jul 2022 14:22:16 -0500 Subject: [example] added instructions print out --- examples/14-canvas-paint.lisp | 17 ++++++++++++++--- 1 file 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 -- cgit v1.2.3