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

Z-MAP Plus I/O Access Library Landmark Graphics
C
CALL S2GMRK(NUMMRK, XCORS, YCORS, ROTATE, ISTAT )
IF (ISTAT .GT. 0) GO TO 800
C
C SET LINE COLOR, TYPE, WIDTH
C
IYELL = 7
CALL SIGLCL(IYELL, ISTAT)
IF(ISTAT .GT. 0) GO TO 800
LHACH = 3
CALL SIGLTY(LHACH, ISTAT)
IF(ISTAT .GT. 0) GO TO 800
WIDTH = 2
CALL SIGLWD(WIDTH, ISTAT)
IF(ISTAT .GT. 0) GO TO 800
C
NUMPTS = 2
XCORS(1) = 2.50
YCORS(1) = 6.0
XCORS(2) = 9.50
YCORS(2) = 6.0
CALL SIGLIN(NUMPTS, XCORS, YCORS, ISTAT )
IF (ISTAT .GT. 0) GO TO 800
XCORS(1) = 9.50
YCORS(1) = 6.50
XCORS(2) = 6.50
YCORS(2) = 9.50
CALL SIGLIN(NUMPTS, XCORS, YCORS, ISTAT )
IF (ISTAT .GT. 0) GO TO 800
XCORS(1) = 5.50
YCORS(1) = 9.50
XCORS(2) = 2.50
YCORS(2) = 6.50
CALL SIGLIN(NUMPTS, 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 OPEN TEXT PICTURE SEGMENT
C
LGBTYP = 6
CALL SIGSOP(LGBTYP, ISTAT)
IF (ISTAT .GT. 0) GO TO 800
C
C SET TEXT COLOR, FONT, HEIGHT, JUSTIFICATION, ANGLE
22 ZPI/O Overview: Contents 5000.0.0