%N pgpnts %F $MIR/src/pgpnts.f
%D Draw several graph markers, not all the same
%B
      SUBROUTINE PGPNTS (N, X, Y, SYMBOL, NS)
      INTEGER N, NS
      REAL X(*), Y(*)
      INTEGER SYMBOL(*)

 Draw Graph Markers. Unlike PGPT, this routine can draw a different
 symbol at each point. The markers are drawn using the current values
 of attributes color-index, line-width, and character-height
 (character-font applies if the symbol number is >31).  If the point
 to be marked lies outside the window, no marker is drawn.  The "pen 
 position" is changed to (XPTS(N),YPTS(N)) in world coordinates
 (if N > 0).

 Arguments:
  N      (input)  : number of points to mark.
  X      (input)  : world x-coordinate of the points.
  Y      (input)  : world y-coordinate of the points.
  SYMBOL (input)  : code number of the symbol to be plotted at each
                    point (see PGPT).
  NS     (input)  : number of values in the SYMBOL array.  If NS <= N,
                    then the first NS points are drawn using the value
                    of SYMBOL(I) at (X(I), Y(I)) and SYMBOL(1) for all
                    the values of (X(I), Y(I)) where I > NS.

 Note: the dimension of arrays X and Y must be greater than or equal
 to N and the dimension of the array SYMBOL must be greater than or
 equal to NS.  If N is 1, X and Y may be scalars (constants or
 variables).  If NS is 1, then SYMBOL may be a scalar.  If N is
 less than 1, nothing is drawn.
