3bea4c16 |
1 | puts "============" |
2 | puts "OCC20373" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Shading doesn't work on b-spline sphere |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC20373 |
10 | |
11 | restore [locate_data_file OCC20373.brep] result |
12 | |
13 | vinit |
14 | vdisplay result |
15 | vsetdispmode 1 |
16 | vfit |
17 | |
18 | set tri_info [trinfo result] |
19 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
20 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
21 | |
22 | puts [format " tri= %s noe= %s " $tri $nod] |
23 | |
24 | # Resume |
25 | puts "" |
26 | if { ${tri} == 0 } { |
27 | puts "Faulty ${BugNumber}" |
28 | } else { |
29 | puts "OK ${BugNumber}" |
30 | } |
31 | |
32 | set square 9.92128e+06 |
33 | set 3dviewer 1 |
34 | |