5 #######################################################################
6 # BRepBuilderAPI_Sewing produces a shape with big tolerance
7 #######################################################################
11 restore [locate_data_file bug20904_face_bas.brep] a
13 set tolerance_in 1.e-6
14 set tolerance_out ${tolerance_in}
15 sewing result ${tolerance_in} a
17 set tolerance_list [maxtolerance result]
19 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxFaceTolerance
20 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxEdgeTolerance
21 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxVertexTolerance
25 if { ${MaxFaceTolerance} > ${tolerance_out} } {
27 puts "Max Face Tolerance is bad"
30 if { ${MaxEdgeTolerance} > ${tolerance_out} } {
32 puts "Max Edge Tolerance is bad"
35 if { ${MaxVertexTolerance} > ${tolerance_out} } {
37 puts "Max Vertex Tolerance is bad"
42 if { ${status} != 0 } {
43 puts "Faulty ${BugNumber}"
45 puts "OK ${BugNumber}"
48 checkmaxtol result -ref 9.9999999999999995e-008
49 checknbshapes result -shell 0
50 checkfreebounds result 2