0e94a94e |
1 | |
2 | puts "========================" |
3 | puts " OCC292 " |
4 | puts "========================" |
5 | puts "" |
6 | ################################################################# |
7 | ## Attached face looks as unclosed but command "checkshape" concludes that it is valid. Inspite of that, |
8 | ## mesh for shading is not creating on this face. |
9 | ################################################################# |
10 | |
11 | restore [locate_data_file OCC292.brep] result |
352ffd73 |
12 | checkshape result |
0e94a94e |
13 | |
14 | tclean result |
15 | vinit |
16 | vdisplay result |
17 | vsetdispmode result 1 |
18 | |
19 | isos result 0 |
20 | triangles result |
21 | |
22 | set tri 0 |
23 | set nod 0 |
24 | set tri_info [trinfo result] |
25 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
26 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
27 | if { $tri ==6 && $nod == 8} { |
28 | puts " Warning: OCC292 looks like OK, but visual checking is required !!!!" |
29 | } else { |
30 | puts " OCC292 : Faulty" |
31 | } |
32 | |
0e94a94e |
33 | set square 1.3135 |
82cbc512 |
34 | set 3dviewer 1 |
35 | |
0e94a94e |
36 | |