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 / GSPOLY.FOR < prev    next >
Text File  |  1989-06-20  |  242b  |  12 lines
  1.         SUBROUTINE GSPOLY(X,Y,N)
  2.         DIMENSION X(2),Y(2)
  3. C
  4. C       DIGLIB POLYGON SUPPORT
  5. C
  6.         CALL GSMOVE(X(N),Y(N))
  7.         DO 100 I = 1, N
  8.                 CALL GSDRAW(X(I),Y(I))
  9. 100             CONTINUE
  10.         RETURN
  11.         END
  12.