home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / ega / egatest.arc / DRAWPOLY.DEF < prev    next >
Encoding:
Modula Definition  |  1986-11-12  |  597 b   |  18 lines
  1. DEFINITION MODULE DrawPoly;
  2. (*
  3. Title   : DrawPoly.DEF -- Draw lines and boxes
  4. LastEdit: July 22, 1986
  5. Author  : John T. Cockerham, M.D.
  6. System  : LOGITECH MODULA-2/86
  7. *)
  8.   FROM LowEGA IMPORT DrawPoint;
  9.   FROM PointLib IMPORT Point;
  10.   EXPORT QUALIFIED DrawLine, DrawBox;
  11.     (* Draw a line from p1 to p2 in color 'color' *)
  12.   PROCEDURE DrawLine(p1, p2 : Point; color : CARDINAL);
  13.  
  14.     (* Draw a Box with the two points specifying two oppsite
  15.        corners. Color the lines according to palette c *)
  16.   PROCEDURE DrawBox(UpperLeft, LowerRight : Point; c : CARDINAL);
  17. END DrawPoly.
  18.