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