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
|
/* $Log: loadtfmfile.c,v $
* Revision 0.8 92/11/23 19:46:48 19:46:48 bt (Bo Thide')
* Fixed resolution bug. Portable downloading. Added/changed options. PJXL color support
*
* Revision 0.7 92/11/13 02:41:33 02:41:33 bt (Bo Thide')
* More bug fixes and improvements. Support for PaintJet XL
*
* Revision 0.6 92/11/10 21:47:49 21:47:49 bt (Bo Thide')
* Bug fixes. Added -R option. Better font handling.
*
* Revision 0.5 92/11/09 16:25:37 16:25:37 bt (Bo Thide')
* Rewrite of dospecial.c. Extended \special support
*
* Revision 0.4 92/11/08 02:45:52 02:45:52 bt (Bo Thide')
* Changed to portable bit manipulations. Replaced strrstr for non-POSIX compliant C. Fixed numerous bugs. Added support for more \special's.
*
* Revision 0.3 92/08/24 12:43:20 12:43:20 bt (Bo Thide')
* Fixed 8 bit (dc font) support.
*
* Revision 0.2 92/08/23 17:28:58 17:28:58 bt (Bo Thide')
* Source cleaned up. Changed certain function calls. Removed globals.
*
* Revision 0.1 92/08/22 23:58:48 23:58:48 bt (Bo Thide')
* First Release.
* */
#include <stdio.h>
#include "globals.h"
#include "macros.h"
static char rcsid[] = "$Header: loadtfmfile.c,v 0.8 92/11/23 19:46:48 bt Exp $";
/*
* This procedure will extract information from the tfm file which is
* necessary to know abut printer resident fonts.
*/
loadtfmfile()
{
byte *w_index;
char tfmbuf[2048];
char tfmname[NAMELENGTH];
int i;
int *width;
long *t;
long *tfmbase;
double x, z;
double pxlconv;
charfmt *c;
tfmfmt *tfm;
FILE *tfmfile;
extern FILE *opentfmfile();
tfm = (tfmfmt *) tfmbuf;
tfmbase = (long *) tfmbuf;
t = tfmbase;
tfmfile = opentfmfile(tfmname);
if(verbose)
fprintf(stderr,"loadtfmfile: Trying to load %s\n",tfmname);
while(!feof(tfmfile))
*t++ = (long)getw(tfmfile);
fclose(tfmfile);
if(font->checksum != tfm->cs)
fprintf(stderr,"loadtfmfile: Checksum mismatch between\n%s and the .dvi file\n", tfmname);
z = (double)font->scaled_size/(double)FIX;
pxlconv = (double)(font->design_size * font->dir_size)/(65536.0*SCALE);
width = (int *)(tfmbase + tfm->lh + tfm->ec - tfm->bc + 7);
w_index = tfmbuf + 4 * (tfm->lh + 6);
c = font->chr;
#ifdef DEBUG2
fprintf(stderr,"loadtfmfile: pxlconv=%g,tfm->bc=%d,tfm->ec=%d,tfm->lh = %d\n",pxlconv,tfm->bc,tfm->ec,tfm->lh);
#endif
for(i = 0 ; i < tfm->bc ; i++) {
c->tfm_width = 0;
c->pxl_width = 0;
c++;
}
for(i = tfm->bc; i <= tfm->ec; i++) {
x = *(width + *w_index);
c->tfm_width = x*z;
c->pxl_width = round(x*pxlconv);
c++;
w_index += 4;
#ifdef DEBUG2
fprintf(stderr,"loadtfmfile: pxlconv=%d,tfm->bc=%d,tfm->ec=%d,c->pxl_width = %d\n",pxlconv,tfm->bc,tfm->ec,c->pxl_width);
#endif
}
for(i = tfm->ec + 1 ; i <= 255; i++) {
c->tfm_width = 0;
c->pxl_width = 0;
c++;
}
}
|
