1 puts "========================"
3 puts "========================"
5 #######################################################################
6 # Sewing increases tolerance of vertices for redundant value.
7 #######################################################################
13 restore [locate_data_file OCC22804-sew_bug.brep] a
16 sewing result ${tol} a
18 set ToleranceList [tolerance result]
19 regexp {Tolerance MAX=([-0-9.+eE]+)} $ToleranceList full oTolerance
20 regexp {FACE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full FaceTolerance
21 regexp {EDGE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full EdgeTolerance
22 regexp {VERTEX[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full VertexTolerance
26 proc GetPercent {Value GoodValue} {
28 if {${GoodValue} != 0.} {
29 set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
30 } elseif {${Value} != 0.} {
31 set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
39 set minTolerance ${EdgeTolerance}
40 if { ${minTolerance} > ${VertexTolerance} } {
41 set minTolerance $(VertexTolerance)
44 set minTolerance_percent [GetPercent ${minTolerance} ${oTolerance}]
45 puts "minTolerance_percent = ${minTolerance_percent} %"
46 if { ${minTolerance_percent} > ${percent_max} } {
51 puts "${BugNumber}: Faulty"
53 puts "${BugNumber}: OK"
56 set square 1.22542e+09