3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-31 03:36:17 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Fix segment param naming on path type helpers

Browse source
This commit is contained in:
Andrey Antukh 2025-04-08 22:07:25 +02:00
parent 753823c0b3
commit db73c2eea0
2 changed files with 38 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

24
frontend/src/app/main/ui/workspace/shapes/debug.cljs
View file

@ -135,15 +135,15 @@
;;content-b-split (->> content-b-split #_(filter #(path.bool/contains-segment? % content-a sr-a content-a-geom)))
]
[:*
(for [[i cmd] (d/enumerate content-a-split)]
(let [p1 (:prev cmd)
p2 (path.helpers/command->point cmd)
(for [[i segment] (d/enumerate content-a-split)]
(let [p1 (:prev segment)
p2 (path.helpers/segment->point segment)
hp (case (:command cmd)
:line-to (-> (path.helpers/command->line cmd)
hp (case (:command segment)
:line-to (-> (path.helpers/command->line segment)
(path.helpers/line-values 0.5))
:curve-to (-> (path.helpers/command->bezier cmd)
:curve-to (-> (path.helpers/command->bezier segment)
(path.helpers/curve-values 0.5))
nil)]
[:*
@ -154,15 +154,15 @@
(when hp
[:circle {:data-i i :key (dm/str "c13-" i) :cx (:x hp) :cy (:y hp) :r radius :fill "orange"}])]))
(for [[i cmd] (d/enumerate content-b-split)]
(let [p1 (:prev cmd)
p2 (path.helpers/command->point cmd)
(for [[i segment] (d/enumerate content-b-split)]
(let [p1 (:prev segment)
p2 (path.helpers/segment->point segment)
hp (case (:command cmd)
:line-to (-> (path.helpers/command->line cmd)
hp (case (:command segment)
:line-to (-> (path.helpers/command->line segment)
(path.helpers/line-values 0.5))
:curve-to (-> (path.helpers/command->bezier cmd)
:curve-to (-> (path.helpers/command->bezier segment)
(path.helpers/curve-values 0.5))
nil)]
[:*