johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-12 06:24:17 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

🐛 Fix vertical flip for nested shapes

Browse Source
This commit is contained in:
Andrés Moya
2021-10-25 17:54:06 +02:00
parent 55784f64b8
commit 75c8d97a6e
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
common/src/app/common/geom/shapes/transforms.cljc
View File

@@ -220,7 +220,6 @@
"Given a new set of points transformed, set up the rectangle so it keeps "Given a new set of points transformed, set up the rectangle so it keeps
its properties. We adjust de x,y,width,height and create a custom transform" its properties. We adjust de x,y,width,height and create a custom transform"
[shape transform round-coords?] [shape transform round-coords?]
;;
(let [points (-> shape :points (gco/transform-points transform)) (let [points (-> shape :points (gco/transform-points transform))
center (gco/center-points points) center (gco/center-points points)
@@ -445,8 +444,10 @@
transform)) transform))
(defn- set-flip [shape modifiers] (defn- set-flip [shape modifiers]
(let [rx (get-in modifiers [:resize-vector :x]) (let [rx (or (get-in modifiers [:resize-vector :x])
ry (get-in modifiers [:resize-vector :y])] (get-in modifiers [:resize-vector-2 :x]))
ry (or (get-in modifiers [:resize-vector :y])
(get-in modifiers [:resize-vector-2 :y]))]
(cond-> shape (cond-> shape
(and rx (< rx 0)) (-> (update :flip-x not) (and rx (< rx 0)) (-> (update :flip-x not)
(update :rotation -)) (update :rotation -))