Ein gefülltes Quadrat zeichnen (mit relativen Koordinaten)


%!
% Quadrat mit 200 Punkten Seitenlaenge zeichnen

newpath                 % neuen Pfad beginnen
 100 100 moveto         % an den Anfangspunkt der Zeichnung gehen

 200   0 rlineto        % Unterkante zeichnen
   0 200 rlineto        % rechte Kante zeichnen
-200   0 rlineto        % Oberkante zeichnen
closepath               % Pfad schliessen, d.h. Linie zum Anfangspunkt zeichnen

20 setlinewidth         % Linienbreite festlegen auf 20 Punkte 

fill                    % das Quadrat fuellen mit der aktuellen Zeichenfarbe

showpage                % aktuelle Seite ausgeben


Download PostScript-File

© Holger Gehringer, Dezember 1998