home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / polyline.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-04-15  |  622 b   |  16 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                             POLYLINE.PAS                                *)
  3. (*              Zeichnen von Polygonen mit "absoluten" Koordinaten         *)
  4.  
  5. PROCEDURE PolyLine (PolyXY: Polygon; n: PolyIndex);
  6.  
  7. VAR i: INTEGER;
  8.  
  9. BEGIN
  10.   movea(PolyXY[1].x, PolyXY[1].y);
  11.   FOR i := 2 TO n DO
  12.     linea(PolyXY[i].x, PolyXY[i].y) (* hier event. 'liner' fuer rel. Poly. *)
  13. END;
  14.  
  15. (*-------------------------------------------------------------------------*)
  16. (*                           Ende POLYLINE.PAS                             *)