github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-29 05:08:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

♻️ Add some small performance refactors

Browse Source
This commit is contained in:
Andrés Moya 2021-06-09 08:41:41 +02:00 committed by Alonso Torres
parent 092a973f9a
commit 69fe8bc9b5
3 changed files with 29 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
common/src/app/common/geom/matrix.cljc
View File

@ -48,6 +48,22 @@
([m1 m2 & others]
(reduce multiply (multiply m1 m2) others)))
(defn add-translate
"Given two TRANSLATE matrixes (only e and f have significative
values), combine them. Quicker than multiplying them, for this
precise case."
([{m1a :a m1b :b m1c :c m1d :d m1e :e m1f :f}
{m2a :a m2b :b m2c :c m2d :d m2e :e m2f :f}]
(Matrix.
1
0
0
1
(+ m1e m2e)
(+ m1f m2f)))
([m1 m2 & others]
(reduce add-translate (add-translate m1 m2) others)))
(defn substract
[{m1a :a m1b :b m1c :c m1d :d m1e :e m1f :f}
{m2a :a m2b :b m2c :c m2d :d m2e :e m2f :f}]

5
common/src/app/common/geom/shapes/rect.cljc
View File

@ -9,11 +9,6 @@
[app.common.geom.point :as gpt]
[app.common.geom.shapes.common :as gco]))
(defn left-of [rect] (:x rect))
(defn right-of [rect] (+ (:x rect) (:width rect)))
(defn top-of [rect] (:y rect))
(defn bottom-of [rect] (+ (:y rect) (:height rect)))
(defn rect->points [{:keys [x y width height]}]
;; (assert (number? x))
;; (assert (number? y))

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

@ -374,31 +374,31 @@
orig-h (when origin
(cond
(mth/close? (:x origin) (gpr/left-of parent-rect)) :left
(mth/close? (:x origin) (gpr/right-of parent-rect)) :right
(mth/close? (:x origin) (:x1 parent-rect)) :left
(mth/close? (:x origin) (:x2 parent-rect)) :right
:else :middle))
orig-v (when origin
(cond
(mth/close? (:y origin) (gpr/top-of parent-rect)) :top
(mth/close? (:y origin) (gpr/bottom-of parent-rect)) :bottom
(mth/close? (:y origin) (:y1 parent-rect)) :top
(mth/close? (:y origin) (:y2 parent-rect)) :bottom
:else :middle))
delta-h (when orig-h
(cond (= orig-h :left)
(- (gpr/right-of transformed-parent-rect) (gpr/right-of parent-rect))
(- (:x2 transformed-parent-rect) (:x2 parent-rect))
(= orig-h :right)
(- (gpr/left-of transformed-parent-rect) (gpr/left-of parent-rect))
(- (:x1 transformed-parent-rect) (:x1 parent-rect))
:else 0))
delta-v (when orig-v
(cond (= orig-v :top)
(- (gpr/bottom-of transformed-parent-rect) (gpr/bottom-of parent-rect))
(- (:y2 transformed-parent-rect) (:y2 parent-rect))
(= orig-v :bottom)
(- (gpr/top-of transformed-parent-rect) (gpr/top-of parent-rect))
(- (:y1 transformed-parent-rect) (:y1 parent-rect))
:else 0))
@ -418,13 +418,13 @@
:leftright
(cond (= orig-h :left)
{:resize-origin (gpt/point (gpr/left-of child-rect) (gpr/top-of child-rect))
{:resize-origin (gpt/point (:x1 child-rect) (:y1 child-rect))
:resize-vector (gpt/point (/ (+ (:width child-rect) delta-h)
(:width child-rect))
1)}
(= orig-h :right)
{:resize-origin (gpt/point (gpr/right-of child-rect) (gpr/top-of child-rect))
{:resize-origin (gpt/point (:x2 child-rect) (:y1 child-rect))
:resize-vector (gpt/point (/ (- (:width child-rect) delta-h)
(:width child-rect))
1)}
@ -455,13 +455,13 @@
:topbottom
(cond (= orig-v :top)
{:resize-origin (gpt/point (gpr/left-of child-rect) (gpr/top-of child-rect))
{:resize-origin (gpt/point (:x1 child-rect) (:y1 child-rect))
:resize-vector (gpt/point 1
(/ (+ (:height child-rect) delta-v)
(:height child-rect)))}
(= orig-v :bottom)
{:resize-origin (gpt/point (gpr/left-of child-rect) (gpr/bottom-of child-rect))
{:resize-origin (gpt/point (:x1 child-rect) (:y2 child-rect))
:resize-vector (gpt/point 1
(/ (- (:height child-rect) delta-v)
(:height child-rect)))}
@ -493,7 +493,7 @@
(:displacement parent-modifiers)
(update :displacement #(if (nil? %)
(:displacement parent-modifiers)
(gmt/multiply % (:displacement parent-modifiers)))))))
(gmt/add-translate % (:displacement parent-modifiers)))))))
(defn update-group-viewbox
"Updates the viewbox for groups imported from SVG's"