5 ###############################
6 ## 0026675: Eliminate normalization of coordinates in ApproxInt package
7 ###############################
14 intersect res ss_1 ss_2
17 set ind [string first "3d curve" $che]
19 #Only variable "res" exists
26 while { $AllowRepeate != 0 } {
27 set che [whatis res_$ic]
28 set ind [string first "3d curve" $che]
39 if {[dval U2-U1] < 1.0e-20} {
40 puts "Error: Wrong curve's range!"
43 xdistcs res_$ic ss_1 U1 U2 10 4.6e-6
44 xdistcs res_$ic ss_2 U1 U2 10 4.3e-6
50 if {[expr {$ic - 1}] == $GoodNbCurv} {
51 puts "OK: Curve Number is good!"
53 puts "Error: Curve Number is bad!"
58 checkview -screenshot -2d -path ${imagedir}/${test_image}.png