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
};