1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-07-30 13:05:50 +03:00
occt/tests/bugs/modalg_2/bug22804
ski cd718a73c7 0027145: Remove redundant usage of GetPercent procedure
Usage of GetPercent procedure was replaced by checkreal procedure.
2016-02-12 00:04:29 +03:00

37 lines
1.1 KiB
Plaintext
Executable File

puts "========================"
puts "OCC22804"
puts "========================"
puts ""
#######################################################################
# Sewing increases tolerance of vertices for redundant value.
#######################################################################
set BugNumber OCC22804
catch {pload XDE}
restore [locate_data_file OCC22804-sew_bug.brep] a
set tol 200
sewing result ${tol} a
set ToleranceList [tolerance result]
regexp {Tolerance MAX=([-0-9.+eE]+)} $ToleranceList full oTolerance
regexp {FACE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full FaceTolerance
regexp {EDGE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full EdgeTolerance
regexp {VERTEX[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full VertexTolerance
set minTolerance ${EdgeTolerance}
if { ${minTolerance} > ${VertexTolerance} } {
set minTolerance $(VertexTolerance)
}
checkreal "Min tolerance" ${minTolerance} ${oTolerance} 0 0.001
checkmaxtol result -ref 2279.641703013865
checknbshapes result -shell 1
checkfreebounds result 5
checkprops result -s 1.80934e+009
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png