blob: fa830e4dae212be86f18ac210efdb6ac976aae2d (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gki.h>
include <gset.h>
include "imd.h"
# IMD_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 imd_reset()
pointer pl, pm, fa, tx
include "imd.com"
begin
# Set pointers to attribute substructures.
pl = IMD_PLAP(g_kt)
pm = IMD_PMAP(g_kt)
fa = IMD_FAAP(g_kt)
tx = IMD_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.
IMD_TYPE(g_kt) = -1
IMD_WIDTH(g_kt) = -1
IMD_COLOR(g_kt) = -1
IMD_TXSIZE(g_kt) = -1
IMD_TXFONT(g_kt) = -1
end
|
