1 puts "================"
3 puts "================"
5 #######################################################################
6 # BRepAlgo::ConcatenateWireC0 method doesn't work on a translated wire
7 #######################################################################
9 restore [locate_data_file bug24107_wire.brep] w
15 set tolmax_w [tolmax w]
16 regexp {max tol = ([-0-9.+eE]+)} ${tolmax_w} full CMP_TOL
18 set tolmax_result [tolmax result]
19 regexp {max tol = ([-0-9.+eE]+)} ${tolmax_result} full MaxTolerance
21 if { ${MaxTolerance} > [expr 2 * ${CMP_TOL}] } {
22 puts "Error: invalid tolerance of result wire"