SUBROUTINE GSPOLY(X,Y,N) DIMENSION X(2),Y(2) C C DIGLIB POLYGON SUPPORT C CALL GSMOVE(X(N),Y(N)) DO 100 I = 1, N CALL GSDRAW(X(I),Y(I)) 100 CONTINUE RETURN END