8b794093dc48973e5f2e8301c3aa0850e1fdca05
[occt.git] / tests / bugs / modalg_2 / bug22804
1 puts "========================"
2 puts "OCC22804"
3 puts "========================"
4 puts ""
5 #######################################################################
6 # Sewing increases tolerance of vertices for redundant value.
7 #######################################################################
8
9 set BugNumber OCC22804
10
11 catch {pload XDE}
12
13 restore [locate_data_file OCC22804-sew_bug.brep] a 
14
15 set tol 200
16 sewing result ${tol} a
17
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
23
24 set minTolerance ${EdgeTolerance}
25 if { ${minTolerance}  > ${VertexTolerance} } {
26    set minTolerance ${VertexTolerance}
27 }
28
29
30 checkreal "Min tolerance" ${minTolerance} ${oTolerance} 0 0.001
31 checkmaxtol result -ref 2352.4465999220711
32 checknbshapes result -shell 1
33 checkfreebounds result 5
34
35 checkprops result -s 1.80934e+009
36 checkshape result
37 checkview -display result -2d -path ${imagedir}/${test_image}.png