🐛 Fix outline corner radius

This commit is contained in:
Alejandro Alonso 2023-01-27 07:47:41 +01:00 committed by Alonso Torres
parent e0441bc16a
commit 2dbeda1d8f

View file

@ -35,11 +35,11 @@
(or (ex/ignoring (upf/format-path (:content shape))) (or (ex/ignoring (upf/format-path (:content shape)))
""))) "")))
{:keys [x y width height selrect rx ry]} shape {:keys [x y width height selrect]} shape
border-radius-attrs (.-d (attrs/extract-border-radius shape)) border-radius-attrs (attrs/extract-border-radius shape)
path? (some? border-radius-attrs) path? (some? (.-d border-radius-attrs))
outline-type (case (:type shape) outline-type (case (:type shape)
:circle "ellipse" :circle "ellipse"
@ -67,8 +67,8 @@
:y (:y selrect) :y (:y selrect)
:width (:width selrect) :width (:width selrect)
:height (:height selrect) :height (:height selrect)
:rx rx :rx (.-rx border-radius-attrs)
:ry ry :ry (.-ry border-radius-attrs)
:d border-radius-attrs})] :d border-radius-attrs})]
[:> outline-type (map->obj (merge common props))])) [:> outline-type (map->obj (merge common props))]))