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