1*-----------------------------------------------------------------------
2      SUBROUTINE SGPLXU(N,UPX,UPY,ITYPE,INDEX,ICOLOR)
3
4      REAL      UPX(*),UPY(*)
5      LOGICAL LFCATR
6
7      CALL SWQFCC(LFCATR)
8      IF(.NOT.LFCATR) THEN
9        CALL MSGDMP('M','SGPLXU','FULL COLOR MODE IS NOT SUPPORTED.')
10      END IF
11
12      IF (N.LT.2) THEN
13        CALL MSGDMP('E','SGPLXU','NUMBER OF POINTS IS LESS THAN 2.')
14      END IF
15      IF (ITYPE.EQ.0) THEN
16        CALL MSGDMP('M','SGPLXU','LINETYPE IS 0 / DO NOTHING.')
17        RETURN
18      END IF
19      IF (INDEX.EQ.0) THEN
20        CALL MSGDMP('M','SGPLXU','POLYLINE INDEX IS 0 / DO NOTHING.')
21        RETURN
22      END IF
23      IF (INDEX.LT.0) THEN
24        CALL MSGDMP('E','SGPLXU','POLYLINE INDEX IS LESS THAN 0.')
25      END IF
26
27      CALL SWSFCM(.TRUE.)
28      CALL SWSLCL(ICOLOR)
29
30      CALL SZPLOP(ITYPE,INDEX)
31      CALL SZPLZU(N,UPX,UPY)
32      CALL SZPLCL
33
34      CALL SWSFCM(.FALSE.)
35
36      END
37