aboutsummaryrefslogtreecommitdiff
path: root/sys/gio/nsppkern/gktreset.x
blob: 6e34cec4e7ceb307ffd767a2016829d3095047f9 (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
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