Z-MAP Plus I/O Access Library - Landmark Software Manager ...

Z-MAP Plus I/O Access Library Landmark Graphics
C
C OPEN POLYGON FILE PICTURE SEGMENT
C
LGBTYP = 30
CALL SIGSOP(LGBTYP, ISTAT)
IF (ISTAT .GT. 0) GO TO 800
C
C DO A POLYGON COLORFILL USING LINES
C
ICOLOR = 4
CALL SIGPCL(ICOLOR, ISTAT)
IF(ISTAT .GT. 0 ) GO TO 800
C
NUMVTX = 5
XCORS(1) = 4.50
YCORS(1) = 6.50
XCORS(2) = 7.50
YCORS(2) = 6.50
XCORS(3) = 7.50
YCORS(3) = 8.0
XCORS(4) = 4.50
YCORS(4) = 8.0
XCORS(5) = 4.50
YCORS(5) = 6.50
write(6, 155)
155 format( ’ b’)
C
CALL SIGPFL(NUMVTX, XCORS, YCORS, ISTAT )
IF (ISTAT .GT. 0) GO TO 800
C
C CLOSE GRAPHIC SEGMENT
C
CALL SIGSCL(ISTAT)
IF (ISTAT .GT. 0) GO TO 800
C
C CLOSE THE SECOND PICTURE
C
CALL SIEPIC (ISTAT)
IF (ISTAT .NE. 0) GO TO 800
C
IF(IDBUG .EQ. 1) THEN
WRITE(LUNBUG, 2002)
END IF
2002 FORMAT(15X,’ ***** END OF SECOND PICTURE ***** ’)
C
C CLOSE THE GRAPHICS FILE
800 CALL SIEZGF
CALL SIEZIG
C
999 CONTINUE
IF(ISTAT .NE. 0) WRITE(LUNERR, 899) NAMRET, ISTAT
899 FORMAT(’ ****** ’,A6,’ - ERROR, PROGRAM DID NOT COMPLETE ’,
1 ’SUCCESSFULLY: STATUS FLAG = ’,I5)
C
WRITE(LUNBUG,9993) NAMRET
9993 FORMAT(//,20X,’ ++++++ ENDING OF TESTING ROUTINE ++++++ ’,//,
. 1X,30(’=’),2X,A6,2X,30(’=’) )
C
STOP
END
24 ZPI/O Overview: Contents 5000.0.0