Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.milw.wisc.edu!cs.utexas.edu!uunet!intercon!amanda@intercon.UUCP From: amanda@intercon.UUCP (Amanda Walker) Newsgroups: comp.lang.postscript Subject: Re: Changing resident font name Message-ID: <19-Jun-89.165032@192.41.214.2> Date: 19 Jun 89 20:37:04 GMT References: <81398@ti-csl.csc.ti.com> Sender: news@intercon.UUCP Reply-To: amanda@intercon.UUCP (Amanda Walker) Organization: InterCon Systems Corporation Lines: 43 Well, one major problem is that Helvetica Condensed and Helvetica Narrow are *not* the same font. I'd suggest either: - getting the real Helvetica Condensed screen fonts from Adobe or SUMEX-AIM or - define the Helvetica Narrow fonts. They are simply Helvetica with a modified transformation matrix. Here is some PostScript to do this (at least, it works for me): ------------------ % Helvetica Narrow PostScript font 8 dict begin /FontType 3 def /FontMatrix [.00082 0 0 .001 0 0] def /FontBBox [0 0 1000 1000] def /Encoding StandardEncoding def /BaseFont /Helvetica findfont 1000 scalefont def /String 1 string def /BuildChar { exch begin String exch 0 exch put BaseFont setfont String stringwidth newpath 0 0 moveto String false charpath flattenpath pathbbox setcachedevice 0 0 moveto String show end } def currentdict end /Helvetica-Narrow exch definefont pop ------------------ The same can be done for the other fonts in the family. I've gone one step further and made four Macintosh PostScript font files that I've stuck into my system folder. This way they are as easy to use as any other downloadable fonts. -- Amanda Walker -- "Some of the worst mistakes in history have resulted from trying to apply methods that work fine in one field to another where they don't." -James Hogan