[refactor] odd behavior in with-grid-bezier

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")))