blob: aba16f97c79deff6b26f0e5f15e2db33ce007baf (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "idb.h"
# IMGETB -- Get an image header parameter of type boolean. False is returned
# if the parameter cannot be found or if the value is not true.
bool procedure imgetb (im, key)
pointer im # image descriptor
char key[ARB] # parameter to be returned
pointer rp
pointer idb_findrecord()
begin
if (idb_findrecord (im, key, rp) == 0)
return (false)
else
return (Memc[rp+IDB_ENDVALUE-1] == 'T')
end
|
