Text innerhalb eines Rahmens


%!
/box                       % zeichnet ein Quadrat, in dem der Text stehen soll
{ newpath
     0   0 moveto
   200   0 rlineto
     0 200 rlineto
  -200   0 rlineto
  closepath
  gsave                    % durch das stroke ginge das Quadrat als Clipping-
    stroke                 % Pfad verloren, deshalb das gsave/grestore
  grestore
  clip                     % Quadrat als Clipping-Pfad festlegen
} def

%%Page: 1 1
/Helvetica findfont        % Font setzen
24 scalefont setfont

gsave                      % alten Clipping-Pfad (gesamtes Blatt) speichern
  100 100 translate        % Ursprung verschieben
  box                      % das Quadrat zeichnen

  -10 -10 moveto
  (Helvetica in einem Quadrat) show
  0 20 moveto
  (Helvetica in einem Quadrat) show
  10 50 moveto
  (Helvetica in einem Quadrat) show
  20 80 moveto
  (Helvetica in einem Quadrat) show
  30 110 moveto
  (Helvetica in einem Quadrat) show
grestore                   % alten Clipping-Pfad setzen

showpage                   % Seite ausgeben


Download PostScript-File

© Holger Gehringer, Dezember 1998