Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0123/opoint.qor
There is 1 other file named opoint.qor in the archive. Click here to see a list.
00100 C OPOINT(X,Y,L,C)
00200 C THIS PROGRAM DRAWS A SPECIAL CHARACTEP AROUND THE POINT
00300 C (X,Y). THE SIDE OF THE CHARACTER IQ C*0.1 INCHES.
00400 SUBROUTINE OPOINT(X,Y,L,C)
00500 DIMENSION I1(30),J1(30),XV(5),YV(5)
00600 DATA I1/1,2,3,1,1,1,1,3,1,1,1,3,2,1,1,1,3,3,1,1,
00700 - 1,1,3,3,1,1,2,3,2,1/
00800 DATA J1/1,3,1,1,1,1,3,2,1,1,3,3,1,3,3,2,3,1,2,2,
00900 - 1,3,3,1,1,2,3,2,1,2/
01000 I=L-1
01100 IF(I*(4-I).LT.0)I=5
01200 I=5*I
01300 D=C*0.05
01400 XM=X-2*D
01500 YM=Y-2*D
01600 DO 1 J=1,5
01700 K=I+J
01800 XV(J)=XM+I1(K)*D
01900 1 YV(J)=YM+J1(K)*D
02000 CALL OLINE (XV,YV,5,1)
02100 RETURN
02200 END
02300
02400 @p