%N winpoint %F $MIR/src/subs/win.for
%D Draw points
%P pjt
%: plotting, pgplot, user-interaction
%B
        subroutine winpoint( n, x, y, ipt )
        implicit none
        integer n, ipt(*)
        real x(*), y(*)

    WinPoint draw a set of points - the symbol indicator is not
    exactly in the order of the standard pgplot graph markers,
    but a lookup table is used which reorder them a bit. Just
    a silly preference based history...

   Input:
       n     integer       Number of points in arrays
       x     real          Array of X-coordinates of points
       y     real          Array of Y-coordinates of points
       ipt   integer       Array of graph markers
