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

✨ Add minor improvements to get-segments-with-points

Browse source 
And rename it from `get-segments`
This commit is contained in:
Andrey Antukh 2025-04-09 09:37:45 +02:00
parent 3a22545158
commit 60f754f172
3 changed files with 62 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

27
common/test/common_tests/types/path_data_test.cljc
View file

@ -276,3 +276,30 @@
(t/is (= result1 expect))
(t/is (= result2 expect))
(t/is (= result3 expect))))
(def sample-content-square
[{:command :move-to, :params {:x 0, :y 0}}
{:command :line-to, :params {:x 10, :y 0}}
{:command :line-to, :params {:x 10, :y 10}}
{:command :line-to, :params {:x 10, :y 0}}
{:command :line-to, :params {:x 0, :y 10}}
{:command :line-to, :params {:x 0, :y 0}}
{:command :close-path :params {}}])
(t/deftest get-segments
(let [content (path/content sample-content-square)
points #{(gpt/point 10.0 0.0)
(gpt/point 0.0 0.0)}
result (path.segment/get-segments-with-points content points)
expect [{:command :line-to,
:params {:x 10.0, :y 0.0},
:start (gpt/point 0.0 0.0)
:end (gpt/point 10.0 0.0)
:index 1}
{:command :close-path,
:params {},
:start (gpt/point 0.0 0.0)
:end (gpt/point 0.0 0.0)
:index 6}]]
(t/is (= result expect))))