a87752f3 |
1 | puts "================" |
2 | puts "BUC61047" |
3 | puts "OCC344" |
4 | puts "================" |
5 | puts "" |
6 | |
7 | ############################################# |
8 | ## An exception - <access violation> is raised during visualization. |
9 | ############################################# |
10 | |
11 | restore [locate_data_file OCC344.brep] result |
12 | puts [checkshape result] |
13 | tclean result |
14 | |
15 | vinit |
16 | vdisplay result |
17 | vsetdispmode result 1 |
18 | vfit |
19 | vclear |
20 | isos result 0 |
21 | triangles result |
22 | |
23 | set info [trinfo result] |
24 | regexp { +([-0-9.+eE]+) +triangles} $info full tri |
25 | regexp { +([-0-9.+eE]+) +nodes} $info full nod |
26 | |
27 | if { $tri == 9 && $nod == 8 } { |
28 | puts "Warning OCC344: here is shading problem" |
29 | } else { |
30 | puts "Shading of OCC344 looks like OK, but visual checking is required" |
31 | } |
32 | |
f1aa2b62 |
33 | set 3dviewer 1 |
34 | |
a87752f3 |
35 | |
36 | |