Skalierung von Zeichnungselementen


%!
% Definition der Prozedur box (zeichnet Quadrat und gibt Text aus)
/box
{ newpath                     % Quadrat zeichnen
  0 0 moveto
   100   0 rlineto
     0 100 rlineto
  -100   0 rlineto
  closepath
  stroke
  110 0 moveto                % rechts neben dem Quadrat
  text show                   % den String der Variablen 'text' ausgeben
} def

%%Page: 1 1
/Helvetica findfont           % Schriftart und Groesse setzen
24 scalefont
setfont

gsave                         % 'box' verschoben darstellen
  100 100 translate
  /text (verschoben) def
  box
grestore

gsave                         % 'box' verschoben und gedreht darstellen
  150 220 translate
  30 rotate
  /text (verschoben und gedreht) def
  box
grestore

gsave                         % 'box' verschoben, gedreht und gezerrt darstellen
  150 340 translate
  60 rotate
  0.5 1 scale
  /text (verschoben, gedreht und gezerrt) def
  box
grestore

showpage                      % komplette Seite ausgeben


Download PostScript-File

© Holger Gehringer, Dezember 1998