mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
fb60057d23
Command tolmax was removed. Tcl command checkmaxtol is used now in test cases to check maximum tolerance. Reference values in test cases were updated.
54 lines
1.4 KiB
Plaintext
Executable File
54 lines
1.4 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC20904"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# BRepBuilderAPI_Sewing produces a shape with big tolerance
|
|
#######################################################################
|
|
|
|
set BugNumber OCC20904
|
|
|
|
restore [locate_data_file bug20904_face_bas.brep] a
|
|
restore [locate_data_file bug20904_Shell_argument.brep] b
|
|
|
|
set tolerance_in 1.e-6
|
|
set tolerance_out 1.e-5
|
|
sewing result ${tolerance_in} a b
|
|
|
|
set tolerance_list [maxtolerance result]
|
|
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxFaceTolerance
|
|
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxEdgeTolerance
|
|
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxVertexTolerance
|
|
|
|
set status 0
|
|
|
|
if { ${MaxFaceTolerance} > ${tolerance_out} } {
|
|
set status 1
|
|
puts "Max Face Tolerance is bad"
|
|
}
|
|
|
|
if { ${MaxEdgeTolerance} > ${tolerance_out} } {
|
|
set status 1
|
|
puts "Max Edge Tolerance is bad"
|
|
}
|
|
|
|
if { ${MaxVertexTolerance} > ${tolerance_out} } {
|
|
set status 1
|
|
puts "Max Vertex Tolerance is bad"
|
|
}
|
|
|
|
# Resume
|
|
puts ""
|
|
if { ${status} != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|
|
checkmaxtol result -ref 4.8601049330873404e-006
|
|
checknbshapes result -shell 1
|
|
checkfreebounds result 5
|
|
|
|
set square 1.36261e+06
|
|
set 2dviewer 0
|