diff options
Diffstat (limited to 'examples/12-canvas-drawing-language.lisp')
| -rw-r--r-- | examples/12-canvas-drawing-language.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/examples/12-canvas-drawing-language.lisp b/examples/12-canvas-drawing-language.lisp index 8020550..0713d90 100644 --- a/examples/12-canvas-drawing-language.lisp +++ b/examples/12-canvas-drawing-language.lisp @@ -57,7 +57,7 @@ (defun flower (&optional (petals 5)) (ww:with-pen (:width 1) (let ((r ; radius - (sqrt (+ (* 25 25) (* 100 100)))) + #.(sqrt (+ (* 25 25) (* 100 100)))) (psw ; petal semi-width (* pi 0.08))) ;; for each angle a between 0 and 2π draw a petal as a bezier @@ -74,7 +74,7 @@ (ww:fill-rel-bezier ctls 12) ;; draw border of each petal (ww:with-pen (:color (list 0 50 200 255)) - (ww:stroke-rel-bezier ctls 12)))))) + (ww:stroke-rel-bezier ctls 20)))))) (defun draw-stuff (canvas) (ww:with-canvas canvas @@ -86,8 +86,7 @@ (ww:with-pen (:color #'lower-the-bluer :width 2) ;; draw a flower stem (ww:stroke-bezier - '((0 0) (200 120) (50 350) (200 100) (300 400)) - 12) + '((0 0) (200 120) (50 350) (200 100) (300 400))) ;; draw a flower (flower 28)) @@ -116,7 +115,7 @@ (ww:start (make-instance 'canvas-lang-demo - :fps 10 + :fps 3 :width side :height side :title "Canvas demo"))) |