Font-Wechsel



Den Font wechseln/selektieren:

   /selFont
   { /Font exch def
   % ist Umlaute true, so wird der Font umkodiert (fuer deutsche Umlaute)
   % der neue Font heisst dann 'oldFontName-German' (s.a. Umlaute)
     Umlaute
     { Font /Symbol ne
       { Font Font (-German) Concatenate GermanVec ReEncodeSmall
	 /Font Font (-German) Concatenate def
       } if
     } if
   % neuen Font setzen
     Font findfont
     FontSize scalefont
     setfont
   } def


Nur die Größe des Fonts, nicht den Font selbst, wechseln:

   /resizeFont
   { /FontSize exch def Font selFont
     /Linedifference FontSize 6 idiv 1 add def
     /FontHeight FontSize Linedifference add def
   } def


Bemerkungen:
© Holger Gehringer, Dezember 1998