%!PS
 
%------------------------------------------------------------------------------%
% Latin-1 und ISO-8859-1 sind im Wesentlichen dasselbe Zeichensatz-Mapping.
% Der Begriff "Latin-1" ist ein umgangssprachlicher Name für den
% standardisierten ISO/IEC 8859-1.
%------------------------------------------------------------------------------%
% Verlatinisierung

/latinize {
  findfont
  dup length dict begin
    {1 index /FID ne {def} {pop pop} ifelse} forall
    /Encoding ISOLatin1Encoding def
  currentdict
  end
  definefont pop
} bind def

/Courier-Latin1				/Courier			latinize
/Courier-Oblique-Latin1			/Courier-Oblique		latinize
/Courier-Bold-Latin1			/Courier-Bold			latinize
/Courier-BoldOblique-Latin1		/Courier-BoldOblique		latinize
/Helvetica-Latin1			/Helvetica			latinize
/Helvetica-Oblique-Latin1		/Helvetica-Oblique		latinize
/Helvetica-Bold-Latin1			/Helvetica-Bold			latinize
/Helvetica-BoldOblique-Latin1		/Helvetica-BoldOblique		latinize
/Helvetica-Narrow-Latin1		/Helvetica-Narrow		latinize
/Helvetica-Narrow-Oblique-Latin1	/Helvetica-Narrow-Oblique	latinize
/Helvetica-Narrow-Bold-Latin1		/Helvetica-Narrow-Bold		latinize
/Helvetica-Narrow-BoldOblique-Latin1	/Helvetica-Narrow-BoldOblique	latinize
/NewCenturySchlbk-Roman-Latin1		/NewCenturySchlbk-Roman		latinize
/Times-Roman-Latin1			/Times-Roman			latinize
/Times-Italic-Latin1			/Times-Italic			latinize
/Times-Bold-Latin1			/Times-Bold			latinize
/Times-BoldItalic-Latin1		/Times-BoldItalic		latinize

%------------------------------------------------------------------------------%
% Schriftarten laden

/Courier-Latin1 			findfont	% (wie Courier) Schriftart mit fester Breite
/Courier-Oblique-Latin1 		findfont	% (wie Courier-Oblique) Schriftart mit fester Breite in Kursiv
/Courier-Bold-Latin1			findfont	% (wie Courier-Bold) Schriftart mit fester Breite in Fett
/Courier-BoldOblique-Latin1		findfont	% (wie Courier-BoldOblique) Schriftart mit fester Breite in Fett und Kursiv
/Helvetica-Latin1			findfont	% (wie Helvetica) Schriftart in voller Größe
/Helvetica-Oblique-Latin1		findfont	% (wie Helvetica-Oblique) Schriftart in voller Größe in Kursiv
/Helvetica-Bold-Latin1  		findfont	% (wie Helvetica-Bold) Schriftart in voller Größe in Fett
/Helvetica-BoldOblique-Latin1		findfont	% (wie Helvetica-BoldOblique) Schriftart in voller Größe in Fett und Kursiv
/Helvetica-Narrow-Latin1		findfont	% (wie Helvetica-Narrow) schlanke Schriftart in voller Größe
/Helvetica-Narrow-Oblique-Latin1	findfont	% (wie Helvetica-Narrow-Oblique) schlanke Schriftart in voller Größe in Kursiv
/Helvetica-Narrow-Bold-Latin1		findfont	% (wie Helvetica-Narrow-Bold) schlanke Schriftart in voller Größe in Fett
/Helvetica-Narrow-BoldOblique-Latin1	findfont	% (wie Helvetica-Narrow-BoldOblique) schlanke Schriftart in voller Größe in Fett und Kursiv
/NewCenturySchlbk-Roman-Latin1		findfont	% (wie New Century Schoolbook Roman) eine Serifenschrift im Stil klassischer Buch- und Lehrbuchschriften
/Times-Roman-Latin1			findfont	% (wie Times-Roman) Schriftart etwas kleiner mit Serifen
/Times-Italic-Latin1			findfont	% (wie Times-Italic) Schriftart etwas kleiner mit Serifen in Kursiv
/Times-Bold-Latin1			findfont	% (wie Times-Bold) Schriftart etwas kleiner mit Serifen in Fett
/Times-BoldItalic-Latin1		findfont	% (wie Times-BoldItalic) Schriftart etwas kleiner mit Serifen in Fett und Kursiv

%------------------------------------------------------------------------------%
% Schriftart auswählen und Schriftgröße bestimmen

/NewCenturySchlbk-Roman-Latin1 14 selectfont

%------------------------------------------------------------------------------%
newpath						% neue Zeichnung beginnen
 
.3 setlinewidth					% Linienbreite
%------------------------------------------------------------------------------%
 
90 130 moveto					% zur Startposition der Ausgabe gehen
(Zeichensatz Latin1 mit Umlaute aber ohne Eurozeichen) show
90 110 moveto					% zur Startposition der Ausgabe gehen
(Umlaute: Ää Öö Üü) show			% Umlaute
90 90 moveto					% zur Startposition der Ausgabe gehen
(Sonderzeichen: & ß € µ é è ¹ ² ³ ¼ ½) show	% Sonderzeichen
 
%------------------------------------------------------------------------------%
closepath					% diese Zeichnung beenden
stroke						% alle aufgeführten Zeichenkomandos jetzt zeichnen