blob: efb5add5f24d8593b181be20fa04949594ab35b8 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gescape.h>
# GIM_SETRASTER -- Set the raster to be used as the coordinate system for
# graphics drawing operations. A setraster for raster N causes subsequent
# drawing operations to be drawn using any raster-to-screen mappings defined
# for raster N. A setraster to raster=0 restores the normal semantics of
# drawing directly to the screen with no additional transformations.
# Applications which use gim_setraster to draw graphics or text overlays on
# a raster should always restore the raster to zero when done so that
# subsequent drawing operations (e.g., in cursor mode) behave normally.
# The setraster is not reset automatically except in a screen clear.
#
# NOTE - Most applications should use gseti(gp,G_RASTER,n) instead of the
# lower level gim_setraster.
procedure gim_setraster (gp, raster)
pointer gp #I graphics descriptor
int raster #I raster number
short gim[GIM_SETRASTER_LEN]
begin
gim[GIM_SETRASTER_RN] = raster
call gescape (gp, GIM_SETRASTER, gim, GIM_SETRASTER_LEN)
end
|
