blob: bf8181ed0fcd36c75948cc1b54836e340fe81baa (
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 <gio.h>
# GFRINIT -- Initialize the internal state variables of GIO for a new frame.
# The state of all the attribute packets is set to UNSET to force them to be
# retransmitted to the graphics kernel when i/o occurs.
procedure gfrinit (gp)
pointer gp # graphics descriptor
pointer ap
begin
# Force retransmission of the WCS.
GP_WCSSTATE(gp) = UNSET
# Force retransmission of the attribute packets.
ap = GP_PLAP(gp); PL_STATE(ap) = UNSET
ap = GP_PMAP(gp); PM_STATE(ap) = UNSET
ap = GP_FAAP(gp); FA_STATE(ap) = UNSET
ap = GP_TXAP(gp); TX_STATE(ap) = UNSET
ap = GP_TXAPCUR(gp); TX_STATE(ap) = UNSET
call gpl_reset()
end
|
