Paste: Lol

Author: n
Mode: postscript
Date: Mon, 11 Jun 2012 16:39:33
Plain Text | 
/reencodedict 5 dict def
/ReEncode {
  reencodedict begin
  /newencoding exch def
  /newfontname exch def
  /basefontname exch def
  /basefontdict basefontname findfont def
  /newfont basefontdict maxlength dict def
  basefontdict { exch dup dup /FID ne exch /Encoding ne and
    { exch newfont 3 1 roll put } { pop pop } ifelse } forall
  newfont /FontName newfontname put
  newfont /Encoding newencoding put
  newfontname newfont definefont pop
  end
} def

New Annotation

Summary:
Author:
Mode:
Body: