Fix Drawing Example
This commit is contained in:
parent
e375668143
commit
7931370356
@ -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)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user