1 ! Copyright (C) 2009 Joe Groff.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: math.vectors.homogeneous tools.test ;
4 IN: math.vectors.homogeneous.tests
6 { { 1.0 2.0 1.0 } } [ { 1.0 0.0 1.0 } { 0.0 2.0 1.0 } h+ ] unit-test
7 { { 1.0 -2.0 1.0 } } [ { 1.0 0.0 1.0 } { 0.0 2.0 1.0 } h- ] unit-test
8 { { 2.0 2.0 2.0 } } [ { 1.0 0.0 1.0 } { 0.0 2.0 2.0 } h+ ] unit-test
9 { { 1.0 2.0 2.0 } } [ { 1.0 0.0 2.0 } { 0.0 2.0 2.0 } h+ ] unit-test
11 { { 2.0 4.0 2.0 } } [ 2.0 { 1.0 2.0 2.0 } n*h ] unit-test
12 { { 2.0 4.0 2.0 } } [ { 1.0 2.0 2.0 } 2.0 h*n ] unit-test
14 { { 0.5 1.5 } } [ { 1.0 3.0 2.0 } h>v ] unit-test
15 { { 0.5 1.5 1.0 } } [ { 0.5 1.5 } v>h ] unit-test
16 { { 0.5 1.5 1.0 } } [ { 0.5 1.5 } v>h ] unit-test