(FILECREATED "12-Apr-85 17:54:52" ("compiled on " {ERIS}PATCHES>GRAPHERPATCH.;1) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Mar-85 ..." dated "19-Mar-85 14:48:35") (FILECREATED "12-Apr-85 17:53:39" {ERIS}PATCHES>GRAPHERPATCH.;1 15412 changes to: (VARS GRAPHERPATCHCOMS) previous date: " 5-Apr-85 11:18:25" {PHYLUM}RELEASE1.2>GRAPHERPATCH.;3) DUMPGRAPHA0001 D1 (NAME ERRORSET P 21Q POS P 20Q N P 16Q X P 15Q POS P 13Q X P 12Q TEMP P 11Q N P 7 SHADES P 6 IDS P 5 FONTS P 4 BORDERS P 3 #IDS P 2 #SHADES P 1 #FONTS P 0 #BORDERS F 22Q STREAM F 23Q GRAPH F 24Q RESETVARSLST F 25Q FILERDTBL F 26Q RESETY) gW* hhW(c(jdddDoW$ W$ oW$ W&d"lhW$ oW$ W&W$ W& lhW$ oW$ W&W$ W&d$lhW$ oW$ W&W$ W&"lhW$ oW$ W&W$ W&d&lhW$ oW$ W&W$ W&$lhW$ oW$ W&W$ W&d(lhW$ oW$ W&W$ W&&lhW$ oW$ W&W$ W&d*lhW$ oW$ W&W$ W&(lhW$ oW$ W&W$ oW$ W&! O)W$ oW$ KW$ kW$ N ^_N OKk[NO_OO OJkZO_OM OIkYMO_iOdL OHkXL\O_Od OW$ kW$ W$ oW$ IW$ kW$ M ]7d O_dd` gO W$ kW$ L3W$ oW$ HW$ kW$ L \W$ OeO5W$ oW$ JW$ kW$ O _W$ OLW$ oW$ W&!OMoW$ hc,i_OkW$ OW$ O__OkW$ OW$ O__ lhW$ oW$ O N W$ kW$ W$ _"O W$ kW$ O"hW$ O W$ kW$ O M W$ kW$ O ddiO O L W$ kW$ O O O W$ kW$ O ToW$ O 6d OdgON ON W$ kW$ ooW$ O :oW$ O d ON W$ kW$ oW$ oW$ W$ O_(2664Q TERPRI 2656Q PRIN1 2644Q PRIN1 2626Q SPACES 2617Q PRIN2 2611Q ASSOC 2560Q PRIN1 2531Q PRIN1 2506Q SPACES 2477Q PRIN2 2471Q ASSOC 2455Q ASSOC 2407Q PRIN1 2361Q SPACES 2352Q PRIN2 2344Q ASSOC 2316Q SPACES 2307Q PRIN2 2301Q ASSOC 2207Q SPACES 2200Q PRIN2 2172Q ASSOC 2151Q SPACES 2142Q PRIN2 2130Q TAB 2117Q SPACES 2110Q HPRINT 2063Q POSITION 2055Q SPACES 2046Q PRIN2 2040Q ASSOC 2030Q PRIN1 2016Q TAB 1772Q HPRINT 1761Q TAB 1734Q HPRINT 1723Q TAB 1701Q PRIN1 1653Q PRIN1 1641Q TERPRI 1623Q POSITION 1614Q DREVERSE 1606Q SPACES 1577Q PRIN1 1570Q PRIN1 1556Q TERPRI 1534Q POSITION 1526Q DREVERSE 1521Q SPACES 1512Q PRIN1 1503Q PRIN1 1471Q TERPRI 1454Q SPACES 1445Q PRIN2 1437Q FONTCLASSUNPARSE 1425Q FONTP 1421Q FONTUNPARSE 1366Q DREVERSE 1361Q SPACES 1352Q PRIN1 1343Q PRIN1 1331Q TERPRI 1317Q SPACES 1310Q PRIN2 1247Q ASSOC 1165Q ASSOC 1127Q ASSOC 1071Q ASSOC 1055Q DREVERSE 1050Q SPACES 1041Q PRIN1 1032Q PRIN1 1020Q TERPRI 776Q PRIN1 764Q PRIN2 741Q PRIN1 727Q TAB 677Q PRIN2 655Q PRIN1 643Q TAB 612Q PRIN2 571Q PRIN1 557Q TAB 531Q PRIN2 511Q PRIN1 477Q TAB 450Q PRIN2 431Q PRIN1 417Q TAB 373Q PRIN2 355Q PRIN1 343Q TAB 316Q PRIN2 301Q PRIN1 267Q TAB 245Q PRIN2 231Q PRIN1 217Q TAB 174Q PRIN2 161Q PRIN1 147Q TAB 127Q PRIN2 115Q PRIN1 103Q TAB 62Q PRIN1 50Q TERPRI 42Q PRIN1 7 SETREADTABLE) (2441Q Link% Parameters 1432Q CLASS 1414Q FONTDESCRIPTORTYPE# 2 SETREADTABLE) ( 2651Q ")" 2637Q ")" 2553Q "(" 2524Q "NIL " 2517Q ") " 2402Q "(" 2023Q "(" 1674Q "))" 1646Q "NODES (" 1563Q "SHADES " 1476Q "BORDERS " 1336Q "FONTS " 1025Q "IDS " 771Q ")" 734Q "INVERTLABELFN " 650Q "INVERTBORDERFN " 564Q "FONTCHANGEFN " 504Q "DELETELINKFN " 424Q "ADDLINKFN " 350Q "DELETENODEFN " 274Q "ADDNODEFN " 224Q "MOVENODEFN " 154Q "DIRECTEDFLG " 110Q "SIDESFLG " 55Q "FIELDS (" 35Q "(") DUMPGRAPH D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 STREAM I 0 GRAPH F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q DUMPGRAPHA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMPGRAPHA0001)) GRAPHOBJ.DISPLAYFN D1 (P 3 REG P 2 GRAPH P 1 SCALE P 0 BOX I 1 STREAM I 0 GROBJ) g@g hA @g #H@g @AlLIk JJAI [JAhdA HKIhA HKI h(143Q DISPLAYGRAPH 140Q CREATEPOSITION 122Q DSPYPOSITION 102Q DSPXPOSITION 71Q GRAPHREGION 66Q SCALE/GRAPH 55Q EQP 37Q IMAGEOBJPROP 22Q IMAGEOBJPROP 13Q DSPSCALE 6 IMAGEOBJPROP) (34Q IMAGEBOXFN 17Q OBJECTDATUM 3 BOUNDBOX) () DISPLAYLINK D1 (I 6 PARAMS I 5 LINEWIDTH I 4 G I 3 STREAM I 2 TRANS I 1 TOND I 0 FRND) DdTA @ B@AEhCF @ A `@ A B@AEhCF A @ JB@AEhCF @ A A @ A @ @ A B@AEhCF (223Q DISPLAYLINK/LR 205Q GN/RIGHT 201Q GN/LEFT 172Q GN/RIGHT 166Q GN/LEFT 157Q GN/TOP 153Q GN/BOTTOM 144Q GN/TOP 140Q GN/BOTTOM 126Q DISPLAYLINK/TB 110Q GN/TOP 104Q GN/BOTTOM 77Q DISPLAYLINK/BT 62Q GN/TOP 56Q GN/BOTTOM 47Q GN/RIGHT 43Q GN/LEFT 36Q DISPLAYLINK/RL 21Q GN/RIGHT 15Q GN/LEFT) NIL () DISPLAYLINK/BT D1 (I 6 PARAMS I 5 STREAM I 4 OPERATION I 3 WIDTH I 2 GNT I 1 GNB I 0 TRANS) TFg g@A@A k@B@B kFg CkDEFg Fg Fl H(113Q LISTGET 104Q LISTGET 65Q LISTGET 53Q GN/TOP 33Q GN/BOTTOM 6 LISTGET) (110Q DASHING 101Q COLOR 62Q LINEWIDTH 13Q DRAWLINE 3 DRAWLINKFN) () DISPLAYLINK/RL D1 (I 6 PARAMS I 5 STREAM I 4 OPERATION I 3 WIDTH I 2 GNL I 1 GNR I 0 TRANS) TFg g@A k@A@B k@BFg CkDEFg Fg Fl H(113Q LISTGET 104Q LISTGET 65Q LISTGET 44Q GN/LEFT 24Q GN/RIGHT 6 LISTGET) (110Q DASHING 101Q COLOR 62Q LINEWIDTH 13Q DRAWLINE 3 DRAWLINKFN) () GRAPHDELETELINK D1 (P 0 DELFN I 3 WINDOW I 2 GRAPH I 1 TO I 0 FROM) LBH@ABClH@A@ A@A (107Q REMOVE 56Q REMOVETONODES) NIL () DELETE/AND/DISPLAY/LINK D1 (P 1 LPARAMS I 3 G I 2 WIN I 1 TOND I 0 FROMND) WA@ @A 4C.@AbHb@A @ACB @AoBChI ioi i h(123Q TERPRI 117Q PRIN1 105Q DISPLAYLINK 66Q GRAPHDELETELINK 54Q LINKPARAMETERS 23Q MEMBTONODES 20Q TOLINKS 10Q MEMBTONODES 5 TOLINKS) NIL ( 113Q " link does not exist. " 75Q (0 . 0)) REMOVETONODES D1 (L (1 TONODES 0 TOND)) 7AAHI\@Lddg@LLJ KhZHXK&NIL (30Q Link% Parameters) () (PRETTYCOMPRINT GRAPHERPATCHCOMS) (RPAQQ GRAPHERPATCHCOMS ((* Fix bugs in grapher image objects) (FNS DUMPGRAPH GRAPHOBJ.DISPLAYFN) (* * These fixes to grapher are so that all line drawing will be from the fromnode to the tonode. This is important when user cares about endpoint order in a user-provided Grapher DRAWLINKFN.) (FNS DISPLAYLINK) (* Following are new functions.) (FNS DISPLAYLINK/BT DISPLAYLINK/RL) (* * Fix so that deleting links through editor will work with Danny's paramlist creatures.) (FNS GRAPHDELETELINK DELETE/AND/DISPLAY/LINK) (* Following is a new function.) (FNS REMOVETONODES))) (PUTPROPS GRAPHERPATCH COPYRIGHT ("Xerox Corporation" 1985)) NIL