3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-05 07:51:41 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix problem with borders on shape export

Browse source
This commit is contained in:
alonso.torres 2021-08-30 16:47:57 +02:00 • committed by Andrés Moya
parent 2dfa4f9ec9
commit 1b6e6ec2e4
3 changed files with 29 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

25
frontend/src/app/main/ui/shapes/filters.cljs
View file

@ -201,6 +201,19 @@
:width (- x2 x1)
:height (- y2 y1)})))))
(defn calculate-padding [shape]
(let [{:keys [stroke-style stroke-alignment stroke-width]} shape]
(cond
(and (not= stroke-style :none)
(= stroke-alignment :outer))
stroke-width
(and (not= stroke-style :none)
(= stroke-alignment :center))
(mth/ceil (/ stroke-width 2))
:else 0)))
(mf/defc filters
[{:keys [filter-id shape]}]
@ -209,15 +222,17 @@
;; Adds the previous filter as `filter-in` parameter
filters (map #(assoc %1 :filter-in %2) filters (cons nil (map :id filters)))
bounds (get-filters-bounds shape filters (or (-> shape :blur :value) 0))]
bounds (get-filters-bounds shape filters (or (-> shape :blur :value) 0))
padding (calculate-padding shape)]
[:*
(when (> (count filters) 2)
[:filter {:id filter-id
:x (:x bounds)
:y (:y bounds)
:width (:width bounds)
:height (:height bounds)
:x (- (:x bounds) padding)
:y (- (:y bounds) padding)
:width (+ (:width bounds) (* 2 padding))
:height (+ (:height bounds) (* 2 padding))
:filterUnits "userSpaceOnUse"
:color-interpolation-filters "sRGB"}