blob: 871cdca119502cdf24619d046d9eba84db320e3c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <imhdr.h>
include <imset.h>
include <imio.h>
# IMSTATR -- Get the real value of an IMIO parameter.
real procedure imstatr (im, param)
pointer im #I image descriptor
int param #I parameter to be set
int value
int imstati()
errchk imstati
begin
switch (param) {
case IM_BNDRYPIXVAL:
return (IM_OOBPIX(im))
default:
value = imstati (im, param)
if (IS_INDEFI (value))
return (INDEFR)
else
return (value)
}
end
|
