diff options
Diffstat (limited to 'sys/gio/gim/gimsetras.x')
| -rw-r--r-- | sys/gio/gim/gimsetras.x | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/sys/gio/gim/gimsetras.x b/sys/gio/gim/gimsetras.x new file mode 100644 index 00000000..efb5add5 --- /dev/null +++ b/sys/gio/gim/gimsetras.x @@ -0,0 +1,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 |