Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-22 14:39:45 -05:00
Code Issues Activity

🐛 Fix problem with strokes exporting images

Browse source
This commit is contained in:
alonso.torres 2024-02-16 09:43:38 +01:00
parent 74e57c00af
commit 4c81ac4386
3 changed files with 45 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
common/src/app/common/geom/shapes/bounds.cljc
View file

@ -15,8 +15,8 @@
(defn shape-stroke-margin
[shape stroke-width]
(if (cfh/path-shape? shape)
;; TODO: Calculate with the stroke offset (not implemented yet
(mth/sqrt (* 2 stroke-width stroke-width))
;; TODO: Calculate with the stroke offset (not implemented yet)
(+ stroke-width (mth/sqrt (* 2 stroke-width stroke-width)))
(- (mth/sqrt (* 2 stroke-width stroke-width)) stroke-width)))
(defn- apply-filters
@ -104,7 +104,7 @@
0))
(reduce d/max 0))
margin
stroke-margin
(if ignore-margin?
0
(shape-stroke-margin shape stroke-width))
@ -124,9 +124,8 @@
:drop-shadow (+ (mth/abs (:offset-y %)) (* (:spread %) 2) (* (:blur %) 2) 10)
0))
(reduce d/max 0))]
{:horizontal (mth/ceil (+ stroke-width margin shadow-width))
:vertical (mth/ceil (+ stroke-width margin shadow-height))})))
{:horizontal (mth/ceil (+ stroke-margin shadow-width))
:vertical (mth/ceil (+ stroke-margin shadow-height))})))
(defn- add-padding
[bounds padding]
@ -143,13 +142,17 @@
(update :height + (* 2 v-padding)))))
(defn calculate-base-bounds
[shape]
([shape]
(calculate-base-bounds shape true))
([shape ignore-margin?]
(-> (get-shape-filter-bounds shape)
(add-padding (calculate-padding shape true))))
(add-padding (calculate-padding shape ignore-margin?)))))
(defn get-object-bounds
[objects shape]
(let [base-bounds (calculate-base-bounds shape)
([objects shape]
(get-object-bounds objects shape nil))
([objects shape {:keys [ignore-margin?] :or {ignore-margin? true}}]
(let [base-bounds (calculate-base-bounds shape ignore-margin?)
bounds
(cond
(or (empty? (:shapes shape))
@ -185,5 +188,5 @@
filters (shape->filters shape)
blur-value (or (-> shape :blur :value) 0)]
(get-rect-filter-bounds children-bounds filters blur-value)))
(get-rect-filter-bounds children-bounds filters blur-value))))

2
frontend/src/app/main/render.cljs
View file

@ -449,7 +449,7 @@
(assoc :fills []))
{:keys [width height] :as bounds} (gsb/get-object-bounds objects object)
{:keys [width height] :as bounds} (gsb/get-object-bounds objects object {:ignore-margin? false})
vbox (format-viewbox bounds)
fonts (ff/shape->fonts object objects)

5
frontend/src/app/main/ui/shapes/custom_stroke.cljs
View file

@ -13,6 +13,7 @@
[app.common.geom.shapes :as gsh]
[app.common.geom.shapes.bounds :as gsb]
[app.common.geom.shapes.text :as gst]
[app.common.math :as mth]
[app.config :as cf]
[app.main.ui.context :as muc]
[app.main.ui.shapes.attrs :as attrs]
@ -47,7 +48,7 @@
:center (/ (:stroke-width stroke 0) 2)
:outer (:stroke-width stroke 0)
0)
margin (gsb/shape-stroke-margin stroke stroke-width)
stroke-margin (gsb/shape-stroke-margin shape stroke-width)
;; NOTE: for performance reasons we may can delimit a bit the
;; dependencies to really useful shape attrs instead of using
@ -57,8 +58,6 @@
(gst/shape->rect shape)
(grc/points->rect (:points shape))))
stroke-margin (+ stroke-width margin)
x (- (dm/get-prop selrect :x) stroke-margin)
y (- (dm/get-prop selrect :y) stroke-margin)
w (+ (dm/get-prop selrect :width) (* 2 stroke-margin))