enhance math ns

Author: sprocketc

src/renderer/tool/misc/measure.cljs

@@ -1,13 +1,13 @@
 (ns renderer.tool.misc.measure
   (:require
    [clojure.core.matrix :as mat]
-   [goog.math]
    [re-frame.core :as rf]
    [renderer.document.subs :as-alias document.s]
    [renderer.element.handlers :as element.h]
    [renderer.handlers :as handlers]
    [renderer.tool.base :as tool]
    [renderer.tool.overlay :as overlay]
+   [renderer.utils.math :as math]
    [renderer.utils.units :as units]))
 
 (derive :measure ::tool/tool)
@@ -53,7 +53,7 @@
   [{:keys [attrs key hypotenuse]}]
   (let [{:keys [x1 x2 y1 y2]} attrs
         [x1 y1 x2 y2] (map units/unit->px [x1 y1 x2 y2])
-        angle (goog.math/angle x1 y1 x2 y2)
+        angle (math/angle x1 y1 x2 y2)
         zoom @(rf/subscribe [::document.s/zoom])
         straight? (< angle 180)
         straight-angle (if straight? angle (- angle 360))]

src/renderer/utils/math.cljs

@@ -3,6 +3,7 @@
    [clojure.math :as math]))
 
 (defn clamp
+  "Clamps a number within the provided bounds."
   [x minimum maximum]
   (min (max x minimum) maximum))
 
@@ -13,3 +14,17 @@
 (defn angle-dy
   [degrees radius]
   (* radius (Math/sin (math/to-radians degrees))))
+
+(defn normalize-angle
+  "Normalizes an angle to be in range [0-360). Angles outside this range will
+   be normalized to be the equivalent angle with that range."
+  [angle]
+  (mod angle (* 2 Math/PI)))
+
+(defn angle
+  [x1 y1 x2 y2]
+  (-> (Math/atan2 (- y2 y1) (- x2 x1))
+      normalize-angle
+      math/to-degrees))
+
+