Xref: utzoo comp.lang.postscript:1527 comp.text:3183
Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!unmvax!pprg.unm.edu!hc!ames!pasteur!ucbvax!decwrl!sun!pitstop!sundc!seismo!uunet!munnari!vuwcomp!windy!srwmxpb
From: srwmxpb@windy.dsir.govt.nz (Peter Burgess)
Newsgroups: comp.lang.postscript,comp.text
Subject: Fix for LW II font
Summary: Fix the "1" in NewCenturySchlbk-Bold to be like the LW+
Message-ID: <2131@windy.dsir.govt.nz>
Date: 3 Feb 89 09:51:01 GMT
Organization: DSIR, Wellington, NZ
Lines: 55

Some time ago, I posted a message about some of the characters from some fonts
in the LaserWriter II being different from ones in the LaserWriter+.  I have
since tracked the problem down to the "1" from NewCenturySchlbk-Bold, which has
been changed so that it has the same width as the other digits.  There may be
other fonts which are different, but I have not noticed them.

Since I got no feed-back from my last message, I don't know whether anyone else
has noticed this problem, or cares :-), but I will describe the solutions I have
found anyway.

Since my problem was with TeX output, the first solution (suggested by
ArborText) was to convert the TFM (TeX Font Metric) file to ascii form using
tftopl and modify the width of the 1 and then convert this back using pltotf.
This works but it means that if you want to print DVIPS output on both LW+'s and
LW II's then you are stuck. 

A better solution we found was to modify the font in the LaserWriter II.  Here
is the PostScript we send to the printer which makes this change permanently
(until the LaserWriter is turned off).

%------------ cut here ---------------
%%This code modifies the width and left offset of the "1" character from the
%% NewCenturySchlbk-Bold font in versions of PostScript greater than 47.0 to
%% be consistent with earlier versions.  This was found to be necessary for TeX.
/fix1 where
  {pop
   (This font fix is unnecessary as it has already been done.\n) print
   flush currentdict begin}
  {0 serverdict begin exitserver}
  ifelse
/fix1 where {pop} {userdict begin} ifelse
/fix1 where
  {pop}
  {/fix1 1 dict def}
  ifelse
   statusdict begin version cvr 47.0 ge end
     {/NewCenturySchlbk-Bold findfont
     dup length 1 add dict /newdict exch def
       {1 index /FID ne
         {newdict 3 1 roll put}
         {pop pop}
         ifelse
       } forall
       1 dict begin
       /one [39 463] def
       newdict /Metrics currentdict put
     end
     /NewCenturySchlbk-Bold newdict definefont pop} if
   end
%------------------- cut here ------------------

Peter Burgess
New Zealand Government Department of Scientific & Industrial Research
Applied Mathematics Division
(srwmxpb@windy.dsir.govt.nz)