Umlaute



Einen Font umkodieren, so daß Umlaute möglich sind:
(s.a. Beispiele / Umlaute)

   /GermanVec
   [ 8#201 /udieresis 8#204 /adieresis 8#216 /Adieresis 8#224 /odieresis
     8#231 /Odieresis 8#232 /Udieresis
     8#341 /germandbls 8#373 /AE
   ] def

   /ReencsmallDict 12 dict def

   /ReEncodeSmall
   { ReencsmallDict
     begin
       /NewCodesAndNames exch def
       /NewFontName exch def
       /BaseFontName exch def
       /BaseFontDict BaseFontName findfont def
       /NewFont BaseFontDict maxlength dict def
       BaseFontDict
       { exch dup /FID ne
	 { dup /Encoding eq
	   { exch dup length array copy
	     NewFont 3 1 roll put
	   }
	   { exch NewFont 3 1 roll put
	   } ifelse
	 }
	 { pop pop
	 } ifelse
       } forall
       NewFont
       /FontName NewFontName put
       NewCodesAndNames aload pop
       NewCodesAndNames length 2 idiv
       { NewFont /Encoding get
	 3 1 roll put
       } repeat
       NewFontName NewFont definefont pop
     end
   } def

© Holger Gehringer, Dezember 1998