a87752f3 |
1 | puts "========================" |
2 | puts " BUC60977 " |
3 | puts " OCC358 " |
4 | puts "========================" |
5 | ##### |
6 | puts "The helical pipe is not shaded in AISViewer" |
7 | ##### |
8 | |
9 | restore [locate_data_file OCC358a.brep] f |
352ffd73 |
10 | checkshape f |
a87752f3 |
11 | |
12 | restore [locate_data_file OCC358b.brep] w |
352ffd73 |
13 | checkshape w |
a87752f3 |
14 | |
15 | pipe result w f |
16 | |
17 | vinit |
18 | vdisplay result |
19 | vfit |
20 | vsetdispmode result 1 |
21 | # checkshape res |
22 | # maxtolerance res |
23 | |
24 | set tri 0 |
25 | set nod 0 |
26 | |
27 | set tri_info [trinfo result] |
28 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
29 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
30 | |
31 | if { $tri == 12966 && $nod == 6896} { |
32 | puts " OCC358 looks like OK" |
33 | } else { |
34 | puts [format " tri= %s nod= %s " $tri $nod] |
35 | puts " OCC358 : Shady (bad shading)" |
36 | } |
37 | |
38 | set square 24861.2 |
39 | set 2dviewer 0 |
40 | |