github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-09 13:39:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add missing divide function to point reladed utils.

Browse Source
This commit is contained in:
Andrey Antukh 2016-04-05 22:27:58 +03:00
parent 38509eea99
commit c2126b6fe4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/uxbox/util/geom/point.cljs
View File

@ -86,6 +86,13 @@
(Point. (* (:x p) (:x other)) (Point. (* (:x p) (:x other))
(* (:y p) (:y other))))) (* (:y p) (:y other)))))
(defn divide
[p other]
{:pre [(point? p)]}
(let [other (-point other)]
(Point. (/ (:x p) (:x other))
(/ (:y p) (:y other)))))
(defn distance (defn distance
"Calculate the distance between two points." "Calculate the distance between two points."
[p other] [p other]