1C*PGSFS -- set fill-area style
2C%void cpgsfs(int fs);
3C+
4      SUBROUTINE PGSFS (FS)
5      INTEGER  FS
6C
7C Set the Fill-Area Style attribute for subsequent area-fill by
8C PGPOLY, PGRECT, or PGCIRC.  Four different styles are available:
9C solid (fill polygon with solid color of the current color-index),
10C outline (draw outline of polygon only, using current line attributes),
11C hatched (shade interior of polygon with parallel lines, using
12C current line attributes), or cross-hatched. The orientation and
13C spacing of hatch lines can be specified with routine PGSHS (set
14C hatch style).
15C
16C Argument:
17C  FS     (input)  : the fill-area style to be used for subsequent
18C                    plotting:
19C                      FS = 1 => solid (default)
20C                      FS = 2 => outline
21C                      FS = 3 => hatched
22C                      FS = 4 => cross-hatched
23C                    Other values give an error message and are
24C                    treated as 2.
25C--
26C 21-Oct-1985 - new routine [TJP].
27C 17-Dec-1990 - pass to GR level [TJP].
28C  6-Mar-1995 - add styles 3 and 4 [TJP].
29C-----------------------------------------------------------------------
30      INCLUDE 'pgplot.inc'
31      LOGICAL PGNOTO
32C
33      IF (PGNOTO('PGSFS')) RETURN
34      IF (FS.LT.1 .OR. FS.GT.4) THEN
35          CALL GRWARN('illegal fill-area style requested')
36          PGFAS(PGID) = 2
37      ELSE
38          PGFAS(PGID) = FS
39      END IF
40      END
41