Ein Quadrat zeichnen (mit Zeichenpfad)


%!
% Quadrat mit 200 Punkten Seitenlaenge zeichnen

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

300 100 lineto          % Unterkante zeichnen
300 300 lineto          % rechte Kante zeichnen
100 300 lineto          % Oberkante zeichnen
closepath               % Pfad schliessen, d.h. Linie zum Anfangspunkt zeichnen

20 setlinewidth         % Linienbreite festlegen auf 20 Punkte 

stroke                  % das gezeichnete auf der aktuellen Seite ausgeben

showpage                % aktuelle Seite ausgeben


Download PostScript-File

© Holger Gehringer, Dezember 1998