home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / ps / pr0491_3.ps < prev    next >
Encoding:
Text File  |  1991-02-16  |  1.6 KB  |  55 lines
  1. %---> PR0491_3.PS
  2. %---> Demonstrationsprogramm zur Erzeugung von Figuren. Die
  3. %---> Prozeduren werden über die Präambeldatei "PR0491_2.PS"
  4. %---> definiert. Mit dem Operator "known" läßt sich prüfen,
  5. %---> ob die Initialisierung durchgeführt wurde.
  6.  
  7. % Teste, ob Prozeduren definiert sind. Brich ab,
  8. % falls unbekannt !!!
  9. userdict /Kreis known not         % Wenn "Kreis" unbekannt
  10.  {
  11.    (Kreis nicht definiert ) print
  12.    stop
  13.  } if
  14.  
  15. userdict /Rechteck known not      % Wenn "Rechteck" unbe-
  16.  {                                %                 kannt
  17.    (Rechteck nicht definiert ) print
  18.     stop
  19.  } if
  20.  
  21. userdict /Ellipse known not       % Wenn "Ellipse" unbekannt
  22.  {
  23.    (Ellipse nicht definiert ) print
  24.     stop
  25.  } if
  26.  
  27. % Definiere Konstanten
  28. /X 250 def                        % X-Koordinate
  29. /Y0 600 def                       % Y-Koordinate
  30. /Y1 350 def                       % Y-Koordinate
  31.  
  32. % Hauptprogramm
  33. 1 setlinewidth                    % Dünne Linie
  34. newpath                           % Seite öffnen
  35. 0 setgray                         % 100 Prozent Schwarz
  36.  
  37. % Zeichne Ellipse
  38. gsave                             % Merke Koordinaten
  39. X 1.75 div                        % Korrektur X-Achse
  40. Y0 50 1.75 Ellipse                % Y, Radius, X-Dehnung
  41. stroke
  42. grestore                          % Koordinaten restaurieren
  43.  
  44. % Zeichne Kreis
  45. 200 350 50 Kreis                  % Start X/Y und Radius
  46. stroke
  47.  
  48. % Zeichne Rechteck
  49. 200 100 moveto                    % Anfangspunkt
  50. 100 100 Rechteck                  % Breite, Höhe
  51. stroke
  52.  
  53. showpage                          % Raus mit der Seite
  54. % Ende
  55.