CalvinBackup/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-03-28 06:10:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

🐛 Fix export group with shadows on children

Browse Source
This commit is contained in:
alonso.torres
2021-10-06 17:50:01 +02:00
parent b8677b2b9a
commit 890bf9eced
4 changed files with 36 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
common/src/app/common/geom/shapes.cljc
View File

@@ -141,6 +141,7 @@
(d/export gpr/points->selrect)
(d/export gpr/points->rect)
(d/export gpr/center->rect)
(d/export gpr/join-rects)
(d/export gtr/move)
(d/export gtr/absolute-move)

10
common/src/app/common/geom/shapes/rect.cljc
View File

@@ -48,6 +48,16 @@
(defn rect->selrect [rect]
(-> rect rect->points points->selrect))
(defn join-rects [rects]
(let [minx (transduce (comp (map :x) (remove nil?)) min ##Inf rects)
miny (transduce (comp (map :y) (remove nil?)) min ##Inf rects)
maxx (transduce (comp (map #(+ (:x %) (:width %))) (remove nil?)) max ##-Inf rects)
maxy (transduce (comp (map #(+ (:y %) (:height %))) (remove nil?)) max ##-Inf rects)]
{:x minx
:y miny
:width (- maxx minx)
:height (- maxy miny)}))
(defn join-selrects [selrects]
(let [minx (transduce (comp (map :x1) (remove nil?)) min ##Inf selrects)
miny (transduce (comp (map :y1) (remove nil?)) min ##Inf selrects)