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 / TRACE.FOR < prev    next >
Text File  |  1989-06-20  |  333b  |  14 lines
  1.         SUBROUTINE TRACE(X,Y,NPTS)
  2. C
  3. C       THIS SUBROUTINE IS USED TO PLOT DATA ON THE SCREEN AS
  4. C       A CONTINOUS LINE.
  5. C
  6.         DIMENSION X(2), Y(2)
  7.         CALL SCALE(X(1),Y(1),VX,VY)
  8.         CALL GSMOVE(VX,VY)
  9.         DO 100 I=2,NPTS
  10.         CALL SCALE(X(I),Y(I),VX,VY)
  11. 100     CALL GSDRAW(VX,VY)
  12.         RETURN
  13.         END
  14.