Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-22 14:39:45 -05:00
Code Issues Activity

this not fine

Browse source
This commit is contained in:
Andrés Moya 2022-12-09 10:01:12 +01:00
parent a4916b8add
commit d145716e52
1 changed files with 26 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
frontend/src/app/main/data/workspace/modifiers.cljs
View file

@ -80,15 +80,15 @@
;shape-modif (-> modif-tree (:id main-shape) :modifiers)
orig (fn [obj] (gpt/point (:x obj) (:y obj)))
get-displacement (fn [shape]
;; Accumulate all :move modifiers of a shape
(let [modifiers (-> (get modif-tree (:id shape)) :modifiers)]
(reduce (fn [move modifier]
(if (= (:type modifier) :move)
(gpt/add move (:vector modifier))
move))
(gpt/point 0 0)
(:geometry-child modifiers))))
;; get-displacement (fn [shape]
;; ;; Accumulate all :move modifiers of a shape
;; (let [modifiers (-> (get modif-tree (:id shape)) :modifiers)]
;; (reduce (fn [move modifier]
;; (if (= (:type modifier) :move)
;; (gpt/add move (:vector modifier))
;; move))
;; (gpt/point 0 0)
;; (:geometry-child modifiers))))
;; Distance from main-root to copy-root
root-delta (gpt/subtract (orig copy-root) (orig main-root))
@ -97,9 +97,9 @@
root-displacement (gpt/subtract (orig (:modif-selrect main-root))
(orig (:selrect main-root)))
;; Displacement to apply to the copy shape
shape-displacement (gpt/subtract (get-displacement main-shape)
root-displacement)
;; ;; Displacement to apply to the copy shape
;; shape-displacement (gpt/subtract (get-displacement main-shape)
;; root-displacement)
copy-rotation (fn [acc shape]
(let [modifiers (-> (get modif-tree (:id shape)) :modifiers)]
@ -114,14 +114,24 @@
acc))
acc
(:geometry-child modifiers))))
copy-move (fn [acc shape]
(let [modifiers (-> (get modif-tree (:id shape)) :modifiers)]
(reduce (fn [acc modifier]
(if (= (:type modifier) :move)
(let [vector (:vector modifier)]
(ctm/move acc (gpt/subtract vector root-displacement)))
acc))
acc
(:geometry-child modifiers))))
]
(debug/logjs "root-delta" root-delta)
(debug/logjs "root-displacement" root-displacement)
(debug/logjs "shape-displacement (antes)" (get-displacement main-shape))
(debug/logjs "shape-displacement" shape-displacement)
(-> (ctm/empty)
;; (ctm/rotation center rotation)
(ctm/move shape-displacement)
;; (ctm/move shape-displacement)
(copy-rotation main-shape)
(copy-move main-shape)
(vary-meta assoc :copied-modifier? true))))
;; $$ algoritmo tipo component sync (reposicionando la shape)
@ -247,6 +257,7 @@
;; %% (assoc :rotation (:rotation (get-in modifiers [(:id main-shape-modif) :modifiers])))
;; %% )
]
(debug/logjs "new modifiers" modifiers)
(if (seq modifiers)
(assoc-in modif-tree [(:id copy-shape) :modifiers] modifiers)
modif-tree)))