blob: 74f73e725210ca1ad399b1888cc183a66606c29e (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <pmset.h>
include <plio.h>
# PM_ACCESS -- Return a pointer (type short) to the indicated mask image
# line. A valid pointer is always returned; if the mask line is empty, the
# pointer will reference the "empty line" linelist.
pointer procedure pm_access (pl, v)
pointer pl #I mask descriptor
long v[PM_MAXDIM] #I coordinates of desired line
pointer pl_access()
include "pmio.com"
begin
if (PM_MAPXY(pl) == YES) {
call imaplv (PM_REFIM(pl), v, v1, PM_MAXDIM)
return (pl_access (pl, v1))
} else
return (pl_access (pl, v))
end
|
