From 03ce5afadae02847aadd7ae89ce4779ee0b7e6e4 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 18 Jul 2022 09:01:23 -0500 Subject: [example] graphcis example, twiddling, thick stroke bezier --- examples/11-canvas-geometry.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'examples/11-canvas-geometry.lisp') diff --git a/examples/11-canvas-geometry.lisp b/examples/11-canvas-geometry.lisp index bfc41f7..325cbe4 100644 --- a/examples/11-canvas-geometry.lisp +++ b/examples/11-canvas-geometry.lisp @@ -58,12 +58,13 @@ (let ((control-points '((10 490) - (400 400) + (200 300) (0 400) (40 250)))) (ww::with-grid-bezier (x y) (control-points :step 0.001) - (ww::with-pixel (r g b a) (ww::pixel canvas x y) - (ww::setf-many r g b a 255)))) + (ww::with-grid-rect (rx ry) ((- x 2) (- y 2) (+ x 2) (+ y 2)) + (ww::with-pixel (r g b a) (ww::pixel canvas rx ry) + (setf g 255))))) ;; blit the canvas (ww::blit canvas) -- cgit v1.2.3