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 / POINTC.FOR < prev    next >
Text File  |  1989-06-20  |  445b  |  19 lines
  1.         SUBROUTINE POINTC(X,Y,NPTS)
  2.         DIMENSION X(NPTS), Y(NPTS)
  3. C
  4. C       THIS SUBROUTINE PLOTS THE VISIBLE POINTS ON THE SCREEN
  5. C
  6.         INCLUDE PLTSIZ.PRM
  7. C
  8.         DIMENSION AREA(4)
  9. C
  10.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  11.         DO 100 I=1,NPTS
  12.         CALL SCALE(X(I),Y(I),VX,VY)
  13.         CALL GSMOVE(VX,VY)
  14.         CALL SYMBOL(3,0.3)
  15. 100     CONTINUE
  16.         CALL GSRCLP(AREA)
  17.         RETURN
  18.         END
  19.