home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / ps / pr0491_2.ps < prev    next >
Encoding:
Text File  |  1991-02-16  |  860 b   |  35 lines
  1. %---> PR0491_2.PS
  2. %---> Beispiel-Präambel (Init-File) mit Prozeduren,
  3. %---> muß vor dem eigentlichen Programm ausgeführt
  4. %---> werden
  5. %---> (c) 1991 G. Born & TOOLBOX
  6.  
  7. % Prozedur "Rechteck"
  8. % Parameter: Breite, Höhe
  9. % Aufruf   : x y Rechteck
  10. /Rechteck
  11. {
  12.    1 index  0 rlineto             % X-Linie
  13.    0 exch     rlineto             % Y-Linie
  14.    neg      0 rlineto             % -X-Linie
  15.    closepath                      % schließe Pfad
  16. } def
  17.  
  18. % Prozedur "Kreis"
  19. % Parameter: X, Y, Radius
  20. % Aufruf   : x y r Kreis
  21. /Kreis
  22. {
  23.    0 360 arc                      % zeichne Vollkreis
  24. } def
  25.  
  26. % Prozedur "Ellipse"
  27. % Parameter: X, Y, Radius, Dehnung in X-Richtung
  28. % Aufruf   : x y r d Ellipse
  29. /Ellipse
  30. {
  31.    1 scale                        % spreize Y-Achse
  32.    0 360 arc                      % zeichne Vollkreis
  33. } def
  34. % Ende der Präambel
  35.