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 / TRACEC.FOR < prev    next >
Text File  |  1989-06-20  |  526b  |  21 lines
  1.         SUBROUTINE TRACEC(X,Y,NPTS)
  2.         DIMENSION X(NPTS), Y(NPTS)
  3. C
  4. C       THIS SUBROUTINE TRACES THE LINE FROM X(1),Y(1) TO
  5. C       X(NPTS),Y(NPTS) WITH APPROPIATE CLIPPING.
  6. C
  7.         INCLUDE PLTSIZ.PRM
  8. C
  9.         DIMENSION AREA(4)
  10. C
  11.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  12.         CALL SCALE(X(1),Y(1),VX,VY)
  13.         CALL GSMOVE(VX,VY)
  14. 10      DO 100 I=2,NPTS
  15.         CALL SCALE(X(I),Y(I),VX,VY)
  16.         CALL GSDRAW(VX,VY)
  17. 100     CONTINUE
  18.         CALL GSRCLP(AREA)
  19.         RETURN
  20.         END
  21.