1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      PROGRAM SCPKT4
5
6      PARAMETER (N=8, PI=3.14159)
7
8
9      WRITE(*,*) ' WORKSTATION ID (I) ? ;'
10      CALL SGPWSN
11      READ (*,*) IWS
12
13      CALL SGOPN(IWS)
14      CALL SGFRM
15      CALL SGLSET('L2TO3', .TRUE.)
16*     CALL SCSEYE( -0.5, -0.5, 2.0)
17*     CALL SCSOBJ(  0.5,  0.5, 0.5)
18      CALL SCSPRJ
19      CALL SGSTRF
20
21      DT = 2.*PI/N
22      A  = 0.5
23
24      CALL SZL3OP(1)
25      CALL SZT3OP(2999,3999)
26      DO 10 I=1, N
27        T1 = DT*(I-1)
28        T2 = DT*I
29        X1 = A*SIN(T1) + 0.5
30        X2 = A*SIN(T2) + 0.5
31        Y1 = A*COS(T1) + 0.5
32        Y2 = A*COS(T2) + 0.5
33        CALL BOX (X1, Y1, X2, Y2)
34   10 CONTINUE
35
36      CALL SZL3CL
37      CALL SZT3CL
38
39      CALL SGCLS
40
41      END
42*-----------------------------------------------------------------------
43      SUBROUTINE BOX(X1, Y1, X2, Y2)
44
45      PARAMETER (N = 3, Z1=0.1, Z2=-0.1)
46
47      DIMENSION X(N), Y(N), Z(N)
48
49
50      X(1) = X1
51      X(2) = X1
52      X(3) = X2
53      Y(1) = Y1
54      Y(2) = Y1
55      Y(3) = Y2
56      Z(1) = Z1
57      Z(2) = Z2
58      Z(3) = Z2
59
60      CALL SZT3ZV(X, Y, Z)
61      CALL SZL3ZV(3, X, Y, Z)
62
63      X(1) = X2
64      X(2) = X2
65      X(3) = X1
66      Y(1) = Y2
67      Y(2) = Y2
68      Y(3) = Y1
69      Z(1) = Z2
70      Z(2) = Z1
71      Z(3) = Z1
72
73      CALL SZT3ZV(X, Y, Z)
74      CALL SZL3ZV(3, X, Y, Z)
75
76      END
77