regexp { *VERTEX +: +MAX=([-0-9.+eE]+)} $tolerance full maxv
if { [info exists MaxFTol ] } {
- if { $MaxFTol != 0 && $maxf > $MaxFTol && [expr abs($MaxFTol - $maxf)/$MaxFTol] > 0.01 } {
+ if { $MaxFTol != 0 && $maxf > $MaxFTol && [expr 1.*abs($MaxFTol - $maxf)/$MaxFTol] > 0.01 } {
puts "Error : Result shape is WRONG. MAX tolerance of FACE should be equal $MaxFTol instead of $maxf"
} elseif { $MaxFTol == 0 && $maxf != 0 } {
puts "Error : Result shape is WRONG."
}
if { [info exists MaxETol ] } {
- if { $MaxETol != 0 && $maxe > $MaxETol && [expr abs($MaxETol - $maxe)/$MaxETol] > 0.01 } {
+ if { $MaxETol != 0 && $maxe > $MaxETol && [expr 1.*abs($MaxETol - $maxe)/$MaxETol] > 0.01 } {
puts "Error : Result shape is WRONG. MAX tolerance of EDGE should be equal $MaxETol instead of $maxe"
} elseif { $MaxETol == 0 && $maxe != 0 } {
puts "Error : Result shape is WRONG."
}
if { [info exists MaxVTol ] } {
- if { $MaxVTol != 0 && $maxv > $MaxVTol && [expr abs($MaxVTol - $maxv)/$MaxVTol] > 0.01 } {
+ if { $MaxVTol != 0 && $maxv > $MaxVTol && [expr 1.*abs($MaxVTol - $maxv)/$MaxVTol] > 0.01 } {
puts "Error : Result shape is WRONG. MAX tolerance of VERTEX should be equal $MaxVTol instead of $maxv"
} elseif { $MaxVTol == 0 && $maxv != 0 } {
puts "Error : Result shape is WRONG."