Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / fra62476_2
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 
11 puts [checkshape result]
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