blob: 56914746eee8a65261d4b94aed4f9b8c8390c766 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gescape.h>
# GIM_RASTERINIT -- Initialize the Gterm widget imaging subsystem. Destroys
# any existing rasters, mappings, and dynamic colors.
procedure gim_rasterinit (gp)
pointer gp #I graphics descriptor
begin
call gescape (gp, GIM_RASTERINIT, 0, GIM_RASTERINIT_LEN)
end
|
