🚀 go-pugleaf

Step one: create a copy of the original font dictionary. This is because font dictionaries are read-only.

A clever way to do this:

<< originalFont findfont {} forall >>

Which will leave you with a font dictionary on the stack.

(You'll want to precede that with a name for your new font, ie /ISOfont)

Make this your current dictionary with "begin".

Change the /Encoding entry:

/Encoding ISOLatin1Encoding 256 array copy def

Pop the dictionary of the operand stack: end

Make this dictionary a font: definefont pop

Note: you might want to reinsert some of the original encodings. I put in the bullet, hyphen, and trademark encodings.

Complete code:

/ISOfont
<< /Courier findfont {} forall >>
   begin
     /Encoding ISOLatin1Encoding 256 array copy def
     currentdict
     Encoding 8#267 /bullet put
     Encoding 8#055 /hyphen put
     Encoding 8#231 /trademark put
   end
definefont pop

Usage:

/ISOfont 24 selectfont

Thomas D. Greer
www.tgreer.com