7ff41a41ab14629c81b83c365b61a20eaa5ad89d
[occt.git] / tests / bugs / moddata_1 / buc60707
1
2 puts "==========="
3 puts "BUC60707"
4 puts "==========="
5 puts ""
6 #################################################
7 ## Fillets created in CasCade version 3 do not display as shaded surfaces. 
8 #################################################
9 restore [locate_data_file buc60707a.brep] result
10 checkshape result
11
12 tclean result
13 incmesh result .1
14 triangles result
15 set info [trinfo result]
16 regexp { +([-0-9.+eE]+) +triangles} $info full Maxtriangl
17
18 if { $Maxtriangl < 1 } {
19    puts "Error : inside mesh for shading wasn't build"
20 }
21
22 checkview -display result -3d -path ${imagedir}/${test_image}.png