1 ## ==================================
2 ## File : End file for FEAT grids
4 ## ==================================
6 if { [isdraw result] } {
7 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
9 #check if result is valid
10 puts [checkshape result]
12 puts "Error : The feat grid is not valid. The area is 0."
16 puts "The expected area is $square"
18 #check of change of square is < 1%
19 if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
20 puts "Error : The area of the resulting shape is $m"
27 xwd $imagedir/${test_image}.png
30 puts "Error : The feat grid cannot be built."
33 # to end a test script