IMPLEMENTATION MODULE GSXMARK;

FROM GSXMAIN IMPORT CB, simple, oneCARD, PTSIN, numPTS;

PROCEDURE SetMarker ( Number : CARDINAL; VAR Points : ARRAY OF VECTOR );
BEGIN
  numPTS ( 7, Number, Points );
END SetMarker;

PROCEDURE MarkerType ( Type : CARDINAL );
BEGIN
  oneCARD ( 18, Type );
END MarkerType;

PROCEDURE MarkerScale ( Scale : CARDINAL );
BEGIN
  CB.PINLEN  := 1;
  PTSIN[1].X := Scale;
  simple ( 19 );
END MarkerScale;

PROCEDURE MarkerColor ( Color : CARDINAL );
BEGIN
  oneCARD ( 20, Color );
END MarkerColor;

END GSXMARK.
                                                                          