2.9BSD/usr/src/local/sroff/sfont/H8.lbl
From uucp Thu Mar 4 16:01:51 1982
>From lbl-unix!suz Thu Mar 4 10:22:27 1982 remote from ucbvax
To: ucbvax!virus!mike
Subject: Re: font tables for Helvesan 8
In-reply-to: Your message of 4 Mar 1982 0710-PST (Thursday).
/*
* sroff driving tables
* H8 (Helvesan 8 and Helvesan 8 underlined)
*/
#include "../sdef.h"
/*
* Only the first two physical fonts (fonts.phys = 0,1) can be proportional
* and their character widths are in fontab and fontab1 respectively.
* Special characters (values greater than 0177) are also in fontab.
* The special characters assume that the scientific font is on position C
* (phys = 3) and the greek/math font is on position B (phys = 2).
* All values are in units (mils, since INCH is 1000).
* fonts, ulfont, fontab and fontab1 are all overlaid by the -F option.
*/
struct fonts { /* info for all fonts to be mounted */
char lab; /* name */
char phys; /* sanders logical font #, |= PROPOR if proportional */
int Char; /* character width if nonproportional */
int Em; /* character size, value of 1m */
/* (point size) x (1000/72) */
char mount[10]; /* sanders font number */
} fonts[NFONTS] = {
{'R', 0|PROPOR, 0, 139, "X5020508"}, /* Helvesan 8 */
{'I', 0|PROPOR, 0, 139, ""}, /* underline Helvesan 8 */
{'B', 0|PROPOR, 0, 139, ""}, /* emboldened Helvesan 8 */
{'S', 3, 100, 139, "S5480210"}, /* Sci-Pi */
{'M', 4, 83, 139, "X5010608"}, /* 12-pitch (Messenger 12)*/
{'E', 5, 100, 139, "X5011010"}, /* 10-pitch (Messenger 10)*/
{ 0, 6, 100, 139, ""},
{'G', 2, 100, 139, "S5480310"} /* Greek */
};
int ulfont = 1; /* underline font 0 */
int bdtab[NFONTS] = { /* amount of emboldening */
0,
0,
7,
0,
0,
0,
0,
0
};
int smnt = 3;
int sbold = -1;
int fontab[MAXCHAR-040] = { /* widths for font 0 PROPOR and special */
60, /*40: space*/
21, /*!*/
64, /*"*/
77, /*#*/
60, /*$*/
99, /*%*/
69, /*&*/
27|ULMODE, /*' close*/
36, /*50: (*/
36, /*)*/
65, /***/
61, /*+*/
29, /*,*/
61, /*- hyphen*/
21, /*.*/
51, /*/*/
65|ULMODE, /*60: 0*/
65|ULMODE, /*1*/
65|ULMODE, /*2*/
65|ULMODE, /*3*/
65|ULMODE, /*4*/
65|ULMODE, /*5*/
65|ULMODE, /*6*/
65|ULMODE, /*7*/
65|ULMODE, /*70: 8*/
65|ULMODE, /*9*/
21, /*:*/
29, /*;*/
79, /*<*/
61, /*=*/
79, /*>*/
60, /*?*/
80, /*100: @*/
73|ULMODE, /*A*/
77|ULMODE, /*B*/
78|ULMODE, /*C*/
82|ULMODE, /*D*/
74|ULMODE, /*E*/
74|ULMODE, /*F*/
90|ULMODE, /*G*/
82|ULMODE, /*110: H*/
31|ULMODE, /*I*/
59|ULMODE, /*J*/
79|ULMODE, /*K*/
66|ULMODE, /*L*/
96|ULMODE, /*M*/
85|ULMODE, /*N*/
81|ULMODE, /*O*/
74|ULMODE, /*120: P*/
81|ULMODE, /*Q*/
80|ULMODE, /*R*/
72|ULMODE, /*S*/
63|ULMODE, /*T*/
81|ULMODE, /*U*/
73|ULMODE, /*V*/
106|ULMODE, /*W*/
69|ULMODE, /*130: X*/
64|ULMODE, /*Y*/
77|ULMODE, /*Z*/
68, /*[*/
51, /*\*/
68, /*]*/
71, /*^*/
84, /*_ underscore*/
43, /*140: ` open*/
63|ULMODE, /*a*/
67|ULMODE, /*b*/
59|ULMODE, /*c*/
67|ULMODE, /*d*/
69|ULMODE, /*e*/
39|ULMODE, /*f*/
69|ULMODE, /*g*/
69|ULMODE, /*150: h*/
31|ULMODE, /*i*/
42|ULMODE, /*j*/
58|ULMODE, /*k*/
31|ULMODE, /*l*/
102|ULMODE, /*m*/
68|ULMODE, /*n*/
65|ULMODE, /*o*/
68|ULMODE, /*160: p*/
69|ULMODE, /*q*/
48|ULMODE, /*r*/
58|ULMODE, /*s*/
41|ULMODE, /*t*/
68|ULMODE, /*u*/
58|ULMODE, /*v*/
86|ULMODE, /*w*/
56|ULMODE, /*170: x*/
58|ULMODE, /*y*/
64|ULMODE, /*z*/
59, /*{*/
61, /*|*/
59, /*}*/
67, /*~*/
60, /*delete */
0000, /* 200: null */
0000, /* 201: bs */
0000, /* 202: tab */
0000, /* 203: lf */
0000, /* 204: ff */
0000, /* 205: cr */
0000, /* 206: esc */
0000, /* unused */
0000, /* unused */
0000, /* unused */
0000, /* 212: select font */
0000, /* 213: repeat character */
0000, /* 214: insert sequence of characters */
0000, /* 215: insert space */
0000, /* 216: half-line feed */
0000, /* 217: neqative line feed */
0000, /* 220: negative half-line feed */
0000, /* 221: select format */
0000, /* 222: set line length */
0000, /* 223: set temporary indent */
0000, /* 224: set indentation */
0000, /* 225: set word space */
0000, /* 226: set form length */
0000, /* 227: toggle draft mode */
/* greek: */
100|ULMODE, /* 230: alpha */
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE, /*240*/
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE, /*250*/
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE, /*omega*/
100|ULMODE, /*260: Alpha */
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE, /*270*/
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE, /*300*/
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE,
100|ULMODE, /* Omega */
100|ULMODE, /*310: square root*/
100|ULMODE, /*root en */
100, /*>=*/
100, /*<=*/
100, /*identically equal*/
100, /*approx =*/
100, /*approximates*/
100, /*not equal*/
100, /*320: right arrow*/
100, /*left arrow*/
100, /*up arrow*/
100, /*down arrow*/
100, /*multiply*/
100, /*divide*/
100, /*plus-minus*/
100, /*cup (union)*/
100, /*330: cap (intersection)*/
100, /*subset of*/
100, /*superset of*/
100, /*improper subset*/
100, /* improper superset*/
100, /*infinity*/
100, /*partial derivative*/
100, /*gradient*/
100, /*340: proportional to*/
0, /* box vert rule */
100, /*or */
85, /*bullet*/
100, /*square*/
100, /*degree*/
100, /*dagger*/
100, /* underrule */
100, /* 350: 3/4 Em dash */
100, /* vertical solid bar */
100, /* left top curly */
100, /* left bottom curly */
100, /* right center curly */
100, /* left top square */
100, /* left bottom square */
100, /* right bottom square */
100, /*360: right top curly */
100, /* right bottom curly */
100, /* right top square */
100, /* left center curly */
100, /* top of integral */
100, /* bottom of integral */
100, /* bracket upper */
100, /* bracket lower */
100, /* 370: angled slash for sqrt */
100|ULMODE /*371: dbl dagger*/
};
int fontab1[0200-040] = { /* character widths for font 1 PROPOR */
/* not used, font 1 not used */
0
};