diff options
Diffstat (limited to 'examples/11-canvas-geometry.lisp')
| -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) |