CalvinBackup/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-02-12 22:53:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add setup-proportions function to geom helpers.

Browse Source
This commit is contained in:
Andrey Antukh
2016-09-28 22:06:18 +02:00
parent c9f8b5b562
commit 84ef0a75e1
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/uxbox/main/geom.cljs
View File

@@ -251,6 +251,23 @@
[shape index point]
(assoc-in shape [:points index] point))
;; --- Setup Proportions
(declare setup-proportions-rect)
(defn setup-proportions
[shape]
(case (:type shape)
:rect (setup-proportions-rect shape)
:icon (setup-proportions-rect shape)
:circle (setup-proportions-rect shape)
shape))
(defn setup-proportions-rect
[shape]
(let [{:keys [width height]} (size shape)]
(assoc shape :proportion (/ width height))))
;; --- Resize (Absolute)
(declare resize-rect)