blob: 2d2454e05298a235d12bc4f3c1b364a50f8f4ab4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <imhdr.h>
include <imio.h>
include <plset.h>
# PLF_CLOSE -- Close a mask image.
procedure plf_close (im, status)
pointer im #I image descriptor
int status #O output status
begin
if (IM_PFD(im) != NULL)
call close (IM_PFD(im))
if (and (IM_PLFLAGS(im), PL_CLOSEPL) != 0)
call pl_close (IM_PL(im))
IM_PL(im) = NULL
end
|
