0e94a94e |
1 | |
2 | puts "========================" |
3 | puts " OCC481 " |
4 | puts "========================" |
5 | puts "" |
6 | ########################################## |
7 | ##Attached shape could not be displayed in the Shading mode. |
8 | ########################################## |
9 | |
10 | restore [locate_data_file OCC481.rle] result |
352ffd73 |
11 | checkshape result |
0e94a94e |
12 | |
13 | tclean result |
14 | vinit |
15 | vdisplay result |
16 | vfit |
17 | vsetdispmode result 1 |
18 | |
19 | set tri 0 |
20 | set nod 0 |
21 | |
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 | if { $tri == 72 && $nod == 74 } { |
27 | puts " OCC481 : OK" |
28 | } else { |
29 | puts " OCC481 : Faulty" |
30 | } |
31 | |
32 | set square 314.159 |
33 | set 3dviewer 1 |