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

Z-MAP Plus I/O Access Library Landmark Graphics
C
CALL SIGSCL(ISTAT)
IF (ISTAT .GT. 0) GO TO 800
C
C OPEN TEXT PICTURE SEGMENT
C
LGBTYP = 6
CALL SIGSOP(LGBTYP, ISTAT)
IF (ISTAT .GT. 0) GO TO 800
C
C DO TEXT
C
NUMCHR = 20
XCORS(1) = 3.0
YCORS(1) = 5.0
TEXT = ’TEST INPUT GRAPHICS’
C 123456789 123456789
C
CALL SIGTXT(TEXT, NUMCHR, XCORS(1), YCORS(1), ISTAT )
IF (ISTAT .GT. 0) GO TO 800
C
NUMCHR = 4
XCORS(1) = 5.50
YCORS(1) = 7.0
TEXT = ’HI! ’
C
CALL SIGTXT(TEXT, NUMCHR, XCORS(1), YCORS(1), 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 OPEN POLYGON FILE PICTURE SEGMENT
C
LGBTYP = 30
CALL SIGSOP(LGBTYP, ISTAT)
IF (ISTAT .GT. 0) GO TO 800
C
C DO A BORDER USING LINES
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, 133)
133 format(’ a ’)
18 ZPI/O Overview: Contents 5000.0.0