puts "TODO OCC12345 ALL: Error : Tolerance invalid. Function FixShape works WRONGLY" puts "========================" puts " OCC547 " puts "(case 2)" puts "========================" puts "" ################################## ## Big tolerance after "sewing" with tolearnce 0.5 ################################## restore [locate_data_file OCC547.brep] a set tol1 [maxtolerance a] regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full face1 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full edge1 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full vert1 sewing result a 0.5 a set tol2 [ maxtolerance result] regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full face2 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full edge2 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full vert2 if { ${face2} > ${face1} || ${edge2} > ${edge1} || ${vert2} > ${vert1} } { puts "Error : Tolerance invalid. Function FixShape works WRONGLY" } else { puts "Tolerance valed. Function FixShape works CORRECTLY" } checkmaxtol result -ref 1.59071e+000 checknbshapes result -shell 1 checkfreebounds result 227 checkview -display result -2d -path ${imagedir}/${test_image}.png