Senkrechter Text


%!PS-Adobe-1.0
%%Creator: Holger Gehringer
%%Title: Beispiel fuer senkrechten Text
%%CreationDate: Mo, 23.11.1998
%%DocumentMedia: A4 595 842 0 () ()
%%Orientation: Portrait
%%Pages: (atend)
%%DocumentFonts: Times-Roman Helvetica
%%EndComments

% Ausgeben von Text entlang einer senkrechten Linie

/VShowDict 4 dict def         % Lokaler Speicher fuer VShow
/VShow
{ VShowDict begin             % Vshow braucht zwei Argumente:
    /TheString exch def       % Ausgabetext
    /Lineskip exch def        % Zeilenabstand
    TheString                 % Der forall-Operator wiederholt die folgenden
                              % Anweisungen fuer alle Zeichen des Strings
    { /CharCode exch def      % forall laesst den ASCII-Code auf dem Stack;
      /TheChar ( ) dup        % dieser wird in einen String der Laenge 1 umge-
      0 CharCode put def      % wandelt
      0 Lineskip neg rmoveto  % Gehe eine Zeile nach unten
      gsave
      TheChar stringwidth pop
      2 div neg 0 rmoveto     % Gehe um halbe Buchstabenbreite nach links und
      TheChar show            % gib Zeichen aus.
      grestore
    } forall
  end
} def

%%EndProlog

%%Page: 1 1
/Helvetica findfont 16 scalefont setfont

72 576 moveto
16 (VERTIKAL ANGEORDNETER TEXT) VShow
122 576 moveto
16 (SOLLTE ENTLANG EINER SENKRECHTEN) VShow
172 576 moveto
16 (LINIE ZENTRIERT WERDEN.) VShow
222 576 moveto
16 (TEXT IN GROSSBUCHSTABEN) VShow
272 576 moveto
16 (WIRKT BESSER ALS) VShow
322 576 moveto
16 (text in kleinbuchstaben.) VShow

showpage

%%Trailer
%%Pages: 1


Vorschau:

Download PostScript-File

© Holger Gehringer, Dezember 1998