Minor fixes and improvements to point geom impl.

src/uxbox/util/geom/point.cljs

@@ -60,7 +60,7 @@
     (Point. (+ (:x p) (:x other))
             (+ (:y p) (:y other)))))
 
-(defn substract
+(defn subtract
   "Returns the subtraction of the supplied value to both
   coordinates of the point as a new point."
   [p other]
@@ -94,17 +94,32 @@
    {:pre [(point? p)]}
    (-> (mth/atan2 (:y p) (:x p))
        (mth/degrees)))
-  ([p other]
+  ([p center]
-   {:pre [(point? p)]}
+   (let [center (-point center)]
-   (let [other (-point other)
+     (angle (subtract p center)))))
-         a (/ (+ (* (:x p) (:x other))
+
-                 (* (:y p) (:y other)))
+(defn angle-with-other
-              (* (length p) (length other)))
+  "Consider point as vector and calculate
-         a (mth/acos (if (< a -1)
+  the angle between two vectors."
-                       -1
+  [p other]
-                       (if (> a 1) 1 a)))]
+  {:pre [(point? p)]}
-     (-> (mth/degrees a)
+  (let [other (-point other)
-         (mth/precision 6)))))
+        a (/ (+ (* (:x p) (:x other))
+                (* (:y p) (:y other)))
+             (* (length p) (length other)))
+        a (mth/acos (if (< a -1)
+                      -1
+                      (if (> a 1) 1 a)))]
+    (-> (mth/degrees a)
+        (mth/precision 6))))
+
+(defn update-angle
+  "Update the angle of the point."
+  [p angle]
+  (let [len (length p)
+        angle (mth/radians angle)]
+    (Point. (* (mth/cos angle) len)
+            (* (mth/sin angle) len))))
 
 (defn quadrant
   "Return the quadrant of the angle of the point."

test/uxbox/util/geom_tests.cljs

@@ -65,7 +65,7 @@
     (t/is (= angle 90)))
   (let [p1 (gpt/point 0 10)
         p2 (gpt/point 10 10)
-        angle (gpt/angle p1 p2)]
+        angle (gpt/angle-with-other p1 p2)]
     (t/is (number? angle))
     (t/is (= angle 45))))