1*-----------------------------------------------------------------------
2*     LINE SUBPRIMITIVE
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE SGLNU(UX1,UY1,UX2,UY2)
7
8      SAVE
9
10      DATA      INDEXZ/1/
11
12
13      IF (INDEXZ.EQ.0) THEN
14        CALL MSGDMP('M','SGLNU','LINE INDEX IS 0 / DO NOTHING.')
15        RETURN
16      END IF
17      IF (INDEXZ.LT.0) THEN
18        CALL MSGDMP('E','SGLNU','LINE INDEX IS LESS THAN 0.')
19      END IF
20
21      CALL SZLNOP(INDEXZ)
22      CALL SZLNZU(UX1,UY1,UX2,UY2)
23      CALL SZLNCL
24
25      RETURN
26*-----------------------------------------------------------------------
27      ENTRY SGLNV(VX1,VY1,VX2,VY2)
28
29      IF (INDEXZ.EQ.0) THEN
30        CALL MSGDMP('M','SGLNV','LINE INDEX IS 0 / DO NOTHING.')
31        RETURN
32      END IF
33      IF (INDEXZ.LT.0) THEN
34        CALL MSGDMP('E','SGLNV','LINE INDEX IS LESS THAN 0.')
35      END IF
36
37      CALL SZLNOP(INDEXZ)
38      CALL SZLNZV(VX1,VY1,VX2,VY2)
39      CALL SZLNCL
40
41      RETURN
42*-----------------------------------------------------------------------
43      ENTRY SGLNR(RX1,RY1,RX2,RY2)
44
45      IF (INDEXZ.EQ.0) THEN
46        CALL MSGDMP('M','SGLNR','LINE INDEX IS 0 / DO NOTHING.')
47        RETURN
48      END IF
49      IF (INDEXZ.LT.0) THEN
50        CALL MSGDMP('E','SGLNR','LINE INDEX IS LESS THAN 0.')
51      END IF
52
53      CALL SZLNOP(INDEXZ)
54      CALL SZLNZR(RX1,RY1,RX2,RY2)
55      CALL SZLNCL
56
57      RETURN
58*-----------------------------------------------------------------------
59      ENTRY SGSLNI(INDEX)
60
61      INDEXZ=INDEX
62
63      RETURN
64*-----------------------------------------------------------------------
65      ENTRY SGQLNI(INDEX)
66
67      INDEX=INDEXZ
68
69      RETURN
70      END
71