Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-13 08:11:30 -05:00
Code Issues Activity

Add append operation to matrix ns.

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

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

@ -92,3 +92,27 @@
:ty (+ (:ty m) (* (:x pt) (:c m)) (* (:y pt) (:d m))))))
([m x y]
(translate m (gpt/point x y))))
(defn append
([m om]
(let [a1 (:a m)
b1 (:b m)
c1 (:c m)
d1 (:d m)
a2 (:a om)
b2 (:b om)
c2 (:c om)
d2 (:d om)
tx1 (:tx m)
ty1 (:ty m)
tx2 (:tx om)
ty2 (:ty om)]
(Matrix.
(+ (* a2 a1) (* c2 b1))
(+ (* b2 a1) (* d2 b1))
(+ (* a2 c1) (* c2 d1))
(+ (* b2 c1) (* d2 d1))
(+ tx1 (* tx2 a1) (* ty2 b1))
(+ ty1 (* tx2 c1) (* ty2 d1)))))
([m om & others]
(reduce append (append m om) others)))