Source Code 1992 March

home *** CD-ROM | disk | FTP | other *** search

/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1838 < prev next >

Wrap

Internet Message Format | 1990-12-28 | 30.2 KB

From: clewis@ecicrl.UUCP (Chris Lewis) Newsgroups: comp.text.desktop,comp.fonts,alt.sources Subject: TEX PK to HP SFP font conversion (2 of 2) Message-ID: <852@ecicrl.UUCP> Date: 17 Sep 90 16:19:11 GMT Shell archive - cut here - #!/bin/sh sed -e 's/^X//' > pk2sfp.c <<\!BLOTTO X/* Copyright 1985, 1986, 1987, 1988 90/09/17 Chris Lewis X All Rights Reserved X X Permission to copy and further distribute is freely given provided X this copyright notice remains intact and that this software is not X sold for profit. X X Project: Generic Troff drivers X Module: pk2sfp.c X Author: Chris Lewis X Specs: Generates SFP's from PK's. X */ X X#ifndef lint Xstatic char SCCSID[] = X "@(#)pk2sfp.c 2.2 Copyright 90/09/17 10:50:03 Chris Lewis"; X#endif X X#include "defs.h" X#include "pk.h" X X#define MAXMAP 256 X Xstruct fontmap { X short from; X short to; X} fontmap[MAXMAP], *flast = fontmap, *fp; X Xchar emittedyet[256]; X X#define NOTSET 32767 X Xint symset = NOTSET; Xint style = NOTSET; Xint strokeweight = NOTSET; Xint typeface = NOTSET; Xint fontid = NOTSET; Xint verbose = 0; Xint merge = 0; Xint symbol = 0; Xint partial = 0; Xint permanent = 0; X Xchar *progname; X X#ifdef PARTIAL Xextern struct enctab encNormal[], encSymbol[]; X Xneedchar(font, character) Xint font; Xlong character; { X register struct enctab *tab; X register char *p; X X if (!partial) X return(1); X X if (symbol) X tab = encSymbol; X else X tab = encNormal; X X for(; tab->e_name; tab++) { X for (p = tab->e_seq; *p; p++) X if (((*p) & 0xff) == character) X return(1); X } X X return(0); X} X#else Xneedchar(font, character) Xint font; Xlong character; { X return(1); X} X#endif X Xmain(argc, argv) Xint argc; Xchar **argv; { X char buf[512]; X extern int optind; X long totalbytes, numbytes; X int totalcodes, numcodes; X X extern char *optarg; X int i; X int c; X X progname = argv[0]; X X while((c = getopt(argc, argv, "D:s:t:w:f:i:vmSpP")) != EOF) { X switch(c) { X case 'D': X#ifdef DEBUG X setdebug(optarg, "diagnostics"); X break; X#else X fprintf(stderr, "%s: DEBUG disabled, recompile\n", progname); X exit(1); X#endif X case 'P': X permanent = 1; X break; X case 'S': X symbol = 1; X break; X case 'p': X partial = 1; X break; X case 's': X symset = ((optarg[0] - '0') << 5) + optarg[1] - 64; X break; X case 't': X style = atoi(optarg); X break; X case 'w': X strokeweight = atoi(optarg); X break; X case 'f': X typeface = atoi(optarg); X break; X case 'i': X fontid = atoi(optarg); X break; X case 'v': X verbose = 1; X break; X case 'm': X merge = 1; X break; X X default: X fprintf(stderr, "usage: pk2sfp [-Dopts] [<options>] file...\n"); X fprintf(stderr, "or : pk2sfp -m [-Dopts] [<options>]"); X fprintf(stderr, " map file map file ....\n"); X X fprintf(stderr, "\t-sna: symset, eg: -s8U\n"); X fprintf(stderr, "\t-t0|1: style: 0 upright, 1 italic\n"); X fprintf(stderr, "\t-wn: stroke weight (-7..7)\n"); X fprintf(stderr, "\t-fn: typeface, eg: 5 is Times Roman\n"); X fprintf(stderr, "\t-in: prepend fontid n, auto increments\n"); X fprintf(stderr, "\t-v: verbose - emit actions to stderr\n"); X fprintf(stderr, "\t-p: only download chars psroff needs\n"); X fprintf(stderr, "\t-S: font is used for psroff Symbol font\n"); X fprintf(stderr, "\t-P: mark font as permanent (needs -in)\n"); X exit(1); X } X } X if (merge) X fprintf(stderr, "MERGING fonts\n"); X X numbytes = 0; X X for(;argv[optind];optind++) { X register struct pkp *pk; X register struct pkc *pc; X X numcodes = 0; X numbytes = 0; X X strcpy(buf, argv[optind]); X X if (merge && readmerge(buf)) X continue; X X /* Read the PK file in-core */ X pk = pk_read(buf); X X /* Overrides */ X if (symset != NOTSET) X pk->pkp_symset = symset; X if (style != NOTSET) X pk->pkp_style = style; X if (strokeweight != NOTSET) X pk->pkp_sw = strokeweight; X if (typeface != NOTSET) X pk->pkp_typeface = typeface; X X if (verbose) X if (merge > 1) X fprintf(stderr, "Appending %s: ", buf); X else X fprintf(stderr, "Emitting %s: ", buf); X X /* you want a font ID select? */ X if (merge <= 1 && fontid != NOTSET) { X if (verbose) X fprintf(stderr, "fontid %d\n", fontid); X printf("\033*c%dD", fontid); X } else X if (verbose) X fprintf(stderr, "no fontid\n"); X X if (merge <= 1 && verbose) { X fprintf(stderr, "\tsymset: %d%c\n", pk->pkp_symset >> 5, X (pk->pkp_symset & 0x1f) + 64); X fprintf(stderr, "\ttype: %s\n", pk->pkp_style?"italic":"upright"); X fprintf(stderr, "\tstroke weight: %d\n", pk->pkp_sw); X fprintf(stderr, "\ttypeface: %d\n", pk->pkp_typeface); X } X X if (merge <= 1) { X /* Emit the SFP header */ X epk_desc(pk, stdout); X numbytes += 2048; X numcodes = 0; X if (merge == 1) X merge++; X } X X /* Emit each character */ X for (i = 0; i < pk->pkp_num; i++) { X pc = pk->pkp_list[i]; X if (merge) { X for (fp = fontmap; fp < flast; fp++) X if (pc->pkc_char == fp->from) { X pc->pkc_char = fp->to; X if (emittedyet[(fp->to)&0xff]) { X if (verbose) X fprintf(stderr, X "Skipping %02x (%c) as %02x (%c) from %s\n", X fp->from, pchr(fp->from), X fp->to, pchr(fp->to), buf); X break; X } X if (verbose) X fprintf(stderr, X "Emitting %02x (%c) as %02x (%c) from %s\n", X fp->from, pchr(fp->from), X fp->to, pchr(fp->to), buf); X emittedyet[(fp->to)&0xff] = 1; X fp->to = 0x00; X numbytes += epkc_desc(pc, stdout); X numcodes++; X break; X } X } else { X DBP((D_FONT,"Downloading char %02x (%c)\n", pc->pkc_char, X pchr(pc->pkc_char))); X numbytes += epkc_desc(pc, stdout); X numcodes++; X } X } X /* added to make fonts permanent */ X /* ron@mlfarm 6.1.90 */ X X if (fontid != NOTSET && permanent) X printf("\033*c%dd5F", fontid); X X if (fontid != NOTSET) X fontid++; X X /* Clobber in-core PK */ X pk_destroy(pk); X X totalbytes += numbytes; X totalcodes += numcodes; X if (verbose) X fprintf(stderr, "%s: %d bytes %d codes\n", buf, numbytes, numcodes); X X } X if (merge) X checkmissing((char *) NULL); X if (verbose) X fprintf(stderr, "total: %d bytes %d codes\n", totalbytes, totalcodes); X exit(0); X} X X/* similar to strtol */ Xshort Xcvt(p) Xregister char *p; { X register short ret = 0; X int base = 10; X X if (!isdigit(*p) && !*(p+1)) X return(*p); X X if (*p == '0') X if (*(p+1) == 'x' || *(p+1) == 'X') { X base = 16; X p += 2; X } else X base = 8; X while(*p) X ret = ret * base + ccvt(*p++); X return(ret); X} X Xccvt(c) Xint c; { X if (isdigit(c)) X return(c - '0'); X else if (isupper(c)) X return(c - 'A' + 10); X else if (islower(c)) X return(c - 'a' + 10); X else { X fprintf(stderr, "%s: bad digit %c in map file\n", progname, c); X exit(1); X } X} Xpchr(x) Xint x; { X if (isascii(x) && isprint(x)) X return(x); X else X return('?'); X} X X/* Reads merge descriptor. Returns non-zero if not a merge */ Xreadmerge(name) Xchar *name; { X char from[20], to[20]; X FILE *f = fopen(name, "r"); X char buffer[512]; X register char *p; X if (!f) { X fprintf(stderr, "%s: Can't open %s\n", progname, name); X exit(1); X } X if (!fgets(buffer, sizeof(buffer), f)) { X fprintf(stderr, "%s: Nothing in this file? (%s)\n", progname, name); X fclose(f); X return(0); X } X if (buffer[0] == '\033' || (buffer[0] & 0xff) == PK_pre) { X fclose(f); X return(0); X } X checkmissing(name); X flast = fontmap; X do { X for(p = buffer; *p && isspace(*p); p++); X if (!*p || *p == '\n' || *p == '#') X continue; X switch(sscanf(p, "%s %s", from, to)) { X case 0: X continue; X case 1: X strcpy(to, from); X break; X case 2: X if (strcmp(to, "\"") == 0) X strcpy(to, from); X break; X } X if (flast - fontmap >= MAXMAP) { X fprintf(stderr, "%s: too many map sequences in %s\n", progname, X name); X exit(1); X } X X flast->from = cvt(from); X flast->to = cvt(to); X flast++; X } while (fgets(buffer, sizeof(buffer), f)); X fclose(f); X X#ifdef DEBUG X if (debug&D_FONT) { X DBP((D_FONT, "Map from %s map file\n", name)); X for (fp = fontmap; fp < flast; fp++) X DBP((D_FONT, " %02x (%c) -> %02x (%c)\n", X fp->from, pchr(fp->from), X fp->to, pchr(fp->to))); X } X#endif X return(1); X} X Xcheckmissing(name) Xregister char *name; { X static char lastmap[512]; X if (!verbose || flast == fontmap) X return; X for (fp = fontmap; fp < flast; fp++) X if (fp->to) X fprintf(stderr, "Didn't remap 0x%02x:0%o:%d (%c) in map file %s\n", X fp->from, fp->from, fp->from, pchr(fp->from), lastmap); X if (name) X strcpy(lastmap, name); X} !BLOTTO sed -e 's/^X//' > pktype.c <<\!BLOTTO X/* Copyright 1985, 1986, 1987, 1988 16:49:49 Chris Lewis X All Rights Reserved X X Permission to copy and further distribute is freely given provided X this copyright notice remains intact and that this software is not X sold for profit. X X Project: Generic Troff drivers X Module: pk2sfp.c X Author: Chris Lewis X Specs: prints header info from PK's and SFP's X */ X X#ifndef lint Xstatic char SCCSID[] = X "@(#)pk2sfp.c 2.1 Copyright 90/07/18 16:49:49 Chris Lewis"; X#endif X#include "defs.h" X#include "pk.h" X Xint firstchar = 0, lastchar = 0xff; Xint verbose = 0; Xchar *progname; Xextern char *mustmalloc(); Xlong pks_malloc; X X/* Dummied out for pk.c */ Xneedchar(a, b) Xint a, b; { X return(1); X} X Xmain(argc, argv) Xint argc; Xchar **argv; { X int c; X extern int optind, getopt(); X extern char *optarg; X register struct pkp *p; X struct pkp *pk_read(); X X progname = argv[0]; X while((c = getopt(argc, argv, "D:vf:l:")) != EOF) X switch(c) { X case 'D': X#ifdef DEBUG X setdebug(optarg, "diagnostics"); X break; X#else X fprintf(stderr, "%s: debug not supported recompile with DEBUG\n", X progname); X exit(1); X#endif X case 'v': X verbose = 1; X break; X case 'f': X firstchar = *optarg; X break; X case 'l': X lastchar = *optarg; X break; X default: X fprintf(stderr, "Usage: %s [-f<ch>] [-l<ch>] pk_files\n", progname); X exit(1); X } X#ifdef DEBUG2 X { X struct pkc p; X static int8 raster[] = { X 0xd9, 0xe2, 0x97, 0x2b, 0x1e, 0x22, X 0x93, 0x24, 0xe3, 0x97, 0x4e, 0x22, X 0x93, 0x2c, 0x5e, 0x22, 0x97, 0xd9}; X X struct ras *r; X X p.pkc_flag = 0x88; X p.pkc_dyn_f = 8; X p.pkc_pl = 0x1a; X p.pkc_char = 4; X p.pkc_tfm = 0x09c61c; X p.pkc_dx = 0x19; X p.pkc_dy = 0; X p.pkc_x_off = 0xFE; X p.pkc_y_off = 0; X p.pkc_height = 0x1d; X p.pkc_width = 0x14; X p.pkc_pkr = raster; X p.pkc_rlen = sizeof(raster); X r = pkrast(&p); X dumpr(r, p.pkc_height); X } X#endif X for (; optind < argc; optind++) { X char *filebuf = mustmalloc(strlen(argv[optind]) + 10); X register char *cp; X X cp = strrchr(argv[optind], '/'); X X if (cp) X strcpy(filebuf, cp+1); X else X strcpy(filebuf, argv[optind]); X X strcat(filebuf, ".D"); X X if (diagFile) X fclose(diagFile); X X if (!(diagFile = fopen(filebuf, "w"))) { X fprintf(stderr, "%s: cannot open filebuf\n"); X exit(1); X } X p = pk_read(argv[optind]); X pk_dump(p, argv[optind]); X pk_destroy(p); X free(filebuf); X } X exit(0); X} X Xpk_dump(p, file) Xstruct pkp *p; Xchar *file; { X struct pkc *pc; X X fprintf(diagFile, "**********************************************\n"); X fprintf(diagFile, "File %s:\n", file); X fprintf(diagFile, " Font file type: %s\n", X p->pkp_flags&1 ? "PK" : "SFP"); X fprintf(diagFile, " Number of characters: %d\n", p->pkp_num); X fprintf(diagFile, " Approximately %d bytes used\n", pks_malloc); X fprintf(diagFile, " Design size: %ld, Native point size: %ld\n", X p->pkp_ds, p->pkp_ds / pow2(20)); X fprintf(diagFile, " Pointsize normalized to %d DPI: %ld\n", X OUTRES, p->pkp_npts); X fprintf(diagFile, " Checksum: %ld\n", p->pkp_cs); X fprintf(diagFile, " hppp: %ld, vppp: %ld\n", p->pkp_hppp, p->pkp_vppp); X fprintf(diagFile, " hor. pixels/point: %f, ver. pixels/point: %f\n", X (double) p->pkp_hppp / pow2(16), (double) p->pkp_vppp / pow2(16)); X fprintf(diagFile, X " Hor. font resolution: %ld, Ver. font resolution: %ld\n", X p->pkp_res, (long) ((p->pkp_vppp * POINT / pow2(16)) + .5)); X fprintf(diagFile, X " Max y offset: %ld, Max descender: %ld, ", p->pkp_bmax, p->pkp_dmax); X fprintf(diagFile, "Max width: %ld, Max X offset: %ld\n", X p->pkp_wmax, p->pkp_xomax); X fprintf(diagFile, X " Kern high: %ld, Kern low: %ld\n", p->pkp_kh, p->pkp_kl); X fprintf(diagFile, X " SFP Info: symset: %d%c, style: %d, stroke: %d, typeface: %d\n", X (p->pkp_symset & 0x01e0) >> 5, (p->pkp_symset & 0x1f) + '@', X p->pkp_style, p->pkp_sw, p->pkp_typeface); X X for (pc = p->pkp_chars; pc; pc = pc->pkc_next) { X register int i; X if (pc->pkc_char < firstchar || pc->pkc_char > lastchar) X continue; X fprintf(diagFile, "\nCharacter: %lx (%c), (0%03o), Packet length: %d\n", X pc->pkc_char, (char) (isprint(pc->pkc_char) ? pc->pkc_char : '?'), X pc->pkc_char, pc->pkc_pl); X fprintf(diagFile, " Flag byte: %d\n", pc->pkc_flag); X fprintf(diagFile, " Dynamic packing variable: %d\n", pc->pkc_dyn_f); X fprintf(diagFile, " TFM width: %d, dx: %d", pc->pkc_tfm, pc->pkc_dx); X if (pc->pkc_dy) X fprintf(diagFile, " dy: %d\n", pc->pkc_dy); X else X putc('\n', diagFile); X fprintf(diagFile, X " Height: %d, Width: %d, X-offset: %d, Y-offset: %d\n", X pc->pkc_height, pc->pkc_width, pc->pkc_x_off, pc->pkc_y_off); X if (pc->pkc_rlen) { X fprintf(diagFile, X " Raster length: %d, width in pixels: %ld\n", pc->pkc_rlen, X pc->pkc_dx / pow2(16)); X fprintf(diagFile, " "); X for (i = 0; i < 32; i++) X if (i >= pc->pkc_rlen) X break; X else X fprintf(diagFile, "%02x", 0xff & pc->pkc_pkr[i]); X putc('\n', diagFile); X } X X if (pc->pkc_sfpr) X fprintf(diagFile, " SFP length: %d\n", pc->pkc_sfpr->ras_bytes); X if (p->pkp_flags&PK_PK) { X if (pc->pkc_dyn_f == 14) X fprintf(diagFile, " Bit map character, "); X else X fprintf(diagFile, " Packed character, "); X switch(pc->pkc_flag & 0x7) { X case 7: X fprintf(diagFile, "Long form\n"); X break; X case 4: case 5: case 6: X fprintf(diagFile, "Extended short form\n"); X break; X default: X fprintf(diagFile, "Short form\n"); X } X } X if (verbose) X rasterdump(pc); X } X} X Xrasterdump(pc) Xstruct pkc *pc; { X struct ras *r; X register int x, y; X extern struct ras *pkrast(); X r = pkrast(pc); X if (r) { X fprintf(diagFile, "Character image:\n"); X dumpr(r, r->ras_height); X free(r->ras_raster); X free(r); X } else X fprintf(diagFile, "NULL character image\n"); X} !BLOTTO sed -e 's/^X//' > pk2sfp.1 <<\!BLOTTO X.\"Copyright 1988 by Chris Lewis 90/07/18 X.TH PK2SFP 1 local X.SH NAME Xpk2sfp,pk2ditwid,pktype,pk2ps \- PK/SFP format font file handling utilities X.SH SYNOPSIS X.B pk2sfp X.BI "[-D" opts "]" X.BI "[" options "]" Xfonts ... X.br X.B pk2sfp X.B -m X.BI "[-D" opts "]" X.BI "[" options "]" Xmap font map font ... X.br X.B pk2ditwid X.BI "[-D" opts "]" X.B "[-S]" X.B "[-s]" Xfiles... X.br X.B pktype X.BI "[-v]" X.BI "[-f" char "]" X.BI "[-l" char "]" X.BI "[-D" opts "]" Xfiles... X.br X.B pk2ps X.B "[-f]" X.B "[-v]" X.BI "[-D" opts "]" Xfiles... X.SH DESCRIPTION XThese programs allow you to manipulate PK and SFP format font files, Xwhich X.B psroff Xcan use with Hewlett Packard Laserjet (or compatible) printers. XThese programs are usually found in %%LIBDIR%%. X.SH "Converting SFP and PK files: pk2sfp" X.P X.B pk2sfp Xreads each of its argument files, and converts them into HPLJ format Xfonts (HP SFP format), and outputs them to standard output sorted Xin ascending order of character code. XThe output does not normally contain "SET FONT ID" sequences. XThis is how HP distributes their fonts on floppies. X.P X.B pk2sfp Xconcatenates all the conversions of the input files together on standard Xoutput. X.P X.B pk2sfp Xwith the X.B "-m" Xoption allows you to merge font files, at the same time changing the Xencoding. XMost of the options for simple font conversions apply to X.B pk2sfp Xwith the X.B "-m" Xoption, but merging is covered more completely in "Merging SFP and PK Xfonts" below. X.P X.B pk2sfp Xcan read both PK and SFP format files (the latter effectively being a X``no-op'' conversion - which can be useful for checking format validity Xand changing header characteristics, see below). X.P X.B pk2sfp Xattempts to infer certain header characteristics by the basename Xof the input font file name if the input font is PK format. XThe X.B psroff Xnaming convention is: X.BR path / troffname . pointsize . "[pk|sfp]" X.sp X.in +.5i X.nf XAll ROMAN8 encodings unless MATH8. XAll 0 strokeweight, unless Bold. XAll upright, unless Italic XAll Roman typeface, unless otherwise specified X XR : Normal Roman XI : Italic XB : Bold XS : MATH8 Symbol XX : Bold italic X\&.X : <typeface> Bold italic X\&.I : <typeface> Italic X\&.B : <typeface> Bold X\&.R : <typeface> Normal XH or H. : Helvetica typeface XC or C. : Courier typeface X typefaces should be extended. X.fi X.in -.5i X.P X.B pk2sfp Xwill pass through SFP characteristics unchanged, unless you change them Xexplicitly (see below). X.P X.SH "Additional options for pk2sfp" X.P XThe X.BI "-s" na Xoption will set the symbol set. XEg: X.B "-s8U" Xsets the symbol set to "ROMAN8". X.P X.BI "-t" "0|1" Xsets the orientation to ``upright'' (0) or ``italic'' (1). X.P X.BI "-w" n Xsets the stroke weight, 0 is normal, -7 is very light and 7 is very Xbold. X-3 and 3 are traditional values. X.P X.BI "-f" n Xsets the typeface to ``n''. XFor example, Times Roman is ``5''. X.P X.BI "-i" n Xcauses X.B pk2sfp Xto emit fontid sequences in front of each downloaded Xfont, incrementing the id by one for each font, starting with number X.IR n . XFor compatibility with X.B psroff Xit is suggested that ``n'' be at least 1000. X.P XSpecifying X.B "-v" Xrequests pk2sfp to tell you what it's doing on stderr. X.P XThe X.B "-S" Xtells X.B pk2sfp Xthat it's dealing with a font intended for X.BR psroff "'s" XS font. XThis has no effect unless X.B "-p" Xis specified. X.P XThe X.B "-p" X("partial downloading") feature indicates to X.B pk2sfp Xthat the fonts are intended for use with X.B psroff Xand that characters that aren't used by X.B psroff X(eg: half of a ROMAN8 font isn't used) will be dropped from the Xoutput font. XThe font being read are assumed to be ROMAN8 fonts and the list of Xvalid characters will correspond to the characters that X.B psroff Xneeds from ROMAN8 sets. XSpecify X.B "-S" Xtoo if you want to do this to MATH8 fonts which are intended for Xthe characters that X.B psroff Xneeds from the MATH8 set. X.P XThe X.B "-P" Xoption tells pk2sfp to mark the fonts it downloads as permanent, Xwhich means they are not cleared by a software reset, only explicit Xdeletions or printer power-offs. XThis option does not do anything unless X.BI "-i" n Xspecified as well. X.P XPlease note: the tables used to control X.B "-p" Xare compiled into X.BR pk2sfp . XIf you change the character translations in lj.c or lj.fonts, you Xwill have to rebuild X.BR pk2sfp . XThe partial option should not be used for auxiliary fonts (fonts Xwhich supply characters not in ROMAN8 or MATH8). XUse the X.B "-m" X(merge) options for creating specialized reduced size font sets for Xsuch fonts. X.P XThe following example shows how you could preload your laserjet Xwith fonts (in sizes 8, 9, 10, 11 and 12). XThis demonstrates the use of Xthe X.BR -p "," -P "," Xand X.B -S Xoptions to use up as little Laserjet memory as possible. X(These fonts should be marked ``b'' (builtin) in X.IR lj.fonts ")." X.sp X.in +.25i X.nf X F=%%LJF%% X pk2sfp -pP -i1000 $F/R.[89].pk $F/R.1[0-2].pk | lp X pk2sfp -SpP -i1006 $F/S.[89].pk $F/S.1[0-2].pk | lp X.fi X.in .-25i X.sp X.P XAll of the preceding options take place on all of the fonts specified in Xthe command line. XMost of the options perform no sanity checks on their arguments. XThe reader is cautioned to read the HP manuals before attempting anything Xfancy with options that affect header descriptors. X.SH "Merging PK and SFP fonts: pk2sfp -m" X.P XThere are a wealth of fonts and font formats in the world. XPerforming simple conversions between one format and the other would Xlead to you having a considerably bigger repertoire of fonts. XRight? X.P XWell, not always. XNot only to the formats change from one font format to another, but X.B encodings Xdo too. XIf you simply converted Knuth's fonts in PK format to SFP and used them Xon your Laserjet you're bound to be disappointed, because a character in XKnuth's font isn't necessarily in the same place in standard SFP fonts. XEg: If you used the hex code 0x7B to print a left brace-bracket (that's Xwhat it is in ASCII and ROMAN8 fonts right?), you'd find that in Knuth's XCMR font you'll get a "ff" ligature instead. XWorse, other ASCII/ROMAN8 characters don't exist in CMR at all. X.P XSo, font conversion often needs more than simple format translation Xto work out the way you want. X.P XThe X.B "-m" Xoption to X.B pk2sfp Xis intended to do just that: take characters from a combination of Xfonts, change encodings as necessary, and create one output font. X.BR Psroff "'s" XHP Laserjet S font is created in this way from four separate PK fonts. X.P XThe X.B "-m" Xoption to X.B pk2sfp Xindicates that preceding each font file specified a map file will be Xgiven. XEach font file will be appended together (with only one SFP header) Xwith the translations specified by the map files and copied to Xstandard output. XAny character not mentioned in a map file is not copied. XThe map file applies to the font files following until overridden Xby the next map file. XThe map file specifies the translations with lines of the following format: X.sp X.in +.5i X.nf Xfrom to description X.fi X.in -.5i X.sp X.P X.I From Xspecifies the character in the font file to be selected. XAny character that doesn't match a ``from'' line will not be Xcopied to the output. X.I To Xspecifies what character number the ``from'' character should be Xchanged to. XIf ``to'' is omitted, it is assumed to be the same as ``from''. XThe description is free form text and is ignored. XFrom, to and description are separated by white space. XEmpty lines or lines beginning with "#" are comments. X.P X``From'' and ``to'' can be specified in any of the following formats: Xa single non-numeric character other than ``#'', Xa decimal number starting with a non-zero digit, Xan octal number consisting of a zero digit followed by numeric digits, Xor hexadecimal consisting of a zero digit, followed by 'x' or 'X', followed Xby digits and upper or lower case 'a' through 'f'. XIf the ``to'' string is a single double quote ("), it is duplicated Xfrom the ``from'' string. XThe error checking isn't very exhaustive, so it is recommended that you Xuse the X.B -v Xoption to check things. XThe X.B -v Xoption will also give you a very verbose description of what characters Xits translating and what characters it couldn't find. X.P XThere are some examples of this in the source tree for X.B psroff , Xthat generate a ROMAN8 and MATH8 SFP in 10 points. XLook in utils/Makefile for ``testmerge'', utils/maps contains some Xuseful translation maps, and utils/fonts contains a few PK files for Xyour experimentation. X.B Psroff Xis shipped with PK format font files that were created by use of this Xutility. X.SH "Creating width tables: pk2ditwid" X.P X.B pk2ditwid Xis used to generate a ditroff format width table file (used by X.B psroff Xwidth table installation via X.B gfnttab Xand X.BR dit2catwid ) Xfrom PK or SFP font files. XThe output files are generated in the current directory with the Xsame name as the basename of the input files, with a ".WID" Xsuffix. X.P XThe X.B -S Xoption indicates to X.B pk2ditwid Xthat the font file is a XPK or SFP used for the symbol font, otherwise X.B pk2ditwid Xassumes that it is a normal font. X.P XThe X.B -s Xoption tells X.B pk2ditwid Xto shut up and do the best it can. XOrdinarily X.B pk2ditwid Xis extremely chatty about which characters it could find etc., Xwhich is rarely of major interest to the user. XWhich is why X.BR psroff "'s" Xinstallation script puts X.BR pk2ditwid "'s" Xoutput in log files and makes no attempt to show them to the user. X.P X.BR pk2ditwid "'s" Xexact operation is somewhat bizarre, the following is a simplified Xdescription: X.P XNormally, X.B psroff Xworks with pure ROMAN8 and MATH8 Xencoded fonts for normal and symbol font sets respectively. X(ROMAN8 and MATH8 are two of HP's standard "char-to-glyph" mapping tables). XHowever, XThe MATH8 and ROMAN8 encodings do not exactly reflect CAT X.BI troff 's Xdivisions of characters. XIn X.BR troff2ps 's Xbackend drivers, there are tables that correspond to CAT normal and symbol, Xwhich are indexed by CAT code to select which HP font and character sequence Xshould be emitted by the backend to print a specific CAT character. X.P XMost CAT codes are single HP characters, but a few are done by concatenation X(for example \e(34 may be) or overstrike X(\e(co may be). X.P X.B pk2ditwid Xuses the backend tables and reads each of the font files given as arguments. XIt then generates a ditroff-like width table that contains width information Xfor each sequence of HP characters needed to generate a CAT character. XThe width tables are fairly simple, and contain three fields of principle Xinterest: X.P XColumn one is the CAT X.B troff Xcharacter name. XSingle characters are themselves, dual characters are prefixed by "\e(" Xin X.BR troff . X.P XThe second column indicates the width of that character in 1/300th's of an Xinch when the character is printed at 10 points. X(Which are the default X.BR gfnttab / dit2catwid Xsettings) X.P XThe third column is the kerning information, and is a number formed Xby or'ing a 1 and/or 2 together. XA ``1'' denotes an descender (eg: ``g''), Xand a ``2'' denotes a character with an ascender (eg: ``k''). X.P XPlease note this is only ditroff-\f3like\fP \(em the output is not Xintended to go through real X.B makedev Xwhich will probably complain about multiple-character emit sequences and Xmissing directives. X.P XThe wierdness comes from the fact that it's possible to override the XCAT character to HP sequence translation by adding directives to the X.I lj.fonts Xfile but the sequences are built-in (so I'm lazy...) to X.BR pk2ditwid . XIf you choose to add in translation overrides to X.IR lj.fonts , Xyou will have to recompile X.B pk2ditwid Xand rerun the width table build and install procedures Xto recompute and install the new width tables. XThe Makefile uses the X.B troff2ps Xbinary to generate a compileable table of translation sequences, using Xboth the built-in backend map plus the X.I lj.fonts Xoverride you've specified, Xplus the mkenctab shell script to generate the pk2ditwid tables. XThis is so durn complicated, that I simply automated it all: Xin the X.B psroff Xsource directory area, change X.B lib/lj.fonts Xto reflect the translations you need, Xand rebuild and reinstall X.BR psroff . X.P XIf you're just adding new fonts to X.BR psroff 's Xrepertoire, this isn't all necessary, just install the fonts into X%%LJF%% (using the proper naming convention), Xupdate X.IR lj.fonts , Xand go into the widths source directory and type ``make ljwidths widths'' Xthen su to root and ``make installwidths''. X.P X.B pk2ditwid Xneed only be run on one font in each family, and by default, the build Xprocedure runs X.B pk2ditwid Xonce each font (in the size closest to 10) that it finds in the X%%LJF%% directory. X.SH "Examining PK and SFP font files: pktype" X.P X.B pktype Xreads PK and SFP format files and generates files suffixed with ".D" Xwhich contain a description of the font and each character. XIf the X.B "-v" Xoption is specified, an approximation of the character image is displayed Xtoo. XThe X.BI "-f" char Xand X.BI "-l" char Xoptions allow you to specify a range of characters to print, where Xthe X.B -f Xspecifies the first character, and X.B -l Xspecifies the last character. X.SH "Displaying PK and SFP font files: pk2ps" X.P X.B pk2ps Xtakes each of the specified files and generates bitmap Postscript Xfonts and appends to each commands to draw a table. XThe table contains each character in the font, and below it are Xdecimal, hexidecimal and octal numbers representing the character code. XThe output of X.B pk2ps Xis on standard output. X.P XThe X.B -f Xoption causes X.B pk2ps Xto omit the table printing commands and some of the extra Postscript, leaving Xonly the Postscript font definition. XThe resultant output can then be used as a Postscript font (via inclusion Xin ps.lib etc.). XThe font is named for the basename of the filename. X``<path>/cmr10.358pk'' will be called ``cmr10''. XThe font is supposedly properly scaled, so Postscript ``scalefont'' will Xwork normally and generate the size font you expect. XWarning: this uses bitmapped fonts: displaying these characters at Xconsiderably Xlarger sizes or at odd multiples of the ``true'' size (the size of the Xexample is actually 10 * 358 / 300) may lead to some objectionable Xjaggies. X.P XIn all four utilities, the X.BI "-D" opts Xoption allows you to turn on debugging. XSee X.BR troff2ps (1) Xfor further information. XNote: if DEBUG compiled out, this will not be available. X.SH FILES X.if t .ta 2.5i X.if n .ta 3.5i X%%LJF%% troff2ps LJ font directory. X.br X%%LIBDIR%%/lib/lj.fonts LJ font definitions and translation overrides. X not read by pk2sfp/pktype/pk2ditwid X.SH "BUGS" X.B pk2sfp Xshould really have multiple output files when requested by an option. X.B pk2ditwid Xand X.B pk2sfp Xshould be able to read the X.I lj.fonts Xfile instead of being recompiled. X.B pk2ditwid Xonly understands backspace or character concatenation sequences X(eg: "a\010b" or "ab"), Xany translation that contains any other escape sequence will not be Xparsed properly and may generate bizarre widths, though it will Xbe moderately sane if all of the characters in the escape sequence Xare nonprintable (or not in the font file). XSuch escape sequences may also affect operation of X.B pk2sfp "'s" Xpartial downloading feature (by including characters that you don't Xreally need - which is harmless). X.SH "SEE ALSO" Xtroff2ps(1L), \fIlj.fonts\fP, XHewlett Packard's HP Laserjet Reference Manuals. X.SH AUTHOR XWritten by Chris Lewis !BLOTTO -- Chris Lewis, Phone: (416)-294-9253 UUCP: uunet!utai!lsuc!ecicrl!clewis Moderator of the Ferret Mailing List (ferret-request@eci386) Psroff mailing list (psroff-request@eci386)