DEFINITION MODULE DrawPoly;
(*
Title   : DrawPoly.DEF -- Draw lines and boxes
LastEdit: July 22, 1986
Author  : John T. Cockerham, M.D.
System  : LOGITECH MODULA-2/86
*)
  FROM LowEGA IMPORT DrawPoint;
  FROM PointLib IMPORT Point;
  EXPORT QUALIFIED DrawLine, DrawBox;
    (* Draw a line from p1 to p2 in color 'color' *)
  PROCEDURE DrawLine(p1, p2 : Point; color : CARDINAL);

    (* Draw a Box with the two points specifying two oppsite
       corners. Color the lines according to palette c *)
  PROCEDURE DrawBox(UpperLeft, LowerRight : Point; c : CARDINAL);
END DrawPoly.
