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

✨ Improve scale matrix computation

Browse source
This commit is contained in:
Aitor 2023-03-14 11:24:15 +01:00
parent 4eeef41ed4
commit b9559d99da
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
common/src/app/common/geom/matrix.cljc
View file

@ -187,10 +187,11 @@
(defn scale-matrix (defn scale-matrix
([pt center] ([pt center]
(-> (matrix) (let [sx (dm/get-prop pt :x)
(multiply! (translate-matrix center)) sy (dm/get-prop pt :y)
(multiply! (scale-matrix pt)) cx (dm/get-prop center :x)
(multiply! (translate-matrix (gpt/negate center))))) cy (dm/get-prop center :y)]
(Matrix. sx 0 0 sy (- cx (* cx sx)) (- cy (* cy sy)))))
([pt] ([pt]
(assert (gpt/point? pt)) (assert (gpt/point? pt))
(Matrix. (dm/get-prop pt :x) 0 0 (dm/get-prop pt :y) 0 0))) (Matrix. (dm/get-prop pt :x) 0 0 (dm/get-prop pt :y) 0 0)))