home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / gplotgdp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-13  |  1.6 KB  |  43 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                              GPLOTGDP.PAS                               *)
  3. (* Zeichenprimitive (Generalized Drawing Primitives) fuer den Plottersimu- *)
  4. (* lator. Fuer 'line' ist z.B. der Integer-DDA des Artikels 'Vom Punkt zur *)
  5. (* dritten Dimension', Pascal 4/87, zu verwenden. Entsprechendes gilt fuer *)
  6. (* 'circle' (einen der drei Algorithmen). Diese sind per 'Include' nach    *)
  7. (* GPLOTSYS.PAS und vor GPLOTGDP.PAS einzubinden! (s. GPLOT.PAS)           *)
  8. (*-------------------------------------------------------------------------*)
  9.  
  10. (*-------------------------------------------------------------------------*)
  11. (*                          Linie zeichnen:                                *)
  12.  
  13. PROCEDURE Line (x1, y1, x2, y2: INTEGER);
  14.  
  15. BEGIN
  16.   do_line(x1, y1, x2, y2);
  17. END;
  18.  
  19. (*-------------------------------------------------------------------------*)
  20. (*                          Rechteck zeichnen:                             *)
  21. (* (x1,y1) = linke obere Ecke, (x2, y2) = rechte, untere Ecke              *)
  22.  
  23. PROCEDURE box (x1, y1, x2, y2: INTEGER);
  24.  
  25. BEGIN
  26.   do_line(x1, y1, x2, y1);
  27.   do_line(x1, y1, x1, y2);
  28.   do_line(x2, y1, x2, y2);
  29.   do_line(x1, y2, x2, y2);
  30. END;
  31.  
  32. (*-------------------------------------------------------------------------*)
  33. (*                           Kreis:                                        *)
  34.  
  35. PROCEDURE circle (x, y, r: INTEGER);
  36.  
  37. BEGIN
  38.   do_circle(x, y, r);
  39. END;
  40.  
  41. (*-------------------------------------------------------------------------*)
  42. (*                     Ende von GPLOTGDP.PAS                               *)
  43.