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
