/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