circle

pishty1 · Dec 14, 2023 · 6c5cca7 · 6c5cca7
1 parent 1f4d99e
commit 6c5cca7
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/sketches/repo/euclid.cljs b/src/sketches/repo/euclid.cljs
@@ -40,8 +40,11 @@
          current-mouse {:x (q/mouse-x) :y (q/mouse-y) :w 20 :h 20}
          diff (v/sub  [(:x current-mouse) (:y current-mouse)]
                       origin)
-         mag (v/mag diff)
-         rcircle {:x (:x anchor-circle) :y (:y anchor-circle) :w mag :h mag}]
+         mag (* 2 (v/mag diff))
+         rcircle {:x (:x anchor-circle)
+                  :y (:y anchor-circle)
+                  :w mag
+                  :h mag}]
 
      (q/line (:fromx line) (:fromy line)  (:tox line) (:toy line))
      (q/fill 255 150)