home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / Diglib / diglib.zoo / diglib / TRACEY.FOR < prev    next >
Text File  |  1989-06-20  |  449b  |  17 lines
  1.         SUBROUTINE TRACEY(XMIN,XMAX,Y,NPTS)
  2. C
  3. C       THIS SUBROUTINE IS USED TO PLOT DATA ON THE SCREEN AS
  4. C       A CONTINOUS LINE, GIVEN ONLY THE Y ARRAY AND XMIN AND XMAX.
  5. C
  6.         DIMENSION Y(2)
  7.         CALL SCALE(XMIN,Y(1),VX,VY)
  8.         CALL GSMOVE(VX,VY)
  9.         XINC = (XMAX-XMIN)/(NPTS-1)
  10.         X = XMIN
  11.         DO 100 I=2,NPTS
  12.         X = X + XINC
  13.         CALL SCALE(X,Y(I),VX,VY)
  14. 100     CALL GSDRAW(VX,VY)
  15.         RETURN
  16.         END
  17.