Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - 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