mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
24 lines
666 B
Plaintext
Executable File
24 lines
666 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC24107"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# BRepAlgo::ConcatenateWireC0 method doesn't work on a translated wire
|
|
#######################################################################
|
|
|
|
restore [locate_data_file bug24107_wire.brep] w
|
|
|
|
concatC0wire result w
|
|
|
|
checkshape result
|
|
|
|
set tolmax_w [tolmax w]
|
|
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_w} full CMP_TOL
|
|
|
|
set tolmax_result [tolmax result]
|
|
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_result} full MaxTolerance
|
|
|
|
if { ${MaxTolerance} > [expr 2 * ${CMP_TOL}] } {
|
|
puts "Error: invalid tolerance of result wire"
|
|
}
|