(clear)
;
(def prev-pos {:x 0 :y 0})
;
(defn stroke-color 
  (e) 
  (if 
    (of e :is-down) "red" "#72dec2")) 
;
(defn draw-line 
  (e) 
  (
    (if 
      (of e :is-down) 
      (
        (stroke 
          (line prev-pos e) 2 "white") 
        (set prev-pos :x 
          (of e :x) :y 
          (of e :y))))))
;
(defn draw-circle 
  (e) 
  (
    (set prev-pos :x 
      (of e :x) :y 
      (of e :y)) 
    (stroke 
      (circle 
        (of e :x) 
        (of e :y) 10) 4 
      (stroke-color e))))
;
(on "mouse-down" draw-circle)
(on "mouse-up" draw-circle)
(on "mouse-move" draw-line)