diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-18 09:01:23 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-18 09:01:23 -0500 |
| commit | 03ce5afadae02847aadd7ae89ce4779ee0b7e6e4 (patch) | |
| tree | 6fc4c388fccb1bdf21664c14016dd3ba01509e95 | |
| parent | 371319a26055009066d320742934a2c37882de8f (diff) | |
[example] graphcis example, twiddling, thick stroke bezier
| -rw-r--r-- | examples/11-canvas-geometry.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
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) |