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
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
|
/* $XConsortium: t1test.c,v 1.2 91/10/10 11:19:53 rws Exp $ */
/* Copyright International Business Machines,Corp. 1991
* All Rights Reserved
*
* License to use, copy, modify, and distribute this software
* and its documentation for any purpose and without fee is
* hereby granted, provided that the above copyright notice
* appear in all copies and that both that copyright notice and
* this permission notice appear in supporting documentation,
* and that the name of IBM not be used in advertising or
* publicity pertaining to distribution of the software without
* specific, written prior permission.
*
* IBM PROVIDES THIS SOFTWARE "AS IS", WITHOUT ANY WARRANTIES
* OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT
* LIMITED TO ANY IMPLIED WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE, AND NONINFRINGEMENT OF
* THIRD PARTY RIGHTS. THE ENTIRE RISK AS TO THE QUALITY AND
* PERFORMANCE OF THE SOFTWARE, INCLUDING ANY DUTY TO SUPPORT
* OR MAINTAIN, BELONGS TO THE LICENSEE. SHOULD ANY PORTION OF
* THE SOFTWARE PROVE DEFECTIVE, THE LICENSEE (NOT IBM) ASSUMES
* THE ENTIRE COST OF ALL SERVICING, REPAIR AND CORRECTION. IN
* NO EVENT SHALL IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR
* CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
* FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
* CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
* OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
* SOFTWARE.
*/
#include <stdlib.h>
#include "ffilest.h"
#ifdef XSERVER
#include "FSproto.h"
#endif
void Display();
#define DECIPOINTSPERINCH 722.7
#define DEFAULTRES 75
#define DEFAULTPOINTSIZE 120
FontScalableRec vals;
FontEntryRec entry;
typedef char *encoding[256];
/* PostScript ISOLatin1Encoding */
char *ISOLatin1[256] = {
/* '000 000 "00 */ NULL,
/* '001 001 "01 */ NULL,
/* '002 002 "02 */ NULL,
/* '003 003 "03 */ NULL,
/* '004 004 "04 */ NULL,
/* '005 005 "05 */ NULL,
/* '006 006 "06 */ NULL,
/* '007 007 "07 */ NULL,
/* '010 008 "08 */ NULL,
/* '011 009 "09 */ NULL,
/* '012 010 "0A */ NULL,
/* '013 011 "0B */ NULL,
/* '014 012 "0C */ NULL,
/* '015 013 "0D */ NULL,
/* '016 014 "0E */ NULL,
/* '017 015 "0F */ NULL,
/* '020 016 "10 */ NULL,
/* '021 017 "11 */ NULL,
/* '022 018 "12 */ NULL,
/* '023 019 "13 */ NULL,
/* '024 020 "14 */ NULL,
/* '025 021 "15 */ NULL,
/* '026 022 "16 */ NULL,
/* '027 023 "17 */ NULL,
/* '030 024 "18 */ NULL,
/* '031 025 "19 */ NULL,
/* '032 026 "1A */ NULL,
/* '033 027 "1B */ NULL,
/* '034 028 "1C */ NULL,
/* '035 029 "1D */ NULL,
/* '036 030 "1E */ NULL,
/* '037 031 "1F */ NULL,
/* '040 032 "20 */ "space",
/* '041 033 "21 */ "exclam",
/* '042 034 "22 */ "quotedbl",
/* '043 035 "23 */ "numbersign",
/* '044 036 "24 */ "dollar",
/* '045 037 "25 */ "percent",
/* '046 038 "26 */ "ampersand",
/* '047 039 "27 */ "quoteright",
/* '050 040 "28 */ "parenleft",
/* '051 041 "29 */ "parenright",
/* '052 042 "2A */ "asterisk",
/* '053 043 "2B */ "plus",
/* '054 044 "2C */ "comma",
/* '055 045 "2D */ "hyphen",
/* '056 046 "2E */ "period",
/* '057 047 "2F */ "slash",
/* '060 048 "30 */ "zero",
/* '061 049 "31 */ "one",
/* '062 050 "32 */ "two",
/* '063 051 "33 */ "three",
/* '064 052 "34 */ "four",
/* '065 053 "35 */ "five",
/* '066 054 "36 */ "six",
/* '067 055 "37 */ "seven",
/* '070 056 "38 */ "eight",
/* '071 057 "39 */ "nine",
/* '072 058 "3A */ "colon",
/* '073 059 "3B */ "semicolon",
/* '074 060 "3C */ "less",
/* '075 061 "3D */ "equal",
/* '076 062 "3E */ "greater",
/* '077 063 "3F */ "question",
/* '100 064 "40 */ "at",
/* '101 065 "41 */ "A",
/* '102 066 "42 */ "B",
/* '103 067 "43 */ "C",
/* '104 068 "44 */ "D",
/* '105 069 "45 */ "E",
/* '106 070 "46 */ "F",
/* '107 071 "47 */ "G",
/* '110 072 "48 */ "H",
/* '111 073 "49 */ "I",
/* '112 074 "4A */ "J",
/* '113 075 "4B */ "K",
/* '114 076 "4C */ "L",
/* '115 077 "4D */ "M",
/* '116 078 "4E */ "N",
/* '117 079 "4F */ "O",
/* '120 080 "50 */ "P",
/* '121 081 "51 */ "Q",
/* '122 082 "52 */ "R",
/* '123 083 "53 */ "S",
/* '124 084 "54 */ "T",
/* '125 085 "55 */ "U",
/* '126 086 "56 */ "V",
/* '127 087 "57 */ "W",
/* '130 088 "58 */ "X",
/* '131 089 "59 */ "Y",
/* '132 090 "5A */ "Z",
/* '133 091 "5B */ "bracketleft",
/* '134 092 "5C */ "backslash",
/* '135 093 "5D */ "bracketright",
/* '136 094 "5E */ "asciicircum",
/* '137 095 "5F */ "underscore",
/* '140 096 "60 */ "quoteleft",
/* '141 097 "61 */ "a",
/* '142 098 "62 */ "b",
/* '143 099 "63 */ "c",
/* '144 100 "64 */ "d",
/* '145 101 "65 */ "e",
/* '146 102 "66 */ "f",
/* '147 103 "67 */ "g",
/* '150 104 "68 */ "h",
/* '151 105 "69 */ "i",
/* '152 106 "6A */ "j",
/* '153 107 "6B */ "k",
/* '154 108 "6C */ "l",
/* '155 109 "6D */ "m",
/* '156 110 "6E */ "n",
/* '157 111 "6F */ "o",
/* '160 112 "70 */ "p",
/* '161 113 "71 */ "q",
/* '162 114 "72 */ "r",
/* '163 115 "73 */ "s",
/* '164 116 "74 */ "t",
/* '165 117 "75 */ "u",
/* '166 118 "76 */ "v",
/* '167 119 "77 */ "w",
/* '170 120 "78 */ "x",
/* '171 121 "79 */ "y",
/* '172 122 "7A */ "z",
/* '173 123 "7B */ "braceleft",
/* '174 124 "7C */ "bar",
/* '175 125 "7D */ "braceright",
/* '176 126 "7E */ "asciitilde",
/* '177 127 "7F */ NULL,
/* '200 128 "80 */ NULL,
/* '201 129 "81 */ NULL,
/* '202 130 "82 */ NULL,
/* '203 131 "83 */ NULL,
/* '204 132 "84 */ NULL,
/* '205 133 "85 */ NULL,
/* '206 134 "86 */ NULL,
/* '207 135 "87 */ NULL,
/* '210 136 "88 */ NULL,
/* '211 137 "89 */ NULL,
/* '212 138 "8A */ NULL,
/* '213 139 "8B */ NULL,
/* '214 140 "8C */ NULL,
/* '215 141 "8D */ NULL,
/* '216 142 "8E */ NULL,
/* '217 143 "8F */ NULL,
/* '220 144 "90 */ "dotlessi",
/* '221 145 "91 */ "grave",
/* '222 146 "92 */ "acute",
/* '223 147 "93 */ "circumflex",
/* '224 148 "94 */ "tilde",
/* '225 149 "95 */ "macron",
/* '226 150 "96 */ "breve",
/* '227 151 "97 */ "dotaccent",
/* '230 152 "98 */ "dieresis",
/* '231 153 "99 */ NULL,
/* '232 154 "9A */ "ring",
/* '233 155 "9B */ "cedilla",
/* '234 156 "9C */ NULL,
/* '235 157 "9D */ "hungarumlaut",
/* '236 158 "9E */ "ogonek",
/* '237 159 "9F */ "caron",
/* '240 160 "A0 */ "space",
/* '241 161 "A1 */ "exclamdown",
/* '242 162 "A2 */ "cent",
/* '243 163 "A3 */ "sterling",
/* '244 164 "A4 */ "currency",
/* '245 165 "A5 */ "yen",
/* '246 166 "A6 */ "brokenbar",
/* '247 167 "A7 */ "section",
/* '250 168 "A8 */ "dieresis",
/* '251 169 "A9 */ "copyright",
/* '252 170 "AA */ "ordfeminine",
/* '253 171 "AB */ "guillemotleft",
/* '254 172 "AC */ "logicalnot",
/* '255 173 "AD */ "hyphen",
/* '256 174 "AE */ "registered",
/* '257 175 "AF */ "macron",
/* '260 176 "B0 */ "degree",
/* '261 177 "B1 */ "plusminus",
/* '262 178 "B2 */ "twosuperior",
/* '263 179 "B3 */ "threesuperior",
/* '264 180 "B4 */ "acute",
/* '265 181 "B5 */ "mu",
/* '266 182 "B6 */ "paragraph",
/* '267 183 "B7 */ "periodcentered",
/* '270 184 "B8 */ "cedilla",
/* '271 185 "B9 */ "onesuperior",
/* '272 186 "BA */ "ordmasculine",
/* '273 187 "BB */ "guillemotright",
/* '274 188 "BC */ "onequarter",
/* '275 189 "BD */ "onehalf",
/* '276 190 "BE */ "threequarters",
/* '277 191 "BF */ "questiondown",
/* '300 192 "C0 */ "Agrave",
/* '301 193 "C1 */ "Aacute",
/* '302 194 "C2 */ "Acircumflex",
/* '303 195 "C3 */ "Atilde",
/* '304 196 "C4 */ "Adieresis",
/* '305 197 "C5 */ "Aring",
/* '306 198 "C6 */ "AE",
/* '307 199 "C7 */ "Ccedilla",
/* '310 200 "C8 */ "Egrave",
/* '311 201 "C9 */ "Eacute",
/* '312 202 "CA */ "Ecircumflex",
/* '313 203 "CB */ "Edieresis",
/* '314 204 "CC */ "Igrave",
/* '315 205 "CD */ "Iacute",
/* '316 206 "CE */ "Icircumflex",
/* '317 207 "CF */ "Idieresis",
/* '320 208 "D0 */ "Eth",
/* '321 209 "D1 */ "Ntilde",
/* '322 210 "D2 */ "Ograve",
/* '323 211 "D3 */ "Oacute",
/* '324 212 "D4 */ "Ocircumflex",
/* '325 213 "D5 */ "Otilde",
/* '326 214 "D6 */ "Odieresis",
/* '327 215 "D7 */ "multiply",
/* '330 216 "D8 */ "Oslash",
/* '331 217 "D9 */ "Ugrave",
/* '332 218 "DA */ "Uacute",
/* '333 219 "DB */ "Ucircumflex",
/* '334 220 "DC */ "Udieresis",
/* '335 221 "DD */ "Yacute",
/* '336 222 "DE */ "Thorn",
/* '337 223 "DF */ "Germandbls",
/* '340 224 "E0 */ "agrave",
/* '341 225 "E1 */ "aacute",
/* '342 226 "E2 */ "acircumflex",
/* '343 227 "E3 */ "atilde",
/* '344 228 "E4 */ "adieresis",
/* '345 229 "E5 */ "aring",
/* '346 230 "E6 */ "ae",
/* '347 231 "E7 */ "ccedilla",
/* '350 232 "E8 */ "egrave",
/* '351 233 "E9 */ "eacute",
/* '352 234 "EA */ "ecircumflex",
/* '353 235 "EB */ "edieresis",
/* '354 236 "EC */ "igrave",
/* '355 237 "ED */ "iacute",
/* '356 238 "EE */ "icircumflex",
/* '357 239 "EF */ "idieresis",
/* '360 240 "F0 */ "eth",
/* '361 241 "F1 */ "ntilde",
/* '362 242 "F2 */ "ograve",
/* '363 243 "F3 */ "oacute",
/* '364 244 "F4 */ "ocircumflex",
/* '365 245 "F5 */ "otilde",
/* '366 246 "F6 */ "odieresis",
/* '367 247 "F7 */ "divide",
/* '370 248 "F8 */ "oslash",
/* '371 249 "F9 */ "ugrave",
/* '372 250 "FA */ "uacute",
/* '373 251 "FB */ "ucircumflex",
/* '374 252 "FC */ "udieresis",
/* '375 253 "FD */ "yacute",
/* '376 254 "FE */ "thorn",
/* '377 255 "FF */ "ydieresis"};
int main(argc, argv)
int argc;
char *argv[];
{
int h;
char temp[80];
char file[80];
char glyphcode[1];
FontPtr fontptr;
CharInfoRec *glyphs[1];
int count;
int code;
int rc = -1;
float efactor = 1.0, slant = 0.0;
encoding *ev = &ISOLatin1;
T1FillVals(&vals);
Type1RegisterFontFileFunctions();
entry.name.name = "-adobe-utopia-medium-r-normal--0-0-0-0-p-0-iso8859-1";
for (;;) {
printf("T1TEST: ");
gets(temp);
glyphcode[0] = '\0';
switch(temp[0]) {
case 'E':
if (1 != sscanf(&temp[2], "%f", &efactor))
printf("expansion factor?\n");
break;
case 'S':
if (1 != sscanf(&temp[2], "%f", &slant))
printf("slant?\n");
break;
case 'c':
if (1 != sscanf(&temp[2], "%c", glyphcode))
printf("glyph code?\n");
break;
case 'x':
if (1 != sscanf(&temp[2], "%x", &code))
printf("glyph code?\n");
else
glyphcode[0] = code;
break;
case 'd':
if (1 != sscanf(&temp[2], "%d", &code))
printf("glyph code?\n");
else
glyphcode[0] = code;
break;
case 'h':
if (1 != sscanf(&temp[2], "%d", &h))
printf("height?\n");
vals.pixel = h;
vals.point = (vals.pixel * DECIPOINTSPERINCH) / vals.y;
rc = Type1OpenScalable(*ev, &fontptr, 0, &entry,
file, &vals, 0, 0, efactor, slant);
break;
case 'f':
if (1 != sscanf(&temp[2], "%s", file))
printf("file name?\n");
rc = Type1OpenScalable(*ev, &fontptr, 0, &entry,
file, &vals, 0, 0, efactor, slant);
break;
case 't':
if (1 != sscanf(&temp[2], "%s", file))
printf("file name?\n");
vals.pixel = 8;
rc = Type1OpenScalable(*ev, &fontptr, 0, &entry,
file, &vals, 0, 0, efactor, slant);
if (rc != Successful) break;
vals.pixel = 20;
rc = Type1OpenScalable(*ev, &fontptr, 0, &entry,
file, &vals, 0, 0, efactor, slant);
if (rc != Successful) break;
vals.pixel = 50;
rc = Type1OpenScalable(*ev, &fontptr, 0, &entry,
file, &vals, 0, 0, efactor, slant);
glyphcode[0] = 'A';
printf("From font '%s':\n", file);
break;
case 'q':
return 0;
default:
printf("unknown command '%c', must one of 'ESqfchdxt'\n", temp[0]);
}
if (rc == Successful) {
if (glyphcode[0] != '\0') {
(*fontptr->get_glyphs)(fontptr, 1, glyphcode, 0, &count, glyphs);
if (count > 0)
Display(glyphs[0]);
else
printf("Code %x not valid in this font\n", glyphcode[0]);
}
}
else
printf("Bad font (rc = %d, file='%s')\n", rc, file);
}
}
void Display(glyph)
CharInfoRec *glyph;
{
int h,w;
unsigned char *p;
int data;
int i;
p = (unsigned char *) glyph->bits;
printf("Metrics: left=%d, right=%d, w=%d, above=%d, below=%d\n",
glyph->metrics.leftSideBearing,
glyph->metrics.rightSideBearing,
glyph->metrics.characterWidth,
glyph->metrics.ascent,
glyph->metrics.descent);
for (h=glyph->metrics.ascent + glyph->metrics.descent; --h >= 0;) {
w = glyph->metrics.rightSideBearing - glyph->metrics.leftSideBearing;
while (w > 0) {
data = *p++;
for (i=0; i<8; i++) {
if (--w < 0)
break;
if (data & 0x80)
printf("X");
else
printf(".");
data <<= 1;
}
}
printf("\n");
}
}
T1FillVals(vals)
FontScalablePtr vals;
{
fsResolution *res;
int x_res = DEFAULTRES;
int y_res = DEFAULTRES;
int pointsize = DEFAULTPOINTSIZE; /* decipoints */
int num_res;
/* Must have x, y, and pixel */
if (!vals->x || !vals->y || !vals->pixel) {
res = (fsResolution *) GetClientResolutions(&num_res);
if (num_res) {
if (res->x_resolution)
x_res = res->x_resolution;
if (res->y_resolution)
y_res = res->y_resolution;
if (res->point_size)
pointsize = res->point_size;
}
if (!vals->x)
vals->x = x_res;
if (!vals->y)
vals->y = y_res;
if (!vals->point) {
if (!vals->pixel) vals->point = pointsize;
else vals->point = (vals->pixel * DECIPOINTSPERINCH) / vals->y;
}
if (!vals->pixel)
vals->pixel = (vals->point * vals->y) / DECIPOINTSPERINCH;
/* Make sure above arithmetic is normally in range and will
round properly. +++ */
}
}
int CheckFSFormat(format, fmask, bit, byte, scan, glyph, image)
int format,fmask,*bit,*byte,*scan,*glyph,*image;
{
*bit = *byte = 1;
*glyph = *scan = *image = 1;
return Successful;
}
char *MakeAtom(p)
char *p;
{
return p;
}
GetClientResolutions(resP)
int *resP;
{
*resP = 0;
};
char *Xalloc(size)
int size;
{
extern char *malloc();
return(malloc(size));
}
void Xfree()
{
free();
}
FontDefaultFormat() { ; }
FontFileRegisterRenderer() { ; }
GenericGetBitmaps() { ; }
GenericGetExtents() { ; }
FontParseXLFDName() { ; }
FontComputeInfoAccelerators() { ; }
|
