2017-11-21 14:01:31 +03:00
|
|
|
(load "Test.carp")
|
|
|
|
(load "Vector.carp")
|
|
|
|
(load "Geometry.carp")
|
|
|
|
|
2017-12-12 17:08:33 +03:00
|
|
|
(use-all Test Vector3 Geometry Double)
|
2017-10-24 15:46:01 +03:00
|
|
|
|
|
|
|
(defn main []
|
|
|
|
(with-test test
|
2017-12-28 19:22:25 +03:00
|
|
|
(assert-equal test
|
|
|
|
&(init 0.0 0.0 0.0) &(zero)
|
|
|
|
"zero works")
|
2017-10-24 15:46:01 +03:00
|
|
|
(assert-equal test
|
|
|
|
&(init 1.0 2.0 3.0) &(init 1.0 2.0 3.0)
|
2017-11-25 21:19:15 +03:00
|
|
|
"= operator works")
|
|
|
|
(assert-op test
|
|
|
|
&(init 1.0 2.0 3.0) &(init 1.0 1.0 3.0)
|
|
|
|
"/= operator works"
|
|
|
|
Vector3./=)
|
2017-10-24 15:46:01 +03:00
|
|
|
(assert-equal test
|
|
|
|
&(init 3.0 3.0 4.5)
|
2017-12-13 13:10:42 +03:00
|
|
|
&(add &(init 2.0 1.0 2.0) &(init 1.0 2.0 2.5))
|
|
|
|
"add operator works")
|
2017-10-24 15:46:01 +03:00
|
|
|
(assert-equal test
|
|
|
|
&(init 1.0 -1.0 -1.5)
|
2017-12-13 13:10:42 +03:00
|
|
|
&(sub &(init 2.0 1.0 2.0) &(init 1.0 2.0 3.5))
|
|
|
|
"sub operator works")
|
2017-10-24 15:46:01 +03:00
|
|
|
(assert-equal test
|
|
|
|
&(init 4.0 2.0 2.2)
|
2017-12-13 13:10:42 +03:00
|
|
|
&(mul &(init 2.0 1.0 1.1) 2.0)
|
|
|
|
"mul operator works")
|
2017-10-24 15:46:01 +03:00
|
|
|
(assert-equal test
|
|
|
|
&(init 1.0 0.5 0.25)
|
2017-12-13 13:10:42 +03:00
|
|
|
&(div &(init 2.0 1.0 0.5) 2.0)
|
|
|
|
"div operator works")
|
2017-10-24 15:46:01 +03:00
|
|
|
(assert-equal test
|
|
|
|
5.0
|
|
|
|
(mag &(init 3.0 4.0 0.0))
|
2017-11-25 21:19:15 +03:00
|
|
|
"mag works")
|
2017-10-24 15:46:01 +03:00
|
|
|
(assert-equal test
|
|
|
|
101.0
|
|
|
|
(mag-sq &(init 10.0 1.0 0.0))
|
2017-11-25 21:19:15 +03:00
|
|
|
"mag-sq works")
|
2017-10-24 15:46:01 +03:00
|
|
|
(assert-equal test
|
|
|
|
&(init 0.6 0.8 0.0)
|
|
|
|
&(normalize &(init 3.0 4.0 0.0))
|
2017-11-25 21:19:15 +03:00
|
|
|
"normalize works")
|
|
|
|
(assert-op test
|
|
|
|
90.0
|
|
|
|
(radians-to-degree (angle-between &(init 1.0 0.0 0.0)
|
|
|
|
&(init 0.0 1.0 0.0)))
|
|
|
|
"angle-between works"
|
|
|
|
Double.approx)
|
2017-12-28 19:44:20 +03:00
|
|
|
(assert-true test
|
|
|
|
(anti-parallel? &(init 1.0 0.0 0.0) &(init -1.0 0.0 0.0))
|
|
|
|
"anti-parallel? works")
|
|
|
|
(assert-true test
|
|
|
|
(parallel? &(init 1.0 0.0 0.0) &(init 1.0 0.0 0.0))
|
|
|
|
"parallel? works")
|
|
|
|
(assert-true test
|
|
|
|
(perpendicular? &(init 1.0 0.0 0.0) &(init 0.0 1.0 0.0))
|
|
|
|
"perpendicular? works")
|
2017-10-24 15:46:01 +03:00
|
|
|
(assert-equal test
|
2017-10-25 14:45:46 +03:00
|
|
|
53.0
|
2017-10-24 15:46:01 +03:00
|
|
|
(dot &(init 10.0 2.0 3.0) &(init 2.0 12.0 3.0))
|
2017-11-25 21:19:15 +03:00
|
|
|
"dot works")
|
2017-10-24 17:21:38 +03:00
|
|
|
(assert-equal test
|
2017-10-25 14:45:46 +03:00
|
|
|
&(init 2.5 5.0 0.75)
|
2017-10-24 17:21:38 +03:00
|
|
|
&(lerp &(init 0.0 0.0 0.5) &(init 5.0 10.0 2.0) 0.5)
|
2017-11-25 21:19:15 +03:00
|
|
|
"lerp works")
|
2017-10-24 15:46:01 +03:00
|
|
|
))
|