Swapped stroke-width and stroke-color params, fixes #82

examples/events/on-animate.lisp

@@ -34,11 +34,11 @@
         (elevation 
           (sub i 1)) 
         (add x seg-width) 
-        (elevation i)) 4 
+        (elevation i))
       (gradient 
         (line 50 0 
           frame-rect:w 0) 
-        ("#ffb545" "#72dec2")))))
+        ("#ffb545" "#72dec2")) 4 )))
 ;
 (defn redraw 
   () 

examples/events/on-mouse.lisp

@@ -4,15 +4,15 @@
   (
     (clear) 
     ; vertical line 
-    (stroke (line e:x 0 e:x e:y) 2 "#ff0000") 
+    (stroke (line e:x 0 e:x e:y) "#ff0000") 
     ; horizontal line 
     (stroke 
-      (line 0 e:y e:x e:y) 2 "#72dec2") 
+      (line 0 e:y e:x e:y) "#72dec2") 
     ; circle 
     (stroke 
       (circle 
         e:x 
-        e:y 30) 2 "#ffffff")))
+        e:y 30) "#ffffff")))
 ;
 (on "mouse-down" redraw)
 (on "mouse-up" redraw)