From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- sys/gio/gim/gimsetras.x | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 sys/gio/gim/gimsetras.x (limited to 'sys/gio/gim/gimsetras.x') 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 + +# 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 -- cgit