0e94a94e |
1 | puts "TODO OCC12345 ALL: Error : here is shading problem" |
2 | |
3 | puts "============" |
4 | puts "FRA62476" |
5 | puts "" |
6 | puts "==================================" |
7 | puts "It takes visual check for this BUG" |
8 | puts "==================================" |
9 | puts "" |
10 | |
11 | restore [locate_data_file fra62476a.brep] result |
352ffd73 |
12 | checkshape result |
0e94a94e |
13 | |
14 | tclean result |
15 | incmesh result .1 |
16 | triangles result |
17 | |
18 | set info [trinfo result] |
19 | regexp { +([-0-9.+eE]+) +triangles} $info full tri |
20 | regexp { +([-0-9.+eE]+) +nodes} $info full nod |
21 | |
22 | if { $tri != 93 && $nod != 56 } { |
23 | puts "Error : here is shading problem" |
24 | } |
25 | |
26 | set 3dviewer 0 |
27 | |
28 | |
29 | |