factor/extra/gml/test-geometry.gml

14 lines
367 B
Plaintext
Raw Normal View History

2013-06-18 19:42:13 -04:00
[(1,0,0)] [(1,0,0) (0,1,0) 0 rot_vec] test
[1] [(1,0,0) (0,1,0) 90 rot_vec (0,0,-1) approx-eq] test
[1] [(1,2,3) (0,1,0) 90 rot_vec (3,2,-1) approx-eq] test
[1]
[
(1,2,3) (4,5,6) normalize 45 rot_vec
(1.43574109907107,1.539329069804002,3.093398375782619) approx-eq
] test
"Make sure nothing is left on the stack after the test" print
count [exch] [0] test