blob: 0f2fd1e254ec65afcc30223e1b15d5d84dcafbbd (
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gset.h>
include "stdgraph.h"
# STG_RESET -- Reset the state of the stdgraph common, i.e., in response to
# a clear or a cancel. Initialize all attribute packets to their default
# values and set the current state of the device to undefined, forcing the
# device state to be reset when the next output instruction is executed.
procedure stg_reset()
pointer pl, pm, fa, tx
include "stdgraph.com"
begin
# Set pointers to attribute substructures.
pl = SG_PLAP(g_sg)
pm = SG_PMAP(g_sg)
fa = SG_FAAP(g_sg)
tx = SG_TXAP(g_sg)
# Initialize the attribute packets.
PL_LTYPE(pl) = 1
PL_WIDTH(pl) = 1
PL_COLOR(pl) = 1
PM_COLOR(pm) = 1
FA_STYLE(fa) = 1
FA_COLOR(fa) = 1
TX_UP(tx) = 90
TX_SIZE(tx) = 1
TX_PATH(tx) = GT_RIGHT
TX_HJUSTIFY(tx) = GT_LEFT
TX_VJUSTIFY(tx) = GT_BOTTOM
TX_FONT(tx) = GT_ROMAN
TX_COLOR(tx) = 1
TX_SPACING(tx) = 0.0
# Set the device attributes to undefined, forcing them to be reset
# when the next output instruction is executed.
SG_COLOR(g_sg) = -1
SG_TXSIZE(g_sg) = -1
SG_TXFONT(g_sg) = -1
SG_PLTYPE(g_sg) = -1
SG_FASTYLE(g_sg) = -1
SG_PLWIDTH(g_sg) = -1
g_lastx = -1
g_lasty = -1
g_keycol = 1
g_keyline = 1
g_message = NO
g_msglen = 0
end
|
