home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / 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.