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

✨ Path split segments

Browse source
This commit is contained in:
alonso.torres 2021-04-06 14:27:58 +02:00 • committed by Andrés Moya
parent e81b1b8115
commit 5361e42976
3 changed files with 41 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

22
frontend/src/app/util/geom/path.cljs
View file

@ -675,3 +675,25 @@
(rest content))
segments)))))
(defn split-segments [content points value]
(let [split-command
(fn [[start end cmd]]
(case (:command cmd)
:line-to [cmd (split-line-to start cmd value)]
:curve-to [cmd (split-curve-to start cmd value)]
:close-path [cmd [(make-line-to (gpt/line-val start end value)) cmd]]
nil))
cmd-changes
(->> (get-segments content points)
(into {} (comp (map split-command)
(filter (comp not nil?)))))
process-segments
(fn [command]
(if (contains? cmd-changes command)
(get cmd-changes command)
[command]))]
(into [] (mapcat process-segments) content)))