SUBROUTINE RITA(X,Y,NPTS,DIA,ITYPE,LTYPE) C C This subroutine plots out symbols at the locations C specified by the X and Y arrays. Lines are drawn between, C but not touching, the symbols. C C X,Y Arrays containing the coordinates of the data points C in units of the axes. Scaling is done through C SUBROUTINE PSTN. C NPTS Number of points in the above arrays. C DIA Diameter of the symbol in scale inches. If DIA .LE. 0., C no symbols will be drawn. C ITYPE Type of symbol. If ITYPE .EQ. 0, no symbols will be C drawn. See SUBROUTINE SYMBOL for a listing of symbol C types. C LTYPE Type of line. If LTYPE .EQ. 0, no lines will be C drawn. See SUBROUTINE DSHPLT for a listing of line C type. C C Overlay: [12,21]RITA-*([12,21]DSHPLT,[12,21]SYMBOL) C COMMON /PSTN/ XZero, XScale, LogX, 1 YZero, YScale, LogY, YMin DIMENSION X(1), Y(1) LOGICAL LogX,LogY C C - CHECK TO SEE IF JUST LINES ARE TO BE DRAWN. IF( ( DIA .LE. 0. ) .OR. ( ITYPE .EQ. 0 ) ) GO TO 1100 C C - CHECK TO SEE IF JUST SYMBOLS ARE TO BE DRAWN. IF( LTYPE .EQ. 0 ) GO TO 2100 C C - DRAW SYMBOLS WITH LINES BETWEEN. E = 1.5*DIA CALL PSTN(X(1),Y(1),XS,YS) CALL SYMBOL(XS,YS,DIA,ITYPE) DO 1000 i = 2,NPTS CALL PSTN(X(i),Y(i),XF,YF) D = SQRT((XF-XS)**2+(YF-YS)**2) IF( D .LE. E )GOTO 100 DX = 0.5*(XF-XS)/D*E DY = 0.5*(YF-YS)/D*E CALL DSHPLT(XS+DX,YS+DY,3,LTYPE) CALL DSHPLT(XF-DX,YF-DY,2,LTYPE) 100 XS = XF YS = YF 1000 CALL SYMBOL(XS,YS,DIA,ITYPE) RETURN C C - DRAW JUST LINES. 1100 IPEN = 3 DO 2000 I=1,NPTS CALL PSTN(X(I),Y(I),XP,YP) CALL DSHPLT(XP,YP,IPEN,LTYPE) 2000 IPEN = 2 RETURN C C - DRAW JUST SYMBOLS. 2100 DO 3000 I=1,NPTS CALL PSTN(X(I),Y(I),XP,YP) 3000 CALL SYMBOL(XP,YP,DIA,ITYPE) RETURN END