puts "TODO CR30351 Windows: Faulty OCC25199: Bad tolerance edge generated by blend algorithm" puts "TODO CR33225 Linux: Faulty OCC25199: Bad tolerance edge generated by blend algorithm" puts "============" puts "OCC25199" puts "============" puts "" ############################################################################################### # Bad tolerance edge generated by blend algorithm ############################################################################################### restore [locate_data_file OCC615.brep] a checkshape a explode a e if [catch {blend result a 9 a_15 } catch_result] { puts "Faulty OCC615: function BLEND works with exception" } else { puts "OCC615 OK: function CHAMF works OK" } explode result E regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result_21] full MaxTol_1 puts "MaxTolerance = $MaxTol_1" set MaxTol 5.e-7 if { $MaxTol_1 > $MaxTol } { puts "Faulty OCC25199: Bad tolerance edge generated by blend algorithm" } else { puts "OCC25199 OK: Good tolerance edge generated by blend algorithm" } checkprops result -s 197055. checkshape result checkview -display result -2d -path ${imagedir}/${test_image}.png