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 / CURVEY.FOR < prev    next >
Text File  |  1989-06-20  |  1KB  |  43 lines
  1.         SUBROUTINE CURVEY(XMIN,XMAX,Y,NPTS,ISYMNO,SYMSIZ,NPBSYM)
  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          IT THEN ADDS THE DESIRED SYMBOL IN THE REQUIRED SIZE SPACED
  10. C       EVERY "NPBSYM" POINTS APART.
  11. C
  12.         DIMENSION AREA(4)
  13. C
  14.        INCLUDE GCLTYP.PRM
  15.        INCLUDE PLTSIZ.PRM
  16. C
  17.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  18.         CALL SCALE(XMIN,Y(1),VX,VY)
  19.         CALL GSMOVE(VX,VY)
  20. 10      DX = (XMAX-XMIN)/(NPTS-1)
  21.         XNEW = XMIN
  22.         DO 100 I=2,NPTS
  23.         XNEW = XMIN + (I-1)*DX
  24.         CALL SCALE(XNEW,Y(I),VX,VY)
  25. 100     CALL GSDRAW(VX,VY)
  26. C
  27. C       NOW ADD SYMBOLS IF DESIRED
  28. C
  29.         IF (ISYMNO .LE. 0) GO TO 800
  30.         IOLDLT = ILNTYP
  31.         ILNTYP = 1
  32.         DO 200 I=1,NPTS,NPBSYM
  33.         XNEW = XMIN + (I-1)*DX
  34.         CALL SCALE(XNEW,Y(I),VX,VY)
  35.         CALL GSMOVE(VX,VY)
  36.         CALL SYMBOL(ISYMNO,SYMSIZ)
  37. 200     CONTINUE
  38.         ILNTYP = IOLDLT
  39. 800     CONTINUE
  40.         CALL GSRCLP(AREA)
  41.         RETURN
  42.         END
  43.