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

Z-MAP Plus I/O Access Library Landmark Graphics
Example Program for Creating Graphics
This is a short example of creating graphics. A graphics file and picture
are created, and a few lines and some short text is displayed.
This was created on a Unix system, and assumes that uninitialized
variables are set to zero.
The results could be viewed in a Landmark program such as
Z-MAP Plus or plotted on a hardcopy device.
C
C SAMPLE ZPIO PROGRAM TO DRAW SIMPLE GRAPHICS
C THE CREATED ZGF CAN BE DISPLAYED WITH OTHER LANDMARK PRODUCTS
C OR PLOTTED TO A HARDCOPY DEVICE.
C ASSUMES UNINITIALIZED VARIABLES ARE SET TO ZERO.
C
COMMON /WRKSPC/IWORK(30000)
C
C TURN DEBUG PRINTS ON OR OFF
DATA IDBUG /1/
C
C VARIABLES FOR SIIZGF
CHARACTER * 80 ZGFNAM
CHARACTER * 80 HISNEW, HISOLD
CHARACTER * 3 NEWZGF
C VARIABLES FOR S3IPIC
CHARACTER * 80 PICNAM
CHARACTER * 3 IFOLD
DOUBLE PRECISION VXMIN, VXMAX, VYMIN, VYMAX
C VARIABLES FOR SIGLIN
DIMENSION XCORS(10), YCORS(10)
C VARIABLE FOR SIGTXT
CHARACTER *80 TEXT
C
C INITIALIZE SYSTEM-WIDE COMMON STORAGE
C
C IDBUG = 0
LTHWRK = 30000
LUNINF = 6
LUNSTA = 6
LUNWAR = 6
LUNERO = 6
LUNBUG = 6
IPROC = 0
CALL SIISIL(IDBUG, LTHWRK, LUNINF, LUNSTA, LUNWAR,
. LUNERO, LUNBUG, LUNDM1, LUNDM2, IPROC, ISTAT)
C
CALL SIIZIG
10 ZPI/O Overview: Contents 5000.0.0