puts "========================"
puts " OCC547 "
puts "(case 1)"
puts "========================"
puts ""
####################################
## Big tolerance after commmand fixshape r a 1.e-7 1
####################################

cpulimit 3000

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

fixshape result a 1.e-7 1

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

