blob: 9372f85f1b41fb3c77621f097dc3ef03427d796c (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gescape.h>
# GIM_CREATERASTER -- Create, recreate, or resize a raster.
procedure gim_createraster (gp, raster, type, width, height, depth)
pointer gp #I graphics descriptor
int raster #I raster number (0 is display window)
int type #I raster type (normal,ximage,pixmap)
int width #I raster width in pixels
int height #I raster height in pixels
int depth #I raster depth, bits per pixel
short gim[GIM_CREATERASTER_LEN]
begin
gim[GIM_CREATERASTER_RN] = raster
gim[GIM_CREATERASTER_RT] = type
gim[GIM_CREATERASTER_NX] = width
gim[GIM_CREATERASTER_NY] = height
gim[GIM_CREATERASTER_BP] = depth
call gescape (gp, GIM_CREATERASTER, gim, GIM_CREATERASTER_LEN)
end
|
