1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
procedure qstatistics (images)
begin
string tmp
tmp = mktemp ("uparm$tmp")
#quadsections (image, window=window, section="", template="",
#xskip1=INDEF, xskip2=INDEF, xtrim1=INDEF, xtrim2=INDEF, ytrim1=INDEF,
#ytrim2=INDEF, >> tmp)
quadsections (image, window=window, section="", template="", >> tmp)
# Calculate image statistics
imstatistics ("@"//tmp, fields=fields, lower=lower, upper=upper,
binwidth=binwidth, format=format)
delete (tmp, ver-)
end
|
