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

✨ Change modifiers to records

Browse source
This commit is contained in:
alonso.torres 2022-11-28 18:20:35 +01:00
parent 600f9ef071
commit c79d549f53
11 changed files with 436 additions and 268 deletions
Download patch file Download diff file Expand all files Collapse all files

123
common/test/common_tests/geom_point_test.cljc
View file

@ -6,6 +6,7 @@
(ns common-tests.geom-point-test
(:require
[app.common.math :as mth]
[app.common.geom.point :as gpt]
[clojure.test :as t]))
@ -14,32 +15,32 @@
p2 (gpt/point 2 3)
rs (gpt/add p1 p2)]
(t/is (gpt/point? rs))
(t/is (= 3 (:x rs)))
(t/is (= 5 (:y rs)))))
(t/is (mth/close? 3 (:x rs)))
(t/is (mth/close? 5 (:y rs)))))
(t/deftest substract-points
(let [p1 (gpt/point 1 2)
p2 (gpt/point 2 3)
rs (gpt/subtract p1 p2)]
(t/is (gpt/point? rs))
(t/is (= -1 (:x rs)))
(t/is (= -1 (:y rs)))))
(t/is (mth/close? -1 (:x rs)))
(t/is (mth/close? -1 (:y rs)))))
(t/deftest multiply-points
(let [p1 (gpt/point 1 2)
p2 (gpt/point 2 3)
rs (gpt/multiply p1 p2)]
(t/is (gpt/point? rs))
(t/is (= 2 (:x rs)))
(t/is (= 6 (:y rs)))))
(t/is (mth/close? 2 (:x rs)))
(t/is (mth/close? 6 (:y rs)))))
(t/deftest divide-points
(let [p1 (gpt/point 1 2)
p2 (gpt/point 2 5)
rs (gpt/divide p1 p2)]
(t/is (gpt/point? rs))
(t/is (= 0.5 (:x rs)))
(t/is (= 0.4 (:y rs)))))
(t/is (mth/close? 0.5 (:x rs)))
(t/is (mth/close? 0.4 (:y rs)))))
(t/deftest min-point
(let [p1 (gpt/point 1 2)
@ -49,19 +50,19 @@
(t/is (nil? rs)))
(let [rs (gpt/min p1)]
(t/is (= rs p1)))
(t/is (gpt/close? rs p1)))
(let [rs (gpt/min nil p1)]
(t/is (= rs p1)))
(t/is (gpt/close? rs p1)))
(let [rs (gpt/min p1 nil)]
(t/is (= rs p1)))
(t/is (gpt/close? rs p1)))
(let [rs (gpt/min p1 p2)]
(t/is (= rs p1)))
(t/is (gpt/close? rs p1)))
(let [rs (gpt/min p2 p1)]
(t/is (= rs p1)))
(t/is (gpt/close? rs p1)))
))
(t/deftest max-point
@ -72,140 +73,140 @@
(t/is (nil? rs)))
(let [rs (gpt/max p1)]
(t/is (= rs p1)))
(t/is (gpt/close? rs p1)))
(let [rs (gpt/max nil p1)]
(t/is (= rs p1)))
(t/is (gpt/close? rs p1)))
(let [rs (gpt/max p1 nil)]
(t/is (= rs p1)))
(t/is (gpt/close? rs p1)))
(let [rs (gpt/max p1 p2)]
(t/is (= rs p2)))
(t/is (gpt/close? rs p2)))
(let [rs (gpt/max p2 p1)]
(t/is (= rs p2)))
(t/is (gpt/close? rs p2)))
))
(t/deftest inverse-point
(let [p1 (gpt/point 1 2)
rs (gpt/inverse p1)]
(t/is (gpt/point? rs))
(t/is (= 1 (:x rs)))
(t/is (= 0.5 (:y rs)))))
(t/is (mth/close? 1 (:x rs)))
(t/is (mth/close? 0.5 (:y rs)))))
(t/deftest negate-point
(let [p1 (gpt/point 1 2)
rs (gpt/negate p1)]
(t/is (gpt/point? rs))
(t/is (= -1 (:x rs)))
(t/is (= -2 (:y rs)))))
(t/is (mth/close? -1 (:x rs)))
(t/is (mth/close? -2 (:y rs)))))
(t/deftest distance-between-two-points
(let [p1 (gpt/point 1 2)
p2 (gpt/point 4 6)
rs (gpt/distance p1 p2)]
(t/is (number? rs))
(t/is (= 5 rs))))
(t/is (mth/close? 5 rs))))
(t/deftest distance-vector-between-two-points
(let [p1 (gpt/point 1 2)
p2 (gpt/point 2 3)
rs (gpt/distance-vector p1 p2)]
(t/is (gpt/point? rs))
(t/is (= 1 (:x rs)))
(t/is (= 1 (:y rs)))))
(t/is (mth/close? 1 (:x rs)))
(t/is (mth/close? 1 (:y rs)))))
(t/deftest point-length
(let [p1 (gpt/point 1 10)
rs (gpt/length p1)]
(t/is (number? rs))
(t/is (= 10.04987562112089 rs))))
(t/is (mth/close? 10.04987562112089 rs))))
(t/deftest point-angle-1
(let [p1 (gpt/point 1 3)
rs (gpt/angle p1)]
(t/is (number? rs))
(t/is (= 71.56505117707799 rs))))
(t/is (mth/close? 71.56505117707799 rs))))
(t/deftest point-angle-2
(let [p1 (gpt/point 1 3)
p2 (gpt/point 2 4)
rs (gpt/angle p1 p2)]
(t/is (number? rs))
(t/is (= -135 rs))))
(t/is (mth/close? -135 rs))))
(t/deftest point-angle-with-other
(let [p1 (gpt/point 1 3)
p2 (gpt/point 1 5)
rs (gpt/angle-with-other p1 p2)]
(t/is (number? rs))
(t/is (= 7.125016348901757 rs))))
(t/is (mth/close? 7.125016348901757 rs))))
(t/deftest point-angle-sign
(let [p1 (gpt/point 1 3)
p2 (gpt/point 1 5)
rs (gpt/angle-sign p1 p2)]
(t/is (number? rs))
(t/is (= 1 rs)))
(t/is (mth/close? 1 rs)))
(let [p1 (gpt/point -11 -3)
p2 (gpt/point 1 5)
rs (gpt/angle-sign p1 p2)]
(t/is (number? rs))
(t/is (= -1 rs)))
(t/is (mth/close? -1 rs)))
)
(t/deftest update-angle
(let [p1 (gpt/point 1 3)
rs (gpt/update-angle p1 10)]
(t/is (gpt/point? rs))
(t/is (= 3.1142355569111246 (:x rs)))
(t/is (= 0.5491237529650835 (:y rs)))))
(t/is (mth/close? 3.1142355569111246 (:x rs)))
(t/is (mth/close? 0.5491237529650835 (:y rs)))))
(t/deftest point-quadrant
(let [p1 (gpt/point 1 3)
rs (gpt/quadrant p1)]
(t/is (number? rs))
(t/is (= 1 rs)))
(t/is (mth/close? 1 rs)))
(let [p1 (gpt/point 1 -3)
rs (gpt/quadrant p1)]
(t/is (number? rs))
(t/is (= 4 rs)))
(t/is (mth/close? 4 rs)))
(let [p1 (gpt/point -1 3)
rs (gpt/quadrant p1)]
(t/is (number? rs))
(t/is (= 2 rs)))
(t/is (mth/close? 2 rs)))
(let [p1 (gpt/point -1 -3)
rs (gpt/quadrant p1)]
(t/is (number? rs))
(t/is (= 3 rs)))
(t/is (mth/close? 3 rs)))
)
(t/deftest round-point
(let [p1 (gpt/point 1.34567 3.34567)
rs (gpt/round p1)]
(t/is (gpt/point? rs))
(t/is (= 1 (:x rs)))
(t/is (= 3 (:y rs))))
(t/is (mth/close? 1 (:x rs)))
(t/is (mth/close? 3 (:y rs))))
(let [p1 (gpt/point 1.34567 3.34567)
rs (gpt/round p1 2)]
(t/is (gpt/point? rs))
(t/is (= 1.35 (:x rs)))
(t/is (= 3.35 (:y rs))))
(t/is (mth/close? 1.35 (:x rs)))
(t/is (mth/close? 3.35 (:y rs))))
)
(t/deftest halft-round-point
(let [p1 (gpt/point 1.34567 3.34567)
rs (gpt/half-round p1)]
(t/is (gpt/point? rs))
(t/is (= 1.5 (:x rs)))
(t/is (= 3.5 (:y rs)))))
(t/is (mth/close? 1.5 (:x rs)))
(t/is (mth/close? 3.5 (:y rs)))))
(t/deftest transform-point
;;todo
@ -215,30 +216,30 @@
(let [p1 (gpt/point 1.5 3)
rs (gpt/scale p1 2)]
(t/is (gpt/point? rs))
(t/is (= 3 (:x rs)))
(t/is (= 6 (:y rs)))))
(t/is (mth/close? 3 (:x rs)))
(t/is (mth/close? 6 (:y rs)))))
(t/deftest dot-point
(let [p1 (gpt/point 1.5 3)
p2 (gpt/point 2 6)
rs (gpt/dot p1 p2)]
(t/is (number? rs))
(t/is (= 21 rs))))
(t/is (mth/close? 21 rs))))
(t/deftest unit-point
(let [p1 (gpt/point 2 3)
rs (gpt/unit p1)]
(t/is (gpt/point? rs))
(t/is (= 0.5547001962252291 (:x rs)))
(t/is (= 0.8320502943378437 (:y rs)))))
(t/is (mth/close? 0.5547001962252291 (:x rs)))
(t/is (mth/close? 0.8320502943378437 (:y rs)))))
(t/deftest project-point
(let [p1 (gpt/point 1 3)
p2 (gpt/point 1 6)
rs (gpt/project p1 p2)]
(t/is (gpt/point? rs))
(t/is (= 0.5135135135135135 (:x rs)))
(t/is (= 3.081081081081081 (:y rs)))))
(t/is (mth/close? 0.5135135135135135 (:x rs)))
(t/is (mth/close? 3.081081081081081 (:y rs)))))
(t/deftest center-points
(let [points [(gpt/point 0.5 0.5)
@ -246,22 +247,22 @@
(gpt/point 20 65.2)
(gpt/point 12 -10)]
rs (gpt/center-points points)]
(t/is (= 7.875 (:x rs)))
(t/is (= 13.425 (:y rs)))))
(t/is (mth/close? 7.875 (:x rs)))
(t/is (mth/close? 13.425 (:y rs)))))
(t/deftest normal-left-point
(let [p1 (gpt/point 2 3)
rs (gpt/normal-left p1)]
(t/is (gpt/point? rs))
(t/is (= -0.8320502943378437 (:x rs)))
(t/is (= 0.5547001962252291 (:y rs)))))
(t/is (mth/close? -0.8320502943378437 (:x rs)))
(t/is (mth/close? 0.5547001962252291 (:y rs)))))
(t/deftest normal-right-point
(let [p1 (gpt/point 2 3)
rs (gpt/normal-right p1)]
(t/is (gpt/point? rs))
(t/is (= 0.8320502943378437 (:x rs)))
(t/is (= -0.5547001962252291 (:y rs)))))
(t/is (mth/close? 0.8320502943378437 (:x rs)))
(t/is (mth/close? -0.5547001962252291 (:y rs)))))
(t/deftest point-line-distance
(let [p1 (gpt/point 2 -3)
@ -269,7 +270,7 @@
p3 (gpt/point 5 6)
rs (gpt/point-line-distance p1 p2 p3)]
(t/is (number? rs))
(t/is (= 7.58946638440411 rs))))
(t/is (mth/close? 7.58946638440411 rs))))
(t/deftest almost-zero-predicate
(let [p1 (gpt/point 0.000001 0.0000002)
@ -282,14 +283,14 @@
p2 (gpt/point 2 3)
rs (gpt/lerp p1 p2 2)]
(t/is (gpt/point? rs))
(t/is (= 3 (:x rs)))
(t/is (= 4 (:y rs)))))
(t/is (mth/close? 3 (:x rs)))
(t/is (mth/close? 4 (:y rs)))))
(t/deftest rotate-point
(let [p1 (gpt/point 1 2)
p2 (gpt/point 2 3)
rs (gpt/rotate p1 p2 11)]
(t/is (gpt/point? rs))
(t/is (= 1.2091818119288809 (:x rs)))
(t/is (= 1.8275638211757912 (:y rs)))))
(t/is (mth/close? 1.2091818119288809 (:x rs)))
(t/is (mth/close? 1.8275638211757912 (:y rs)))))

2
common/test/common_tests/geom_shapes_test.cljc
View file

@ -140,7 +140,7 @@
(t/testing "Transform shape with rotation modifiers"
(t/are [type]
(let [shape-before (create-test-shape type)
modifiers (ctm/rotation-modifiers shape-before (gsh/center-shape shape-before) 30 )
modifiers (ctm/rotation-modifiers shape-before (gsh/center-shape shape-before) 30)
shape-before (assoc shape-before :modifiers modifiers)
shape-after (gsh/transform-shape shape-before)]