1*-----------------------------------------------------------------------
2      SUBROUTINE SGTNXV(N,VPX,VPY,ITPAT,ICOLOR)
3
4      REAL      VPX(*),VPY(*)
5      LOGICAL   LFCATR
6
7      CALL SWQFCC(LFCATR)
8      IF(.NOT.LFCATR) THEN
9        CALL MSGDMP('M','SGTNXV','FULL COLOR MODE IS NOT SUPPORTED.')
10      END IF
11
12      IF (N.LT.3) THEN
13        CALL MSGDMP('E','SGTNXV','NUMBER OF POINTS IS LESS THAN 3.')
14      END IF
15      IF (ITPAT.EQ.0) THEN
16        CALL MSGDMP('M','SGTNXV','TONE PAT. INDEX IS 0 / DO NOTHING.')
17        RETURN
18      END IF
19      IF (ITPAT.LT.0) THEN
20        CALL MSGDMP('E','SGTNXV','TONE PAT. INDEX IS LESS THAN 0.')
21      END IF
22
23      CALL SWSFCM(.TRUE.)
24      CALL SWSTCL(ICOLOR)
25      CALL SWSLCL(ICOLOR)
26
27      CALL SZTNOP(ITPAT)
28      CALL SZTNZV(N,VPX,VPY)
29      CALL SZTNCL
30
31      CALL SWSFCM(.FALSE.)
32
33      END
34