steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use ${ in some nurbs tests

db4
Doug Coleman 2009-05-28 18:57:49 -05:00
parent bbf0a8d266
commit 553fd8aa15
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/nurbs/nurbs-tests.factor
View File

@ -11,13 +11,13 @@ CONSTANT: -√2/2 $[ 0.5 sqrt neg ]
! unit circle as NURBS
3 {
{ 1.0 0.0 1.0 }
{ $ √2/2 $ √2/2 $ √2/2 }
${ √2/2 √2/2 √2/2 }
{ 0.0 1.0 1.0 }
{ $ -√2/2 $ √2/2 $ √2/2 }
${ -√2/2 √2/2 √2/2 }
{ -1.0 0.0 1.0 }
{ $ -√2/2 $ -√2/2 $ √2/2 }
${ -√2/2 -√2/2 √2/2 }
{ 0.0 -1.0 1.0 }
{ $ √2/2 $ -√2/2 $ √2/2 }
${ √2/2 -√2/2 √2/2 }
{ 1.0 0.0 1.0 }
} { 0.0 0.0 0.0 0.25 0.25 0.5 0.5 0.75 0.75 1.0 1.0 1.0 } <nurbs-curve> test-nurbs set
@ -26,7 +26,7 @@ CONSTANT: -√2/2 $[ 0.5 sqrt neg ]
[ t ] [ test-nurbs get 0.5 eval-nurbs { -1.0 0.0 } 0.00001 v~ ] unit-test
[ t ] [ test-nurbs get 0.75 eval-nurbs { 0.0 -1.0 } 0.00001 v~ ] unit-test
[ t ] [ test-nurbs get 0.125 eval-nurbs { $ √2/2 $ √2/2 } 0.00001 v~ ] unit-test
[ t ] [ test-nurbs get 0.375 eval-nurbs { $ -√2/2 $ √2/2 } 0.00001 v~ ] unit-test
[ t ] [ test-nurbs get 0.625 eval-nurbs { $ -√2/2 $ -√2/2 } 0.00001 v~ ] unit-test
[ t ] [ test-nurbs get 0.875 eval-nurbs { $ √2/2 $ -√2/2 } 0.00001 v~ ] unit-test
[ t ] [ test-nurbs get 0.125 eval-nurbs ${ √2/2 √2/2 } 0.00001 v~ ] unit-test
[ t ] [ test-nurbs get 0.375 eval-nurbs ${ -√2/2 √2/2 } 0.00001 v~ ] unit-test
[ t ] [ test-nurbs get 0.625 eval-nurbs ${ -√2/2 -√2/2 } 0.00001 v~ ] unit-test
[ t ] [ test-nurbs get 0.875 eval-nurbs ${ √2/2 -√2/2 } 0.00001 v~ ] unit-test