home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / CURVE.FOR < prev    next >
Text File  |  1989-06-20  |  1KB  |  45 lines
  1.         SUBROUTINE CURVE(X,Y,NPTS,ISYMNO,SYMSIZ,NPBSYM)
  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       IT THEN ADDS THE DESIRED SYMBOL (ISYMNO) TO THE PLOT SPACED
  7. C       "NPBSYM" POINTS APART.
  8. C
  9.         DIMENSION AREA(4)
  10. C
  11.         INCLUDE GCLTYP.PRM
  12.         INCLUDE PLTSIZ.PRM
  13. C
  14.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  15.         CALL SCALE(X(1),Y(1),VX,VY)
  16.         CALL GSMOVE(VX,VY)
  17.         IF (NPTS .LE. 1) GO TO 110
  18. 10      DO 100 I=2,NPTS
  19.         CALL SCALE(X(I),Y(I),VX,VY)
  20.         CALL GSDRAW(VX,VY)
  21. 100     CONTINUE
  22. C
  23. C       NOW ADD SYMBOLS IF DESIRED
  24. C
  25. 110     CONTINUE
  26.         IF (ISYMNO .LE. 0) GO TO 800
  27. C
  28. C       SAVE LINE TYPE, AND DO SYMBOLS IN SOLID LINES
  29. C
  30.         IOLDLT = ILNTYP
  31.         ILNTYP = 1
  32.         DO 200 I=1, NPTS, NPBSYM
  33.         CALL SCALE(X(I),Y(I),VX,VY)
  34.         CALL GSMOVE(VX,VY)
  35.         CALL SYMBOL(ISYMNO,SYMSIZ)
  36. 200     CONTINUE
  37. C
  38. C       RESTORE LINE TYPE
  39. C
  40.         ILNTYP = IOLDLT
  41. 800     CONTINUE
  42.         CALL GSRCLP(AREA)
  43.         RETURN
  44.         END
  45.