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
|
#include "defs.h"
#include "global.h"
#include "rastfont.h"
struct rastaccessinfo raccinfo;
int rast_mag(fe, acca, t)
struct font_entry *fe;
struct accarg *acca;
int t;
{
fe->finfo = (struct finfo *)&raccinfo;
switch (acca->acc_mode) {
case ACC_EXACT:
case ACC_GEN:
acca->pv_mag = ROUND(acca->actmagfact*resolution*t);
raccinfo.corrfact = 1;
break;
case ACC_SUBST:
if (ROUND(acca->actmagfact*resolution*t) != acca->reqmag)
return FALSE;
acca->pv_mag = acca->submag;
raccinfo.corrfact = (float)acca->reqmag/(float)acca->submag;
break;
case ACC_MAGSTEP:
acca->pv_mag = ROUND(acca->stepmagfact*resolution*t);
raccinfo.corrfact = acca->rawmagfact/acca->stepmagfact;
break;
}
}
#ifdef DEBUG
int rast_debug_report(fe, acca, ok, type)
struct font_entry *fe;
struct accarg *acca;
BOOLEAN ok;
char *type;
{
if (Debuguser) {
if (acca->acc_mode == ACC_EXACT || acca->acc_mode == ACC_GEN)
(void)fprintf(stderr, "trying to access(%s) %s\n", type, fe->name);
else if (ok)
(void)fprintf(stderr, "trying to access[%d](%s) %s\n",
acca->acc_mode, type, fe->name);
}
}
#endif
int check_id(name, id)
char *name;
int id;
{
FILE *tfp;
if ((tfp = BINARYOPEN(name)) == NULL)
Fatal("FNT file %s could not be opened", name);
if (getuint(tfp, 4) != id) {
(void)fclose(tfp);
return FALSE;
}
(void)fseek(tfp, -4L, SEEK_END);
if (getuint(tfp, 4) != id) {
(void)fclose(tfp);
return FALSE;
}
(void)fclose(tfp);
return TRUE;
}
int rast_markchar(int c);
int init_rast_fontinfo(fe)
struct font_entry *fe;
{
int i;
struct rastinitfontinfo *k;
int rast_markchar();
fe->fnt_markchar = rast_markchar;
k = (struct rastinitfontinfo *)
alloc_check(malloc((unsigned)sizeof(struct rastinitfontinfo)+
MAXMARKCHAR*sizeof(Boolean)),
"rastinitfontinfo");
for (i = 0; i <= MAXMARKCHAR; i++)
k->mark[i] = FALSE;
k->maxc = 0;
k->corrfact = rastaccinfo(fe)->corrfact;
rastinifinfo(fe) = k;
}
int rast_markchar(int c)
{
if (c > MAXMARKCHAR) {
Warning("char %d in %s ignored", c, curfontent->name);
} else {
rastinifinfo(curfontent)->mark[c] = TRUE;
if (c > rastinifinfo(curfontent)->maxc)
rastinifinfo(curfontent)->maxc = c;
}
}
struct rastfntinfo *
alloc_rastfinfo(nchars, init, rii)
int nchars, init;
struct rastinitfontinfo *rii;
{
struct rastfntinfo *rfi;
struct rastchar_entry *ce; /* temporary char_entry pointer */
int i;
rfi = (struct rastfntinfo *)
alloc_check(malloc((unsigned)sizeof(struct rastfntinfo)+
(nchars-1)*sizeof(struct rastchar_entry)),
"rastfont info");
if (init)
for (i = 0; i < nchars; i++) {
ce = &(rfi->ch[i]);
ce->width = 0;
ce->height = 0;
ce->xoffset= 0;
ce->yoffset = 0;
ce->dev_font = DEV_NULLFONT;
/*ce->dev_char = NONCHAR;*/
ce->where.fileoffset = NONEXISTANT;
ce->tfmw = 0;
}
rfi->corrfact = rii->corrfact;
return rfi;
}
/* returs the current fontdict of raster font */
DEV_FONT
rast_fontdict(fe, c)
struct font_entry *fe;
int c;
{
/* char range check omitted */
return rastfinfo(fe)->ch[c].dev_font;
}
|
