Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0123/online.qor
There is 1 other file named online.qor in the archive. Click here to see a list.
00100	C		OLINE(X,Y,N,K)
00200	C THIS PROGRAM DRAWS A LINE THROUGH THE POINTS
00300	C (X(1),Y(1)),(X(1+K),Y(1+K)),(X(1+2K),Y(1+2K)),...,(X(N),Y(N)).
00400		SUBROUTINE OLINE(X,Y,N,K)
00500		DIMENSION X(1),Y(1)
00600		CALL OPLOT(X(1),Y(1),3)
00700		DO 1 I=1,N,K
00800	1	CALL OPLOT(X(I),Y(I),2)
00900		CALL OPLOT(X(N),Y(N),2)
01000		RETURN
01100		END
01200