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
30
31
32
33
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <imhdr.h>
include <imio.h>
# IMPGS? -- Put a general section of a specific datatype.
pointer procedure impgs$t (imdes, vs, ve, ndim)
pointer imdes
long vs[IM_MAXDIM], ve[IM_MAXDIM]
pointer bp, imgobf()
int ndim
extern imfls$t()
errchk imflush, imgobf
begin
# Flush the output buffer, if appropriate. IMFLUSH calls
# one of the IMFLS? routines, which write out the section.
if (IM_FLUSH(imdes) == YES)
call zcall1 (IM_FLUSHEPA(imdes), imdes)
# Get an (output) buffer to put the pixels into. Save the
# section parameters in the image descriptor. Save the epa
# of the typed flush procedure in the image descriptor.
bp = imgobf (imdes, vs, ve, ndim, TY_PIXEL)
call zlocpr (imfls$t, IM_FLUSHEPA(imdes))
IM_FLUSH(imdes) = YES
return (bp)
end
|
