#check if result is valid
puts [checkshape result]
if { $m == 0 } {
- puts "Error : The feat is not valid. The square is 0."
+ puts "Error : The feat grid is not valid. The area is 0."
}
if { $square > 0 } {
- puts "The expected square is $square"
+ puts "The expected area is $square"
}
#check of change of square is < 1%
- if { ($square != 0 && [expr abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
- puts "Error : The square of reult shape is $m"
+ if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
+ puts "Error : The area of the resulting shape is $m"
}
if { $m > 0 } {
clear
smallview
donly result
fit
- xwd $imagedir/${test_image}.gif
+ xwd $imagedir/${test_image}.png
}
} else {
- puts "Error : The feat can not be build."
+ puts "Error : The feat grid cannot be built."
}
# to end a test script