(****************************************************************************)
(*                                                                          *)
(*                          GSX Marker Module                               *)
(*                          =================                               *)
(* This Module contains GSX functions to display markers, especialy usefull *)
(* to draw a grid or place some symbols.                                    *)
(*                                                                          *)
(* 16.5.1988          Wolfgang Muees, Hagenring 22, 3300 Braunschweig       *)
(*                                                                          *)
(****************************************************************************)

CONST
  dot     = 1;        plus   = 2;               (* Available markertypes *)
  asterix = 3;        circle = 4;
  cross   = 5;

PROCEDURE SetMarker ( Number : INTEGER; VAR Points : ARRAY OF VECTOR );
                                                (* Displayes a Number of markers.      *)
BEGIN
  numPTS ( 7, Number, Points );
END;


PROCEDURE MarkerType ( Type : INTEGER );        (* Select a marker type ( see above ). *)
BEGIN
  oneINT ( 18, Type );
END;


PROCEDURE MarkerScale ( Scale : INTEGER );      (* Set Marker scale.                   *)
BEGIN
  CB.PINLEN  := 1;
  PTSIN[1].X := Scale;
  simple ( 19 );
END;


PROCEDURE MarkerColor ( Color : INTEGER );      (* Set Marker color index.             *)
BEGIN
  oneINT ( 20, Color );
END;