0027015: Sewing returns invalid shape if some faces are nearly plane cones
[occt.git] / tests / bugs / modalg_2 / bug22804
CommitLineData
3bea4c16 1puts "========================"
2puts "OCC22804"
3puts "========================"
4puts ""
5#######################################################################
6# Sewing increases tolerance of vertices for redundant value.
7#######################################################################
8
9set BugNumber OCC22804
10
11catch {pload XDE}
12
13restore [locate_data_file OCC22804-sew_bug.brep] a
14
15set tol 200
16sewing result ${tol} a
17
18set ToleranceList [tolerance result]
19regexp {Tolerance MAX=([-0-9.+eE]+)} $ToleranceList full oTolerance
20regexp {FACE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full FaceTolerance
21regexp {EDGE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full EdgeTolerance
22regexp {VERTEX[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full VertexTolerance
23
3bea4c16 24set minTolerance ${EdgeTolerance}
25if { ${minTolerance} > ${VertexTolerance} } {
52db4751 26 set minTolerance ${VertexTolerance}
3bea4c16 27}
28
52db4751 29
cd718a73 30checkreal "Min tolerance" ${minTolerance} ${oTolerance} 0 0.001
52db4751 31checkmaxtol result -ref 2352.4465999220711
5ae01c85 32checknbshapes result -shell 1
33checkfreebounds result 5
34
58cf74e0 35checkprops result -s 1.80934e+009
36checkshape result
5747059b 37checkview -display result -2d -path ${imagedir}/${test_image}.png