home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / POINTC.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  505 b   |  22 lines
  1.         SUBROUTINE POINTC(X,Y,NPTS)
  2.     IMPLICIT NONE
  3.     INTEGER NPTS,I
  4.         REAL*4 VX,VY
  5.         DIMENSION X(NPTS), Y(NPTS)
  6. C
  7. C       THIS SUBROUTINE PLOTS THE VISIBLE POINTS ON THE SCREEN
  8. C
  9.         INCLUDE DIGLIB$KOM:PLTSIZ.PRM
  10. C
  11.         REAL*4 AREA(4)
  12. C
  13.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  14.         DO 100 I=1,NPTS
  15.         CALL SCALE(X(I),Y(I),VX,VY)
  16.         CALL GSMOVE(VX,VY)
  17.         CALL SYMBOL(3,0.3)
  18. 100     CONTINUE
  19.         CALL GSRCLP(AREA)
  20.         RETURN
  21.         END
  22.