mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
41 lines
1.0 KiB
Plaintext
Executable File
41 lines
1.0 KiB
Plaintext
Executable File
puts "========================"
|
|
puts "OCC24390"
|
|
puts "========================"
|
|
puts ""
|
|
#######################################################################
|
|
# Sewing produces the result with huge tolerance
|
|
#######################################################################
|
|
|
|
pload XSDRAW
|
|
|
|
restore [locate_data_file bug24390_face1.brep] f1
|
|
restore [locate_data_file bug24390_face2.brep] f2
|
|
|
|
sewing result f1 f2
|
|
|
|
checkshape result
|
|
|
|
set tolmax_f [tolmax f1]
|
|
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full CMP_TOL
|
|
|
|
set face_list {f2}
|
|
foreach f ${face_list} {
|
|
set tolmax_f [tolmax ${f}]
|
|
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full FaceMaxTolerance
|
|
if { ${FaceMaxTolerance} > ${CMP_TOL} } {
|
|
set CMP_TOL ${FaceMaxTolerance}
|
|
}
|
|
}
|
|
|
|
set CMP_TOL [expr 5. * ${CMP_TOL}]
|
|
puts "CMP_TOL=${CMP_TOL}"
|
|
|
|
set tolmaxres [tolmax result]
|
|
regexp {max tol = ([-0-9.+eE]+)} ${tolmaxres} full MaxTolerance
|
|
puts "MaxTolerance=${MaxTolerance}"
|
|
if { ${MaxTolerance} > ${CMP_TOL} } {
|
|
puts "Error: invalid tolerance"
|
|
}
|
|
|
|
set 2dviewer 1
|