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 / POINTS.FOR < prev    next >
Text File  |  1989-06-20  |  277b  |  12 lines
  1.         SUBROUTINE POINTS(X,Y,NPTS)
  2. C
  3. C       THIS SUBROUTINE IS USED TO PLOT POINTS ON THE SCREEN
  4. C
  5.         DIMENSION X(NPTS),Y(NPTS)
  6.         DO 100 I=1, NPTS
  7.         CALL SCALE(X(I),Y(I),VX,VY)
  8.         CALL GSMOVE(VX,VY)
  9. 100     CALL SYMBOL(3,0.3)
  10.         RETURN
  11.         END
  12.