aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-07-18 09:01:23 -0500
committerColin Okay <colin@cicadas.surf>2022-07-18 09:01:23 -0500
commit03ce5afadae02847aadd7ae89ce4779ee0b7e6e4 (patch)
tree6fc4c388fccb1bdf21664c14016dd3ba01509e95
parent371319a26055009066d320742934a2c37882de8f (diff)
[example] graphcis example, twiddling, thick stroke bezier
-rw-r--r--examples/11-canvas-geometry.lisp7
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)