From 613f3381583537033e03285ab3f9242bbfbeba65 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 20 Jul 2022 10:04:59 -0500 Subject: [modify] how apply-pen-at handles pen width --- examples/12-canvas-drawing-language.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'examples/12-canvas-drawing-language.lisp') diff --git a/examples/12-canvas-drawing-language.lisp b/examples/12-canvas-drawing-language.lisp index b4a621b..43d2dea 100644 --- a/examples/12-canvas-drawing-language.lisp +++ b/examples/12-canvas-drawing-language.lisp @@ -70,7 +70,7 @@ (list 0 0)) do (ww::fill-rel-bezier ls 12) - (ww::with-pen (:color (list 0 0 0 255)) + (ww::with-pen (:color (list 0 0 0 255) :width 1) (ww::stroke-rel-bezier ls 12))))) (defun draw-stuff (canvas) -- cgit v1.2.3