Make a font use ISOLatin1Encoding

mkLatin1.ps

% This procedure takes a Font resource and creates a new font from it that uses
% the ISOLatin1Encoding encoding vector.  It is based on code given in the PLRM.

% Stack effect: font name-of-new-font -- new-font

% Example usage:
%    /Helvetica findfont /Helvetica-Latin1 mkLatin1 12 scalefont setfont

/mkLatin1 {
 exch dup length dict begin
 { 1 index /FID ne { def } { pop pop } ifelse } forall
 /Encoding ISOLatin1Encoding def
 currentdict end definefont
} def