Previous: inqpes Up: ../plot79_i.html Next: inqpis

INQPFI

       SUBROUTINE  INQPFI (PINDEX,ANGLE,HATCH)
 C$    (Inquire Polygon Fill Index Parameters)
 C$    Return the  current polygon  fill index  parameters.   Fill
 C$    index 0  corresponds  to no  polygon  filling, and  is  the
 C$    default value  established  at  CORE  initialization  time.
 C$    Index values  1..84  correspond to  built-in  patterns,  as
 C$    described in routine SETPFI.  The arguments are:
 C$
 C$    PINDEX..........Polygon  style pattern  index,  an  INTEGER
 C$                    value in  the  range  0..MAXINT.
 C$
 C$    ANGLE...........Angle   (in   floating-point  degrees)   of
 C$                    shading  lines  measured   counterclockwise
 C$                    from the horizontal axis.
 C$
 C$    HATCH........... .FALSE. - No cross-hatching
 C$                     .TRUE.  - Cross-hatch polygon by repeating
 C$                               the pattern at ANGLE+90.0.
 C$    (26-JAN-82)