0e94a94e |
1 | puts "TODO OCC12345 ALL: Faulty BUC61057: here can be shading problem" |
2 | |
3 | puts "================" |
4 | puts "BUC61057" |
5 | puts "OCC109" |
6 | puts "================" |
7 | puts "" |
8 | ########################################################## |
9 | ## Visualisation of the attached shape is wrong in the shading mode. |
10 | ########################################################## |
11 | |
12 | restore [locate_data_file OCC109.brep] result |
13 | |
352ffd73 |
14 | checkshape result |
0e94a94e |
15 | |
16 | vinit |
17 | tclean result |
18 | vdisplay result |
19 | vsetdispmode result 1 |
20 | vfit |
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 != 294 && $nod != 300 } { |
27 | puts "Faulty BUC61057: here can be shading problem" |
28 | } else { |
29 | puts "Shading of BUC61057 is OK" |
30 | } |
31 | |
32 | set square 33.8757 |
82cbc512 |
33 | set only_screen 1 |
34 | |