xref: /csrg-svn/old/roff/troff/tab3.c (revision 48307)
1*48307Sbostic /*-
2*48307Sbostic  * %sccs.include.proprietary.c%
3*48307Sbostic  */
4*48307Sbostic 
57081Srrh #ifndef lint
6*48307Sbostic static char sccsid[] = "@(#)tab3.c	4.2 (Berkeley) 04/18/91";
7*48307Sbostic #endif /* not lint */
87081Srrh 
97081Srrh #define BYTE 8
107081Srrh #define PAIR(A,B) (A|(B<<BYTE))
117081Srrh /*
127081Srrh character name and code tables
137081Srrh default width tables
147081Srrh modified for BTL special font version 4
157081Srrh and Commercial II
167081Srrh */
177081Srrh 
187081Srrh int chtab [] = {
197081Srrh PAIR('h','y'), 0200,	/*hyphen*/
207081Srrh PAIR('b','u'), 0201,	/*bullet*/
217081Srrh PAIR('s','q'), 0202,	/*square*/
227081Srrh PAIR('e','m'), 0203,	/*3/4em*/
237081Srrh PAIR('r','u'), 0204,	/*rule*/
247081Srrh PAIR('1','4'), 0205,	/*1/4*/
257081Srrh PAIR('1','2'), 0206,	/*1/2*/
267081Srrh PAIR('3','4'), 0207,	/*3/4*/
277081Srrh PAIR('m','i'), 0302,	/*equation minus*/
287081Srrh PAIR('f','i'), 0211,	/*fi*/
297081Srrh PAIR('f','l'), 0212,	/*fl*/
307081Srrh PAIR('f','f'), 0213,	/*ff*/
317081Srrh PAIR('F','i'), 0214,	/*ffi*/
327081Srrh PAIR('F','l'), 0215,	/*ffl*/
337081Srrh PAIR('d','e'), 0216,	/*degree*/
347081Srrh PAIR('d','g'), 0217,	/*dagger*/
357081Srrh PAIR('s','c'), 0220,	/*section*/
367081Srrh PAIR('f','m'), 0221,	/*foot mark*/
377081Srrh PAIR('a','a'), 0222,	/*acute accent*/
387081Srrh PAIR('g','a'), 0223,	/*grave accent*/
397081Srrh PAIR('u','l'), 0224,	/*underrule*/
407081Srrh PAIR('s','l'), 0225,	/*slash (longer)*/
417081Srrh PAIR('*','a'), 0230,	/*alpha*/
427081Srrh PAIR('*','b'), 0231,	/*beta*/
437081Srrh PAIR('*','g'), 0232,	/*gamma*/
447081Srrh PAIR('*','d'), 0233,	/*delta*/
457081Srrh PAIR('*','e'), 0234,	/*epsilon*/
467081Srrh PAIR('*','z'), 0235,	/*zeta*/
477081Srrh PAIR('*','y'), 0236,	/*eta*/
487081Srrh PAIR('*','h'), 0237,	/*theta*/
497081Srrh PAIR('*','i'), 0240,	/*iota*/
507081Srrh PAIR('*','k'), 0241,	/*kappa*/
517081Srrh PAIR('*','l'), 0242,	/*lambda*/
527081Srrh PAIR('*','m'), 0243,	/*mu*/
537081Srrh PAIR('*','n'), 0244,	/*nu*/
547081Srrh PAIR('*','c'), 0245,	/*xi*/
557081Srrh PAIR('*','o'), 0246,	/*omicron*/
567081Srrh PAIR('*','p'), 0247,	/*pi*/
577081Srrh PAIR('*','r'), 0250,	/*rho*/
587081Srrh PAIR('*','s'), 0251,	/*sigma*/
597081Srrh PAIR('*','t'), 0252,	/*tau*/
607081Srrh PAIR('*','u'), 0253,	/*upsilon*/
617081Srrh PAIR('*','f'), 0254,	/*phi*/
627081Srrh PAIR('*','x'), 0255,	/*chi*/
637081Srrh PAIR('*','q'), 0256,	/*psi*/
647081Srrh PAIR('*','w'), 0257,	/*omega*/
657081Srrh PAIR('*','A'), 0101,	/*Alpha*/
667081Srrh PAIR('*','B'), 0102,	/*Beta*/
677081Srrh PAIR('*','G'), 0260,	/*Gamma*/
687081Srrh PAIR('*','D'), 0261,	/*Delta*/
697081Srrh PAIR('*','E'), 0105,	/*Epsilon*/
707081Srrh PAIR('*','Z'), 0132,	/*Zeta*/
717081Srrh PAIR('*','Y'), 0110,	/*Eta*/
727081Srrh PAIR('*','H'), 0262,	/*Theta*/
737081Srrh PAIR('*','I'), 0111,	/*Iota*/
747081Srrh PAIR('*','K'), 0113,	/*Kappa*/
757081Srrh PAIR('*','L'), 0263,	/*Lambda*/
767081Srrh PAIR('*','M'), 0115,	/*Mu*/
777081Srrh PAIR('*','N'), 0116,	/*Nu*/
787081Srrh PAIR('*','C'), 0264,	/*Xi*/
797081Srrh PAIR('*','O'), 0117,	/*Omicron*/
807081Srrh PAIR('*','P'), 0265,	/*Pi*/
817081Srrh PAIR('*','R'), 0120,	/*Rho*/
827081Srrh PAIR('*','S'), 0266,	/*Sigma*/
837081Srrh PAIR('*','T'), 0124,	/*Tau*/
847081Srrh PAIR('*','U'), 0270,	/*Upsilon*/
857081Srrh PAIR('*','F'), 0271,	/*Phi*/
867081Srrh PAIR('*','X'), 0130,	/*Chi*/
877081Srrh PAIR('*','Q'), 0272,	/*Psi*/
887081Srrh PAIR('*','W'), 0273,	/*Omega*/
897081Srrh PAIR('s','r'), 0274,	/*square root*/
907081Srrh PAIR('t','s'), 0275,	/*terminal sigma*/
917081Srrh PAIR('r','n'), 0276,	/*root en*/
927081Srrh PAIR('>','='), 0277,	/*>=*/
937081Srrh PAIR('<','='), 0300,	/*<=*/
947081Srrh PAIR('=','='), 0301,	/*identically equal*/
957081Srrh PAIR('~','='), 0303,	/*approx =*/
967081Srrh PAIR('a','p'), 0304,	/*approximates*/
977081Srrh PAIR('!','='), 0305,	/*not equal*/
987081Srrh PAIR('-','>'), 0306,	/*right arrow*/
997081Srrh PAIR('<','-'), 0307,	/*left arrow*/
1007081Srrh PAIR('u','a'), 0310,	/*up arrow*/
1017081Srrh PAIR('d','a'), 0311,	/*down arrow*/
1027081Srrh PAIR('e','q'), 0312,	/*equation equal*/
1037081Srrh PAIR('m','u'), 0313,	/*multiply*/
1047081Srrh PAIR('d','i'), 0314,	/*divide*/
1057081Srrh PAIR('+','-'), 0315,	/*plus-minus*/
1067081Srrh PAIR('c','u'), 0316,	/*cup (union)*/
1077081Srrh PAIR('c','a'), 0317,	/*cap (intersection)*/
1087081Srrh PAIR('s','b'), 0320,	/*subset of*/
1097081Srrh PAIR('s','p'), 0321,	/*superset of*/
1107081Srrh PAIR('i','b'), 0322,	/*improper subset*/
1117081Srrh PAIR('i','p'), 0323,	/*  " superset*/
1127081Srrh PAIR('i','f'), 0324,	/*infinity*/
1137081Srrh PAIR('p','d'), 0325,	/*partial derivative*/
1147081Srrh PAIR('g','r'), 0326,	/*gradient*/
1157081Srrh PAIR('n','o'), 0327,	/*not*/
1167081Srrh PAIR('i','s'), 0330,	/*integral sign*/
1177081Srrh PAIR('p','t'), 0331,	/*proportional to*/
1187081Srrh PAIR('e','s'), 0332,	/*empty set*/
1197081Srrh PAIR('m','o'), 0333,	/*member of*/
1207081Srrh PAIR('p','l'), 0334,	/*equation plus*/
1217081Srrh PAIR('r','g'), 0335,	/*registered*/
1227081Srrh PAIR('c','o'), 0336,	/*copyright*/
1237081Srrh PAIR('b','r'), 0337,	/*box vert rule*/
1247081Srrh PAIR('c','t'), 0340,	/*cent sign*/
1257081Srrh PAIR('d','d'), 0341,	/*dbl dagger*/
1267081Srrh PAIR('r','h'), 0342,	/*right hand*/
1277081Srrh PAIR('l','h'), 0343,	/*left hand*/
1287081Srrh PAIR('*','*'), 0344,	/*math * */
1297081Srrh PAIR('b','s'), 0345,	/*bell system sign*/
1307081Srrh PAIR('o','r'), 0346,	/*or*/
1317081Srrh PAIR('c','i'), 0347,	/*circle*/
1327081Srrh PAIR('l','t'), 0350,	/*left top (of big curly)*/
1337081Srrh PAIR('l','b'), 0351,	/*left bottom*/
1347081Srrh PAIR('r','t'), 0352,	/*right top*/
1357081Srrh PAIR('r','b'), 0353,	/*right bot*/
1367081Srrh PAIR('l','k'), 0354,	/*left center of big curly bracket*/
1377081Srrh PAIR('r','k'), 0355,	/*right center of big curly bracket*/
1387081Srrh PAIR('b','v'), 0356,	/*bold vertical*/
1397081Srrh PAIR('l','f'), 0357,	/*left floor (left bot of big sq bract)*/
1407081Srrh PAIR('r','f'), 0360,	/*right floor (rb of ")*/
1417081Srrh PAIR('l','c'), 0361,	/*left ceiling (lt of ")*/
1427081Srrh PAIR('r','c'), 0362,	/*right ceiling (rt of ")*/
1437081Srrh 0,0};
1447081Srrh 
1457081Srrh char codetab[256-32] = {	/*cat codes*/
1467081Srrh 00,	/*space*/
1477081Srrh 0145,	/*!*/
1487081Srrh 0230,	/*"*/
1497081Srrh 0337,	/*#*/
1507081Srrh 0155,	/*$*/
1517081Srrh 053,	/*%*/
1527081Srrh 050,	/*&*/
1537081Srrh 032,	/*' close*/
1547081Srrh 0132,	/*(*/
1557081Srrh 0133,	/*)*/
1567081Srrh 0122,	/***/
1577081Srrh 0143,	/*+*/
1587081Srrh 047,	/*,*/
1597081Srrh 040,	/*- hyphen*/
1607081Srrh 044,	/*.*/
1617081Srrh 043,	/*/*/
1627081Srrh 0110,	/*0*/
1637081Srrh 0111,	/*1*/
1647081Srrh 0112,	/*2*/
1657081Srrh 0113,	/*3*/
1667081Srrh 0114,	/*4*/
1677081Srrh 0115,	/*5*/
1687081Srrh 0116,	/*6*/
1697081Srrh 0117,	/*7*/
1707081Srrh 0120,	/*8*/
1717081Srrh 0121,	/*9*/
1727081Srrh 0142,	/*:*/
1737081Srrh 023,	/*;*/
1747081Srrh 0303,	/*<*/
1757081Srrh 0140,	/*=*/
1767081Srrh 0301,	/*>*/
1777081Srrh 0147,	/*?*/
1787081Srrh 0222,	/*@*/
1797081Srrh 0103,	/*A*/
1807081Srrh 075,	/*B*/
1817081Srrh 070,	/*C*/
1827081Srrh 074,	/*D*/
1837081Srrh 072,	/*E*/
1847081Srrh 0101,	/*F*/
1857081Srrh 065,	/*G*/
1867081Srrh 060,	/*H*/
1877081Srrh 066,	/*I*/
1887081Srrh 0105,	/*J*/
1897081Srrh 0107,	/*K*/
1907081Srrh 063,	/*L*/
1917081Srrh 062,	/*M*/
1927081Srrh 061,	/*N*/
1937081Srrh 057,	/*O*/
1947081Srrh 067,	/*P*/
1957081Srrh 055,	/*Q*/
1967081Srrh 064,	/*R*/
1977081Srrh 076,	/*S*/
1987081Srrh 056,	/*T*/
1997081Srrh 0106,	/*U*/
2007081Srrh 071,	/*V*/
2017081Srrh 0104,	/*W*/
2027081Srrh 0102,	/*X*/
2037081Srrh 077,	/*Y*/
2047081Srrh 073,	/*Z*/
2057081Srrh 0134,	/*[*/
2067081Srrh 0241,	/*\*/
2077081Srrh 0135,	/*]*/
2087081Srrh 0336,	/*^*/
2097081Srrh 0240,	/*_*/
2107081Srrh 030,	/*` open*/
2117081Srrh 025,	/*a*/
2127081Srrh 012,	/*b*/
2137081Srrh 027,	/*c*/
2147081Srrh 011,	/*d*/
2157081Srrh 031,	/*e*/
2167081Srrh 014,	/*f*/
2177081Srrh 045,	/*g*/
2187081Srrh 001,	/*h*/
2197081Srrh 006,	/*i*/
2207081Srrh 015,	/*j*/
2217081Srrh 017,	/*k*/
2227081Srrh 005,	/*l*/
2237081Srrh 004,	/*m*/
2247081Srrh 003,	/*n*/
2257081Srrh 033,	/*o*/
2267081Srrh 021,	/*p*/
2277081Srrh 042,	/*q*/
2287081Srrh 035,	/*r*/
2297081Srrh 010,	/*s*/
2307081Srrh 002,	/*t*/
2317081Srrh 016,	/*u*/
2327081Srrh 037,	/*v*/
2337081Srrh 041,	/*w*/
2347081Srrh 013,	/*x*/
2357081Srrh 051,	/*y*/
2367081Srrh 007,	/*z*/
2377081Srrh 0332,	/*{*/
2387081Srrh 0151,	/*|*/
2397081Srrh 0333,	/*}*/
2407081Srrh 0342,	/*~*/
2417081Srrh 00,	/*narrow space*/
2427081Srrh 040,	/*hyphen*/
2437081Srrh 0146,	/*bullet*/
2447081Srrh 0154,	/*square*/
2457081Srrh 022,	/*3/4 em*/
2467081Srrh 026,	/*rule*/
2477081Srrh 034,	/*1/4*/
2487081Srrh 036,	/*1/2*/
2497081Srrh 046,	/*3/4*/
2507081Srrh 0123,	/*minus*/
2517081Srrh 0124,	/*fi*/
2527081Srrh 0125,	/*fl*/
2537081Srrh 0126,	/*ff*/
2547081Srrh 0131,	/*ffi*/
2557081Srrh 0130,	/*ffl*/
2567081Srrh 0136,	/*degree*/
2577081Srrh 0137,	/*dagger*/
2587081Srrh 0355,	/*section*/
2597081Srrh 0150,	/*foot mark*/
2607081Srrh 0334,	/*acute accent*/
2617081Srrh 0335,	/*grave accent*/
2627081Srrh 0240,	/*underrule*/
2637081Srrh 0304,	/*slash (longer)*/
2647081Srrh 00,	/*half nar sp*/
2657081Srrh 00,	/**/
2667081Srrh 0225,	/*alpha*/
2677081Srrh 0212,	/*beta*/
2687081Srrh 0245,	/*gamma*/
2697081Srrh 0211,	/*delta*/
2707081Srrh 0231,	/*epsilon*/
2717081Srrh 0207,	/*zeta*/
2727081Srrh 0214,	/*eta*/
2737081Srrh 0202,	/*theta*/
2747081Srrh 0206,	/*iota*/
2757081Srrh 0217,	/*kappa*/
2767081Srrh 0205,	/*lambda*/
2777081Srrh 0204,	/*mu*/
2787081Srrh 0203,	/*nu*/
2797081Srrh 0213,	/*xi*/
2807081Srrh 0233,	/*omicron*/
2817081Srrh 0221,	/*pi*/
2827081Srrh 0235,	/*rho*/
2837081Srrh 0210,	/*sigma*/
2847081Srrh 0237,	/*tau*/
2857081Srrh 0216,	/*upsilon*/
2867081Srrh 0215,	/*phi*/
2877081Srrh 0227,	/*chi*/
2887081Srrh 0201,	/*psi*/
2897081Srrh 0251,	/*omega*/
2907081Srrh 0265,	/*Gamma*/
2917081Srrh 0274,	/*Delta*/
2927081Srrh 0256,	/*Theta*/
2937081Srrh 0263,	/*Lambda*/
2947081Srrh 0302,	/*Xi*/
2957081Srrh 0267,	/*Pi*/
2967081Srrh 0276,	/*Sigma*/
2977081Srrh 00,	/**/
2987081Srrh 0306,	/*Upsilon*/
2997081Srrh 0255,	/*Phi*/
3007081Srrh 0242,	/*Psi*/
3017081Srrh 0257,	/*Omega*/
3027081Srrh 0275,	/*square root*/
3037081Srrh 0262,	/*terminal sigma (was root em)*/
3047081Srrh 0261,	/*root en*/
3057081Srrh 0327,	/*>=*/
3067081Srrh 0326,	/*<=*/
3077081Srrh 0330,	/*identically equal*/
3087081Srrh 0264,	/*equation minus*/
3097081Srrh 0277,	/*approx =*/
3107081Srrh 0272,	/*approximates*/
3117081Srrh 0331,	/*not equal*/
3127081Srrh 0354,	/*right arrow*/
3137081Srrh 0234,	/*left arrow*/
3147081Srrh 0236,	/*up arrow*/
3157081Srrh 0223,	/*down arrow*/
3167081Srrh 0232,	/*equation equal*/
3177081Srrh 0323,	/*multiply*/
3187081Srrh 0324,	/*divide*/
3197081Srrh 0325,	/*plus-minus*/
3207081Srrh 0260,	/*cup (union)*/
3217081Srrh 0305,	/*cap (intersection)*/
3227081Srrh 0270,	/*subset of*/
3237081Srrh 0271,	/*superset of*/
3247081Srrh 0350,	/*improper subset*/
3257081Srrh 0246,	/* improper superset*/
3267081Srrh 0244,	/*infinity*/
3277081Srrh 0273,	/*partial derivative*/
3287081Srrh 0253,	/*gradient*/
3297081Srrh 0307,	/*not*/
3307081Srrh 0266,	/*integral sign*/
3317081Srrh 0247,	/*proportional to*/
3327081Srrh 0343,	/*empty set*/
3337081Srrh 0341,	/*member of*/
3347081Srrh 0353,	/*equation plus*/
3357081Srrh 0141,	/*registered*/
3367081Srrh 0153,	/*copyright*/
3377081Srrh 0346,	/*box rule (was parallel sign)*/
3387081Srrh 0127,	/*cent sign*/
3397081Srrh 0345,	/*dbl dagger*/
3407081Srrh 0250,	/*right hand*/
3417081Srrh 0340,	/*left hand*/
3427081Srrh 0347,	/*math * */
3437081Srrh 0243,	/*bell system sign*/
3447081Srrh 0226,	/*or (was star)*/
3457081Srrh 0351,	/*circle*/
3467081Srrh 0311,	/*left top (of big curly)*/
3477081Srrh 0314,	/*left bottom*/
3487081Srrh 0315,	/*right top*/
3497081Srrh 0317,	/*right bot*/
3507081Srrh 0313,	/*left center of big curly bracket*/
3517081Srrh 0316,	/*right center of big curly bracket*/
3527081Srrh 0312,	/*bold vertical*/
3537081Srrh 0321,	/*left floor (left bot of big sq bract)*/
3547081Srrh 0320,	/*right floor (rb of ")*/
3557081Srrh 0322,	/*left ceiling (lt of ")*/
3567081Srrh 0310};	/*right ceiling (rt of ")*/
3577081Srrh 
3587081Srrh /*modified for Commercial II*/
3597081Srrh char W1[256-32] = {	/*Times Roman widths*/
3607081Srrh 12,	 /*space*/
3617081Srrh 12,	 /*!*/
3627081Srrh 0,	 /*"*/
3637081Srrh 0,	 /*#*/
3647081Srrh 19,	 /*$*/
3657081Srrh 29,	 /*%*/
3667081Srrh 28,	 /*&*/
3677081Srrh 12,	 /*' close*/
3687081Srrh 16,	 /*(*/
3697081Srrh 16,	 /*)*/
3707081Srrh 16,	 /***/
3717081Srrh 36,	 /*+*/
3727081Srrh 12,	 /*,*/
3737081Srrh 13,	 /*- hyphen*/
3747081Srrh 10,	 /*.*/
3757081Srrh 17,	 /*/*/
3767081Srrh 19+0200, /*0*/
3777081Srrh 19+0200, /*1*/
3787081Srrh 19+0200, /*2*/
3797081Srrh 19+0200, /*3*/
3807081Srrh 19+0200, /*4*/
3817081Srrh 19+0200, /*5*/
3827081Srrh 19+0200, /*6*/
3837081Srrh 19+0200, /*7*/
3847081Srrh 19+0200, /*8*/
3857081Srrh 19+0200, /*9*/
3867081Srrh 10,	 /*:*/
3877081Srrh 12,	 /*;*/
3887081Srrh 0,	 /*<*/
3897081Srrh 36,	 /*=*/
3907081Srrh 0,	 /*>*/
3917081Srrh 20,	 /*?*/
3927081Srrh 0,	 /*@*/
3937081Srrh 29+0200, /*A*/
3947081Srrh 23+0200, /*B*/
3957081Srrh 26+0200, /*C*/
3967081Srrh 30+0200, /*D*/
3977081Srrh 24+0200, /*E*/
3987081Srrh 23+0200, /*F*/
3997081Srrh 30+0200, /*G*/
4007081Srrh 29+0200, /*H*/
4017081Srrh 13+0200, /*I*/
4027081Srrh 16+0200, /*J*/
4037081Srrh 28+0200, /*K*/
4047081Srrh 24+0200, /*L*/
4057081Srrh 35+0200, /*M*/
4067081Srrh 29+0200, /*N*/
4077081Srrh 27+0200, /*O*/
4087081Srrh 22+0200, /*P*/
4097081Srrh 27+0300, /*Q*/
4107081Srrh 27+0200, /*R*/
4117081Srrh 20+0200, /*S*/
4127081Srrh 24+0200, /*T*/
4137081Srrh 29+0200, /*U*/
4147081Srrh 27+0200, /*V*/
4157081Srrh 36+0200, /*W*/
4167081Srrh 28+0200, /*X*/
4177081Srrh 27+0200, /*Y*/
4187081Srrh 23+0200, /*Z*/
4197081Srrh 14,	 /*[*/
4207081Srrh 0,	 /*\*/
4217081Srrh 14,	 /*]*/
4227081Srrh 0,	 /*^*/
4237081Srrh 0,	 /*_*/
4247081Srrh 12,	 /*` open*/
4257081Srrh 17,	 /*a*/
4267081Srrh 20+0200, /*b*/
4277081Srrh 16,	 /*c*/
4287081Srrh 20+0200, /*d*/
4297081Srrh 18,	 /*e*/
4307081Srrh 13+0200, /*f*/
4317081Srrh 18+0100, /*g*/
4327081Srrh 21+0200, /*h*/
4337081Srrh 10+0200, /*i*/
4347081Srrh 9+0300, /*j*/
4357081Srrh 20+0200, /*k*/
4367081Srrh 10+0200, /*l*/
4377081Srrh 32,	 /*m*/
4387081Srrh 21,	 /*n*/
4397081Srrh 20,	 /*o*/
4407081Srrh 19+0100, /*p*/
4417081Srrh 19+0100, /*q*/
4427081Srrh 14,	 /*r*/
4437081Srrh 15,	 /*s*/
4447081Srrh 12+0200, /*t*/
4457081Srrh 21,	 /*u*/
4467081Srrh 20,	 /*v*/
4477081Srrh 26,	 /*w*/
4487081Srrh 20,	 /*x*/
4497081Srrh 18+0100, /*y*/
4507081Srrh 17,	 /*z*/
4517081Srrh 0,	 /*{*/
4527081Srrh 2,	 /*|*/
4537081Srrh 0,	 /*}*/
4547081Srrh 0,	 /*~*/
4557081Srrh 6,	 /*narrow space*/
4567081Srrh 13,	 /*hyphen*/
4577081Srrh 27,	 /*bullet*/
4587081Srrh 27,	 /*square*/
4597081Srrh 36,	 /*3/4 em*/
4607081Srrh 18,	 /*rule*/
4617081Srrh 29,	 /*1/4*/
4627081Srrh 29,	 /*1/2*/
4637081Srrh 29,	 /*3/4*/
4647081Srrh 36,	 /*minus*/
4657081Srrh 21,	 /*fi*/
4667081Srrh 21,	 /*fl*/
4677081Srrh 24,	 /*ff*/
4687081Srrh 32,	 /*ffi*/
4697081Srrh 32,	 /*ffl*/
4707081Srrh 15,	 /*degree*/
4717081Srrh 20,	 /*dagger*/
4727081Srrh 0,	 /*section*/
4737081Srrh 8,	 /*foot mark*/
4747081Srrh 0,	 /*'*/
4757081Srrh 0,	 /*`*/
4767081Srrh 0,	 /*_*/
4777081Srrh 0,
4787081Srrh 3,	/*half nar sp*/
4797081Srrh 0,
4807081Srrh 0,0,0,0,0,0,0,0,
4817081Srrh 0,0,0,0,0,0,0,0,
4827081Srrh 0,0,0,0,0,0,0,0,
4837081Srrh 0,0,0,0,0,0,0,0,
4847081Srrh 0,0,0,0,0,0,0,0,
4857081Srrh 0,0,0,0,0,0,0,0,
4867081Srrh 0,0,0,0,0,0,0,0,
4877081Srrh 0,0,0,0,0,0,0,0,
4887081Srrh 0,0,0,0,0,
4897081Srrh 20,	 /*registered*/
4907081Srrh 20,	 /*copyright*/
4917081Srrh 0,
4927081Srrh 19,	 /*cent*/
4937081Srrh };
4947081Srrh 
4957081Srrh char W2[256-32] = {	/*Times Italic widths*/
4967081Srrh 12,	 /*space*/
4977081Srrh 13,	 /*!*/
4987081Srrh 0,	 /*"*/
4997081Srrh 0,	 /*#*/
5007081Srrh 19,	 /*$*/
5017081Srrh 27,	 /*%*/
5027081Srrh 26,	 /*&*/
5037081Srrh 11,	 /*' close*/
5047081Srrh 15,	 /*(*/
5057081Srrh 15,	 /*)*/
5067081Srrh 16,	 /***/
5077081Srrh 36,	 /*+*/
5087081Srrh 11,	 /*,*/
5097081Srrh 13,	 /*- hyphen*/
5107081Srrh 11,	 /*.*/
5117081Srrh 9,	 /*/*/
5127081Srrh 19+0200, /*0*/
5137081Srrh 19+0200, /*1*/
5147081Srrh 19+0200, /*2*/
5157081Srrh 19+0200, /*3*/
5167081Srrh 19+0200, /*4*/
5177081Srrh 19+0200, /*5*/
5187081Srrh 19+0200, /*6*/
5197081Srrh 19+0200, /*7*/
5207081Srrh 19+0200, /*8*/
5217081Srrh 19+0200, /*9*/
5227081Srrh 11,	 /*:*/
5237081Srrh 11,	 /*;*/
5247081Srrh 0,	 /*<*/
5257081Srrh 36,	 /*=*/
5267081Srrh 0,	 /*>*/
5277081Srrh 20,	 /*?*/
5287081Srrh 0,	 /*@*/
5297081Srrh 25+0200, /*A*/
5307081Srrh 24+0200, /*B*/
5317081Srrh 26+0200, /*C*/
5327081Srrh 27+0200, /*D*/
5337081Srrh 23+0200, /*E*/
5347081Srrh 21+0200, /*F*/
5357081Srrh 27+0200, /*G*/
5367081Srrh 29+0200, /*H*/
5377081Srrh 14+0200, /*I*/
5387081Srrh 16+0200, /*J*/
5397081Srrh 28+0200, /*K*/
5407081Srrh 24+0200, /*L*/
5417081Srrh 34+0200, /*M*/
5427081Srrh 27+0200, /*N*/
5437081Srrh 27+0200, /*O*/
5447081Srrh 22+0200, /*P*/
5457081Srrh 27+0300, /*Q*/
5467081Srrh 27+0200, /*R*/
5477081Srrh 20+0200, /*S*/
5487081Srrh 23+0200, /*T*/
5497081Srrh 28+0200, /*U*/
5507081Srrh 25+0200, /*V*/
5517081Srrh 36+0200, /*W*/
5527081Srrh 24+0200, /*X*/
5537081Srrh 24+0200, /*Y*/
5547081Srrh 25+0200, /*Z*/
5557081Srrh 13,	 /*[*/
5567081Srrh 0,	 /*\*/
5577081Srrh 13,	 /*]*/
5587081Srrh 0,	 /*^*/
5597081Srrh 0,	 /*_*/
5607081Srrh 11,	 /*` open*/
5617081Srrh 19,	 /*a*/
5627081Srrh 18+0200, /*b*/
5637081Srrh 15,	 /*c*/
5647081Srrh 18+0200, /*d*/
5657081Srrh 16,	 /*e*/
5667081Srrh 11+0200, /*f*/
5677081Srrh 17+0100, /*g*/
5687081Srrh 19+0200, /*h*/
5697081Srrh 9+0200, /*i*/
5707081Srrh 9+0300, /*j*/
5717081Srrh 19+0200, /*k*/
5727081Srrh 9+0200, /*l*/
5737081Srrh 28,	 /*m*/
5747081Srrh 19,	 /*n*/
5757081Srrh 18,	 /*o*/
5767081Srrh 17+0100, /*p*/
5777081Srrh 18+0100, /*q*/
5787081Srrh 13,	 /*r*/
5797081Srrh 14,	 /*s*/
5807081Srrh 10+0200, /*t*/
5817081Srrh 19,	 /*u*/
5827081Srrh 16,	 /*v*/
5837081Srrh 24,	 /*w*/
5847081Srrh 18,	 /*x*/
5857081Srrh 16+0100, /*y*/
5867081Srrh 14,	 /*z*/
5877081Srrh 0,	 /*{*/
5887081Srrh 2,	 /*|*/
5897081Srrh 0,	 /*}*/
5907081Srrh 0,	 /*~*/
5917081Srrh 6,	 /*narrow space*/
5927081Srrh 13,	 /*hyphen*/
5937081Srrh 27,	 /*bullet*/
5947081Srrh 27,	 /*square*/
5957081Srrh 36,	 /*3/4 em*/
5967081Srrh 18,	 /*rule*/
5977081Srrh 27,	 /*1/4*/
5987081Srrh 27,	 /*1/2*/
5997081Srrh 27,	 /*3/4*/
6007081Srrh 36,	 /*minus*/
6017081Srrh 21,	 /*fi*/
6027081Srrh 21,	 /*fl*/
6037081Srrh 21,	 /*ff*/
6047081Srrh 31,	 /*ffi*/
6057081Srrh 31,	 /*ffl*/
6067081Srrh 15,	 /*degree*/
6077081Srrh 19,	 /*dagger*/
6087081Srrh 16,	 /*section*/
6097081Srrh 7,	 /*foot mark*/
6107081Srrh 0,	 /*'*/
6117081Srrh 0,	 /*`*/
6127081Srrh 0,	 /*_*/
6137081Srrh 0,
6147081Srrh 3,	/*half nar sp*/
6157081Srrh 0,
6167081Srrh 0,0,0,0,0,0,0,0,
6177081Srrh 0,0,0,0,0,0,0,0,
6187081Srrh 0,0,0,0,0,0,0,0,
6197081Srrh 0,0,0,0,0,0,0,0,
6207081Srrh 0,0,0,0,0,0,0,0,
6217081Srrh 0,0,0,0,0,0,0,0,
6227081Srrh 0,0,0,0,0,0,0,0,
6237081Srrh 0,0,0,0,0,0,0,0,
6247081Srrh 0,0,0,0,0,
6257081Srrh 20,	 /*registered*/
6267081Srrh 20,	 /*copyright*/
6277081Srrh 0,
6287081Srrh 19,	 /*cent*/
6297081Srrh };
6307081Srrh char W3[256-32] = {	/*Times Bold widths*/
6317081Srrh 12,	 /*space*/
6327081Srrh 13,	 /*!*/
6337081Srrh 0,	 /*"*/
6347081Srrh 0,	 /*#*/
6357081Srrh 18,	 /*$*/
6367081Srrh 28,	 /*%*/
6377081Srrh 27,	 /*&*/
6387081Srrh 12,	 /*' close*/
6397081Srrh 16,	 /*(*/
6407081Srrh 16,	 /*)*/
6417081Srrh 18,	 /***/
6427081Srrh 36,	 /*+*/
6437081Srrh 12,	 /*,*/
6447081Srrh 14,	 /*- hyphen*/
6457081Srrh 12,	 /*.*/
6467081Srrh 18,	 /*/*/
6477081Srrh 19+0200, /*0*/
6487081Srrh 19+0200, /*1*/
6497081Srrh 19+0200, /*2*/
6507081Srrh 19+0200, /*3*/
6517081Srrh 19+0200, /*4*/
6527081Srrh 19+0200, /*5*/
6537081Srrh 19+0200, /*6*/
6547081Srrh 19+0200, /*7*/
6557081Srrh 19+0200, /*8*/
6567081Srrh 19+0200, /*9*/
6577081Srrh 13,	 /*:*/
6587081Srrh 13,	 /*;*/
6597081Srrh 0,	 /*<*/
6607081Srrh 36,	 /*=*/
6617081Srrh 0,	 /*>*/
6627081Srrh 22,	 /*?*/
6637081Srrh 0,	 /*@*/
6647081Srrh 28+0200, /*A*/
6657081Srrh 26+0200, /*B*/
6667081Srrh 26+0200, /*C*/
6677081Srrh 29+0200, /*D*/
6687081Srrh 25+0200, /*E*/
6697081Srrh 23+0200, /*F*/
6707081Srrh 28+0200, /*G*/
6717081Srrh 32+0200, /*H*/
6727081Srrh 16+0200, /*I*/
6737081Srrh 21+0200, /*J*/
6747081Srrh 28+0200, /*K*/
6757081Srrh 25+0200, /*L*/
6767081Srrh 36+0200, /*M*/
6777081Srrh 30+0200, /*N*/
6787081Srrh 29+0200, /*O*/
6797081Srrh 25+0200, /*P*/
6807081Srrh 29+0300, /*Q*/
6817081Srrh 28+0200, /*R*/
6827081Srrh 23+0200, /*S*/
6837081Srrh 25+0200, /*T*/
6847081Srrh 29+0200, /*U*/
6857081Srrh 27+0200, /*V*/
6867081Srrh 36+0200, /*W*/
6877081Srrh 27+0200, /*X*/
6887081Srrh 28+0200, /*Y*/
6897081Srrh 27+0200, /*Z*/
6907081Srrh 12,	 /*[*/
6917081Srrh 0,	 /*\*/
6927081Srrh 12,	 /*]*/
6937081Srrh 0,	 /*^*/
6947081Srrh 0,	 /*_*/
6957081Srrh 12,	 /*` open*/
6967081Srrh 19,	 /*a*/
6977081Srrh 19+0200, /*b*/
6987081Srrh 16,	 /*c*/
6997081Srrh 19+0200, /*d*/
7007081Srrh 17,	 /*e*/
7017081Srrh 13+0200, /*f*/
7027081Srrh 18+0100, /*g*/
7037081Srrh 22+0200, /*h*/
7047081Srrh 12+0200, /*i*/
7057081Srrh 12+0300, /*j*/
7067081Srrh 23+0200, /*k*/
7077081Srrh 12+0200, /*l*/
7087081Srrh 32,	 /*m*/
7097081Srrh 22,	 /*n*/
7107081Srrh 18,	 /*o*/
7117081Srrh 20+0100, /*p*/
7127081Srrh 19+0100, /*q*/
7137081Srrh 15,	 /*r*/
7147081Srrh 17,	 /*s*/
7157081Srrh 13+0200, /*t*/
7167081Srrh 21,	 /*u*/
7177081Srrh 19,	 /*v*/
7187081Srrh 27,	 /*w*/
7197081Srrh 21,	 /*x*/
7207081Srrh 19+0100, /*y*/
7217081Srrh 17,	 /*z*/
7227081Srrh 0,	 /*{*/
7237081Srrh 2,	 /*|*/
7247081Srrh 0,	 /*}*/
7257081Srrh 0,	 /*~*/
7267081Srrh 6,	 /*narrow space*/
7277081Srrh 14,	 /*hyphen*/
7287081Srrh 27,	 /*bullet*/
7297081Srrh 27,	 /*square*/
7307081Srrh 36,	 /*3/4 em*/
7317081Srrh 18,	 /*rule*/
7327081Srrh 28,	 /*1/4*/
7337081Srrh 28,	 /*1/2*/
7347081Srrh 28,	 /*3/4*/
7357081Srrh 36,	 /*minus*/
7367081Srrh 22,	 /*fi*/
7377081Srrh 22,	 /*fl*/
7387081Srrh 23,	 /*ff*/
7397081Srrh 33,	 /*ffi*/
7407081Srrh 33,	 /*ffl*/
7417081Srrh 15,	 /*degree*/
7427081Srrh 20,	 /*dagger*/
7437081Srrh 0,	 /*section*/
7447081Srrh 9,	 /*foot mark*/
7457081Srrh 0,	 /*'*/
7467081Srrh 0,	 /*`*/
7477081Srrh 0,	 /*_*/
7487081Srrh 0,
7497081Srrh 3,	/*half nar sp*/
7507081Srrh 0,
7517081Srrh 0,0,0,0,0,0,0,0,
7527081Srrh 0,0,0,0,0,0,0,0,
7537081Srrh 0,0,0,0,0,0,0,0,
7547081Srrh 0,0,0,0,0,0,0,0,
7557081Srrh 0,0,0,0,0,0,0,0,
7567081Srrh 0,0,0,0,0,0,0,0,
7577081Srrh 0,0,0,0,0,0,0,0,
7587081Srrh 0,0,0,0,0,0,0,0,
7597081Srrh 0,0,0,0,0,
7607081Srrh 20,	 /*registered*/
7617081Srrh 20,	 /*copyright*/
7627081Srrh 0,
7637081Srrh 19,	 /*cent*/
7647081Srrh };
7657081Srrh 
7667081Srrh /*
7677081Srrh Modified for Commercial II
7687081Srrh and with +, -, and = for equations
7697081Srrh */
7707081Srrh char W4[256-32] = {	/*Special font widths*/
7717081Srrh 0,0,	 	/*.=Sw+042-40*/
7727081Srrh 13,	 /*"*/
7737081Srrh 29,	 /*#*/
7747081Srrh 0,0,0,0,	 	/*.=Sw+074-40*/
7757081Srrh 0,0,0,0,0,0,0,0,
7767081Srrh 0,0,0,0,0,0,0,0,
7777081Srrh 0,0,0,0,
7787081Srrh 36,	 /*<*/
7797081Srrh 0,	 	/*.=Sw+076-40*/
7807081Srrh 36,	 /*>*/
7817081Srrh 0,	 	/*.=Sw+100-40*/
7827081Srrh 36,	 /*@*/
7837081Srrh 0,0,0,0,0,0,0,	/*.=Sw+134-40*/
7847081Srrh 0,0,0,0,0,0,0,0,
7857081Srrh 0,0,0,0,0,0,0,0,
7867081Srrh 0,0,0,0,
7877081Srrh 15,	 /*\\*/
7887081Srrh 0,	 	/*.=Sw+136-40*/
7897081Srrh 15,	 /*^*/
7907081Srrh 18,	 /*_ underrule*/
7917081Srrh 0,0,0,0,0,0,0,0,
7927081Srrh 0,0,0,0,0,0,0,0,
7937081Srrh 0,0,0,0,0,0,0,0,
7947081Srrh 0,0,0,
7957081Srrh 14,	 /*{*/
7967081Srrh 0,	 	/*.=Sw+175-40*/
7977081Srrh 14,	 /*}*/
7987081Srrh 15,	 /*~*/
7997081Srrh 0,	 	/*.=Sw+220-40*/
8007081Srrh 0,0,0,0,0,0,0,0,
8017081Srrh 0,0,0,0,0,0,0,0,
8027081Srrh 17,	 /*section*/
8037081Srrh 0,		/*.=Sw+222-40*/
8047081Srrh 10,	 /*acute accent*/
8057081Srrh 10,	 /*grave accent*/
8067081Srrh 18,	 /*underrule*/
8077081Srrh 15,	 /*slash (longer)*/
8087081Srrh 0,	 /**/
8097081Srrh 0,	 /**/
8107081Srrh 24,	 /*alpha*/
8117081Srrh 23+0300, /*beta*/
8127081Srrh 23+0100, /*gamma*/
8137081Srrh 19+0200, /*delta*/
8147081Srrh 18,	 /*epsilon*/
8157081Srrh 18+0300, /*zeta*/
8167081Srrh 23+0100, /*eta*/
8177081Srrh 19+0200, /*theta*/
8187081Srrh 13,	 /*iota*/
8197081Srrh 21,	 /*kappa*/
8207081Srrh 22+0200, /*lambda*/
8217081Srrh 25+0100, /*mu*/
8227081Srrh 20,	 /*nu*/
8237081Srrh 20+0300, /*xi*/
8247081Srrh 20,	 /*omicron*/
8257081Srrh 27,	 /*pi*/
8267081Srrh 21+0100, /*rho*/
8277081Srrh 27,	 /*sigma*/
8287081Srrh 20,	 /*tau*/
8297081Srrh 21,	 /*upsilon*/
8307081Srrh 25+0300, /*phi*/
8317081Srrh 22+0100, /*chi*/
8327081Srrh 24+0300, /*psi*/
8337081Srrh 25,	 /*omega*/
8347081Srrh 24+0200, /*Gamma*/
8357081Srrh 26+0200, /*Delta*/
8367081Srrh 28+0200, /*Theta*/
8377081Srrh 28+0200, /*Lambda*/
8387081Srrh 27+0200, /*Xi*/
8397081Srrh 29+0200, /*Pi*/
8407081Srrh 25+0200, /*Sigma*/
8417081Srrh 0,	 /**/
8427081Srrh 28+0200, /*Upsilon*/
8437081Srrh 29+0200, /*Phi*/
8447081Srrh 32+0200, /*Psi*/
8457081Srrh 36+0200, /*Omega*/
8467081Srrh 30,	 /*square root*/
8477081Srrh 18+0100, /*terminal sigma*/
8487081Srrh 18,	 /*root en*/
8497081Srrh 36,	 /*>=*/
8507081Srrh 36,	 /*<=*/
8517081Srrh 36,	 /*identically equal*/
8527081Srrh 27,	 /*minus*/
8537081Srrh 36,	 /*approx =*/
8547081Srrh 36,	 /*approximates*/
8557081Srrh 36,	 /*not equal*/
8567081Srrh 36,	 /*right arrow*/
8577081Srrh 36,	 /*left arrow*/
8587081Srrh 18,	 /*up arrow*/
8597081Srrh 18,	 /*down arrow*/
8607081Srrh 27,	 /*equal*/
8617081Srrh 27,	 /*multiply*/
8627081Srrh 27,	 /*divide*/
8637081Srrh 36,	 /*plus-minus*/
8647081Srrh 36,	 /*cup (union)*/
8657081Srrh 36,	 /*cap (intersection)*/
8667081Srrh 36,	 /*subset of*/
8677081Srrh 36,	 /*superset of*/
8687081Srrh 36,	 /*improper subset*/
8697081Srrh 36,	 /*improper superset*/
8707081Srrh 34,	 /*infinity*/
8717081Srrh 21,	 /*partial derivative*/
8727081Srrh 36+0200, /*gradient*/
8737081Srrh 22,	 /*not*/
8747081Srrh 24,	 /*integral sign*/
8757081Srrh 27,	 /*proportional to*/
8767081Srrh 28,	 /*empty set*/
8777081Srrh 27,	 /*member of*/
8787081Srrh 27,	 /*plus*/
8797081Srrh 0,
8807081Srrh 0,
8817081Srrh 0,	 /*box vert rule (was 2.)*/
8827081Srrh 0,
8837081Srrh 17,	 /*dbl dagger*/
8847081Srrh 42,	 /*right hand*/
8857081Srrh 42,	 /*left hand*/
8867081Srrh 16,	 /*math * */
8877081Srrh 41,	 /*bell system sign*/
8887081Srrh 9,	 /*or*/
8897081Srrh 27,	 /*circle*/
8907081Srrh 9,	 /*left top (of big curly)*/
8917081Srrh 9,	 /*left bottom*/
8927081Srrh 9,	 /*right top*/
8937081Srrh 9,	 /*right bot*/
8947081Srrh 9,	 /*left center of big curly bracket*/
8957081Srrh 9,	 /*right center of big curly bracket*/
8967081Srrh 9,	 /*bold vertical*/
8977081Srrh 9,	 /*left floor (left bot of big sq bract)*/
8987081Srrh 9,	 /*right floor (rb of ")*/
8997081Srrh 9,	 /*left ceiling (lt of ")*/
9007081Srrh 9 }; /*right ceiling (rt of ")*/
901