/reencode {findfont begin currentdict d length dict begin { 1 index /FID ne {def} {pop pop} ifelse} forall /FontName exch def d length 0 ne {/Encoding Encoding 256 array copy def 0 exch { d type /nametype eq {Encoding 2 index 2 index put pop 1 add }{exch pop} ifelse} forall} if pop currentdict d end end /FontName get exch definefont pop} bd