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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gset.h>
include <gio.h>
include <gki.h>
include "gtr.h"
# GTR_INIT -- Initialize the GIOTR data structures for a graphics stream. These
# data structures are initialized only once, when the first i/o occurs on the
# stream. Thereafter our only function is to fault the workstation
# transformation parameters into the cache (the gtr common).
pointer procedure gtr_init (stream)
int stream # graphics stream
int i, len_fb, len_sb
pointer tr, tx, ap, w
bool first_time
int btoi(), envgeti()
data first_time /true/
errchk calloc, malloc
include "gtr.com"
begin
if (first_time) {
call amovki (NULL, trdes, MAX_PSEUDOFILES)
tr_stream = NULL
first_time = false
}
tr = trdes[stream]
if (tr == NULL) {
# This is the first time the stream has been accessed.
# Allocate descriptor.
call calloc (tr, LEN_TRSTRUCT, TY_STRUCT)
# Don't need a frame buffer for STDPLOT, but make a dummy one
# anyhow so that the stream looks like the interactive ones.
if (stream == STDPLOT) {
len_fb = 1
len_sb = 1
} else {
len_fb = DEF_LENFRAMEBUF
len_sb = DEF_LENSCRATCHBUF
}
call malloc (TR_FRAMEBUF(tr), len_fb, TY_SHORT)
call malloc (TR_SCRATCHBUF(tr), len_sb, TY_SHORT)
trdes[stream] = tr
TR_IP(tr) = TR_FRAMEBUF(tr)
TR_OP(tr) = TR_FRAMEBUF(tr)
TR_OPSB(tr) = TR_SCRATCHBUF(tr)
TR_LENFRAMEBUF(tr) = len_fb
TR_LENSCRATCHBUF(tr) = len_sb
TR_SPOOLDATA(tr) = btoi (stream != STDPLOT)
TR_WAITPAGE(tr) = NO
TR_PAGE(tr) = YES
# Set text drawing attributes for annotating plots.
tx = TR_TXAP(tr)
TX_UP(tx) = 90
TX_SIZE(tx) = 1.0
TX_PATH(tx) = GT_RIGHT
TX_SPACING(tx) = 0
TX_HJUSTIFY(tx) = GT_LEFT
TX_VJUSTIFY(tx) = GT_BOTTOM
TX_FONT(tx) = GT_ROMAN
TX_QUALITY(tx) = GT_NORMAL
TX_COLOR(tx) = 1
# Set default polyline attributes for axis drawing.
ap = TR_PLAP(tr)
PL_LTYPE(ap) = GL_SOLID
PL_WIDTH(ap) = 1.0
PL_COLOR(ap) = 1
# The user can override the default maximum frame buffer length
# if they wish, permitting spooling of frames of any size.
iferr (TR_MAXLENFRAMEBUF(tr) = envgeti ("cmbuflen"))
TR_MAXLENFRAMEBUF(tr) = DEF_MAXLENFRAMEBUF
if (tr_stream != NULL) {
# Save the workstation transformation parameters for the
# stream currently in the cache, if any.
call amovi (startcom, TR_GTRCOM(trdes[tr_stream]), LEN_GTRCOM)
call amovi (TR_GTRCOM(tr), startcom, LEN_GTRCOM)
}
# Initialize the transformation parameters for the new stream.
tr_stream = stream
xscale = 1.0
yscale = 1.0
mx2 = GKI_MAXNDC
my2 = GKI_MAXNDC
vx2 = 1.0
vy2 = 1.0
# Initialize the WCS in case someone tries to read the cursor
# before there are any graphics.
do i = 1, MAX_WCS {
w = TR_WCSPTR(tr,i)
WCS_SX1(w) = 0.0
WCS_SX2(w) = 1.0
WCS_SY1(w) = 0.0
WCS_SY2(w) = 1.0
WCS_WX1(w) = 0.0
WCS_WX2(w) = 1.0
WCS_WY1(w) = 0.0
WCS_WY2(w) = 1.0
}
} else if (stream != tr_stream) {
# The stream has already been initialized.
# If the cache is currently validated for some different stream
# move the data for that stream out into its descriptor.
if (tr_stream != NULL)
call amovi (startcom, TR_GTRCOM(trdes[tr_stream]), LEN_GTRCOM)
# Load the data for the new stream into the cache.
call amovi (TR_GTRCOM(tr), startcom, LEN_GTRCOM)
tr_stream = stream
}
return (tr)
end
|
