File: LINEW.FT of Tape: Various/ETH/f2

(Source file text) 

---

	SUBROUTINE LINE(XA,YA,NPTS,INC,LTP,INTEQ)
	DIMENSION XA(1),YA(1)
	IF(NPTS.LE.0)GO TO 50
	IF(INC.LE.0)GO TO 50
C	LTP=+=PEN DOWN+SYMBOLS;0=PEN DOWN ONLY;-=SYMBOLS ONLY
	IPLT=NPTS*INC+1
	FRSVX=XA(IPLT)
	FRSVY=YA(IPLT)
C	FV AT INC*NPTS+1,DV AT INC*NPTS+INC+1
	DELVX=XA(IPLT+INC)/2.5
	DELVY=YA(IPLT+INC)/2.5
	IPLT=3
C	IPLT=3=PEN UP,2=PEN DOWN
	ALTP=ABS(LTP)
	ZCNT=ALTP
	ICHR=0
	IF(LTP.NE.0)ICHR=1
C	START TO PLOT FROM DATA POINT 1
	DO 30 I=1,NPTS*INC,INC
	XPT=(XA(I)-FRSVX)/DELVX
	YPT=(YA(I)-FRSVY)/DELVY
	CALL XYPLOT(XPT,YPT,IPLT)
	IF(LTP.GE.0)IPLT=2
C	ALTER POINT STATUS HERE FOR ALL POINTS AFTER FIRST
	IF(ICHR.EQ.0)GO TO 30
	ZCNT=ZCNT+1
	IF(ZCNT.LT.ALTP)GO TO 30
C	PLOT EVERY ALTP'TH SYMBOL
	ZCNT=0
	CALL WHERE(XPT,YPT,Q)
	CALL SYMBOL(XPT,YPT,.32,INTEQ,0,IPLT-4)
30	CONTINUE
50	RETURN
	END

---