IMPLEMENTATION MODULE GSXLINE;

FROM GSXMAIN IMPORT CB, simple, PTSIN, CARDIN, oneCARD, numPTS;

PROCEDURE PolyLine ( Number : CARDINAL; VAR Points : ARRAY OF VECTOR );
BEGIN
  numPTS ( 6, Number, Points );
END PolyLine;

PROCEDURE DrawArc ( X, Y, Radius, Startangle, Endangle : CARDINAL );
BEGIN
  PTSIN[1].X := X;
  PTSIN[1].Y := Y;
  PTSIN[4].X := Radius;
  CARDIN[1]  := Startangle;
  CARDIN[2]  := Endangle;
  WITH CB DO
    PINLEN := 4;
    CINLEN := 2;
    ESCID  := 2;
  END;
  simple ( 11 );
END DrawArc;

PROCEDURE LineType ( Type : CARDINAL );
BEGIN
  oneCARD ( 15, Type );
END LineType;

PROCEDURE LineWidth ( Width : CARDINAL );
BEGIN
  PTSIN[1].X := Width;
  CB.PINLEN  := 1;
  simple ( 16 );
END LineWidth;

PROCEDURE LineColor ( Color : CARDINAL );
BEGIN
  oneCARD ( 17, Color );
END LineColor;

END GSXLINE.
                            