a87752f3 |
1 | puts "========================" |
2 | puts "BUC61000" |
3 | puts " OCC364 " |
4 | puts "========================" |
5 | puts "" |
6 | ############################################## |
7 | ## Face is invisible in the shading mode in the 3D View. |
8 | ############################################## |
9 | |
10 | restore [locate_data_file OCC364.brep] result |
352ffd73 |
11 | checkshape result |
a87752f3 |
12 | |
13 | tclean result |
14 | isos result 0 |
15 | vinit |
16 | vdisplay result |
17 | vsetdispmode result 1 |
18 | vfit |
19 | triangles result |
20 | |
21 | set info [trinfo result] |
22 | regexp { +([-0-9.+eE]+) +triangles} $info full tri |
23 | regexp { +([-0-9.+eE]+) +nodes} $info full nod |
24 | |
25 | if { $tri != 84 || $nod != 84 } { |
26 | puts "Faulty OCC364: here is shading problem" |
27 | } else { |
28 | puts "Shading of OCC364 is OK" |
29 | } |
30 | |
31 | set only_screen 1 |
32 | |
33 | |
34 | |