IMPLEMENTATION MODULE GSXFILL;

FROM GSXMAIN IMPORT CB, simple, oneCARD, PTSIN, CARDIN, numPTS;

PROCEDURE FillPolygon ( Number : CARDINAL; VAR Points : ARRAY OF VECTOR );
BEGIN
  numPTS ( 9, Number, Points );
END FillPolygon;

PROCEDURE FillBar ( X, Y , dX, dY : CARDINAL );
BEGIN
  PTSIN[1].X := X;
  PTSIN[1].Y := Y;
  PTSIN[2].X := X+dX;
  PTSIN[2].Y := Y+dY;
  WITH CB DO
    PINLEN  := 2;
    ESCID   := 1;
  END;
  simple ( 11 );
END FillBar;

PROCEDURE FillPie ( 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   := 3;
  END;
  simple ( 11 );
END FillPie;

PROCEDURE FillCircle ( X, Y, Radius : CARDINAL );
BEGIN
  PTSIN[1].X := X;
  PTSIN[1].Y := Y;
  PTSIN[3].X := Radius;
  WITH CB DO
    PINLEN  := 3;
    ESCID   := 4;
  END;
  simple ( 11 );
END FillCircle;

PROCEDURE FillStyle ( Style : CARDINAL );
BEGIN
  oneCARD ( 23, Style );
END FillStyle;

PROCEDURE FillIndex ( Index : CARDINAL );
BEGIN
  oneCARD ( 24, Index );
END FillIndex;

PROCEDURE FillColor ( Color : CARDINAL );
BEGIN
  oneCARD ( 25, Color );
END FillColor;

END GSXFILL.
                                                                                                           