h27747
s 00160/00000/00000
d D 1.1 83/03/15 21:39:19 tes 1 0
c date and time created 83/03/15 21:39:19 by tes
e
u
4
U
t
T
I 1
# GKS state list for GSS-Kernel

#     gksopr            GKS operating state GKCL=0,GKOP=1,WSOP=2,WSAC=3,SGOP=4
#     wrkopn            set of open workstations
#     wrkact            set of active workstations
#     nrmcur            current normalization number 
#     nclip             clipping indicator noclip=0 clip=1 default clip
#     ntext             text transform flag
#     nview             viewing transform flag
#     nwkvw             workstation viewing transform flag
#     dcclip            device or world clip flag
#     lntyp             current line type default 1
#     plclr             current polyline color index 0...n 1
#     mktyp             current marker type 1...n 1
#     pmclr             current polymarker color index 0...n 1
#     txfnt             current text font 0...n 1
#     txpre             current text precision  string,char,stroke         1   
#     txclr             current text color 0...n            1
#     faint             current fill area interior style
#     fasty             current fill area style index 1..n
#     faclr             current fill area color index 0...n   1
#     lnwdsf            current line width scale factor
#     mkszsf            current marker size scale factor
#     txtjh             current character justification (horizontal)
#     txtjv             current character justification (vertical)
#     wxminl            list of window/viewport mins world, device
#     wyminl
#     vxminl           
#     vyminl
#     wxmaxl            list of window/viewport maxs world, device
#     wymaxl
#     vxmaxl
#     vymaxl
#     chrhgt            user defined character height   WC .01 >0.
#     curwdt            current character cell width
#     celhgt            current character cell height
#     curhgt            current character height
#     chrupx            users character up vector default WC  (0.,1.)
#     chrupy
#     actupx            actual character up vector
#     actupy            
#     unrmdx            users text baseline
#     unrmdy
#     normdx            actual text baseline
#     normdy
#     rview             reverse viewing transform
#     viewtx            viewing transform
#     wkview            workstation transform
#     rwview            reverse workstation transform
#     wrlddc            world to device transform
#     zxleft            clipping edges
#     zxrght                         
#     zybotm
#     zytop
#     zeps              a real value close to zero (10.**-5)
#     zeps15            an even smaller value (10.**-15)
#
#    Variable declarations
#

integer gksopr, wrkopn, wrkact, nrmcur, nclip, ntext, nview, nwkvw, 
	dcclip, lntyp, plclr, mktyp, pmclr, txfnt, txpre, txclr, faint, 
	fasty, faclr, txtjh, txtjv 

real    lnwdsf, mkszsf, wxminl(2), wyminl(2), vxminl(2), vyminl(2),
	wxmaxl(2), wymaxl(2), vxmaxl(2), vymaxl(2), chrhgt, curwdt,
	celhgt, curhgt, chrupx, chrupy, actupx, actupy, unrmdx, unrmdy, 
	normdx, normdy, rview(3,3), viewtx(3,3), wkview(3,3), 
	rwview(3,3), wrlddc(3,3), zxleft, zxrght, zybotm, zytop, 
	zeps, zeps15


# GKS workstation statelist for GSS-kernel

#     wrkid                           workstation id 
#     wrkst                           workstation state
#     mxdsdc                          maximum display size in raster units
#     devcor                          device coords. (meters, other(rasters))
#     ispszx                          spot size in micrometers
#     ispszy                          spot size in y micrometers
#     nchht                           number of character heights
#     nlntyp                          number of line types
#     nlnwdt                          number of line widths
#     nmktyp                          number of marker types
#     nmksiz                          number of marker sizes
#     nfont                           number of fonts
#     npat                            number of patterns
#     nhatst                          number of hatch styles
#     pclnum                          number of predefined colors
#     ngdp                            number of GDPs
#     lgdp                            list of GDPs
#     gdpbun                          list of associated bundle tables for GDPs
#     clflag                          color flag (monochrome or not)
#     txrot                           text rotation flag
#     faflag                          fill area capability flag
#     pxflag                          pixel capability flag
#     navclr                          number of available colors 
#     nlocdv                          number of locator devices
#     nvaldv                          number of valuator devices
#     nchodv                          number of choice devices
#     nstrdv                          number of string devices
#     wrktyp                          workstation type
#     mnchht                          minimum character height in raster units
#     mxchht                          maximum character height in raster units
#     mnlnwd                          nominal line width in raster units
#     mxlnwd                          maximum line width in raster units
#     mnmksz                          nominal marker size in raster units
#     mxmksz                          maximum marker size in raster units
#     clnum                           current number of colors defined
#     mxdsln                          maximum display size in real device units
#     cwrkwn                          current workstation window (NDC)
#     cwrkvw                          current workstation viewport (DC)
#     sptszx                          real spot size in meters
#     sptszy                          real spot size in y meters
#     xywasp                          text aspect ratio
#     eraflg                          screen erase flag
#
# Variable declarations
#
integer wrkid, wrkst, mxdsdc(2), devcor, ispszx, ispszy, nchht, nlntyp, 
        nlnwdt, nmktyp, nmksiz, nfont, npat, nhatst, pclnum, ngdp, 
	lgdp(10), gdpbun(10), clflag, txrot, faflag, pxflag, navclr, 
	nlocdv, nvaldv, nchodv, nstrdv, wrktyp, mnchht, mxchht, mnlnwd, 
	mxlnwd, mnmksz, mxmksz, clnum, eraflg
	
real    mxdsln(2), cwrkwn(4), cwrkvw(4), sptszx, sptszy, xywasp

#
# GKS error state list
#
#     rounum                       number of routine which caused the error
#     errfil                       error file
#
integer rounum, errfil

#
#   Common definitions (if changing common make sure order preserved)
#
#                 GKS common     
#
common /gkscom/ gksopr, wrkopn, wrkact, nrmcur, nclip, ntext, nview, 
       nwkvw, dcclip, lntyp, plclr, mktyp, pmclr, txfnt, txpre, txclr, 
       faint, fasty, faclr, txtjh, txtjv, lnwdsf, mkszsf, 
       wxminl, wyminl, vxminl, vyminl, wxmaxl, wymaxl, vxmaxl, vymaxl, 
       chrhgt, curwdt, celhgt, curhgt, chrupx, chrupy, actupx, actupy, 
       unrmdx, unrmdy, normdx, normdy, rview, viewtx, wkview, rwview, 
       wrlddc, zxleft, zxrght, zybotm, zytop, zeps, zeps15
#
#                 Workstation common     
#
common /wrkcom/ wrkid, wrkst, mxdsdc, devcor, ispszx, ispszy, nchht, 
		nlntyp, nlnwdt, nmktyp, nmksiz, nfont, npat, nhatst, 
		pclnum, ngdp, lgdp, gdpbun, clflag, txrot, faflag, 
		pxflag, navclr, nlocdv, nvaldv, nchodv, nstrdv, wrktyp, 
		mnchht, mxchht, mnlnwd, mxlnwd, mnmksz, mxmksz, clnum, 
		mxdsln, cwrkwn, cwrkvw, sptszx, sptszy, xywasp, eraflg
#
#                   GKS error state list
#
common /errstl/ rounum, errfil 
E 1
