4e14c88f |
1 | puts "============" |
2 | puts "OCC26675" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## 0026675: Eliminate normalization of coordinates in ApproxInt package |
7 | ############################### |
8 | |
9 | set GoodNbCurv 1 |
10 | |
11 | pload QAcommands |
12 | OCC26675_1 ss |
13 | |
14 | intersect res ss_1 ss_2 |
15 | |
16 | set che [whatis res] |
17 | set ind [string first "3d curve" $che] |
18 | if {${ind} >= 0} { |
19 | #Only variable "res" exists |
20 | renamevar res res_1 |
21 | } |
22 | |
23 | |
24 | set ic 1 |
25 | set AllowRepeate 1 |
26 | while { $AllowRepeate != 0 } { |
27 | set che [whatis res_$ic] |
28 | set ind [string first "3d curve" $che] |
29 | if {${ind} < 0} { |
30 | set AllowRepeate 0 |
31 | } else { |
32 | display res_$ic |
33 | |
34 | bounds res_$ic U1 U2 |
35 | |
36 | dval U1 |
37 | dval U2 |
38 | |
39 | if {[dval U2-U1] < 1.0e-20} { |
40 | puts "Error: Wrong curve's range!" |
41 | } |
42 | |
43 | xdistcs res_$ic ss_1 U1 U2 10 4.6e-6 |
44 | xdistcs res_$ic ss_2 U1 U2 10 4.3e-6 |
45 | |
46 | incr ic |
47 | } |
48 | } |
49 | |
50 | if {[expr {$ic - 1}] == $GoodNbCurv} { |
51 | puts "OK: Curve Number is good!" |
52 | } else { |
53 | puts "Error: Curve Number is bad!" |
54 | } |
55 | |
56 | smallview |
57 | fit |
5747059b |
58 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |