diff options
| -rw-r--r-- | examples/12-canvas-drawing-language.lisp | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/examples/12-canvas-drawing-language.lisp b/examples/12-canvas-drawing-language.lisp index dcc557d..f89a48a 100644 --- a/examples/12-canvas-drawing-language.lisp +++ b/examples/12-canvas-drawing-language.lisp @@ -59,20 +59,20 @@ (psw ; petal semi-width (* pi 0.08))) ;; for each angle a between 0 and 2π draw a petal as a bezier - ;; curve. the curve uses two control points that are R away from - ;; the starting point and PSW radians on either side of the line - ;; at angle a + ;; curve. the curve uses two control points that are R away + ;; from the starting point and PSW radians on either side of the + ;; line at angle a (loop for a from 0 to (* 2 pi) by (/ (* 2 pi) petals) - for ls = (list (list (* r (sin (- a psw))) - (* r (cos (- a psw)))) - (list (* r (sin (+ a psw))) - (* r (cos (+ a psw)))) - (list 0 0)) + for ctls = (list (list (* r (sin (- a psw))) + (* r (cos (- a psw)))) + (list (* r (sin (+ a psw))) + (* r (cos (+ a psw)))) + (list 0 0)) do - (ww::fill-rel-bezier ls 12) + (ww::fill-rel-bezier ctls 12) ;; draw border of each petal (ww::with-pen (:color (list 0 50 200 255)) - (ww::stroke-rel-bezier ls 12)))))) + (ww::stroke-rel-bezier ctls 12)))))) (defun draw-stuff (canvas) (ww::with-canvas canvas |