Translation und Rotation


%!
% Definition der Prozedur fuenfeck (zeichnet dasselbe)
/fuenfeck
{ newpath
  use_save { gsave } if       % zur Demonstration von gsave
  0 0 moveto                  % immer zum Ursprung des aktuellen Koord.systems
  100 0 rlineto               % Linie zeichnen und KS rotieren
  72 rotate
  100 0 rlineto
  72 rotate
  100 0 rlineto
  72 rotate
  100 0 rlineto
  closepath                   % Fuenfeck schliessen
  stroke                      % Fuenfeck ausgeben
  use_save { grestore } if    % zur Demonstration von grestore
} def

%%Page: 1 1
/use_save false def           % die boolesche Variable use_save setzen
200 200 translate             % KS verschieben
fuenfeck                      % Fuenfeck zeichnen

showpage                      % 1. Seite ausgeben

%%Page: 2 2
/use_save false def           % die boolesche Variable use_save setzen
200 200 translate             % KS verschieben
fuenfeck                      % Fuenfeck zeichnen

50 0 translate                % KS verschieben
fuenfeck                      % Fuenfeck zeichnen

showpage                      % 2. Seite ausgeben

%%Page: 3 3
/use_save true def            % die boolesche Variable use_save setzen

200 200 translate             % KS verschieben
fuenfeck                      % Fuenfeck zeichnen

50 0 translate                % KS verschieben
fuenfeck                      % Fuenfeck zeichnen

showpage                      % 3. Seite ausgeben


Download PostScript-File

© Holger Gehringer, Dezember 1998