github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-28 04:38:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make translate-coords parametrizable with operation.

Browse Source
This commit is contained in:
Andrey Antukh 2016-01-22 19:36:47 +02:00
parent f4ba1f4fdb
commit d73781f51c
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/uxbox/shapes.cljs
View File

@ -144,10 +144,12 @@
(defn translate-coords
"Given a shape and initial coords, transform
it mapping its coords to new provided initial coords."
[shape x y]
(let [x' (:x shape)
y' (:y shape)]
(assoc shape :x (- x' x) :y (- y' y))))
([shape x y]
(translate-coords shape x y -))
([shape x y op]
(let [x' (:x shape)
y' (:y shape)]
(assoc shape :x (op x' x) :y (op y' y)))))
(defn resolve-position
"Recursively resolve the real shape position in