0e94a94e |
1 | |
2 | puts "================= OCC291 ===================" |
3 | |
4 | ################################################################# |
5 | ## Some triangles of shading mesh are outside of shape boundaries. (See attached shape). |
6 | ################################################################# |
7 | |
8 | restore [locate_data_file shading_171.brep] result |
352ffd73 |
9 | checkshape result |
0e94a94e |
10 | |
11 | tclean result |
12 | vinit |
13 | vdisplay result |
14 | vsetdispmode result 1 |
82cbc512 |
15 | vfit |
0e94a94e |
16 | |
17 | isos result 0 |
18 | triangles result |
19 | |
20 | set tri 0 |
21 | set nod 0 |
22 | set tri_info [trinfo result] |
23 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
24 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
25 | |
26 | #$tri == 395 && $nod == 350,aki251103. |
27 | if { $tri == 382 && $nod == 343 } { |
28 | puts " Warning: OCC291 looks like OK, but visual checking is required !" |
29 | } else { |
30 | puts " Shady OCC291 : nb tri & nod changed" |
31 | } |
32 | |
33 | set square 376.873 |
82cbc512 |
34 | set only_screen 1 |
35 | |