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 / TRACCY.FOR < prev    next >
Text File  |  1989-06-20  |  732b  |  25 lines
  1.         SUBROUTINE TRACCY(XMIN,XMAX,Y,NPTS)
  2.         DIMENSION 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       USE THIS ROUTINE WHEN CLIPPING IS DESIRED AND THE
  7. C       INDEPENDANT VARIABLE IS IMPLIED BY THE SUBSCRIPT
  8. C       USING EQUAL INTERVALS FROM XMIN TO XMAX.
  9. C
  10.         INCLUDE PLTSIZ.PRM
  11. C
  12.         DIMENSION AREA(4)
  13. C
  14.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  15.         CALL SCALE(XMIN,Y(1),VX,VY)
  16.         CALL GSMOVE(VX,VY)
  17. 10      DX = (XMAX-XMIN)/(NPTS-1)
  18.         DO 100 I=2,NPTS
  19.         CALL SCALE(XMIN+(I-1)*DX,Y(I),VX,VY)
  20.         CALL GSDRAW(VX,VY)
  21. 100     CONTINUE
  22.         CALL GSRCLP(AREA)
  23.         RETURN
  24.         END
  25.