5 #######################################################################
6 # BRepBuilderAPI_Sewing produces a shape with big tolerance
7 #######################################################################
11 restore [locate_data_file bug20904_Shell_argument.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]
18 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxFaceTolerance
19 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxEdgeTolerance
20 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxVertexTolerance
24 if { ${MaxFaceTolerance} > ${tolerance_out} } {
26 puts "Max Face Tolerance is bad"
29 if { ${MaxEdgeTolerance} > ${tolerance_out} } {
31 puts "Max Edge Tolerance is bad"
34 if { ${MaxVertexTolerance} > ${tolerance_out} } {
36 puts "Max Vertex Tolerance is bad"
41 if { ${status} != 0 } {
42 puts "Faulty ${BugNumber}"
44 puts "OK ${BugNumber}"
47 set square 1.33253e+06