home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d499 / diglib / diglib.lzh / source / TRACE.for < prev    next >
Text File  |  1991-04-13  |  369b  |  16 lines
  1.         SUBROUTINE TRACE(X,Y,NPTS)
  2.     IMPLICIT NONE
  3.     INTEGER NPTS,I
  4. C
  5. C       THIS SUBROUTINE IS USED TO PLOT DATA ON THE SCREEN AS
  6. C       A CONTINOUS LINE.
  7. C
  8.         REAL*4 X(2), Y(2), VX, VY
  9.         CALL SCALE(X(1),Y(1),VX,VY)
  10.         CALL GSMOVE(VX,VY)
  11.         DO 100 I=2,NPTS
  12.         CALL SCALE(X(I),Y(I),VX,VY)
  13. 100     CALL GSDRAW(VX,VY)
  14.         RETURN
  15.         END
  16.