Improved setter

examples/events.lisp

@@ -2,35 +2,34 @@
 ;
 (def prev-pos {:x 0 :y 0})
 ;
+(defn stroke-color 
+  (e) 
+  (if 
+    (of e :is-down) "red" "#72dec2")) 
+;
 (defn draw-line 
   (e) 
   (
-    (debug e) 
-    (debug prev-pos) 
     (if 
       (of e :is-down) 
       (
         (stroke 
-          (line prev-pos e) 2 "white")
+          (line prev-pos e) 2 "white") 
         (set prev-pos :x 
-          (of e :x))
-        (set prev-pos :y 
+          (of e :x) :y 
           (of e :y))))))
 ;
 (defn draw-circle 
   (e) 
   (
-    (debug e) 
-    (debug 
-      (of e :type)) 
-    (def stroke-color 
-      (if 
-        (eq 
-          (of e :type) "mouse-down") "red" "#72dec2")) 
+    (set prev-pos :x 
+      (of e :x) :y 
+      (of e :y)) 
     (stroke 
       (circle 
         (of e :x) 
-        (of e :y) 10) 4 stroke-color)))
+        (of e :y) 10) 4 
+      (stroke-color e))))
 ;
 (on "mouse-down" draw-circle)
 (on "mouse-up" draw-circle)