File: LINE.FT of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
SUBROUTINE LINE(XA,YA,NPTS,INC,LTP,INTEQ) C VERSION 50A 30-MAY-80 WVDM 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) DELVY=YA(IPLT+INC) 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 IF((XA(I)-FRSVX).EQ.0)GO TO 22 XPT=(XA(I)-FRSVX)/DELVX 23 IF((YA(I)-FRSVY).EQ.0)GO TO 24 YPT=(YA(I)-FRSVY)/DELVY 25 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,.08,INTEQ,0,-1) 30 CONTINUE 50 RETURN 22 XPT=0 GO TO 23 24 YPT=0 GO TO 25 END