(****************************************************************************)
(*                                                                          *)
(*                           GSX Fill Module                                *)
(*                           ===============                                *)
(* This Module contains all area-related GSX functions, including some GDPs *)
(* which provide fast drawing of often used graphic objects.                *)
(*                                                                          *)
(* 21.1.1988          Wolfgang Muees, Hagenring 22, 3300 Braunschweig       *)
(*                                                                          *)
(****************************************************************************)

DEFINITION MODULE GSXFILL;

FROM GSXMAIN IMPORT VECTOR;

CONST
  hollow  = 0;	solid    = 1;		(* Available fill styles *)
  pattern = 2;	hatch    = 3;
  lines90 = 1;	lines0   = 2;		(* Available fill hatch styles *)
  lines45 = 3;  lines135 = 4;
  cross   = 5;	xxx      = 6;

PROCEDURE FillPolygon ( Number : CARDINAL; VAR Points : ARRAY OF VECTOR );
						(* Draw a polygon with Number points. *)

PROCEDURE FillBar ( X, Y , dX, dY : CARDINAL ); (* Draw a bar with left lower egde at
  						   X, Y and width = dX, height = dY. *)

PROCEDURE FillPie ( X, Y, Radius, Startangle, Endangle : CARDINAL );
						(* Draw a pie with center point at X, Y
						   and given Radius. Angles are [0..3600],
						   and Startangle <= Endangle . *)

PROCEDURE FillCircle ( X, Y, Radius : CARDINAL );
						(* Draw a circle with center point at X, Y
						   and given Radius. *)

PROCEDURE FillStyle ( Style : CARDINAL );	(* Sets fill style. hollow is only outline,
						   solid and pattern do what they mean, each
						   pattern index is darker than index-1  ,
						   hatch generates the styles listed above. *)

PROCEDURE FillIndex ( Index : CARDINAL );	(* If Style = pattern, Index [1..6] generates
						   a pattern, if Style = hatch, the same Index
						   [lines90..xxx] generates a hatch style. *)

PROCEDURE FillColor ( Color : CARDINAL );	(* Set Color index for all fill operations. *)

END GSXFILL.
                                                          