%N pgrect %F $MIR/src/pgrect.f
%D Draw a rectangle, using fill-area attributes
%B
      SUBROUTINE PGRECT (X1, X2, Y1, Y2)
      REAL X1, X2, Y1, Y2

 This routine can be used instead of PGPOLY for the special case of
 drawing a rectangle aligned with the coordinate axes; only two
 vertices need be specified instead of four.  On most devices, it is
 faster to use PGRECT than PGPOLY for drawing rectangles.  The
 rectangle has vertices at (X1,Y1), (X1,Y2), (X2,Y2), and (X2,Y1).

 Arguments:
  X1, X2 (input) : the horizontal range of the rectangle.
  Y1, Y2 (input) : the vertical range of the rectangle.
