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

✨ Close paths and internals refactor

Browse source
This commit is contained in:
alonso.torres 2020-11-23 22:10:12 +01:00
parent f339f1ee98
commit b66b0cb431
5 changed files with 431 additions and 294 deletions
Download patch file Download diff file Expand all files Collapse all files

18
common/app/common/geom/shapes/path.cljc
View file

@ -17,9 +17,6 @@
[app.common.math :as mth]
[app.common.data :as d]))
(defn segments->points [segments]
segments)
(defn content->points [content]
(->> content
(map #(when (-> % :params :x) (gpt/point (-> % :params :x) (-> % :params :y))))
@ -147,21 +144,6 @@
(mapv #(update % :params transform-params) content)))
(defn apply-content-modifiers [content modifiers]
(let [red-fn (fn [content [index params]]
(if (contains? content index)
(cond-> content
(:x params) (update-in [index :params :x] + (:x params))
(:y params) (update-in [index :params :y] + (:y params))
(:c1x params) (update-in [index :params :c1x] + (:c1x params))
(:c1y params) (update-in [index :params :c1y] + (:c1y params))
(:c2x params) (update-in [index :params :c2x] + (:c2x params))
(:c2y params) (update-in [index :params :c2y] + (:c2y params)))
content))]
(reduce red-fn content modifiers)))
(defn segments->content
([segments]
(segments->content segments false))