home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / 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.