mirror of
https://github.com/penpot/penpot.git
synced 2025-06-14 14:41:38 +02:00
🐛 Fix problem when flipping a mask
This commit is contained in:
parent
ab7683f1e3
commit
4e1eb2d6e9
1 changed files with 14 additions and 28 deletions
|
@ -754,16 +754,9 @@
|
||||||
selected (wsh/lookup-selected state {:omit-blocked? true})
|
selected (wsh/lookup-selected state {:omit-blocked? true})
|
||||||
shapes (map #(get objects %) selected)
|
shapes (map #(get objects %) selected)
|
||||||
selrect (gsh/selection-rect shapes)
|
selrect (gsh/selection-rect shapes)
|
||||||
origin (gpt/point (:x selrect) (+ (:y selrect) (/ (:height selrect) 2)))
|
center (gsh/center-selrect selrect)
|
||||||
|
modifiers (dwm/create-modif-tree selected (ctm/resize-modifiers (gpt/point -1.0 1.0) center))]
|
||||||
modif-tree (dwm/create-modif-tree
|
(rx/of (dwm/apply-modifiers {:modifiers modifiers}))))))
|
||||||
selected
|
|
||||||
(-> (ctm/empty)
|
|
||||||
(ctm/resize (gpt/point -1.0 1.0) origin)
|
|
||||||
(ctm/move (gpt/point (:width selrect) 0))))]
|
|
||||||
|
|
||||||
(rx/of (dwm/set-modifiers modif-tree true)
|
|
||||||
(dwm/apply-modifiers))))))
|
|
||||||
|
|
||||||
(defn flip-vertical-selected []
|
(defn flip-vertical-selected []
|
||||||
(ptk/reify ::flip-vertical-selected
|
(ptk/reify ::flip-vertical-selected
|
||||||
|
@ -773,13 +766,6 @@
|
||||||
selected (wsh/lookup-selected state {:omit-blocked? true})
|
selected (wsh/lookup-selected state {:omit-blocked? true})
|
||||||
shapes (map #(get objects %) selected)
|
shapes (map #(get objects %) selected)
|
||||||
selrect (gsh/selection-rect shapes)
|
selrect (gsh/selection-rect shapes)
|
||||||
origin (gpt/point (+ (:x selrect) (/ (:width selrect) 2)) (:y selrect))
|
center (gsh/center-selrect selrect)
|
||||||
|
modifiers (dwm/create-modif-tree selected (ctm/resize-modifiers (gpt/point 1.0 -1.0) center))]
|
||||||
modif-tree (dwm/create-modif-tree
|
(rx/of (dwm/apply-modifiers {:modifiers modifiers}))))))
|
||||||
selected
|
|
||||||
(-> (ctm/empty)
|
|
||||||
(ctm/resize (gpt/point 1.0 -1.0) origin)
|
|
||||||
(ctm/move (gpt/point 0 (:height selrect)))))]
|
|
||||||
|
|
||||||
(rx/of (dwm/set-modifiers modif-tree true)
|
|
||||||
(dwm/apply-modifiers))))))
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue