File: LINE.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
FORTRAN IV 5AAAA (A6) 8-APR-92 PAGE ONE 0002 SUBROUTINE LINE(XA,YA,NPTS,INC,LTP,INTEQ) C VERSION 50A 30-MAY-80 WVDM 0003 DIMENSION XA(1),YA(1) 0004 IF(NPTS.LE.0)GO TO 50 0005 IF(INC.LE.0)GO TO 50 C LTP=+=PEN DOWN+SYMBOLS;0=PEN DOWN ONLY;-=SYMBOLS ONLY 0006 IPLT=NPTS*INC+1 0007 FRSVX=XA(IPLT) 0010 FRSVY=YA(IPLT) C FV AT INC*NPTS+1,DV AT INC*NPTS+INC+1 0011 DELVX=XA(IPLT+INC) 0012 DELVY=YA(IPLT+INC) 0013 IPLT=3 C IPLT=3=PEN UP,2=PEN DOWN 0014 ALTP=ABS(LTP) 0015 ZCNT=ALTP 0016 ICHR=0 0017 IF(LTP.NE.0)ICHR=1 C START TO PLOT FROM DATA POINT 1 0020 DO 30 I=1,NPTS*INC,INC 0021 IF((XA(I)-FRSVX).EQ.0)GO TO 22 0022 XPT=(XA(I)-FRSVX)/DELVX 0023 23 IF((YA(I)-FRSVY).EQ.0)GO TO 24 0024 YPT=(YA(I)-FRSVY)/DELVY 0025 25 CALL XYPLOT(XPT,YPT,IPLT) 0026 IF(LTP.GE.0)IPLT=2 C ALTER POINT STATUS HERE FOR ALL POINTS AFTER FIRST 0027 IF(ICHR.EQ.0)GO TO 30 0030 ZCNT=ZCNT+1 0031 IF(ZCNT.LT.ALTP)GO TO 30 C PLOT EVERY ALTP'TH SYMBOL 0032 ZCNT=0 0033 CALL WHERE(XPT,YPT,Q) 0034 CALL SYMBOL(XPT,YPT,.08,INTEQ,0,-1) 0035 30 CONTINUE 0036 50 RETURN 0037 22 XPT=0 0040 GO TO 23 0041 24 YPT=0 0042 GO TO 25 0043 END