%N pgdraw %F $MIR/src/pgdraw.f
%D Draw a line from the current pen position to a point
%B
      SUBROUTINE PGDRAW (X, Y)
      REAL X, Y

 Draw a line from the current pen position to the point
 with world-coordinates (X,Y). The line is clipped at the edge of the
 current window. The new pen position is (X,Y) in world coordinates.

 Arguments:
  X      (input)  : world x-coordinate of the end point of the line.
  Y      (input)  : world y-coordinate of the end point of the line.
