(****************************************************************************)
(*                                                                          *)
(*                          GSX Marker Module                               *)
(*                          =================                               *)
(* This Module contains GSX functions to display markers, especialy usefull *)
(* to draw a grid or place some symbols.				    *)
(*                                                                          *)
(* 26.1.1988          Wolfgang Muees, Hagenring 22, 3300 Braunschweig       *)
(*                                                                          *)
(****************************************************************************)

DEFINITION MODULE GSXMARK;

FROM GSXMAIN IMPORT VECTOR;

CONST
  dot     = 1;	plus   = 2;	(* Available markertypes *)
  asterix = 3;	circle = 4;
  cross   = 5;

PROCEDURE SetMarker ( Number : CARDINAL; VAR Points : ARRAY OF VECTOR );
				                (* Displayes a Number of markers.      *)

PROCEDURE MarkerType ( Type : CARDINAL );	(* Select a marker type ( see above ). *)

PROCEDURE MarkerScale ( Scale : CARDINAL );	(* Set Marker scale.		       *)

PROCEDURE MarkerColor ( Color : CARDINAL );	(* Set Marker color index.	       *)

END GSXMARK.
                                                            