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