Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-24 23:49:45 -05:00
Code Issues Activity

Fix bugs on scale and rotate opetation over matrix.

Browse source
This commit is contained in:
Andrey Antukh 2016-02-06 17:38:06 +02:00
parent 5df6e6397d
commit 9bfe24e477
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/uxbox/util/geom/matrix.cljs
View file

@ -62,25 +62,26 @@
y (:y center)
cos (mth/cos angle)
sin (mth/sin angle)
nsin (mth/neg sin)
tx (+ (- x (* x cos)) (* y sin))
ty (- (- y (* x sin)) (* y cos))
nsin (- sin)
tx (- x (+ (* x cos)) (* y sin))
ty (- y (- (* x sin)) (* y cos))
a (+ (* cos (:a m)) (* sin (:b m)))
b (+ (* nsin (:a m)) (* cos (:b m)))
c (+ (* cos (:c m)) (* sin (:d m)))
d (+ (* nsin (:c m)) (* cos (:d m)))
tx' (+ (:tx m) (* tx (:a m)) (* tx (:b m)))
tx' (+ (:tx m) (* tx (:a m)) (* ty (:b m)))
ty' (+ (:ty m) (* tx (:c m)) (* ty (:d m)))]
(Matrix. a b c d tx ty))))
(Matrix. a b c d tx' ty'))))
(defn scale
"Apply scale transformation to the matrix."
[m v]
(assoc m
:a (* (:a m) v)
:c (* (:c m) v)
:b (* (:b m) v)
:d (* (:d m) v)))
([m v] (scale m v v))
([m x y]
(assoc m
:a (* (:a m) x)
:c (* (:c m) x)
:b (* (:b m) y)
:d (* (:d m) y))))
(defn translate
"Apply translate transformation to the matrix."