(****************************************************************************) (* *) (* GSX Line Module *) (* =============== *) (* This Module contains all procedures to draw lines and set their attri- *) (* butes. *) (* *) (* 26.1.1988 Wolfgang Muees, Hagenring 22, 3300 Braunschweig *) (* *) (****************************************************************************) DEFINITION MODULE GSXLINE; FROM GSXMAIN IMPORT VECTOR; CONST solid = 1; dash = 2; (* Available linetypes *) dot = 3; dashdot = 4; longdash = 5; PROCEDURE PolyLine ( Number : CARDINAL; VAR Points : ARRAY OF VECTOR ); (* Draw a polyline with selected type, width and color. *) PROCEDURE DrawArc ( X, Y, Radius, Startangle, Endangle : CARDINAL ); (* Draw an arc with center point X, Y and Radius. Angles in [0..3600], Startangle <= Endangle.*) PROCEDURE LineType ( Type : CARDINAL ); (* Sets linetypes defined above *) PROCEDURE LineWidth ( Width : CARDINAL ); (* Tries to change line width. Most devices don't support this. *) PROCEDURE LineColor ( Color : CARDINAL ); (* Sets a color index for lines and arcs. *) END GSXLINE.