blob: a756a2356f387a8f7e9218b04211826183b4c575 (
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
30
31
32
33
34
35
36
37
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gio.h>
include <gescape.h>
# GIM_IOMAPWRITE -- Write to the iomap. The iomap maps client pixel values
# (colors) to gterm widget pixel value (widget colormap indices). The iomap
# should be set only if the client application does not use the gterm widget
# color model. iomap[i] gives the widget colormap index corresponding to
# client pixel I.
procedure gim_iomapwrite (gp, iomap, first, nelem)
pointer gp #I graphics descriptor
int iomap[ARB] #I iomap data
int first #I first iomap entry to be written
int nelem #I number of elements to write
pointer sp, data
short gim[GIM_WRITEIOMAP_LEN]
errchk gpl_flush
begin
call gpl_flush()
call smark (sp)
call salloc (data, nelem, TY_SHORT)
gim[GIM_WRITEIOMAP_FC] = first
gim[GIM_WRITEIOMAP_NC] = nelem
call achtis (iomap, Mems[data], nelem)
call gki_wescape (GP_FD(gp), GIM_WRITEIOMAP,
gim, GIM_WRITEIOMAP_LEN, Mems[data], nelem)
call sfree (sp)
end
|
