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" } set 2dviewer 1