%N pgqhs %F $MIR/src/pgqhs.f
%D Inquire hatching style
%B
      SUBROUTINE PGQHS (ANGLE, SEPN, PHASE)
      REAL ANGLE, SEPN, PHASE

 Query the style to be used hatching (fill area with fill-style 3).

 Arguments:
  ANGLE  (output) : the angle the hatch lines make with the
                    horizontal, in degrees, increasing 
                    counterclockwise (this is an angle on the
                    view surface, not in world-coordinate space).
  SEPN   (output) : the spacing of the hatch lines. The unit spacing
                    is 1 percent of the smaller of the height or
                    width of the view surface.
  PHASE  (output) : a real number between 0 and 1; the hatch lines
                    are displaced by this fraction of SEPN from a
                    fixed reference.  Adjacent regions hatched with the
                    same PHASE have contiguous hatch lines.
