(FILECREATED " 4-Sep-85 19:35:24" ("compiled on " {ERIS}GKSINTERN.;5) "26-Aug-85 14:56:04" tcompl'd in "INTERLISP-D 26-Aug-85 ..." dated "26-Aug-85 16:55:04") (FILECREATED " 4-Sep-85 19:34:48" {ERIS}GKSINTERN.;5 17814 changes to: (FNS GKSFN.GETDASHS GKSFN.DSCRINIT GKSFN.SLSTINIT GKSFN.WDSCINIT GKSFN.GETWTOD GKSFN.GETWTOV GKSFN.FIXCLIP GKSFN.WTOVMAT2 GKSFN.NEWPLIN GKSFN.NEWPMRK GKSFN.NEWTEXT GKSFN.NEWFILL GKSFN.NEWNORM GKSFN.NEWRECT GKSFN.NEWWLST GKSFN.WTOVSMAP GKSFN.WTOVTMAP GKSFN.RECTSECT GKSFN.GETBRUSH GKSFN.ERRN) (VARS GKSINTERNCOMS) previous date: "29-May-85 13:41:29" {ERIS}F>CODE>GKSINTERN.;1) GKSFN.WTOVMAT2 D1 (P 10Q VYMAX P 7 VYMIN P 6 VXMAX P 5 VXMIN P 4 WYMAX P 3 WYMIN P 2 WXMAX P 1 WXMIN P 0 NEWOBJ I 1 VWRECT I 0 WNRECT) j X@@@@\AAA_A_HIJMN HHIM HKLOO HHKO H(145Q GKSFN.WTOVTMAP 123Q GKSFN.WTOVSMAP 104Q GKSFN.WTOVTMAP 66Q GKSFN.WTOVSMAP 5 MATFN.NEWMAT2) NIL () GKSFN.DSCRINIT D1 (F 0 GKS.DSCR) /PgPkPhPkPkPjPkNIL (3 MA) () GKSFN.SLSTINIT D1 (P 0 NORM F 1 GKS.SLST) eQhQhQQQQQjXdkQHhQg(116Q GKSFN.NEWNORM 76Q GKSFN.NEWNORM 60Q GKSFN.NEWFILL 45Q GKSFN.NEWTEXT 33Q GKSFN.NEWPMRK 22Q GKSFN.NEWPLIN) (140Q CLIP) () GKSFN.ELSTINIT D1 (F 0 GKS.ELST) P`PgNIL (11Q OFF 4 PROMPTWINDOW) () GKSFN.WDSCINIT D1 (F 0 GKS.WDSC) hdddddddddddddddhcdgPgPgPhdddddjhPhdddddjhPhddjhPgNIL (236Q JUNK 66Q RASTER 54Q OUTPUT 46Q STREAM) () GKSFN.NEWPLIN D1 NIL LhddddddhXdkHkHkHkHgHgHgHNIL (107Q INDIVIDUAL 73Q INDIVIDUAL 60Q INDIVIDUAL) () GKSFN.NEWPMRK D1 NIL MhddddddhXdkHlHkHkHgHgHgHNIL (110Q INDIVIDUAL 74Q INDIVIDUAL 61Q INDIVIDUAL) () GKSFN.NEWTEXT D1 NIL hdddddddddddhXdjHkHkHjHkHoHoHgHoHgHgHgHNIL (235Q INDIVIDUAL 214Q INDIVIDUAL 174Q INDIVIDUAL 136Q RIGHT) ( 155Q (NORMAL . NORMAL) 121Q (0 1) 104Q .01) GKSFN.NEWFILL D1 NIL ohddddddddhXdkHgHkHkHoHoHgHgHgHNIL (152Q INDIVIDUAL 134Q INDIVIDUAL 117Q INDIVIDUAL 37Q HOLLOW) ( 103Q (0 . 0) 67Q (1 . 1)) GKSFN.NEWNORM D1 (P 0 NEWOBJ) hddhXdjHHH(33Q GKSFN.NEWRECT 23Q GKSFN.NEWRECT) NIL () GKSFN.NEWRECT D1 NIL %hdddhXdjHjHkHkHNIL NIL () GKSFN.NEWWLST D1 (P 0 NEWOBJ) hdddddddddddddddddddhXdgHgHgHHHHH(256Q GKSFN.NEWRECT 230Q GKSFN.NEWRECT 201Q GKSFN.NEWRECT 155Q GKSFN.NEWRECT) (130Q NOTPENDING 105Q NO 67Q EMPTY) () GKSFN.GETWTOD D1 (P 7 WDTRAN P 6 VDTRAN P 5 WVTRAN P 4 WORKVW P 3 WORKWN P 2 VWPORT P 1 WINDOW P 0 NORM I 0 WORK F 10Q GKS.SLST) YW XdYHZIJ ]@ [@ \KL ^dM (126Q MATFN.MULT2 120Q GKSFN.WTOVMAT2 70Q EVAL 43Q EVAL 36Q GKSFN.WTOVMAT2 17Q GKSFN.GETNORM) NIL () GKSFN.GETWTOV D1 (P 11Q NEWY1DEQ P 10Q NEWX1DEQ P 7 VYMAX P 6 VYMIN P 5 VXMAX P 4 VXMIN P 3 WYMAX P 2 WYMIN P 1 WXMAX P 0 WXMIN I 1 VWPORT I 0 WINDOW) l  @X@YA\A]@Z@[A^A_hdh_hdh_OHILM OOHL OJKNO OOJN OO(143Q GKSFN.WTOVTMAP 126Q GKSFN.WTOVSMAP 113Q GKSFN.WTOVTMAP 76Q GKSFN.WTOVSMAP) NIL () GKSFN.GETNORM D1 (P 0 INDEX I 0 TNUM F 1 GKS.SLST) @XdkXQH (26Q NTH) NIL () GKSFN.WTOVSMAP D1 (I 3 VMAX I 2 VMIN I 1 WMAX I 0 WMIN) CBA@NIL (10Q FLOATP) () GKSFN.WTOVTMAP D1 (L (2 VMIN 1 WMIN 0 S)) B@ANIL NIL () GKSFN.RECTSECT D1 (P 0 NEWOBJ I 1 RECT2 I 0 RECT1) _hdddhXd@A H@A H@A H@A HHHdHh(104Q MIN 61Q MAX 44Q MIN 24Q MAX) NIL () GKSFN.FIXCLIP D1 (P 7 CLIPRECT P 6 VDTRAN P 5 WVTRAN P 4 WORKVW P 3 WORKWN P 2 VWPORT P 1 WINDOW P 0 NORM I 0 WORK F 10Q GKS.SLST) @d}_W XdZ@ [@ \KL ^WgKJ  @ hK_d@  h(200Q DSPCLIPPINGREGION 173Q EVAL 160Q GKSFN.FIXCLIP 152Q GKSFN.FIXCLIP 145Q GKSFN.RECTSECT 115Q GKSFN.WTOVMAT2 65Q EVAL 40Q EVAL 26Q GKSFN.GETNORM) (135Q CLIP) () GKSFN.GETBRUSH D1 (L (0 SCALE)) g@hNIL (2 ROUND) () GKSFN.GETDASHS D1 (L (0 STYLE)) &@dkhlo@dloloNIL NIL ( 43Q (6 4 1 4) 31Q (1 6) 16Q (6 4)) GKSFN.GETSHADE D1 (L (0 CINDEX)) @kn`NIL (12Q GRAYSHADE) () GKSFN.ERRN D1 (P 0 EFILE I 1 CALLER I 0 ERRNO F 1 GKS.ELST) ,QXoH @H oH AH H h(50Q TERPRI 43Q PRIN1 35Q PRIN1 24Q PRIN1 16Q PRIN1) NIL ( 31Q " ENCOUNTERED IN " 12Q "GKS ERROR ") GKSFN.INQWKCN D1 (P 2 ERRN P 1 TYPE P 0 CONN I 0 WORK F 3 GKS.STATE F 4 GKS.SLST) 60jZSo l@dT l @ JHIh(50Q EVAL 41Q EVAL 31Q MEMB 14Q MEMB) NIL ( 11Q (WSOP WSAC SGOP)) (PRETTYCOMPRINT GKSINTERNCOMS) (RPAQQ GKSINTERNCOMS ((RECORDS (* GKS STATES *) GKSTYP.DSCR (* GKS DESCR LIST *) GKSTYP.SLST (* GKS STATE LIST *) GKSTYP.ELST (* GKS ERROR LIST *) GKSTYP.WLST (* WKS STATE LIST *) GKSTYP.WDSC (* WKS DESCR LIST *) GKSTYP.PLIN GKSTYP.PMRK GKSTYP.TEXT GKSTYP.FILL (* GKS GPRIM TYPS *) GKSTYP.LDSC GKSTYP.MDSC GKSTYP.FDSC (* GKS WDSCR TYPS *) GKSTYP.NORM GKSTYP.RECT GKSTYP.1DEQ) (FNS (* CLASS MATRIX *) GKSFN.WTOVMAT2) (INITVARS (* INITIAL VALUES *) (GKS.STATE (QUOTE GKCL)) (GKS.DSCR (CREATE GKSTYP.DSCR)) (GKS.SLST (CREATE GKSTYP.SLST)) (GKS.ELST (CREATE GKSTYP.ELST)) (GKS.WDSC (CREATE GKSTYP.WDSC))) (FNS GKSFN.DSCRINIT GKSFN.SLSTINIT GKSFN.ELSTINIT GKSFN.WDSCINIT) (FNS GKSFN.NEWPLIN GKSFN.NEWPMRK GKSFN.NEWTEXT GKSFN.NEWFILL GKSFN.NEWNORM GKSFN.NEWRECT GKSFN.NEWWLST) (FNS GKSFN.GETWTOD GKSFN.GETWTOV GKSFN.GETNORM GKSFN.WTOVSMAP GKSFN.WTOVTMAP GKSFN.RECTSECT GKSFN.FIXCLIP) (FNS GKSFN.GETBRUSH GKSFN.GETDASHS GKSFN.GETSHADE) (FNS GKSFN.ERRN) (FNS GKSFN.INQWKCN) (MACROS GKSFN.OPEN? GKSFN.ACTV?) (MACROS GKSFN.GETFIELD GKSFN.SETFIELD (* STATE MACROS *) GKSFN.GETDFIELD GKSFN.GETIFIELD (* GDSCR MACROS *) GKSFN.GETEFIELD GKSFN.SETEFIELD (* ERROR MACROS *) GKSFN.GETWFIELD GKSFN.SETWFIELD (* WKSTN MACROS *)))) (RECORD GKSTYP.DSCR (LEVL TYPE DUMM MAXOPEN MAXACTV MAXWSEG MAXTRAN)) (RECORD GKSTYP.SLST (OPER OPEN ACTV GKSTYP.PLIN GKSTYP.PMRK GKSTYP.TEXT GKSTYP.FILL NNUM NLST CLIP)) (RECORD GKSTYP.ELST (ECOND EFILE MOREJUNK)) (RECORD GKSTYP.WLST (WKID CONN TYPE STATE SEGS WDEFER WREGEN WEMPTY WNEWFM WLBUND WMBUND WTBUND WFBUND WTPEND NEXTWN CURRWN NEXTVW CURRVW MORE JUNK)) (RECORD GKSTYP.WDSC (TYPE CATEGORY DEVUNITS UNITSIZE RASTSIZE DISPTYPE DMTEXT DMPATT DMCOLR DMTRAN DEFER REGEN GKSTYP.LDSC GKSTYP.MDSC GKSTYP.FDSC MOREJUNK)) (RECORD GKSTYP.PLIN (LINDEX LSTYLE LSCALE LCOLOR LSTYLEASF LSCALEASF LCOLORASF)) (RECORD GKSTYP.PMRK (MINDEX MSTYLE MSCALE MCOLOR MSTYLEASF MSCALEASF MCOLORASF)) (RECORD GKSTYP.TEXT (TINDEX TSTYLE TSCALE TSPACE TCOLOR TPTSIZ TUPDIR TADVAN TALIGN TSTYLEASF TSCALEASF TCOLORASF)) (RECORD GKSTYP.FILL (FINDEX FINNER FSTYLE FCOLOR FSCALE FREFPT FINNERASF FSTYLEASF FCOLORASF)) (RECORD GKSTYP.LDSC (LDYNAM LTYPES LSIZES LNOMSZ LMINSZ LMAXSZ LBUNDS)) (RECORD GKSTYP.MDSC (MDYNAM MTYPES MSIZES MNOMSZ MMINSZ MMAXSZ MBUNDS)) (RECORD GKSTYP.FDSC (FDYNAM FOPAQS FTYPES FBUNDS)) (RECORD GKSTYP.NORM (NUMB WIND VIEW)) (RECORD GKSTYP.RECT (XMIN YMIN XMAX YMAX)) (RECORD GKSTYP.1DEQ (S T)) (RPAQ? GKS.STATE (QUOTE GKCL)) (RPAQ? GKS.DSCR (CREATE GKSTYP.DSCR)) (RPAQ? GKS.SLST (CREATE GKSTYP.SLST)) (RPAQ? GKS.ELST (CREATE GKSTYP.ELST)) (RPAQ? GKS.WDSC (CREATE GKSTYP.WDSC)) (PUTPROPS GKSFN.OPEN? DMACRO ((WORK) (NEQ NIL (MEMB WORK (GKSFN.GETFIELD OPEN))))) (PUTPROPS GKSFN.ACTV? DMACRO ((WORK) (NEQ NIL (MEMB WORK (GKSFN.GETFIELD ACTV))))) (PUTPROPS GKSFN.GETFIELD DMACRO ((FIELD) (FETCH (GKSTYP.SLST FIELD) of GKS.SLST))) (PUTPROPS GKSFN.SETFIELD DMACRO ((FIELD NEWVAL) (REPLACE (GKSTYP.SLST FIELD) of GKS.SLST with NEWVAL)) ) (PUTPROPS GKSFN.GETDFIELD DMACRO ((FIELD) (FETCH (GKSTYP.DSCR FIELD) of GKS.DSCR))) (PUTPROPS GKSFN.GETIFIELD DMACRO ((WTYP FIELD) (FETCH (GKSTYP.WDSC FIELD) of GKS.WDSC))) (PUTPROPS GKSFN.GETEFIELD DMACRO ((FIELD) (FETCH (GKSTYP.ELST FIELD) of GKS.ELST))) (PUTPROPS GKSFN.SETEFIELD DMACRO ((FIELD NEWVAL) (REPLACE (GKSTYP.ELST FIELD) of GKS.ELST WITH NEWVAL) )) (PUTPROPS GKSFN.GETWFIELD DMACRO ((WORK FIELD NEWVAL) (FETCH (GKSTYP.WLST FIELD) of (EVAL WORK)))) (PUTPROPS GKSFN.SETWFIELD DMACRO ((WORK FIELD NEWVAL) (REPLACE (GKSTYP.WLST FIELD) of (EVAL WORK) WITH NEWVAL))) (PUTPROPS GKSINTERN COPYRIGHT ("Xerox Corporation" 1985)) NIL