github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-11 06:28:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improve point transformation helpers.

Browse Source
This commit is contained in:
Andrey Antukh 2016-12-20 17:04:18 +01:00
parent aed1b8cd26
commit 462f37e601
No known key found for this signature in database
GPG Key ID: 4DFEBCB8316A8B95
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
frontend/src/uxbox/util/geom/point.cljs
View File

@ -94,6 +94,12 @@
(Point. (/ (:x p) (:x other)) (Point. (/ (:x p) (:x other))
(/ (:y p) (:y other))))) (/ (:y p) (:y other)))))
(defn negate
[p]
{:pre [(point? p)]}
(let [{:keys [x y]} (-point p)]
(Point. (- x) (- y))))
(defn distance (defn distance
"Calculate the distance between two points." "Calculate the distance between two points."
[p other] [p other]
@ -161,7 +167,7 @@
(defn transform (defn transform
"Transform a point applying a matrix transfomation." "Transform a point applying a matrix transfomation."
[{:keys [x y] :as p} {:keys [a b c d tx ty] :as m}] [pt {:keys [a b c d tx ty] :as m}]
(Point. (+ (* x a) (* y c) tx) (let [{:keys [x y]} (point pt)]
(+ (* x b) (* y d) ty))) (Point. (+ (* x a) (* y c) tx)
(+ (* x b) (* y d) ty))))