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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include <ctype.h>
include <gki.h>
include "ccp.h"
# CCP_INIT -- Initialize the CCP data structures from the graphcap entry
# for the plotter. Called once, at OPENWS time, with the TTY pointer already
# set in the common. The companion routine CCP_RESET initializes the attribute
# packets.
procedure ccp_init (tty, devname)
pointer tty # graphcap descriptor
char devname[ARB] # device name
pointer nextch
int maxch, i
real char_height, char_width, char_size, xres, yres, xwidth, yheight
real mper_punit
bool ttygetb()
real ttygetr()
int ttygeti(), btoi(), gstrcpy()
include "ccp.com"
begin
# Allocate the CCP descriptor, string buffer, and x,y segment buffers.
if (g_cc == NULL) {
call calloc (g_cc, LEN_CCP, TY_STRUCT)
call malloc (CCP_SBUF(g_cc), SZ_SBUF, TY_CHAR)
}
# Init string buffer parameters. The first char of the string buffer
# is reserved as a null string, used for graphcap control strings
# omitted from the graphcap entry for the device.
CCP_SZSBUF(g_cc) = SZ_SBUF
CCP_NEXTCH(g_cc) = CCP_SBUF(g_cc) + 1
Memc[CCP_SBUF(g_cc)] = EOS
# Get the device resolution, dimensions in meters, and meter-to-pltr
# unit conversion factor from graphcap; if none are specified, use
# compile-time constants.
xres = ttygeti (tty, "xr")
if (xres <= 0)
xres = GKI_MAXNDC
yres = ttygeti (tty, "yr")
if (yres <= 0)
yres = GKI_MAXNDC
xwidth = ttygetr (tty, "xs")
if (xwidth <= 0.0)
xwidth = MAX_PL_XWIDTH
yheight = ttygetr (tty, "ys")
if (yheight <= 0.0)
yheight = MAX_PL_YHEIGHT
mper_punit = ttygetr (tty, "MP")
if (mper_punit <= 0.0)
mper_punit = DEF_MPER_PUNIT
# Set up coordinate transformation if not explicitly specified to
# kernel task at run time. Scale determined from graphcap is saved
# in case ccp_escape gets a metacode scale it cannot translate.
# Set up default scale such that a full max_gki_ndc plot will fit in y.
g_ydefault_scale = yheight / (mper_punit * GKI_MAXNDC)
if (IS_INDEF (g_ytask_scale))
g_yndcto_p = g_ydefault_scale
g_xdefault_scale = xwidth / (mper_punit * GKI_MAXNDC)
if (IS_INDEF (g_xtask_scale))
g_xndcto_p = g_xdefault_scale
# Initialize the character scaling parameters, required for text
# generation. The heights are given in NDC units in the graphcap
# file, which we convert to GKI units. Estimated values are
# supplied if the parameters are missing in the graphcap entry.
char_height = ttygetr (tty, "ch")
if (char_height < EPSILON)
char_height = 1.0 / 35.0
char_height = char_height * GKI_MAXNDC
char_width = ttygetr (tty, "cw")
if (char_width < EPSILON)
char_width = 1.0 / 80.0
char_width = char_width * GKI_MAXNDC
# If the plotter has a set of discrete character sizes, get the
# size of each by fetching the parameter "tN", where the N is
# a digit specifying the text size index. Compute the height and
# width of each size character from the "ch" and "cw" parameters
# and the relative scale of character size I.
CCP_NCHARSIZES(g_cc) = min (MAX_CHARSIZES, ttygeti (tty, "th"))
nextch = CCP_NEXTCH(g_cc)
if (CCP_NCHARSIZES(g_cc) <= 0) {
CCP_NCHARSIZES(g_cc) = 1
CCP_CHARSIZE(g_cc,1) = 1.0
CCP_CHARHEIGHT(g_cc,1) = char_height
CCP_CHARWIDTH(g_cc,1) = char_width
} else {
Memc[nextch+2] = EOS
for (i=1; i <= CCP_NCHARSIZES(g_cc); i=i+1) {
Memc[nextch] = 't'
Memc[nextch+1] = TO_DIGIT(i)
char_size = ttygetr (tty, Memc[nextch])
CCP_CHARSIZE(g_cc,i) = char_size
CCP_CHARHEIGHT(g_cc,i) = char_height * char_size
CCP_CHARWIDTH(g_cc,i) = char_width * char_size
}
}
# Get dash length, gap length, and n-tracing separation width:
if (IS_INDEF (g_dashlen)) {
g_dashlen = ttygetr (tty, "DL")
if (g_dashlen <= 0.0)
g_dashlen = DEF_DASHLEN
}
if (IS_INDEF (g_gaplen)) {
g_gaplen = ttygetr (tty, "GL")
if (g_gaplen <= 0.0)
g_gaplen = DEF_GAPLEN
}
if (IS_INDEF (g_plwsep)) {
g_plwsep = ttygetr (tty, "PW")
if (g_plwsep <= 0.0)
g_plwsep = DEF_PLWSEP
}
# Initialize the output parameters. All boolean parameters are stored
# as integer flags. All string valued parameters are stored in the
# string buffer, saving a pointer to the string in the CCP
# descriptor. If the capability does not exist the pointer is set to
# point to the null string at the beginning of the string buffer.
CCP_POLYLINE(g_cc) = btoi (ttygetb (tty, "pl"))
CCP_POLYMARKER(g_cc) = btoi (ttygetb (tty, "pm"))
CCP_FILLAREA(g_cc) = btoi (ttygetb (tty, "fa"))
CCP_FILLSTYLE(g_cc) = ttygeti (tty, "fs")
CCP_ROAM(g_cc) = btoi (ttygetb (tty, "ro"))
CCP_ZOOM(g_cc) = btoi (ttygetb (tty, "zo"))
CCP_ZRES(g_cc) = ttygeti (tty, "zr")
CCP_SELERASE(g_cc) = btoi (ttygetb (tty, "se"))
CCP_PIXREP(g_cc) = btoi (ttygetb (tty, "pr"))
# Initialize the input parameters.
CCP_CURSOR(g_cc) = 1
# Save the device string in the descriptor.
nextch = CCP_NEXTCH(g_cc)
CCP_DEVNAME(g_cc) = nextch
CCP_DEVCHAN(g_cc) = CCP_LDEV
maxch = CCP_SBUF(g_cc) + SZ_SBUF - nextch + 1
nextch = nextch + gstrcpy (devname, Memc[nextch], maxch) + 1
CCP_NEXTCH(g_cc) = nextch
# Initialize maximum-x tracker, used for "newframe" in ccp_clear.
g_max_x = 0.0
end
|
