From fae76f6d4edaacc3e8e272b643a30aea9be435d5 Mon Sep 17 00:00:00 2001 From: "alonso.torres" Date: Thu, 23 Mar 2023 11:53:43 +0100 Subject: [PATCH] :bug: Fix problem with geometry of groups --- common/src/app/common/geom/shapes/transforms.cljc | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/common/src/app/common/geom/shapes/transforms.cljc b/common/src/app/common/geom/shapes/transforms.cljc index 864167f1b..1c7bc9b8e 100644 --- a/common/src/app/common/geom/shapes/transforms.cljc +++ b/common/src/app/common/geom/shapes/transforms.cljc @@ -382,10 +382,11 @@ (defn update-group-selrect [group children] - (let [shape-center (gco/center-shape group) - ;; Points for every shape inside the group + (let [;; Points for every shape inside the group points (->> children (mapcat :points)) + shape-center (gco/center-points points) + ;; Fixed problem with empty groups. Should not happen (but it does) points (if (empty? points) (:points group) points)