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
55
56
57
58
59
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gki.h>
include <gset.h>
include "gkt.h"
# GKT_RESET -- Reset the state of the transform 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 gkt_reset()
pointer pl, pm, fa, tx
include "gkt.com"
begin
# Set pointers to attribute substructures.
pl = GKT_PLAP(g_kt)
pm = GKT_PMAP(g_kt)
fa = GKT_FAAP(g_kt)
tx = GKT_TXAP(g_kt)
# Initialize the attribute packets.
PL_LTYPE(pl) = 1
PL_WIDTH(pl) = GKI_PACKREAL(1.)
PL_COLOR(pl) = 1
PM_LTYPE(pm) = 1
PM_WIDTH(pm) = GKI_PACKREAL(1.)
PM_COLOR(pm) = 1
FA_STYLE(fa) = 1
FA_COLOR(fa) = 1
TX_UP(tx) = 90
TX_SIZE(tx) = GKI_PACKREAL(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.
GKT_TYPE(g_kt) = -1
GKT_WIDTH(g_kt) = -1
GKT_COLOR(g_kt) = -1
GKT_TXSIZE(g_kt) = -1
GKT_TXFONT(g_kt) = -1
# Reset the nspp common.
call z8zpii()
# If cellarray allowed, reset pixel size to standard one.
if (GKT_CELLARRAY(g_kt) != 0)
call pixel0 (1,0,1,0,1,1)
end
|
