Fix Drawing Example

This commit is contained in:
Bladymir Tellez 2020-08-21 08:35:38 -05:00
parent e375668143
commit 7931370356

View File

@ -2,7 +2,8 @@
; ;
(clear) (clear)
; ;
(def prev-pos {:x 0 :y 0}) (def prev-pos:x 0)
(def prev-pos:y 0)
; ;
(defn stroke-color (defn stroke-color
(e) (e)
@ -34,4 +35,4 @@
; ;
(on "mouse-down" draw-circle) (on "mouse-down" draw-circle)
(on "mouse-up" draw-circle) (on "mouse-up" draw-circle)
(on "mouse-move" draw-line) (on "mouse-move" draw-line)