(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "14-Mar-2021 20:40:31" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>library>GRAPHER.;5) "12-Mar-2021 12:24:02" brecompiled exprs%: APPLYTOSELECTEDNODE in "Medley Full Sysout 12-Mar-2021 ..." dated "12-Mar-2021 12:24:04") (FILECREATED "14-Mar-2021 20:40:30" {DSK}kaplan>Local>medley3.5>git-medley>library>GRAPHER.;5 214171 changes to%: (VARS GRAPHERCOMS) previous date%: "14-May-2018 10:24:38" {DSK}kaplan>Local>medley3.5>git-medley>library>GRAPHER.;4) ADD/AND/DISPLAY/LINK :D8 (L (3 G 2 WIN 1 TOND 0 FROMND)) FA@ o` ` h@ACB @AoBC i(66 DISPLAYLINK 51 GRAPHADDLINK 40 TERPRI 29 PRIN1 12 MEMBTONODES 7 TOLINKS) (35 PROMPTWINDOW 24 PROMPTWINDOW) ( 58 (0 . 0) 19 "Link already exists. ") APPLYTOSELECTEDNODE :D8 (L (0 WINDOW)) 2@dg @g @g @  (47 GRAPHBUTTONEVENTFN 39 \INSUREWINDOW 33 GETWINDOWUSERPROP 22 GETWINDOWUSERPROP 11 GETWINDOWUSERPROP) (28 BROWSER/MIDDLEFN 17 BROWSER/LEFTFN 6 GRAPH) () CALL.MOVENODEFN :D8 (L (4 OLDPOS 3 WINDOW 2 GRAPH 1 NEWPOS 0 NODE)) BH @ABCDlHhNIL NIL () CHANGE.NODEFONT.SIZE :D8 (L (3 WINDOW 2 GRAPH 1 NODE 0 HOW)) f@A HOAoCB BY@ABClIAhAHAi AoCB h(98 DISPLAYNODE 84 MEASUREGRAPHNODE 35 DISPLAYNODE 16 NEXTSIZEFONT) NIL ( 91 (0 . 0) 28 (0 . 0)) DEFAULT.ADDNODEFN :D8 (L (2 BOXED 1 WINDOW 0 GRAPH) F 1 DEFAULT.GRAPH.NODEFONT F 2 DEFAULTFONT) ;o XdH d@HhA hdQRB (56 NODECREATE 43 CURSORPOSITION 27 PACK* 22 GENSYM 12 PROMPTINWINDOW) NIL ( 7 "Node label? ") DELETE/AND/DISPLAY/LINK :D8 (L (3 G 2 WIN 1 TOND 0 FROMND)) tA@ #@A ;C5@AbHb@A @ACB @AoBChH io` ` h(112 TERPRI 101 PRIN1 84 DISPLAYLINK 66 GRAPHDELETELINK 54 LINKPARAMETERS 27 MEMBTONODES 22 TOLINKS 12 MEMBTONODES 7 TOLINKS) (107 PROMPTWINDOW 96 PROMPTWINDOW) ( 91 "Link does not exist. " 74 (0 . 0)) DISPLAY/NAME :D8 (L (0 ND)) @NIL NIL () DISPLAYGRAPH :D8 (L (3 TRANS 2 CLIP/REG 1 STREAM 0 GRAPH)) kACC3C3obAg bd nA ,A @AI bIC IC bIX@ ZlJ @d\LK @dCA@iHK @dCAB h(173 PRINTDISPLAYNODE 155 DISPLAYNODELINKS 133 PUTHASH 118 HASHARRAY 106 LENGTH 92 FIXR 83 FIXR 71 SCALE/GRAPH 62 DSPSCALE 54 DSPRIGHTMARGIN 43 DISPLAYSTREAMP 35 \GETSTREAM) (30 OUTPUT) ( 21 (0 . 0)) DISPLAYLINK :D8 (L (6 PARAMS 5 LINEWIDTH 4 G 3 STREAM 2 TRANS 1 TOND 0 FRND)) DdjA @ B@AEhCF @ A ~@ A B@AEhCF A @ `B@AEhCF @ A A @ A @ y@ A B@AEhCF (189 DISPLAYLINK/LR 173 GN/RIGHT 167 GN/LEFT 156 GN/RIGHT 150 GN/LEFT 141 GN/TOP 135 GN/BOTTOM 126 GN/TOP 120 GN/BOTTOM 108 DISPLAYLINK/TB 92 GN/TOP 86 GN/BOTTOM 79 DISPLAYLINK/BT 64 GN/TOP 58 GN/BOTTOM 49 GN/RIGHT 43 GN/LEFT 36 DISPLAYLINK/RL 21 GN/RIGHT 15 GN/LEFT) NIL () DISPLAYLINK/BT :D8 (L (6 PARAMS 5 STREAM 4 OPERATION 3 WIDTH 2 GNT 1 GNB 0 TRANS)) ZFg'g@A@A k@B@B kFg'CkDEFg'Fg'Fl H(49 GN/TOP 31 GN/BOTTOM) (80 DASHING 73 COLOR 58 LINEWIDTH 13 DRAWLINE 5 DRAWLINKFN) () DISPLAYLINK/LR :D8 (L (6 PARAMS 5 STREAM 4 OPERATION 3 WIDTH 2 GNR 1 GNL 0 TRANS)) ZFg'g@A k@A@B k@BFg'CkDEFg'Fg'Fl H(42 GN/RIGHT 24 GN/LEFT) (80 DASHING 73 COLOR 58 LINEWIDTH 13 DRAWLINE 5 DRAWLINKFN) () DISPLAYLINK/RL :D8 (L (6 PARAMS 5 STREAM 4 OPERATION 3 WIDTH 2 GNL 1 GNR 0 TRANS)) ZFg'g@A k@A@B k@BFg'CkDEFg'Fg'Fl H(42 GN/LEFT 24 GN/RIGHT) (80 DASHING 73 COLOR 58 LINEWIDTH 13 DRAWLINE 5 DRAWLINKFN) () DISPLAYLINK/TB :D8 (L (6 PARAMS 5 STREAM 4 OPERATION 3 WIDTH 2 GNB 1 GNT 0 TRANS)) ZFg'g@A@A k@B@B kFg'CkDEFg'Fg'Fl H(49 GN/BOTTOM 31 GN/TOP) (80 DASHING 73 COLOR 58 LINEWIDTH 13 DRAWLINE 5 DRAWLINKFN) () DISPLAYNODE :D8 (L (4 TOSONLY 3 G 2 STREAM 1 TRANS 0 NODE)) @ABCD @ABhB (25 PRINTDISPLAYNODE 20 DSPCLIPPINGREGION 10 DISPLAYNODELINKS) NIL () ERASE/GRAPHNODE :D8 (L (2 TRANS 1 STREAM 0 NODE)) A Ag hV@Hj HH d7ddAB<@ B)@ @@ggj @ ذ@ ذ(124 GN/LEFT 114 GN/BOTTOM 106 BKBITBLT 74 GN/BOTTOM 65 GN/LEFT 49 \FZEROP 18 IMAGESTREAMTYPEP 5 WINDOWP) (99 REPLACE 94 TEXTURE 13 DISPLAY) () DISPLAYNODE :D8 (L (4 TOSONLY 3 G 2 STREAM 1 TRANS 0 NODE)) @ABCD @ABhB (25 PRINTDISPLAYNODE 20 DSPCLIPPINGREGION 10 DISPLAYNODELINKS) NIL () DISPLAYNODELINKS :D8 (L (6 NODEHASHTABLE 5 LINEWIDTH 4 TOSONLY 3 G 2 STREAM 1 TRANS 0 NODE)) eC!@ !KD@ Y'h@LHF ]ABCE@M K[HF Z@ABCEJ@ I(94 DISPLAYLINK 88 LINKPARAMETERS 75 GETNODEFROMID 61 DISPLAYLINK 55 LINKPARAMETERS 43 GETNODEFROMID 26 FROMLINKS 10 TOLINKS) NIL () DRAW/GRAPHNODE/BORDER :D8 (L (5 STREAM 4 HEIGHT 3 WIDTH 2 BOTTOM 1 LEFT 0 BORDER)) T@h.@diABCDkhE d3 jhABCD@hE ABCD@hE@ o@ (81 ERROR 69 DRAWAREABOX 48 DRAWAREABOX 23 DRAWAREABOX) NIL ( 75 "Illegal border:") DRAWAREABOX :D8 (L (7 TEXTURE 6 W 5 OP 4 BORDER 3 BOXHEIGHT 2 BOXWIDTH 1 BOXBOTTOM 0 BOXLEFT)) UGnbF@ADCE GF@DACDBDdDE GF@DABDdDE GF@BDADCE (82 BLTSHADE 64 BLTSHADE 44 BLTSHADE 20 BLTSHADE) NIL () EDITADDLINK :D8 (L (0 W)) gg@g @ (26 EDITAPPLYTOLINK 20 GETWINDOWUSERPROP) (15 GRAPH 9 added 4 ADD/AND/DISPLAY/LINK) () EDITADDNODE :D8 (L (3 NODELABELFN 2 MSGW 1 NewPosition 0 W)) @g @ 2H@ Zd A DJJJKAHI JI I J JAHI K OB`oL CJkCJL Jo@h@ JIH J(190 TRACKCURSOR 181 PRINTDISPLAYNODE 176 DSPCLIPPINGREGION 161 PRIN1 133 PRIN1 111 CALL.MOVENODEFN 104 WFROMDS 94 EXTENDEXTENT 89 NODEREGION 83 WFROMDS 76 FLIPNODE 68 MOVENODE 45 POSITIONP 39 MEASUREGRAPHNODE 28 GRAPHADDNODE 16 \INSUREWINDOW 10 GETWINDOWUSERPROP) (121 PROMPTWINDOW 5 GRAPH) ( 168 (0 . 0) 127 "Position node ") EDITAPPLYTOLINKA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 GRAPH F 3 DS F 4 TO F 5 SI::NLSETQ-VALUE) i@RS chc g(12 READ/NODE) (23 :NORMAL) () EDITAPPLYTOLINK :D8 (L (5 NODELABELFN 4 MSGW 1 MSG 0 FN) P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 2 TO I 3 DS I 2 GRAPH F 6 *PROCEED-CASES*) lD`bd B9o!oD D oD D BC YH` ` C oD D `VL gKIC IC JH` ` IJCBl@yo` EIkEI ` o` EJkEJ ` k` A` ` io` ` (361 TERPRI 351 PRIN1 334 TERPRI 323 PRIN1 311 SPACES 299 PRIN1 289 DISPLAY/NAME 273 PRIN1 257 PRIN1 247 DISPLAY/NAME 231 PRIN1 204 TERPRI 194 PRIN1 180 FLIPNODE 172 ERROR! 166 FLIPNODE 147 EDITAPPLYTOLINKA0001 128 TERPRI 121 PRIN1 110 FLIPNODE 103 TERPRI 93 PRIN1 79 READ/NODE 71 TERPRI 64 PRIN1 52 TERPRI 45 PRIN1 20 CLRPROMPT 15 CLEARW) (356 PROMPTWINDOW 346 PROMPTWINDOW 329 PROMPTWINDOW 318 PROMPTWINDOW 306 PROMPTWINDOW 294 PROMPTWINDOW 268 PROMPTWINDOW 252 PROMPTWINDOW 226 PROMPTWINDOW 199 PROMPTWINDOW 189 PROMPTWINDOW 153 :NORMAL 136 SI::NLSETQ-PROCEED-CASE 98 PROMPTWINDOW 88 PROMPTWINDOW 7 PROMPTWINDOW) ( 341 "There are no nodes. You can create nodes with the Add Node command." 263 " to " 221 "Link from " 115 "TO?" 58 "FROM?" 39 "Specify the link by selecting the FROM node, then the TO node." 31 "No selection was made ... operation aborted.") EDITCHANGEFONT :D8 (L (1 W 0 HOW)) Ag A Ho ho` @goo` HI Z&` o` ` @JHA J(142 CHANGE.NODEFONT.SIZE 132 TERPRI 122 PRIN1 107 TERPRI 94 READ/NODE 86 PRIN1 56 PRIN1 41 CLRPROMPT 34 PROMPTPRINT 16 \INSUREWINDOW 10 GETWINDOWUSERPROP) (127 PROMPTWINDOW 117 PROMPTWINDOW 102 PROMPTWINDOW 81 PROMPTWINDOW 63 SMALLER 51 PROMPTWINDOW 5 GRAPH) ( 112 "No selection was made ... operation aborted." 76 "larger." 70 "smaller." 46 "Select node to be made " 29 " No nodes in graph yet. ") EDITCHANGELABEL :D8 (L (1 MSGW 0 W)) @g @ o#Ho hA`bd oA HI [&` o` ` H@K \KJ@H KIJ KLKhKi KJ@H K(180 DISPLAYNODE 171 MEASUREGRAPHNODE 146 ERASE/GRAPHNODE 138 DISPLAYNODE 126 GRAPHCHANGELABEL 117 TERPRI 107 PRIN1 92 TERPRI 79 READ/NODE 71 PRIN1 60 CLEARW 44 CLRPROMPT 37 PROMPTPRINT 16 GETSTREAM 10 GETWINDOWUSERPROP) (112 PROMPTWINDOW 102 PROMPTWINDOW 87 PROMPTWINDOW 52 PROMPTWINDOW 5 GRAPH) ( 97 "No selection was made ... operation aborted." 65 "Select node to have label changed." 32 "No nodes in graph yet. " 21 (0 . 0)) EDITDELETELINK :D8 (L (0 W)) gg@g @ (26 EDITAPPLYTOLINK 20 GETWINDOWUSERPROP) (15 GRAPH 9 deleted 4 DELETE/AND/DISPLAY/LINK) () EDITDELETENODEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 5 W) 2Ug U 2Ho ho HI Zi oi i i JI hdoJ [h gJI JoIH J h dJLH HU J h dH JHU JHU oi Ki oi i JJI oi i h(302 TERPRI 295 PRIN1 283 FLIPNODE 274 TERPRI 267 PRIN1 255 PRIN1 247 PRIN1 235 GRAPHDELETENODE 222 GRAPHDELETELINK 214 GETNODEFROMID 203 \APPEND2 197 FROMLINKS 186 GRAPHDELETELINK 179 GETNODEFROMID 165 \APPEND2 159 TOLINKS 152 DISPLAYNODE 138 FLIPNODE 121 ASKUSER 112 DISPLAY/NAME 99 FLIPNODE 92 TERPRI 85 TERPRI 79 PRIN1 68 TERPRI 59 READ/NODE 51 PROMPTPRINT 39 PROMPTPRINT 21 \INSUREWINDOW 15 GETWINDOWUSERPROP 4 CLRPROMPT) (126 Y 10 GRAPH) ( 289 "nothing deleted." 261 " deleted." 241 "Node " 145 (0 . 0) 106 "delete node " 73 "No selection was made ... operation aborted." 46 "Select node to be deleted. " 34 " No nodes to delete. ") EDITDELETENODE :D8 (P 0 SI::*RESETFORMS* I 0 W) 3g` hhhg $(44 SI::RESETUNWIND 39 \MVLIST 34 EDITDELETENODEA0001 14 TTYDISPLAYSTREAM) (29 SI::RESETUNWIND 9 PROMPTWINDOW 4 TTYDISPLAYSTREAM) () EDITGRAPH :D8 (L (1 W 0 G)) @Ahdid (11 SHOWGRAPH) NIL () EDITGRAPH1 :D8 (L (1 WINDOW 0 GRAPH)) l@dddddddddddddbA bdg@ Agg Agg gA A A @(104 EDITGRAPH2 98 REDISPLAYGRAPH 92 DSPOPERATION 81 PUTWINDOWPROP 65 PUTWINDOWPROP 49 PUTWINDOWPROP 35 SIZE/GRAPH/WINDOW) (86 INVERT 76 SCROLLBYREPAINTFN 71 SCROLLFN 60 REDISPLAYGRAPH 55 REPAINTFN 43 GRAPH) () EDITGRAPH2A0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 W F 3 SI::NLSETQ-VALUE) i@R hcg(10 GRAPHEDITCOMMANDFN) (19 :NORMAL) () EDITGRAPH2 :D8 (P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 W F 4 *PROCEED-CASES*) =o` ` o` ` o` `lj`kjc`TI gH4` ` o` ` [gS@g @ 7` o` ` o` `lKj KK ޱ(309 \FZEROP 281 GETMOUSESTATE 275 PRIN1 259 TERPRI 248 PRIN1 232 TERPRI 220 TRACKNODE 212 GETWINDOWUSERPROP 200 CLRPROMPT 184 TERPRI 173 PRIN1 157 TERPRI 146 TERPRI 123 EDITGRAPH2A0001 80 GETMOUSESTATE 74 PRIN1 58 TERPRI 47 PRIN1 31 TERPRI 20 PRIN1 4 CLRPROMPT) (287 LASTMOUSEBUTTONS 270 PROMPTWINDOW 254 PROMPTWINDOW 243 PROMPTWINDOW 227 PROMPTWINDOW 207 GRAPH 192 STOP 179 PROMPTWINDOW 168 PROMPTWINDOW 152 PROMPTWINDOW 141 PROMPTWINDOW 129 :NORMAL 112 SI::NLSETQ-PROCEED-CASE 98 LASTMOUSEBUTTONS 86 LASTMOUSEBUTTONS 69 PROMPTWINDOW 53 PROMPTWINDOW 42 PROMPTWINDOW 26 PROMPTWINDOW 15 PROMPTWINDOW) ( 265 "Press the middle button and select the 'Add a node' command." 238 "There are no nodes to move yet." 163 "command aborted." 64 "During an edit command, the middle button can be used to abort." 37 "Use the middle button to get a menu of edit commands." 10 "Use the left button to move nodes.") EDITMOVENODE :D8 (L (0 WINDOW)) &@ @ @g SJdo` o` o` NhH [ LLH MdH M`l_jzOO lLLH ` o` o` o` LHJ ` o` hLNhHK ]L_(283 NODELST/AS/MENU 278 CURSORPOSITION 266 PRIN1 250 TERPRI 239 TRACKCURSOR 230 PRIN1 214 PRIN1 198 PRIN1 182 TERPRI 171 FLIPNODE 160 \FZEROP 133 GETMOUSESTATE 125 FLIPNODE 115 FLIPNODE 105 NODELST/AS/MENU 99 CURSORPOSITION 90 PRIN1 74 PRIN1 58 PRIN1 42 CLRPROMPT 26 GETWINDOWUSERPROP 13 \INSUREWINDOW 5 \INSUREWINDOW) (261 PROMPTWINDOW 245 PROMPTWINDOW 225 PROMPTWINDOW 209 PROMPTWINDOW 193 PROMPTWINDOW 177 PROMPTWINDOW 139 LASTMOUSEBUTTONS 85 PROMPTWINDOW 69 PROMPTWINDOW 53 PROMPTWINDOW 21 GRAPH) ( 256 "Done." 220 "and release the button." 204 "move the node to its new position" 188 "Holding the button down, " 80 "and press any button." 64 "you want to move " 48 "Move the cursor to the node ") EDITTOGGLEBORDERA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 W) Tg T "Ho ho HI Zi oi i i JgTH HHJHTlKJ(105 RESET/NODE/BORDER 92 TERPRI 85 TERPRI 79 PRIN1 68 TERPRI 59 READ/NODE 51 PROMPTPRINT 39 PROMPTPRINT 21 \INSUREWINDOW 15 GETWINDOWUSERPROP 4 CLRPROMPT) (98 INVERT 10 GRAPH) ( 73 "No selection was made ... operation aborted." 46 "Select node to have border inverted. " 34 "No nodes to invert. ") EDITTOGGLEBORDER :D8 (P 0 SI::*RESETFORMS* I 0 W) 3g` hhhg $(44 SI::RESETUNWIND 39 \MVLIST 34 EDITTOGGLEBORDERA0001 14 TTYDISPLAYSTREAM) (29 SI::RESETUNWIND 9 PROMPTWINDOW 4 TTYDISPLAYSTREAM) () EDITTOGGLELABELA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 W) Tg T "Ho ho HI Zi oi i i JgT HHJHTlKJ(104 RESET/NODE/LABELSHADE 92 TERPRI 85 TERPRI 79 PRIN1 68 TERPRI 59 READ/NODE 51 PROMPTPRINT 39 PROMPTPRINT 21 \INSUREWINDOW 15 GETWINDOWUSERPROP 4 CLRPROMPT) (98 INVERT 10 GRAPH) ( 73 "No selection was made ... operation aborted." 46 "Select node to have label inverted. " 34 " No nodes to invert.") EDITTOGGLELABEL :D8 (P 0 SI::*RESETFORMS* I 0 W) 3g` hhhg $(44 SI::RESETUNWIND 39 \MVLIST 34 EDITTOGGLELABELA0001 14 TTYDISPLAYSTREAM) (29 SI::RESETUNWIND 9 PROMPTWINDOW 4 TTYDISPLAYSTREAM) () FILL/GRAPHNODE/LABEL :D8 (L (6 STREAM 5 NBW 4 HEIGHT 3 WIDTH 2 BOTTOM 1 LEFT 0 SHADE)) H@F F 5@dinjhddFAEBECEdDEdggH h(68 BKBITBLT 16 DISPLAYSTREAMP 9 WINDOWP) (61 INVERT 56 TEXTURE) () FIX/SCALE :D8 (L (1 SCALE 0 PARAMVALUE)) .@"0@dA IHhZH&JA@ (43 FIXR 17 FIX/SCALE) NIL () FLIPNODE :D8 (L (1 DS 0 NODE)) >hddA@ k@ k@l@lggn (59 BKBITBLT 17 GN/BOTTOM 9 GN/LEFT) (50 INVERT 45 TEXTURE) () FONTNAMELIST :D8 (L (0 FONTDESC)) '@g @g @g h(32 FONTPROP 21 FONTPROP 10 FONTPROP) (27 FACE 16 SIZE 5 FAMILY) () FROMLINKS :D8 (L (0 NODE)) @NIL NIL () GETNODEFROMID :D8 (L (2 NODEHASHTABLE 1 NODELST 0 ID)) UB/@ddgB :@B 1o@ @ddgA@A o@ (82 ERROR 46 ERROR 33 GETHASH 24 GETHASH) (58 Link% Parameters 14 Link% Parameters) ( 76 "No graphnode for nodeid:" 40 "No graphnode for nodeid:") GN/BOTTOM :D8 (L (0 NODE)) @@NIL NIL () GN/LEFT :D8 (L (0 NODE)) @@NIL NIL () GN/RIGHT :D8 (L (0 NODE)) @@kkNIL NIL () GN/TOP :D8 (L (0 NODE)) @@kkNIL NIL () GRAPHADDLINK :D8 (L (3 WINDOW 2 GRAPH 1 TO 0 FROM)) ABH@ABClHAH@H@HAHNIL NIL () GRAPHADDNODE :D8 (L (1 W 0 GRAPH)) . @X@AlH@Ai Yh@dIh I(41 \NCONC2 26 DEFAULT.ADDNODEFN) NIL () GRAPHBUTTONEVENTFN :D8 (L (4 REG 3 MIDDLEFNOFNODE 2 LEFTFNOFNODE 1 GRAPH 0 WINDOW)) @ A@ R`dljBgkjCgHhI [ LLI MdI M`lj/LLI JdgBgCL@lN@ `` LdI hLHhIK ]v(214 NODELST/AS/MENU 209 CURSORPOSITION 197 FLIPNODE 187 INSIDE? 170 \INSUREWINDOW 155 SHOULDNT 128 FLIPNODE 106 GETMOUSESTATE 98 FLIPNODE 88 FLIPNODE 78 NODELST/AS/MENU 72 CURSORPOSITION 13 GETSTREAM 5 TOTOPW) (182 LASTMOUSEY 177 LASTMOUSEX 146 MIDDLE 136 LEFT 112 LASTMOUSEBUTTONS 63 MIDDLE 41 LEFT 21 LASTMOUSEBUTTONS) () GRAPHCHANGELABEL :D8 (L (2 NODE 1 W 0 GRAPH)) '@X@ABlHo (36 PROMPTINWINDOW) NIL ( 31 "Node label? ") GRAPHDELETELINK :D8 (L (3 WINDOW 2 GRAPH 1 TO 0 FROM)) PBH@ABClH@A@ A@A (75 REMOVE 48 REMOVETONODES) NIL () GRAPHDELETENODE :D8 (L (2 WINDOW 1 GRAPH 0 NODE)) "AH@ABlHA@A h(29 DREMOVE) NIL () GRAPHEDITCOMMANDFN :D8 (I 0 GRAPHWINDOW F 2 EDITGRAPHMENU F 3 EDITGRAPHMENUCOMMANDS) %RR@`dSdi didg dgjdndhHdI c dggdg@ dg@ dg@ dg@ dgg@ dgg@ dg@ dg@ dg@ dg@ dg@ g@ (290 EDITTOGGLELABEL 275 EDITTOGGLEBORDER 259 TOGGLE/SIDESFLG 243 TOGGLE/DIRECTEDFLG 227 EDITCHANGELABEL 211 EDITDELETELINK 195 EDITCHANGEFONT 174 EDITCHANGEFONT 153 EDITADDLINK 137 EDITDELETENODE 121 EDITADDNODE 105 EDITMOVENODE 76 MENU) (281 SHADE 266 BORDER 250 SIDES 234 DIRECTED 218 CHANGELABEL 202 DELETELINK 189 LARGER 181 LARGER 168 SMALLER 160 SMALLER 144 ADDLINK 128 DELETENODE 112 ADDNODE 96 MOVENODE 89 STOP 82 STOP 45 DEFAULTMENUHELDFN 36 CLRPROMPT 14 |MENUTYPE#| 5 MENU) () GRAPHEDITEVENTFN :D8 (L (0 GRWINDOW)) Hh@ @ @ @ g @ @ g@ (69 CLOSEW 55 GRAPHEDITCOMMANDFN 48 TRACKNODE 41 SHIFTDOWNP 30 DOWINDOWCOM 23 INSIDE? 18 LASTMOUSEY 12 LASTMOUSEX 6 DSPCLIPPINGREGION) (60 STOP 36 CTRL) () GRAPHER/CENTERPRINTINAREA :D8 (L (5 STREAM 4 HEIGHT 3 WIDTH 2 Y 1 X 0 EXP)) IEg b @E ACHklBDEE lE @E h(69 PRIN3 62 MOVETO 19 STRINGWIDTH 10 \GETSTREAM) (49 FONTDESCRIPTOR 40 FONTDESCRIPTOR 5 OUTPUT) () GRAPHERPROP :D8 (L (2 NEWVALUE 1 PROP 0 GRAPH)) 9h@BhAB @hA (54 GETPROP 28 PUTPROP) NIL () GRAPHNODE/BORDER/WIDTH :D8 (L (0 BORDER)) 4@jdik3 @ @o@ 3 j@@(35 ERROR 19 ABS) NIL ( 29 "Illegal border:") GRAPHREGION :D8 (L (0 GRAPH)) G@!Hjddd d H YH ZH IkH Jk (68 CREATEREGION 59 MAX/TOP 49 MAX/RIGHT 42 MIN/BOTTOM 35 MIN/LEFT 24 MEASUREGRAPHNODE 16 CREATEREGION) NIL () HARDCOPYGRAPH :D8 (L (3 TRANS 2 IMAGETYPE 1 FILE 0 GRAPH/WINDOW) F 30 GRAPH/HARDCOPY/FORMAT) W@Q AHHHbHAHHdA h(53 BRHC/OFFSET 6 GETNODEFROMID) NIL () BRHL/LAYOUT :D8 (L (4 GN 3 MOMLST 2 Y 1 X 0 N) F 3 PERSONALD F 4 MOTHERD) [DdjDSDDCDAIhHHAITB@h dJJDBJJ(72 BRHL/LAYOUT/DAUGHTERS) NIL () BRHL/LAYOUT/DAUGHTERS :D8 (L (3 MOMLST 2 Y 1 X 0 DS) F 6 NODELST) ^@BBHZIB[V \IKAICL YJL JLILLAh L]CM(73 BRHL/MOVE/RIGHT 54 NEW/INSTANCE/OF/GRAPHNODE 38 BRHL/LAYOUT 21 GETNODEFROMID) NIL () BRHL/MOVE/RIGHT :D8 (L (2 STACK 1 X 0 GN) F 5 MOTHERD F 6 NODELST) f@@@Bo@ AIH@ AHU@BJ IAHhV KL JZ(94 BRHL/MOVE/RIGHT 87 GETNODEFROMID 56 TOLINKS 39 ERROR) NIL ( 22 "Loop caught in BRHL/MOVE/RIGHT at") BROWSE/LAYOUT/HORIZ :D8 (L (0 ROOTIDS) F 3 NODELST) @@jHSihddddddddddIJjIhJS عHX(55 BRH/LAYOUT 49 GETNODEFROMID) NIL () BROWSE/LAYOUT/HORIZ/COMPACTLY :D8 (L (0 ROOTS) P 1 RETURNBTC P 0 RETURNTTC F 7 NODELST F 8 DEFAULT.GRAPH.NODELABELSHADE F 9 MOTHERD F 10 DEFAULT.GRAPH.NODEFONT F 11 DEFAULT.GRAPH.NODEBORDER) p@djh@W @j s@jh@W @j ShhhddWjd@hWJWh]WcM^jWhM Nj @[(MW cWihddddddddddW\NL K(202 DREMOVE 143 DREMOVE 129 BRHC/OFFSET 121 BRHC/LAYOUT 69 PACK 62 BRHC/OFFSET 53 BRHC/LAYOUT 48 GETNODEFROMID 30 BRHC/OFFSET 22 BRHC/LAYOUT 17 GETNODEFROMID) NIL () BROWSE/LAYOUT/LATTICE :D8 (L (0 NS) F 3 NODELST) @@jHSihddddddddddIJjIhJS عHX(55 BRHL/LAYOUT 49 GETNODEFROMID) NIL () BRV/OFFSET :D8 (L (1 ABSX 0 N) F 2 NODELST F 3 TERMY) C@R AHHHbHYAIIdSHdA h(58 BRV/OFFSET 6 GETNODEFROMID) NIL () EXTEND/TRANSITION/CHAIN :D8 (L (1 RTC 0 LTC)) I@A"IH I@HdIHI@ZI[jHIYKJHIY(13 FLAST) NIL () FOREST/BREAK/CYCLES :D8 (L (0 NODE) F 3 NODELST) 8@i@!HYhS d IJ I(49 FOREST/BREAK/CYCLES 38 NEW/INSTANCE/OF/GRAPHNODE 29 GETNODEFROMID) NIL () INIT/NODES/FOR/LAYOUT :D8 (L (3 FONT 2 ROOTIDS 1 FORMAT 0 NS) F 1 NODELST) @AdHHBhhH HHCB7dAgAgAHQ h HQ QdHhH h(146 SET/LABEL/SIZE 122 FOREST/BREAK/CYCLES 117 GETNODEFROMID 109 LATTICE/BREAK/CYCLES 103 GETNODEFROMID 36 IMAGEOBJP) (93 LATTICE 82 LATTICE) () INTERPRET/MARK/FORMAT :D8 (L (0 FORMAT) F 1 BOX.BOTH.FLG F 2 BOX.LEAVES.FLG F 3 BORDER.FOR.MARKING F 4 LABELSHADE.FOR.MARKING) @g@dg@hc@g@dg@hc@I@g@g@d4gHHg'gcgHHg'gchNIL (124 DON'T 117 LABELSHADE 108 LABELSHADE 100 DON'T 93 BORDER 84 BORDER 72 MARK 63 MARK 45 NOT/LEAVES 33 NOT/LEAVES 20 COPIES/ONLY 8 COPIES/ONLY) () LATTICE/BREAK/CYCLES :D8 (L (1 STACK 0 NODE) F 4 NODELST) C@i@1HYhZT JAK IKKKJA I(60 LATTICE/BREAK/CYCLES 41 NEW/INSTANCE/OF/GRAPHNODE 30 GETNODEFROMID) NIL () LAYOUTFOREST :D8 (L (7 FAMILYD 6 PERSONALD 5 MOTHERD 4 FONT 3 BOXING 2 FORMAT 1 ROOTIDS 0 NODELST)) @ABdC CDEF (23 LAYOUTGRAPH 11 \APPEND2) NIL () LAYOUTGRAPH :D8 (L (3 FONT 2 FORMAT 1 ROOTIDS) P 3 LABELSHADE.FOR.MARKING P 2 BORDER.FOR.MARKING P 1 BOX.LEAVES.FLG P 0 BOX.BOTH.FLG I 6 FAMILYD I 5 PERSONALD I 4 MOTHERD I 0 NODELST F 7 DEFAULT.GRAPH.NODEFONT F 8 DEFAULTFONT) iddg4Ao A]BCWWbDoC bEdg5dg,dg#dgdgdgdgiA@ 'A"Ad3&dgAjhboA A(154 ERROR 104 GETNODEFROMID) (127 BASELINE 89 *RIGHT 81 *LEFT 73 *BOTTOM 64 *TOP 55 *RIGHT* 46 *LEFT* 37 *BOTTOM* 28 *TOP*) ( 148 "ILLEGAL GRAPH ALIGNMENT SPECIFICATION") GRAPHEROBJ :D8 (L (5 COPYBUTTONEVENTFN 4 MIDDLEBUTTONFN 3 LEFTBUTTONFN 2 VALIGN 1 HALIGN 0 GRAPH) F 2 GRAPHERIMAGEFNS) j@ @dA @B hR IgjHjH CIgC DIgD EIgE I(102 IMAGEOBJPROP 87 IMAGEOBJPROP 72 IMAGEOBJPROP 58 IMAGEOBJPROP 53 CREATEPOSITION 30 IMAGEOBJCREATE 20 GRAPHOBJ.CHECKALIGN 13 GRAPHOBJ.CHECKALIGN 5 GRAPHREGION) (96 COPYBUTTONEVENTFN 81 MIDDLEBUTTONFN 66 LEFTBUTTONFN 39 OBJECTORIGIN) () GRAPHOBJ.BUTTONEVENTINFN :D8 (L (1 WINDOW 0 GROBJ)) @g @g 2HIA@g HI `dodg dgjdndhdJ F@g [hi @gK L KKh L g(170 CLOSEW 163 IMAGEOBJPROP 147 EDITGRAPH1 141 COPYGRAPH 127 SIZE/GRAPH/WINDOW 118 IMAGEOBJPROP 105 MENU 49 GRAPHBUTTONEVENTFN 41 IMAGEOBJPROP 21 IMAGEOBJPROP 10 IMAGEOBJPROP) (175 CHANGED 134 OBJECTDATUM 113 OBJECTDATUM 80 DEFAULTMENUHELDFN 71 CLRPROMPT 55 |MENUTYPE#| 36 OBJECTDATUM 16 MIDDLEBUTTONFN 5 LEFTBUTTONFN) ( 62 ((Edit% graph T " Opens a window to edit this graph"))) GRAPHOBJ.COPYBUTTONEVENTFN :D8 (L (1 WINDOW 0 GROBJ)) %@g H@AlH@ (34 COPYINSERT 29 GRAPHOBJ.COPYFN 10 IMAGEOBJPROP) (5 COPYBUTTONEVENTFN) () GRAPHOBJ.COPYFN :D8 (L (0 GROBJ)) @g !H HH Yg@g ZJ Ig@g Ig@g Ig@g I(125 IMAGEOBJPROP 120 IMAGEOBJPROP 103 IMAGEOBJPROP 98 IMAGEOBJPROP 81 IMAGEOBJPROP 76 IMAGEOBJPROP 59 IMAGEOBJPROP 49 IMAGEOBJPROP 32 GRAPHEROBJ 20 COPYGRAPH 10 IMAGEOBJPROP) (115 COPYBUTTONEVENTFN 109 COPYBUTTONEVENTFN 93 MIDDLEBUTTONFN 87 MIDDLEBUTTONFN 71 LEFTBUTTONFN 65 LEFTBUTTONFN 44 OBJECTORIGIN 38 OBJECTORIGIN 5 OBJECTDATUM) () GRAPHOBJ.DISPLAYFN :D8 (L (1 STREAM 0 GROBJ)) @g hA @g #H@g @AlLIk JJAI [JAhdA HKIhA HKI h(128 DISPLAYGRAPH 123 CREATEPOSITION 107 DSPYPOSITION 89 DSPXPOSITION 78 GRAPHREGION 73 SCALE/GRAPH 62 EQP 46 IMAGEOBJPROP 28 IMAGEOBJPROP 17 DSPSCALE 10 IMAGEOBJPROP) (41 IMAGEBOXFN 23 OBJECTDATUM 5 BOUNDBOX) () GRAPHOBJ.GETALIGN :D8 (L (1 GRAPH 0 STREAM)) /@` Hddo A H(39 NTH 30 MEMB 10 READ) (5 FILERDTBL) ( 25 (*TOP* *BOTTOM* *LEFT* *RIGHT* *TOP *BOTTOM *LEFT *RIGHT)) GRAPHOBJ.GETFN :D8 (L (0 STREAM)) @d` l(o @ @ H@H @H Y@d` l)WIg@ Ig@ Ig@ Ig@ @ @` I(175 RATOM 163 IMAGEOBJPROP 158 CREATEPOSITION 153 READ 147 READ 134 IMAGEOBJPROP 129 HREAD 116 IMAGEOBJPROP 111 HREAD 98 IMAGEOBJPROP 93 HREAD 75 SKIPSEPRCODES 62 GRAPHEROBJ 57 GRAPHOBJ.GETALIGN 50 GRAPHOBJ.GETALIGN 39 READGRAPH 33 READCCODE 26 ERROR 11 SKIPSEPRCODES) (170 FILERDTBL 141 OBJECTORIGIN 123 COPYBUTTONEVENTFN 105 MIDDLEBUTTONFN 87 LEFTBUTTONFN 70 FILERDTBL 6 FILERDTBL) ( 21 "ILLEGAL GRAPHOBJECT FORMAT") GRAPHOBJ.IMAGEBOXFN :D8 (L (1 STREAM 0 GROBJ)) @g hA RH[H\H]IkKAI K ZdJMd3JְZK ^ Mdg5NNN lۊNLd3Jְ(K ^ LdgjNh(187 GN/LEFT 181 ALIGNMENTNODE 87 GN/BOTTOM 81 ALIGNMENTNODE 51 GRAPHREGION 44 SCALE/GRAPH 17 DSPSCALE 10 IMAGEOBJPROP) (196 BASELINE 143 FONTDESCRIPTOR 124 FONTDESCRIPTOR 96 BASELINE 5 OBJECTDATUM) () GRAPHOBJ.PUTALIGN :D8 (L (2 ALIGN 1 GRAPH 0 STREAM)) CBdo BAkHhB@` BJIIkԹHX(44 PRIN2 15 MEMB) (39 FILERDTBL) ( 10 (*TOP* *BOTTOM* *LEFT* *RIGHT* *TOP *BOTTOM *LEFT *RIGHT)) GRAPHOBJ.PUTFN :D8 (L (1 STREAM 0 GROBJ)) @g @g oA HZdA A AJH kA AJH A @g A @g A @g A IA kA IA oA A h(177 TERPRI 170 PRIN1 159 PRIN1 151 SPACES 144 PRIN1 136 HPRINT 130 IMAGEOBJPROP 119 HPRINT 113 IMAGEOBJPROP 102 HPRINT 96 IMAGEOBJPROP 85 TERPRI 79 GRAPHOBJ.PUTALIGN 68 SPACES 61 GRAPHOBJ.PUTALIGN 51 TERPRI 45 DUMPGRAPH 35 PRIN1 21 IMAGEOBJPROP 10 IMAGEOBJPROP) (125 COPYBUTTONEVENTFN 108 MIDDLEBUTTONFN 91 LEFTBUTTONFN 16 OBJECTORIGIN 5 OBJECTDATUM) ( 164 ")" 29 "(") COPYGRAPH :D8 (L (0 GRAPH)) 7@aHvI@@@@@@@@@@@@\LLLLLLLLLLL]dM Mg MkNMLLJ KhZHXK&(243 IMAGEOBJPROP 223 BITMAPCOPY) (238 COPYFN 230 IMAGEOBJ 215 BITMAP) () DUMPGRAPHA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 13 STREAM F 14 GRAPH F 15 SI::*RESETFORMS*)  g` hhWcjdddd oW W oW Wd)lhW oW WW W'lhW oW WW Wd+lhW oW WW W)lhW oW WW Wd-lhW oW WW W+lhW oW WW Wd/lhW oW WW W-lhW oW WW Wd1lhW oW WW W/lhW oW WW Wd3lhW oW WW W0lhW oW WW oW W! O3W oW KW kW N ^_dNKk[NO_OOOJkZO_OdMIkYMO_iOdLOHkXL\O_OdW kW W oW IW kW M ]Bd_d'dO  gO W kW L@W oW HW kW L \W  OuOBW oW JW kW O _W  OSW oW W! OToW h_OkW OW O_k_OkW OW O__lhW oW ONW kW W _OW kW OhW OW kW OMW kW OddiOOLW kW O OOW kW OVoW O4d_dgONONW kW ooW O;oW OdNW kW oW oW W O_(1766 TERPRI 1758 PRIN1 1745 PRIN1 1728 SPACES 1719 PRIN2 1693 PRIN1 1667 PRIN1 1644 SPACES 1635 PRIN2 1583 PRIN1 1558 SPACES 1549 PRIN2 1521 SPACES 1512 PRIN2 1448 SPACES 1439 PRIN2 1416 SPACES 1407 PRIN2 1395 TAB 1384 SPACES 1375 HPRINT 1352 POSITION 1344 SPACES 1335 PRIN2 1321 PRIN1 1308 TAB 1286 HPRINT 1275 TAB 1252 HPRINT 1241 TAB 1225 PRIN1 1201 PRIN1 1188 TERPRI 1172 POSITION 1163 DREVERSE 1155 SPACES 1146 PRIN1 1137 PRIN1 1124 TERPRI 1104 POSITION 1096 DREVERSE 1089 SPACES 1080 PRIN1 1071 PRIN1 1058 TERPRI 1043 SPACES 1034 PRIN2 1026 FONTCLASSUNPARSE 1012 FONTP 1005 FONTUNPARSE 978 DREVERSE 972 SPACES 963 PRIN1 954 PRIN1 941 TERPRI 929 SPACES 920 PRIN2 778 DREVERSE 772 SPACES 763 PRIN1 754 PRIN1 741 TERPRI 722 PRIN1 709 HPRINT 687 PRIN1 674 TAB 647 PRIN2 625 PRIN1 612 TAB 583 PRIN2 562 PRIN1 549 TAB 523 PRIN2 503 PRIN1 490 TAB 463 PRIN2 444 PRIN1 431 TAB 407 PRIN2 389 PRIN1 376 TAB 351 PRIN2 334 PRIN1 321 TAB 299 PRIN2 283 PRIN1 270 TAB 247 PRIN2 232 PRIN1 219 TAB 199 PRIN2 185 PRIN1 172 TAB 151 PRIN2 138 PRIN1 125 TAB 107 PRIN2 95 PRIN1 82 TAB 64 PRIN1 51 TERPRI 43 PRIN1 14 SETREADTABLE) (1608 Link% Parameters 1019 CLASS 996 FONTDESCRIPTOR 9 FILERDTBL 4 SETREADTABLE) ( 1751 ")" 1738 ")" 1686 "(" 1660 "NIL " 1654 ") " 1576 "(" 1314 "(" 1218 "))" 1194 "NODES (" 1130 "SHADES " 1064 "BORDERS " 947 "FONTS " 747 "IDS " 715 ")" 680 "PROPS " 618 "CHANGELABELFN " 555 "INVERTLABELFN " 496 "INVERTBORDERFN " 437 "FONTCHANGEFN " 382 "DELETELINKFN " 327 "ADDLINKFN " 276 "DELETENODEFN " 225 "ADDNODEFN " 178 "MOVENODEFN " 131 "DIRECTEDFLG " 88 "SIDESFLG " 57 "FIELDS (" 36 "(") DUMPGRAPH :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 STREAM I 0 GRAPH F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 DUMPGRAPHA0001) (8 SI::RESETUNWIND) () READGRAPH :D8 (L (0 STREAM)) @d` go @ hdddddddddddd @` ZdgS@` :d_dgHO dgHO dgHOdgHOdgHOdgHOdgHOdgHO}dgHObdgHOFdgHO)gHOoO űg<@` Y I_k_OtNO@` Ok԰Jdg8@` Y I_k_O/LO@ Ok԰gs@` Y I_k_OKO@` Zdg@` ZJ gJJ J Ok԰Jdgy@ H0@d` gO$@` ` 0N@` @ _,@` hdK@` _.@` ZdiJLJ _*@` Z MJ hd0@` Ad_gONO ONO _0O2 O0h_4O0&_2O40@` $d_NO _6O8 O6h_:O6&_8O:O.O,O*h@` _(O&O(h_&_$O(&_&g7@` Y I_ k_"O MO"@ O"k԰JgHo@ (1145 ERROR 1117 SETA 1112 HREAD 1088 ARRAY 1082 RATOM 1034 RATOM 976 ELT 961 READ 920 ELT 905 ELT 876 READ 860 ELT 850 RATOM 836 ELT 821 RATOM 807 ELT 802 RATOM 788 READ 774 HREAD 768 ELT 763 RATOM 747 READC 738 RATOM 713 SKIPSEPRS 696 RATOM 670 SETA 663 FONTCLASS 641 FONTCLASS 632 READ 610 READ 581 ARRAY 575 RATOM 549 SETA 544 HREAD 520 ARRAY 514 RATOM 485 SETA 480 READ 451 ARRAY 445 RATOM 413 ERROR 102 READ 78 RATOM 36 READC 29 ERROR 11 SKIPSEPRS) (1130 %) 1077 FILERDTBL 1068 SHADES 1029 FILERDTBL 956 FILERDTBL 889 Link% Parameters 871 FILERDTBL 845 FILERDTBL 816 FILERDTBL 797 FILERDTBL 783 FILERDTBL 758 FILERDTBL 733 FILERDTBL 718 %( 708 FILERDTBL 684 NODES 650 CLASS 627 FILERDTBL 617 C 605 FILERDTBL 570 FILERDTBL 561 FONTS 509 FILERDTBL 499 BORDERS 475 FILERDTBL 440 FILERDTBL 431 IDS 379 PROPS 351 CHANGELABELFN 323 INVERTLABELFN 296 INVERTBORDERFN 270 FONTCHANGEFN 244 DELETELINKFN 220 ADDLINKFN 197 DELETENODEFN 175 ADDNODEFN 154 MOVENODEFN 134 DIRECTEDFLG 115 SIDESFLG 97 FILERDTBL 85 FIELDS 73 FILERDTBL 16 %( 6 FILERDTBL) ( 1139 "INVALID GRAPHER IMAGE OBJECT" 405 "UNRECOGNIZED GRAPH FIELD" 24 "ILLEGAL GRAPH FORMAT") (PRETTYCOMPRINT GRAPHERCOMS) (RPAQQ GRAPHERCOMS ((COMS (* ; "Graph Editing") (FNS ADD/AND/DISPLAY/LINK APPLYTOSELECTEDNODE CALL.MOVENODEFN CHANGE.NODEFONT.SIZE DEFAULT.ADDNODEFN DELETE/AND/DISPLAY/LINK DISPLAY/NAME DISPLAYGRAPH DISPLAYLINK DISPLAYLINK/BT DISPLAYLINK/LR DISPLAYLINK/RL DISPLAYLINK/TB DISPLAYNODE ERASE/GRAPHNODE DISPLAYNODE DISPLAYNODELINKS DRAW/GRAPHNODE/BORDER DRAWAREABOX EDITADDLINK EDITADDNODE EDITAPPLYTOLINK EDITCHANGEFONT EDITCHANGELABEL EDITDELETELINK EDITDELETENODE EDITGRAPH EDITGRAPH1 EDITGRAPH2 EDITMOVENODE EDITTOGGLEBORDER EDITTOGGLELABEL FILL/GRAPHNODE/LABEL FIX/SCALE FLIPNODE FONTNAMELIST FROMLINKS GETNODEFROMID GN/BOTTOM GN/LEFT GN/RIGHT GN/TOP GRAPHADDLINK GRAPHADDNODE GRAPHBUTTONEVENTFN GRAPHCHANGELABEL GRAPHDELETELINK GRAPHDELETENODE GRAPHEDITCOMMANDFN GRAPHEDITEVENTFN GRAPHER/CENTERPRINTINAREA GRAPHERPROP GRAPHNODE/BORDER/WIDTH GRAPHREGION HARDCOPYGRAPH INTERSECT/REGIONP/LBWH INVERTED/GRAPHNODE/BORDER INVERTED/SHADE/FOR/GRAPHER LAYOUT/POSITION LINKPARAMETERS MAX/RIGHT MAX/TOP MEASUREGRAPHNODE MEMBTONODES MIN/BOTTOM MIN/LEFT MOVENODE NODECREATE NODELST/AS/MENU NODEREGION PRINTDISPLAYNODE PROMPTINWINDOW READ/NODE REDISPLAYGRAPH REMOVETONODES RESET/NODE/BORDER RESET/NODE/LABELSHADE SCALE/GRAPH SCALE/GRAPHNODE/BORDER SCALE/TONODES SET/LABEL/SIZE SET/LAYOUT/POSITION SHOWGRAPH SIZE/GRAPH/WINDOW TOGGLE/DIRECTEDFLG TOGGLE/SIDESFLG TOLINKS TRACKCURSOR TRACKNODE TRANSGRAPH) (P (* Was MODERNIZE loaded before?) (CL:WHEN (GETD (QUOTE MODERNWINDOW.SETUP)) (MODERNWINDOW.SETUP (QUOTE APPLYTOSELECTEDNODE)))) (* ;; "Support for EDITSUBGRAPH and EDITREGION") (FNS EDITMOVEREGION EDITMOVESUBTREE NOT.TRACKCURSOR RECURSIVE.COLLECTDESCENDENTS MOVEDESCENDENTS COLLECT.CHILD.NODES CREATE.NEW.NODEPOSITION GETBOXPOSITION.FROMINITIALREGION COLLECTDESCENDENTS)) (COMS (* ; "functions for finding larger and smaller fonts") (FNS NEXTSIZEFONT DECREASING.FONT.LIST SCALE.FONT) ( DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (DECREASING.FONT.LIST (DECREASING.FONT.LIST)))) (GLOBALVARS DECREASING.FONT.LIST)) (* ; "functions for LAYOUTGRAPH And LAYOUTLATTICE") (FNS BRH/LAYOUT BRH/LAYOUT/DAUGHTERS BRH/OFFSET BRHC/INTERTREE/SPACE BRHC/LAYOUT BRHC/LAYOUT/DAUGHTERS BRHC/LAYOUT/TERMINAL BRHC/OFFSET BRHL/LAYOUT BRHL/LAYOUT/DAUGHTERS BRHL/MOVE/RIGHT BROWSE/LAYOUT/HORIZ BROWSE/LAYOUT/HORIZ/COMPACTLY BROWSE/LAYOUT/LATTICE BRV/OFFSET EXTEND/TRANSITION/CHAIN FOREST/BREAK/CYCLES INIT/NODES/FOR/LAYOUT INTERPRET/MARK/FORMAT LATTICE/BREAK/CYCLES LAYOUTFOREST LAYOUTGRAPH LAYOUTLATTICE LAYOUTSEXPR LAYOUTSEXPR1 MARK/GRAPH/NODE NEW/INSTANCE/OF/GRAPHNODE RAISE/TRANSITION/CHAIN REFLECT/GRAPH/DIAGONALLY REFLECT/GRAPH/HORIZONTALLY REFLECT/GRAPH/VERTICALLY SWITCH/NODE/HEIGHT/WIDTH) (CONSTANTS (LINKPARAMS (QUOTE Link% Parameters))) (VARS ( DEFAULT.GRAPH.NODEBORDER) (DEFAULT.GRAPH.NODEFONT) (DEFAULT.GRAPH.NODELABELSHADE) ( ScalableLinkParameters (QUOTE (LINEWIDTH))) (CACHE/NODE/LABEL/BITMAPS) (NODEBORDERWIDTH 1) ( GRAPH/HARDCOPY/FORMAT (QUOTE (MODE PORTRAIT PAGENUMBERS T TRANS NIL)))) (INITVARS ( DEFAULT.GRAPH.WINDOWSIZE (LIST (TIMES SCREENWIDTH 0.7) (TIMES SCREENHEIGHT 0.4))) ( EDITGRAPHMENUCOMMANDS (QUOTE ((Move% Node (QUOTE MOVENODE) "Moves a single node in the graph." ( SUBITEMS (|Move Single Node| (QUOTE MOVENODE) "Moves a single node in the graph.") ( |Move Node and Subtree| (EDITMOVESUBTREE GRAPHWINDOW) "Moves a subtree of nodes relative to the movement of their root.") (Move% Region (EDITMOVEREGION GRAPHWINDOW) "Moves a group of nodes within a specified region to another region."))) ("Add Node" ( QUOTE ADDNODE)) ("Delete Node" (QUOTE DELETENODE)) ("Add Link" (QUOTE ADDLINK)) ("Delete Link" (QUOTE DELETELINK)) ("Change label" (QUOTE CHANGELABEL)) ("label smaller" (QUOTE SMALLER)) ("label larger" ( QUOTE LARGER)) ("<-> Directed" (QUOTE DIRECTED)) ("<-> Sides" (QUOTE SIDES)) ("<-> Border" (QUOTE BORDER)) ("<-> Shade" (QUOTE SHADE)) STOP)))) (LOCALVARS . T) (RECORDS GRAPHNODE GRAPH) (DECLARE%: DONTCOPY (MACROS HALF)) (COMS (* ; "Grapher image objects") (FNS GRAPHERIMAGEFNS) (FNS GRAPHERCOPYBUTTONEVENTFN GRAPHOBJ.FINDGRAPH) (FNS ALIGNMENTNODE GRAPHOBJ.CHECKALIGN) (FNS GRAPHEROBJ GRAPHOBJ.BUTTONEVENTINFN GRAPHOBJ.COPYBUTTONEVENTFN GRAPHOBJ.COPYFN GRAPHOBJ.DISPLAYFN GRAPHOBJ.GETALIGN GRAPHOBJ.GETFN GRAPHOBJ.IMAGEBOXFN GRAPHOBJ.PUTALIGN GRAPHOBJ.PUTFN) (FNS COPYGRAPH DUMPGRAPH READGRAPH) (INITVARS (GRAPHERIMAGEFNS)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (GRAPHERIMAGEFNS) )) (ALISTS (IMAGEOBJGETFNS GRAPHOBJ.GETFN))))) (CL:WHEN (GETD (QUOTE MODERNWINDOW.SETUP)) (MODERNWINDOW.SETUP (QUOTE APPLYTOSELECTEDNODE))) (RPAQ DECREASING.FONT.LIST (DECREASING.FONT.LIST)) (RPAQQ LINKPARAMS Link% Parameters) (CONSTANTS (LINKPARAMS (QUOTE Link% Parameters))) (RPAQQ DEFAULT.GRAPH.NODEBORDER NIL) (RPAQQ DEFAULT.GRAPH.NODEFONT NIL) (RPAQQ DEFAULT.GRAPH.NODELABELSHADE NIL) (RPAQQ ScalableLinkParameters (LINEWIDTH)) (RPAQQ CACHE/NODE/LABEL/BITMAPS NIL) (RPAQQ NODEBORDERWIDTH 1) (RPAQQ GRAPH/HARDCOPY/FORMAT (MODE PORTRAIT PAGENUMBERS T TRANS NIL)) (RPAQ? DEFAULT.GRAPH.WINDOWSIZE (LIST (TIMES SCREENWIDTH 0.7) (TIMES SCREENHEIGHT 0.4))) (RPAQ? EDITGRAPHMENUCOMMANDS (QUOTE ((Move% Node (QUOTE MOVENODE) "Moves a single node in the graph." (SUBITEMS (|Move Single Node| (QUOTE MOVENODE) "Moves a single node in the graph.") ( |Move Node and Subtree| (EDITMOVESUBTREE GRAPHWINDOW) "Moves a subtree of nodes relative to the movement of their root.") (Move% Region (EDITMOVEREGION GRAPHWINDOW) "Moves a group of nodes within a specified region to another region."))) ("Add Node" ( QUOTE ADDNODE)) ("Delete Node" (QUOTE DELETENODE)) ("Add Link" (QUOTE ADDLINK)) ("Delete Link" (QUOTE DELETELINK)) ("Change label" (QUOTE CHANGELABEL)) ("label smaller" (QUOTE SMALLER)) ("label larger" ( QUOTE LARGER)) ("<-> Directed" (QUOTE DIRECTED)) ("<-> Sides" (QUOTE SIDES)) ("<-> Border" (QUOTE BORDER)) ("<-> Shade" (QUOTE SHADE)) STOP))) (RECORD GRAPHNODE (NODEID NODEPOSITION NODELABELBITMAP NIL NODELABELSHADE NODEWIDTH NODEHEIGHT TONODES FROMNODES NODEFONT NODELABEL NODEBORDER) NODEBORDER _ DEFAULT.GRAPH.NODEBORDER NODELABELSHADE _ DEFAULT.GRAPH.NODELABELSHADE NODEFONT _ DEFAULT.GRAPH.NODEFONT) (RECORD GRAPH (GRAPHNODES SIDESFLG DIRECTEDFLG GRAPH.MOVENODEFN GRAPH.ADDNODEFN GRAPH.DELETENODEFN GRAPH.ADDLINKFN GRAPH.DELETELINKFN GRAPH.FONTCHANGEFN GRAPH.INVERTBORDERFN GRAPH.INVERTLABELFN GRAPH.CHANGELABELFN . GRAPH.PROPS)) (RPAQ? GRAPHERIMAGEFNS) (GRAPHERIMAGEFNS) (ADDTOVAR IMAGEOBJGETFNS (GRAPHOBJ.GETFN)) (PUTPROPS GRAPHER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 2018 2021)) NIL