From 83d8bf37a6bb8f001a5f3aa5acb614c82939fc73 Mon Sep 17 00:00:00 2001 From: "alonso.torres" Date: Tue, 15 Oct 2024 12:28:23 +0200 Subject: [PATCH] :bug: Fix problem with inner strokes bounds --- common/src/app/common/geom/shapes/bounds.cljc | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/common/src/app/common/geom/shapes/bounds.cljc b/common/src/app/common/geom/shapes/bounds.cljc index d87ad2a4f..869b7503b 100644 --- a/common/src/app/common/geom/shapes/bounds.cljc +++ b/common/src/app/common/geom/shapes/bounds.cljc @@ -10,6 +10,7 @@ [app.common.data.macros :as dm] [app.common.files.helpers :as cfh] [app.common.geom.rect :as grc] + [app.common.geom.shapes :as gsh] [app.common.math :as mth])) (defn shape-stroke-margin @@ -97,12 +98,15 @@ ([shape ignore-margin?] (let [strokes (:strokes shape) + open-path? (and ^boolean (cfh/path-shape? shape) + ^boolean (gsh/open-path? shape)) + stroke-width (->> strokes (map #(case (get % :stroke-alignment :center) :center (/ (:stroke-width % 0) 2) :outer (:stroke-width % 0) - (:stroke-width % 0))) + (if open-path? (:stroke-width % 0) 0))) (reduce d/max 0)) stroke-margin