5 #######################################################################
6 # BRepBuilderAPI_Sewing produces a shape with big tolerance
7 #######################################################################
11 restore [locate_data_file bug20904_face_bas.brep] a
12 restore [locate_data_file bug20904_Shell_argument.brep] b
14 set tolerance_in 1.e-6
15 set tolerance_out 1.e-5
16 sewing result ${tolerance_in} a b
18 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 set square 1.36261e+06