PDP-10 Archive: 43,50444/opoint.for from decuslib10-07

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50444/opoint.for

There are 2 other files named opoint.for in the archive. Click here to see a list.

C		OPOINT(X,Y,L,C)
C THIS PROGRAM DRAWS A SPECIAL CHARACTEP AROUND THE POINT
C (X,Y). THE SIDE OF THE CHARACTER IQ C*0.1 INCHES.
	SUBROUTINE OPOINT(X,Y,L,C)
	DIMENSION I1(30),J1(30),XV(5),YV(5)
	DATA I1/1,2,3,1,1,1,1,3,1,1,1,3,2,1,1,1,3,3,1,1,
     -  1,1,3,3,1,1,2,3,2,1/
	DATA J1/1,3,1,1,1,1,3,2,1,1,3,3,1,3,3,2,3,1,2,2,
     -  1,3,3,1,1,2,3,2,1,2/
	I=L-1
	IF(I*(4-I).LT.0)I=5
	I=5*I
	D=C*0.05
	XM=X-2*D
	YM=Y-2*D
	DO 1 J=1,5
	K=I+J
	XV(J)=XM+I1(K)*D
1	YV(J)=YM+J1(K)*D
	CALL OLINE (XV,YV,5,1)
	RETURN
	END
	
@p