1
0
mirror of synced 2026-04-16 00:50:53 +00:00
Files
Interlisp.medley/library/GRAPHER.LCOM

1220 lines
64 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "14-Apr-2026 22:19:32" ("compiled on " {DSK}<home>frank>il>medley>library>GRAPHER.;3)
"12-Apr-2026 15:47:55" tcompl'd in "APPS 12-Apr-2026 ..." dated "12-Apr-2026 15:48:03")
(FILECREATED "14-Apr-2026 22:19:19" {DSK}<home>frank>il>medley>library>GRAPHER.;3 215302 :EDIT-BY
"FGH" :CHANGES-TO (FNS DISPLAYLINK/RL DISPLAYLINK/LR DISPLAYLINK/BT DISPLAYLINK/TB) :PREVIOUS-DATE
"14-Mar-2021 20:40:30" {DSK}<home>frank>il>medley>library>GRAPHER.;1)
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
H´OAoCB ¿BY™@ABClI¿Ah¿AH¿Ai
¿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 Xd¡H
d@¿°ïHhA
hdQµRB
(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
²;C³5@Ab¿Hb@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)) kAC™C3”C3§ob¿Ag
bd ´
nýèA
°,A
¹@AI b¿ICê ICê b¿IX¿@ Zlñ²J »@Œd\LK ¿µò@<01>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)) ÀDd²j­A @ ñ<>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)) ƒFg'!Hd” ¹H²oHo ¿Igº@AØ@A kÙØ@BØ@B kØØFgkDEFg'Fg'Fl
J(90 GN/TOP 72 GN/BOTTOM 45 PROMPTPRINT 40 CONCAT 17 GETD)
(121 DASHING 114 COLOR 99 LINEWIDTH 56 DRAWLINE 5 DRAWLINKFN)
( 35 " NOT FOUND" 29 "DISPLAYLINK: DRAWLINKFN ")
DISPLAYLINK/LR :D8
(L (6 PARAMS 5 STREAM 4 OPERATION 3 WIDTH 2 GNR 1 GNL 0 TRANS)) ƒFg'!Hd” ¹H²oHo ¿Igº@A kÙØ@AØ@B kØØ@BØFgkDEFg'Fg'Fl
J(83 GN/RIGHT 65 GN/LEFT 45 PROMPTPRINT 40 CONCAT 17 GETD)
(121 DASHING 114 COLOR 99 LINEWIDTH 56 DRAWLINE 5 DRAWLINKFN)
( 35 " NOT FOUND" 29 "DISPLAYLINK: DRAWLINKFN ")
DISPLAYLINK/RL :D8
(L (6 PARAMS 5 STREAM 4 OPERATION 3 WIDTH 2 GNL 1 GNR 0 TRANS)) ƒFg'!Hd” ¹H²oHo ¿Igº@A kØØ@AØ@B kÙØ@BØFgkDEFg'Fg'Fl
J(83 GN/LEFT 65 GN/RIGHT 45 PROMPTPRINT 40 CONCAT 17 GETD)
(121 DASHING 114 COLOR 99 LINEWIDTH 56 DRAWLINE 5 DRAWLINKFN)
( 35 " NOT FOUND" 29 "DISPLAYLINK: DRAWLINKFN ")
DISPLAYLINK/TB :D8
(L (6 PARAMS 5 STREAM 4 OPERATION 3 WIDTH 2 GNB 1 GNT 0 TRANS)) ƒFg'!Hd” ¹H²oHo ¿Igº@AØ@A kØØ@BØ@B kÙØFgkDEFg'Fg'Fl
J(90 GN/BOTTOM 72 GN/TOP 45 PROMPTPRINT 40 CONCAT 17 GETD)
(121 DASHING 114 COLOR 99 LINEWIDTH 56 DRAWLINE 5 DRAWLINKFN)
( 35 " NOT FOUND" 29 "DISPLAYLINK: 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)) <00>A µ
Ag
hðµV@Hjðµ
H´H d³7ddABµ<@ 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!@ !KµD©@ 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ðµ.@diðž¿ABCDkhE
d3 ²jñhðµABCD@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)) UGµnÿÿbF@ADCE
GF@DÔACÔDÕBDdÔÕDE
GF@DÔABDdÔÕDE
GF@BÔDÕADCE
(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 ²DJJ»JKAHI
¿JI
¿I J
¿JAHI K
°OBµ`¼oL
¿CJkCµJL
¿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*) l`bd B¢±9o!oD
¿D ¿oD
¿D BC
H`
` C
oD
¿D `VL gð´K­IC
¿¿IC
H`
` IJCBl@´yo`
¿EIkEµI `
¿o`
¿EJkEµJ `
¿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 ÉH«o ho`
¿@gð•o„o`
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#H«o h`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 É2H«o ho HI
i oi
i i JI
hdoJ [h g𢱔JI
¿JoIH ¿J h
°d¼JLH
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@d³ddddddddddddbA
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`
¿¿`låjð³ð`kåjð³c`TI gð´Hµ4` ¿` ¿o`
¿` °[gð²S@g
—@ °7` ¿o`
¿` ¿o`
¿¿`låKjðµ
K´K ²Þ±ÿ(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
SJd¢±ë¾¿o`
¿o`
¿o`
¿NhH
[
½L—LH
¿Md—H
¿M¼¿`lå_jð³zO˜O ³lL—LH
¿` ¿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 É"H«o ho HI
i oi
i i JgTH H²H»JHTlKJ(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) <00>Tg
T É"H«o ho HI
i oi
i i JgT H²H»JHTlKJ(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@dið”¿nÿÿ<C3BF>¡j¸hddFAEØBEØCEdØÙDEdØÙggH
h(68 BKBITBLT 16 DISPLAYSTREAMP 9 WINDOWP)
(61 INVERT 56 TEXTURE)
()
FIX/SCALE :D8
(L (1 SCALE 0 PARAMVALUE)) .@²"0dA
¸HhZ<>H&¹µêJA@ê (43 FIXR 17 FIX/SCALE)
NIL
()
FLIPNODE :D8
(L (1 DS 0 NODE)) >hddA@ kÙ@ kÙ@lØ@lØggnÿÿ
(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²/@d²dgðšB
µ:@B
µ1o@
@dŸdgð–Aµ@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)) @@kØâkÙØNIL
NIL
()
GN/TOP :D8
(L (0 NODE)) @@kØâkÙØNIL
NIL
()
GRAPHADDLINK :D8
(L (3 WINDOW 2 GRAPH 1 TO 0 FROM)) ABH™@ABClH¿AH@H@HAHNIL
NIL
()
GRAPHADDNODE :D8
(L (1 W 0 GRAPH)) . @X—@AlH‡@Ai Y¡h@dIh
I(41 \NCONC2 26 DEFAULT.ADDNODEFN)
NIL
()
GRAPHBUTTONEVENTFN :D8
(L (4 REG 3 MIDDLEFNOFNODE 2 LEFTFNOFNODE 1 GRAPH 0 WINDOW)) à@ A@ R`dlåjð®¿B´‚±¥g°kåjð±•C´‚±<00>gºHhI
[
½L—LI
¿Md—I
¿M¼¿`låjð²/L—LI
¿Jdgð¿B<C2BF>gðC„¾L@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˜@ABlH¿A@A
h(29 DREMOVE)
NIL
()
GRAPHEDITCOMMANDFN :D8
(I 0 GRAPHWINDOW F 2 EDITGRAPHMENU F 3 EDITGRAPHMENUCOMMANDS) %R°@`dS¿di ¿di¿dg ¿dg¿jdnÿdhHdI
¿c dgð•gdgð—¿@ dgð—¿@ dgð—¿@ dgð—¿@ dgðœ¿g@
dgðœ¿g@
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
ACHÙkØlÛØBDE ÈÙE È ØlÛØE @E
h(69 PRIN3 62 MOVETO 49 FONTCREATE 40 FONTCREATE 19 STRINGWIDTH 10 \GETSTREAM)
(5 OUTPUT)
()
GRAPHERPROP :D8
(L (2 NEWVALUE 1 PROP 0 GRAPH)) 9@B´hAB @É¿A
(54 GETPROP 28 PUTPROP)
NIL
()
GRAPHNODE/BORDER/WIDTH :D8
(L (0 BORDER)) 4jdiðk3 @ @µo@
3 ²ñj@ñ³ë@(35 ERROR 19 ABS)
NIL
( 29 "Illegal border:")
GRAPHREGION :D8
(L (0 GRAPH)) G@!jddd d ¿µöH YH ZH IÙkØH JÙkØ (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<g'gðñàAd²dg
™¿A µABoH´o
¹hI
ºhI
»@d ›¿@g
\ ]¾M_¿M_¿M_¿W<g'_¿jlHÖW<goÖ _¿jlHÖW<goÖ _¿KJ× OÕ_¿KJ× OÕ_¿OO
_¿OO
_ ¿JOoOÖÔÖ _"¿JOoOÖÔÖ _$¿h_*¿Cµ‚± W<g'_*_(µ‚±ÝOOOO
ÕÔl×_&¿OOOO
ÕÔl×_,¿jdJOÖ JOÖ _.¿LI
_0¿jI
jI
KI
lKÖI
O.I
O k_:¿_8¿O:O8ó±Ok_6¿_4¿O6O4ó±ôJO,jNÕÔjO6kÙOÖÕÔê JO&jOÕÔjO:kÙOÖÕÔê _2¿O0°H3¢±ÿ"O(3¢±ÿO*_&¿O*±ÿ43¢±þóC3¢±þëC_&¿C±ÿdO2IO0iJ
¿µîO0<01>dO2IO. ¿µñO6OÿO:O ÿ³GO²<KI
¿O"O$I ¿O:I
¿oI
¿O6I
¿O.I
¿I ¿O6kÔ_6±ÿ O:kÔ_:±þðI (753 CLOSEF 728 DSPNEWPAGE 721 DSPCLIPPINGREGION 712 PRIN1 703 PRIN1 691 PRIN1 682 MOVETO 671 DSPCLIPPINGREGION 642 PRINTDISPLAYNODE 621 DISPLAYNODELINKS 544 FIXR 520 FIXR 461 DSPCLIPPINGREGION 453 DSPRIGHTMARGIN 440 DSPTOPMARGIN 429 DSPBOTTOMMARGIN 422 DSPLEFTMARGIN 412 SCALE/GRAPH 402 CREATEREGION 397 FIXR 388 FIXR 369 REMAINDER 348 REMAINDER 301 FIXR 280 FIXR 259 CL:CEILING 247 CL:CEILING 232 FIXR 214 FIXR 200 FIXR 172 FIXR 112 GRAPHREGION 106 GETWINDOWUSERPROP 93 WINDOWP 85 DSPCLIPPINGREGION 77 DSPSCALE 69 OPENIMAGESTREAM 64 \APPEND2 42 GETSTREAM 34 OPENP)
(323 TRANS 186 UPPERMARGIN 158 RIGHTMARGIN 143 PAGENUMBERS 101 GRAPH 29 OUTPUT 12 LANDSCAPE 6 MODE)
( 697 "-" 291 0.5 270 0.2 194 0.4 166 0.5 59 (LANDSCAPE T) 51 (CLIP.INCLUSIVE T))
INTERSECT/REGIONP/LBWH :D8
(L (6 NODE 5 HOW 4 REG 3 H 2 W 1 B 0 L)) PEgð².DACØñµ"DDØ@ýñµD@BØñµDDØAýñhðD@ABCh
@ABChô(67 INTERSECTREGIONS)
(5 PARTIAL)
()
INVERTED/GRAPHNODE/BORDER :D8
(L (0 BORDER)) +@diðhµi3 “j@Ù@´@3 ´@@ h(37 INVERTED/SHADE/FOR/GRAPHER)
NIL
()
INVERTED/SHADE/FOR/GRAPHER :D8
(L (0 SHADE)) G@diðhµi3 ”@mÿæo@
 nÿÿHhdddg
H(67 BLTSHADE 45 BITMAPCOPY 39 ERROR)
(61 INVERT 24 BITMAP)
( 33 "Illegal shade:")
LAYOUT/POSITION :D8
(L (0 NODE)) @NIL
NIL
()
LINKPARAMETERS :D8
(L (1 TOND 0 FROMND)) %A@
XdŸ´Hgð´H(15 MEMBTONODES 10 TOLINKS)
(28 Link% Parameters)
()
MAX/RIGHT :D8
(L (0 NODES)) @!HµI ºI“JIóJ¹HX°é(15 GN/RIGHT)
NIL
()
MAX/TOP :D8
(L (0 NODES)) @!HµI ºI“JIóJ¹HX°é(15 GN/TOP)
NIL
()
MEASUREGRAPHNODE :D8
(L (1 RESETFLG 0 NODE)) @A
@dµ
o@
(28 SET/LAYOUT/POSITION 23 ERROR 6 SET/LABEL/SIZE)
NIL
( 17 "This graphnode has not been given a position:")
MEMBTONODES :D8
(L (1 TONODES 0 TOND)) -AHµh¹@Ið³IµHX°ígð²ô@Ið²íINIL
(31 Link% Parameters)
()
MIN/BOTTOM :D8
(L (0 NODES)) @!HµI ºI“IJóJ¹HX°é(15 GN/BOTTOM)
NIL
()
MIN/LEFT :D8
(L (0 NODES)) @!HµI ºI“IJóJ¹HX°é(15 GN/LEFT)
NIL
()
MOVENODE :D8
(L (4 STREAM 3 GRAPH 2 POS 1 OLDPOS 0 NODE)) 7ABôh@D
@oDC @B
@oDC @D
(52 FLIPNODE 45 DISPLAYNODE 32 SET/LAYOUT/POSITION 25 DISPLAYNODE 12 FLIPNODE)
NIL
( 38 (0 . 0) 18 (0 . 0))
NODECREATE :D8
(L (7 LABELSHADE 6 BORDER 5 FONT 4 FROMNODEIDS 3 TONODEIDS 2 POS 1 LABEL 0 ID) F 3 DEFAULT.GRAPH.NODEFONT F 4 DEFAULTFONT) 90@BhdAºEµA hˆT ¹GhdCDJ¸IHFh(29 FONTNAMELIST 17 IMAGEOBJP)
NIL
()
NODELST/AS/MENU :D8
(L (1 POS 0 NODELST)) Q@AA3Hµh[\Kâ]ÙJýñ²)JLMØýñ²!K\Kâ]ÙIýñILMØýñ”KµiHX°»NIL
NIL
()
NODEREGION :D8
(L (0 NODE)) "@ @ @@ (31 CREATEREGION 11 GN/BOTTOM 5 GN/LEFT)
NIL
()
PRINTDISPLAYNODE :D8
(L (3 CLIP/REG 2 STREAM 1 TRANS 0 NODE) F 12 CACHE/NODE/LABEL/BITMAPS)  @Hjðµ
H´H µ‚±j@± A@ Ø_¿A@ Ø_¿@_¿@_¿@_¿@ ¾B šB Éb¿C²OOOOCg
¡@@ŸI<C5B8>@jdBOO±¶HdòN¿H´JNjð³:@OOOOB
¿HjdBONØONØH H ±pHjdBOO±a ²xNjð³+N—N ³@OOOOB
¿Hg
ºHBjOlJ»NOØKØNOØKØB ¿Hg
¼HBlL¿±óOdgð²"¿lhB
Ú½nÿÿBOOMd
¿±È´‚±ÃO ®OhddB
_¿Njð³@OOOOB
¿OB
¿HOOOOB
¿@²@OOOONB
¿W´LB ´DC´AOOOOCg
´+@OO
¿BOO@jdOOg
h(647 BKBITBLT 619 BITMAPCREATE 605 INTERSECT/REGIONP/LBWH 580 DISPLAYSTREAMP 569 FILL/GRAPHNODE/LABEL 538 GRAPHER/CENTERPRINTINAREA 521 DSPFONT 512 DRAW/GRAPHNODE/BORDER 476 FONTCREATE 463 FONTP 446 BLTSHADE 428 DSPSCALE 395 IMAGEOBJPROP 383 MOVETO 346 IMAGEOBJPROP 334 DRAW/GRAPHNODE/BORDER 304 \FZEROP 287 IMAGEOBJP 268 BITMAPHEIGHT 262 BITMAPWIDTH 243 DRAW/GRAPHNODE/BORDER 167 INTERSECT/REGIONP/LBWH 139 \INSUREWINDOW 132 WINDOWP 125 GRAPHNODE/BORDER/WIDTH 68 GN/BOTTOM 56 GN/LEFT 26 \FZEROP)
(641 INPUT 599 WHOLE 415 SHADE 390 DISPLAYFN 341 IMAGEBOXFN 204 BITMAP 180 BITMAP 161 PARTIAL)
()
PROMPTINWINDOWA0003 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 PREVTTY F 3 SI::NLSETQ-VALUE) i@hddRhdl
h
hcg(20 PROMPTFORWORD)
(29 :NORMAL)
()
PROMPTINWINDOW :D8
(L (3 BORDERSIZE 2 WHICHCORNER 1 POSITION 0 PROMPTSTR) P 10 SI::*NLSETQFLAG* P 9 *PROCEED-CASES* P 8 SI::NLSETQ-VALUE P 6 PREVTTY F 11 WindowTitleDisplayStream F 12 *PROCEED-CASES*) Ü C3µlAµX`AµM`Sg È
lÚiH [@W
dl<ñ¢¿l<H
\gB
™ILÕ†°¹°®IgB
“JKÕ€JLK @H ^É_¿jOñ¢O€jN
N `W
O gð´O]N (215 ERROR! 207 CLOSEW 188 PROMPTINWINDOWA0003 167 MOVETOUPPERLEFT 161 DSPLEFTMARGIN 136 CARET 130 CREATEW 123 CREATEREGION 110 MEMB 87 MEMB 75 WIDTHIFWINDOW 61 STRINGWIDTH 52 HEIGHTIFWINDOW 40 FONTCREATE 35 DEFAULTFONT)
(194 :NORMAL 175 SI::NLSETQ-PROCEED-CASE 141 CURSOR 104 TOP 81 RIGHT 30 DISPLAY 22 LASTMOUSEY 14 LASTMOUSEX)
()
READ/NODE :D8
(L (1 DS 0 NODES)) hA
¿`låjð³ðHhA
²á@@hA
Z
¸I—IA
¿Hd—A
¿H¹¿`lå[jð³#KµI@hAJ
Xð²Á°Õ ²æIdA
I(144 FLIPNODE 133 \FZEROP 122 NODELST/AS/MENU 117 CURSORPOSITION 88 GETMOUSESTATE 80 FLIPNODE 70 FLIPNODE 60 NODELST/AS/MENU 54 CURSORPOSITION 40 INSIDEP 35 CURSORPOSITION 14 GETMOUSESTATE 6 DSPCLIPPINGREGION)
(94 LASTMOUSEBUTTONS 20 LASTMOUSEBUTTONS)
()
REDISPLAYGRAPH :D8
(L (1 REGION 0 WINDOW)) )hdg@ @g
@Ad¥@
(38 DISPLAYGRAPH 33 DSPCLIPPINGREGION 23 GETWINDOWUSERPROP 12 DSPFILL)
(18 GRAPH 6 REPLACE)
()
REMOVETONODES :D8
(L (1 TONODES 0 TOND)) :AAHµI\@ð³!Ld²dgð—¿@Lð©L»Jµ KhZ¹HX°ÓK&º°øNIL
(27 Link% Parameters)
()
RESET/NODE/BORDER :D8
(L (4 TRANS 3 GRAPH 2 STREAM 1 BORDER 0 NODE)) ©@ D§ob¿B²-@BD ¿C³B <00>Bg
b¿@DBC ¿@Adgð²¿@ @hH@ Ùjð§@i
¿B˜@DBC @(165 DISPLAYNODE 153 SET/LABEL/SIZE 142 GRAPHNODE/BORDER/WIDTH 117 INVERTED/GRAPHNODE/BORDER 75 DISPLAYNODELINKS 63 GETWINDOWUSERPROP 51 WINDOWP 41 ERASE/GRAPHNODE 17 GRAPHNODE/BORDER/WIDTH)
(95 INVERT 58 GRAPH)
( 27 (0 . 0))
RESET/NODE/LABELSHADE :D8
(L (3 TRANS 2 STREAM 1 SHADE 0 NODE)) GB˜@BC ¿@Adgð›¿@ @h@CµoBhB
@(67 PRINTDISPLAYNODE 62 DSPCLIPPINGREGION 36 INVERTED/SHADE/FOR/GRAPHER 9 ERASE/GRAPHNODE)
(22 INVERT)
( 54 (0 . 0))
SCALE/GRAPH :D8
(L (1 STREAM 0 GRAPH)) º hA
@g'HgðµH´ gH´iB0@±d]»Mºh¼MHMê HM°HMKâÙê HMJâÙê MMMhdMhddA
¼MH
MLMMH
M]hA ¿I³'MMMâÔ¿MMMâÔ¿M¾OµNh_<10>N&_¿µ±þÿO@@@@@@@@@@@@(257 SET/LABEL/SIZE 224 SCALE/GRAPHNODE/BORDER 182 SCALE/TONODES 174 FONTCREATE 135 FIXR 121 FIXR 100 FIXR 6 DSPSCALE)
(46 VERTICAL 34 VERTICAL 24 FORMAT)
()
SCALE/GRAPHNODE/BORDER :D8
(L (1 SCALE 0 BORDER) F 0 NODEBORDERWIDTH) 7jdið™¿APê 3 ˜A@ê @´@3 ´A@ê @(49 FIXR 29 FIXR 17 FIXR)
NIL
()
SCALE/TONODES :D8
(L (1 SCALE 0 NODE) F 7 ScalableLinkParameters) a@@°Odd² dgð²h
[´
W!LµK¸Iµ#Hh½KM'^žKMNA
¿L\°ØH&¹µ²J(80 LISTPUT 75 FIX/SCALE 35 \APPEND2)
(26 Link% Parameters)
()
SET/LABEL/SIZE :D8
(L (2 STREAM 1 RESET/FLG 0 NODE)) K@3 ´@3 µ‚±.hB
@@@ 4Jdò@¿J´<Hkð®HJ ê µJ ¼Hkð³HJ ê µ‚±…J °| ²Jg
¾JBlN\½L¼°ZIdgð¿l]¼°J¥j]\»°CI «IhddB
¹@I
I È Ø¼I È
I È Ø½A©@3 ¬@LKØKØ¿A¬@d3 ®¿@MKØKØ@(270 FONTCREATE 262 FONTCREATE 252 FONTCREATE 246 STRINGWIDTH 227 FONTCREATE 215 FONTP 169 IMAGEOBJPROP 156 IMAGEOBJP 149 BITMAPHEIGHT 137 FIXR 131 BITMAPHEIGHT 118 BITMAPWIDTH 110 FIXR 104 BITMAPWIDTH 77 GRAPHNODE/BORDER/WIDTH 36 DSPSCALE)
(193 SHADE 164 IMAGEBOXFN 87 BITMAP)
()
SET/LAYOUT/POSITION :D8
(L (1 POS 0 NODE)) @A@A@NIL
NIL
()
SHOWGRAPH :D8
(L (7 CENTERFLG 6 COPYBUTTONEVENTFN 5 ALLOWEDITFLG 4 TOPJUSTIFYFLG 3 MIDDLEBUTTONFN 2 LEFTBUTTONFN 1 WINDOW 0 GRAPH)) Û@d³ddddddddddddb
E´oDG bdg@ Agg Agg Agg gA
¿Agg†Agh ¿Agg Agg AgB AgC A A(215 REDISPLAYGRAPH 209 PUTWINDOWPROP 197 PUTWINDOWPROP 185 PUTWINDOWPROP 169 PUTWINDOWPROP 149 PUTWINDOWPROP 124 DSPOPERATION 110 PUTWINDOWPROP 94 PUTWINDOWPROP 78 PUTWINDOWPROP 62 PUTWINDOWPROP 48 SIZE/GRAPH/WINDOW)
(203 BROWSER/MIDDLEFN 191 BROWSER/LEFTFN 180 APPLYTOSELECTEDNODE 175 BUTTONEVENTFN 164 GRAPHERCOPYBUTTONEVENTFN 156 COPYBUTTONEVENTFN 143 RIGHTBUTTONFN 136 GRAPHEDITEVENTFN 131 RIGHTBUTTONFN 118 INVERT 105 HARDCOPYGRAPH 100 HARDCOPYFN 89 SCROLLBYREPAINTFN 84 SCROLLFN 73 REDISPLAYGRAPH 68 REPAINTFN 56 GRAPH)
( 40 "Graph Editor Window")
SIZE/GRAPH/WINDOW :D8
(L (3 CENTERFLG 2 TOPJUSTIFYFLG 1 WINDOW/TITLE 0 GRAPH) F 5 DEFAULT.GRAPH.WINDOWSIZE) ò@ AAd “¿AZ<41>¹J³lHdldñ¢¿ldU »dKñ¿Kd`ñ•¿` Hdl<ñ¢¿l<U ¼dLñ¿Ld`ñ•¿`I
I
Z‡J ¿JgH C´hJ
HHâØJg
âÙ‡J
HÙJ
hJ
HHØJg
ÙHÙJ
J(238 WYOFFSET 226 GETWINDOWPROP 203 WYOFFSET 196 WXOFFSET 187 WXOFFSET 178 GETWINDOWPROP 159 WXOFFSET 149 PUTWINDOWPROP 136 CLEARW 128 CREATEW 122 GETBOXREGION 117 HEIGHTIFWINDOW 90 FIXR 69 WIDTHIFWINDOW 43 FIXR 15 WINDOWP 5 GRAPHREGION)
(221 HEIGHT 173 WIDTH 143 EXTENT 111 SCREENHEIGHT 103 SCREENHEIGHT 64 SCREENWIDTH 56 SCREENWIDTH)
()
TOGGLE/DIRECTEDFLG :D8
(L (0 WIN)) 9@g
@g
hd@
g@ @ (54 REDISPLAYGRAPH 48 DSPFILL 37 DSPTEXTURE 23 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(42 REPLACE 18 GRAPH 5 GRAPH)
()
TOGGLE/SIDESFLG :D8
(L (0 WIN)) 7@g
@g
hd@
g@ @ (52 REDISPLAYGRAPH 46 DSPFILL 35 DSPTEXTURE 22 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(40 REPLACE 17 GRAPH 5 GRAPH)
()
TOLINKS :D8
(L (0 NODE)) @NIL
NIL
()
TRACKCURSOR :D8
(L (2 GRAPH 1 DS 0 ND)) P@d¢±®@Y@A
X@A
J²"¿`lå[jð³KK²/K °%¿`lå\jðµ
L´L hðZ@dhAH BA
¿°£@A
I@Xô³$A @
¿@HBA I
h(178 CALL.MOVENODEFN 171 WFROMDS 161 EXTENDEXTENT 156 NODEREGION 150 WFROMDS 136 FLIPNODE 126 MOVENODE 118 CURSORPOSITION 99 \FZEROP 74 GETMOUSESTATE 67 \FZEROP 42 GETMOUSESTATE 34 FLIPNODE 26 CURSORPOSITION)
(80 LASTMOUSEBUTTONS 48 LASTMOUSEBUTTONS)
()
TRACKNODE :D8
(L (0 W)) 2@g
h@
@ É@g
(47 TRACKCURSOR 42 GETWINDOWUSERPROP 29 \INSUREWINDOW 23 NODELST/AS/MENU 18 CURSORPOSITION 10 GETWINDOWUSERPROP)
(37 GRAPH 5 GRAPH)
()
TRANSGRAPH :D8
(L (2 Y 1 X 0 GRAPH)) 4@@°%d[AKÔBKÔK¸HhZ<>H&¹µÜJ@NIL
NIL
()
EDITMOVEREGION :D8
(L (0 Window))  @ «@o
o @ É1@ »@g
ZALµM¹J³H@o
°H_¿KO
­KO
<00>O_¿Nµ
Oh^½L\°¹O&¾°÷Iµo ¿I‰dH
¿µõI@KH "Lµh^_¿NONMKÕMKÕ JH
¿H N
¿NH
¿L\°º(250 FLIPNODE 242 EXTENDEXTENT 237 NODEREGION 231 WFROMDS 224 MOVENODE 216 CREATE.NEW.NODEPOSITION 180 GETBOXPOSITION.FROMINITIALREGION 166 FLIPNODE 155 PROMPTPRINT 116 SUBREGIONP 111 NODEREGION 102 INTERSECTREGIONS 97 NODEREGION 83 ERROR 57 GETWINDOWUSERPROP 45 GETWREGION 34 \INSUREWINDOW 28 PROMPTPRINT 17 ERROR 5 WINDOWP)
(52 GRAPH)
( 150 "No nodes in the region selected." 78 " not a graph window." 23 " Select the region containing the nodes you wish to move."
12 " not a window.")
EDITMOVESUBTREE :D8
(L (0 WINDOW)) ;@ É@ É@g
SJd¢±¾` ¿o`
¿o`
¿o`
¿o`
¿NhH
[
½L—LH
¿Md—H
¿M¼¿`lå_jð³zO˜O ³lL—LH
¿` ¿o`
¿o`
¿o`
¿LHJ ¿` ¿o`
hLNhHK
]ð¢±ÿL±ÿ_(304 NODELST/AS/MENU 299 CURSORPOSITION 287 PRIN1 271 TERPRI 260 NOT.TRACKCURSOR 251 PRIN1 235 PRIN1 219 PRIN1 203 TERPRI 192 FLIPNODE 181 \FZEROP 154 GETMOUSESTATE 146 FLIPNODE 136 FLIPNODE 126 NODELST/AS/MENU 120 CURSORPOSITION 111 PRIN1 95 PRIN1 79 PRIN1 63 PRIN1 47 TERPRI 26 GETWINDOWUSERPROP 13 \INSUREWINDOW 5 \INSUREWINDOW)
(282 PROMPTWINDOW 266 PROMPTWINDOW 246 PROMPTWINDOW 230 PROMPTWINDOW 214 PROMPTWINDOW 198 PROMPTWINDOW 160 LASTMOUSEBUTTONS 106 PROMPTWINDOW 90 PROMPTWINDOW 74 PROMPTWINDOW 58 PROMPTWINDOW 42 PROMPTWINDOW 21 GRAPH)
( 277 "Done." 241 "and release the button." 225 "move the node to its new position" 209 "Holding the button down, "
101 "and press any button." 85 "the subtree you want to move " 69 "that is the common root of " 53 "Move the cursor to the node ")
NOT.TRACKCURSOR :D8
(L (2 Graph 1 DisplayStream 0 Node)) Í

o B
a@H@  OµtO¾A NA ]NÕ¼MNÕ»@º@LK ¹JIô³?@JIBA
¿A @
¿@JBA I
¿HB@ALK
¿@H°/_A
¿OO
_¿O_±ÿkdA
¿µõh(196 FLIPNODE 177 UNIONREGIONS 172 NODEREGION 162 FLIPNODE 147 MOVEDESCENDENTS 133 CALL.MOVENODEFN 126 WFROMDS 116 EXTENDEXTENT 111 NODEREGION 105 WFROMDS 98 MOVENODE 81 CREATE.NEW.NODEPOSITION 56 GETBOXPOSITION.FROMINITIALREGION 49 WFROMDS 31 NODEREGION 19 COLLECTDESCENDENTS 12 PROMPTPRINT)
NIL
( 7 "No node selected.")
RECURSIVE.COLLECTDESCENDENTS :D8
(L (1 Graph 0 Node)) I@d<03>gi @A
!HµIZd<03>g
¯IJdA

¹HX°Ö(65 \NCONC2 59 RECURSIVE.COLLECTDESCENDENTS 49 NC.GraphNodeIDGetProp 23 COLLECT.CHILD.NODES 16 NC.GraphNodeIDPutProp)
(44 Visited 10 Visited)
()
MOVEDESCENDENTS :D8
(L (4 deltaY 3 deltaX 2 DisplayStream 1 Node 0 Graph)) eA@
Ah"HµhZCD »JdI
³8I¹JdK@B
¿B J
¿JK@B J
¿HX°¬(93 CALL.MOVENODEFN 84 WFROMDS 74 EXTENDEXTENT 69 NODEREGION 63 WFROMDS 56 MOVENODE 37 MEMBER 27 CREATE.NEW.NODEPOSITION 6 COLLECTDESCENDENTS)
NIL
()
COLLECT.CHILD.NODES :D8
(L (1 Graph 0 Node)) /@A2HµJI
¼Kµ Lh[ºHX°èL&»°ø(26 GETNODEFROMID)
NIL
()
CREATE.NEW.NODEPOSITION :D8
(L (2 deltaY 1 deltaX 0 Node)) @AHÔBHÔNIL
NIL
()
GETBOXPOSITION.FROMINITIALREGION :D8
(L (2 DisplayStream 1 Region 0 Window)) VAAA@ ÉÔ@ É,ÔhB
ÕA@ ÉÔ@ É,ÔhB
Õ@o
(83 GETBOXPOSITION 68 DSPCLIPPINGREGION 58 \INSUREWINDOW 47 \INSUREWINDOW 36 DSPCLIPPINGREGION 26 \INSUREWINDOW 16 \INSUREWINDOW)
NIL
( 77 "Select new region for nodes.")
COLLECTDESCENDENTSA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 Node F 2 Graph F 3 Descendents) ohdPcQR
c(19 RECURSIVE.COLLECTDESCENDENTS)
NIL
( 4 (PROGN (for VisitedNode in (CONS Node Descendents) bind VisitedNodeID do (NC.GraphNodeIDPutProp (if (LISTP (SETQ VisitedNodeID (fetch (GRAPHNODE NODEID) of VisitedNode))) then (CAR VisitedNodeID) else VisitedNodeID) (QUOTE Visited) NIL))))
COLLECTDESCENDENTS :D8
(P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 Descendents I 1 Graph I 0 Node F 4 LISPXHIST) !T!g ¿$(26 SI::RESETUNWIND 21 \MVLIST 16 COLLECTDESCENDENTSA0001)
(11 SI::RESETUNWIND)
()
NEXTSIZEFONT :D8
(L (1 NOWFONT 0 WHICHDIR)) mA È
!@gð²<H` È
ýñ´4`Yµh²HI È
ýñ§I I°ß`Zµhd È
Hýó³ß¿J°é(95 FONTCREATE 72 FONTNAMELIST 60 FONTCREATE 31 FONTCREATE 5 FONTCREATE)
(82 DECREASING.FONT.LIST 42 DECREASING.FONT.LIST 25 DECREASING.FONT.LIST 16 LARGER)
()
DECREASING.FONT.LIST :D8
NIL +@o°d»gK
¸HhZ<>H&¹µäJ(23 FONTCREATE)
(17 HELVETICA)
( 7 (18 14 12 10 8 5))
SCALE.FONT :D8
(L (1 STR 0 WID)) =@A`
oÖóh`Hµg¹AI
@ó¡IHX°æ(49 STRINGWIDTH 12 STRINGWIDTH)
(39 SHADE 27 DECREASING.FONT.LIST 6 DECREASING.FONT.LIST)
( 17 1.5)
BRH/LAYOUT :D8
(L (4 GN 3 MOMLST 2 Y 1 X 0 N) F 4 PERSONALD F 5 MOTHERD) `DDTDØDCDAIâØhH²#JHAIØUØB@h [ñšHJKÙâ
<00>KZ¿DBJâØJ(80 BRH/OFFSET 67 BRH/LAYOUT/DAUGHTERS)
NIL
()
BRH/LAYOUT/DAUGHTERS :D8
(L (3 MOMLST 2 Y 1 X 0 DS) F 3 NODELST) )@BHµIBÙºIJAICJS
عHX°à(32 BRH/LAYOUT 26 GETNODEFROMID)
NIL
()
BRH/OFFSET :D8
(L (1 YINC 0 NODEIDS) F 1 NODELST) 1@°*dHQ
XH¿HA
µ×h(40 BRH/OFFSET 14 GETNODEFROMID)
NIL
()
BRHC/INTERTREE/SPACE :D8
(L (1 BTC 0 TTC)) [o1@@b¿»AAb¿¹KIÙZHñJ¸A¡H@²ýAd@Ùjð²Ab¿¹@@b¿[°Ô@ýñ³Â@@b¿[°ÁNIL
NIL
( 4 -1000)
BRHC/LAYOUT :D8
(L (3 GN 2 MOMLST 1 X 0 N) F 6 RETURNTTC F 7 RETURNBTC F 8 PERSONALD) nCCC3Jâ]AIØ\CBCjhHµ.CL
[CAIâØKAWKMÙJØØVc AKMÙWcKL@h °Ò(106 BRHC/LAYOUT/DAUGHTERS 60 BRHC/LAYOUT/TERMINAL)
NIL
()
BRHC/LAYOUT/DAUGHTERS :D8
(L (2 MOMLST 1 X/SW 0 DS) F 9 RETURNBTC F 10 RETURNTTC F 11 MOTHERD F 12 FAMILYD F 13 NODELST) Š @jAWØcHµ(ANNc¿MA¿NNWÔ¿Mc¿OIØOØâ[W
¼KJBL _¿NµO_¿W¾W°-W
¹LI¿WI
N
¾MWI
½HX°ƒ(130 EXTEND/TRANSITION/CHAIN 125 RAISE/TRANSITION/CHAIN 115 EXTEND/TRANSITION/CHAIN 109 RAISE/TRANSITION/CHAIN 94 BRHC/INTERTREE/SPACE 69 BRHC/LAYOUT 59 GETNODEFROMID)
NIL
()
BRHC/LAYOUT/TERMINAL :D8
(L (1 X/SW 0 GN) F 0 RETURNTTC F 1 RETURNBTC) AjhcA@hc@âNIL
NIL
()
BRHC/OFFSET :D8
(L (1 ABSY 0 N) F 1 NODELST) >@Q
AHHH¿ØbHAHØH‰dA
¿µõ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) [DdjDSDØDCDAIâØhHAIØTØB@h dJñ¡¿JºDBJâØJ(72 BRHL/LAYOUT/DAUGHTERS)
NIL
()
BRHL/LAYOUT/DAUGHTERS :D8
(L (3 MOMLST 2 Y 1 X 0 DS) F 6 NODELST) ^@BBHZµIBÙ[V
\µIKAICL
ØY¿J°Ú³L ¼JL¿IL°ÝLAh ¿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@@@B²o@
¿AIHâÙýñ³@ AHØUØ@BJµ IAHâØhV
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) @@jHµSihddddddddddºIJjIhJS
ع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@d³jh@W
¿@j
°s³@jh@W
¿@j
°SºhhhddWjd@hWJWh]Wc¿M^jWÙhM ¿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) @@jHµSihddddddddddºIJjIhJS
عHX°É(55 BRHL/LAYOUT 49 GETNODEFROMID)
NIL
()
BRV/OFFSET :D8
(L (1 ABSX 0 N) F 2 NODELST F 3 TERMY) C@R
AHHH¿ØbHYAIØIdH‰dA
¿µõh(58 BRV/OFFSET 6 GETNODEFROMID)
NIL
()
EXTEND/TRANSITION/CHAIN :D8
(L (1 RTC 0 LTC)) I@A"I¬H I@Hd«I¿HI@ZI[Ùjð—H¸IY°ÎKJñ”H¸°ÄIY°À(13 FLAST)
NIL
()
FOREST/BREAK/CYCLES :D8
(L (0 NODE) F 3 NODELST) 8@i@!HYµhS
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) @°AdHHBhðhð¿H ³H¬HC¿µÀB°7dAgð«A²gA<1C>HQ
h
HQ
µÊQ°dHh¿H µí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ð¬@d<03>¿g@“hc¿@gð¬@d<03>¿g@“hc¿@´I@gð‘@‰g@d²4¸gH—Hg'„gc¿gH—Hg'„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@1HYµhZT
»JAK »IKŒK©KJA
¿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
<00>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) Ðiddg4Aµo ¿A]µBC¨WµWb¿D­oC
b¿E³<Bgð¬B²,gB²#oC
°d@©o
¿M°ªjb
¿F«C Èâb ¿B @BAC Bgð­Bd²¿gB@ ¿Bgð­Bd²¿gB—A °"BgðªBžgBA …A \dgBh@°0d^žN3—N3³oN
¿µÑBgð®Bd²S¿gB²H@ ¿L ¿Bdgð³—gB¦L ¿Bgð¬B²IgB²@L °8Bgð­Bd²¿gBL ¿BgðªB<03>gB•L L(460 REFLECT/GRAPH/VERTICALLY 434 REFLECT/GRAPH/HORIZONTALLY 404 REFLECT/GRAPH/HORIZONTALLY 376 REFLECT/GRAPH/VERTICALLY 349 REFLECT/GRAPH/DIAGONALLY 342 SWITCH/NODE/HEIGHT/WIDTH 308 ERROR 238 BROWSE/LAYOUT/HORIZ/COMPACTLY 231 BROWSE/LAYOUT/HORIZ 204 BROWSE/LAYOUT/LATTICE 175 SWITCH/NODE/HEIGHT/WIDTH 147 INIT/NODES/FOR/LAYOUT 138 INTERPRET/MARK/FORMAT 126 FONTCREATE 109 ERROR 92 STRINGWIDTH 54 STRINGWIDTH 24 ERROR)
(451 REVERSE/DAUGHTERS 441 REVERSE/DAUGHTERS 425 REVERSE 412 REVERSE 394 REVERSE/DAUGHTERS 383 REVERSE/DAUGHTERS 367 REVERSE 357 REVERSE 332 VERTICAL 319 VERTICAL 256 FORMAT 222 FAST 212 FAST 195 LATTICE 182 LATTICE 166 VERTICAL 153 VERTICAL 77 VERTICAL 66 VERTICAL 7 DON'T)
( 291 "Disconnected graph. Root(s) didn't connect to:" 104 "is in ROOTIDS but no GRAPHNODE for it in NODELST."
86 "AA" 48 "AAAAAA" 19 "LAYOUTGRAPH needs a LIST of root node ids")
LAYOUTLATTICE :D8
(L (3 FONT 2 FORMAT 1 ROOTIDS) I 6 FAMILYD I 5 PERSONALD I 4 MOTHERD I 0 NODELST F 1 DEFAULTFONT) pAHµIQb@BAC F«C Èâb ¿D­oC
b¿E³1Bgð²$oC
°d@©o
¿HX°£jb
¿A (109 BROWSE/LAYOUT/LATTICE 93 ERROR 76 STRINGWIDTH 50 STRINGWIDTH 31 FONTCREATE 23 INIT/NODES/FOR/LAYOUT)
(62 VERTICAL)
( 88 "is in ROOTIDS but no GRAPHNODE for it in NODELST." 70 "AA" 44 "AAAAAA")
LAYOUTSEXPR :D8
(L (6 FAMILYD 5 PERSONALD 4 MOTHERD 3 FONT 2 BOXING 1 FORMAT 0 TREE) P 0 RESULT) G@²:@ Bd˜gð•Bhb¿H@hAd£dhB
CDEF
o (68 ERROR 57 LAYOUTGRAPH 47 \APPEND2 11 LAYOUTSEXPR1)
(21 MARK)
( 63 "Cannot layout NIL as S-EXPRESSION")
LAYOUTSEXPR1 :D8
(L (0 TREE) F 2 RESULT F 3 DEFAULT.GRAPH.NODELABELSHADE F 4 DEFAULT.GRAPH.NODEFONT F 5 DEFAULT.GRAPH.NODEBORDER) uRHµ(hµi@d³1hddShdddT@UhRc¹@Ið•IµÓi°ÐHX°ÇhddShd@h
hT@UhRc@‡d ¿µöh(108 LAYOUTSEXPR1 77 \APPEND2)
NIL
()
MARK/GRAPH/NODE :D8
(L (0 NODE) F 0 BORDER.FOR.MARKING F 1 LABELSHADE.FOR.MARKING) *Pgð®@P¿Qgðµ
@QNIL
(28 DON'T 5 DON'T)
()
NEW/INSTANCE/OF/GRAPHNODE :D8
(L (0 GN) F 1 NODELST F 2 BOX.LEAVES.FLG F 3 BOX.BOTH.FLG) @hhdd@¸@@@hd@H@ hHQcR©@žH ¿S•@ H(124 MARK/GRAPH/NODE 115 MARK/GRAPH/NODE 75 COPY)
NIL
()
RAISE/TRANSITION/CHAIN :D8
(L (1 RAISE 0 TC)) @Hµ@d¿HX°ñNIL
NIL
()
REFLECT/GRAPH/DIAGONALLY :D8
(L (0 GRAPH)) %@@@°dHXdHd¿µì@NIL
NIL
()
REFLECT/GRAPH/HORIZONTALLY :D8
(L (0 GRAPH)) *@@ @ ØHµhZIJÙ¿HX°î(15 MIN/LEFT 8 MAX/RIGHT)
NIL
()
REFLECT/GRAPH/VERTICALLY :D8
(L (0 GRAPH)) *@@ @ ØHµhZIJÙ¿HX°î(15 MIN/BOTTOM 8 MAX/TOP)
NIL
()
SWITCH/NODE/HEIGHT/WIDTH :D8
(L (0 NL)) '@° d!HHºYJJI¿µáhNIL
NIL
()
GRAPHERIMAGEFNS :D8
(F 0 GRAPHERIMAGEFNS) ?Pµ<ggggggggddddhg
c(58 IMAGEFNSCREATE)
(52 GRAPHER 42 NILL 37 GRAPHOBJ.COPYBUTTONEVENTFN 32 GRAPHOBJ.BUTTONEVENTINFN 27 GRAPHOBJ.COPYFN 22 GRAPHOBJ.GETFN 17 GRAPHOBJ.PUTFN 12 GRAPHOBJ.IMAGEBOXFN 7 GRAPHOBJ.DISPLAYFN)
()
GRAPHERCOPYBUTTONEVENTFN :D8
(L (0 WINDOW)) r@ d QH ½jMÕ¼jMÕ»@g
º@g
¹Ljð«L²L ŸKjð³KK ¨HLK €HhdJI
 h(110 COPYINSERT 105 GRAPHEROBJ 93 TRANSGRAPH 84 \FZEROP 68 \FZEROP 52 GETWINDOWUSERPROP 40 GETWINDOWUSERPROP 17 GRAPHREGION 5 GRAPHOBJ.FINDGRAPH)
(47 BROWSER/MIDDLEFN 35 BROWSER/LEFTFN)
()
GRAPHOBJ.FINDGRAPH :D8
(L (0 WINDOW)) x@ @ ÉhnÿÿgH ¿¿I`` ³hnÿÿgH h`låjð²ÍhnÿÿgH ¿@g
(117 COPYGRAPH 112 GETWINDOWUSERPROP 100 DSPFILL 71 DSPFILL 54 INSIDE? 37 GETMOUSESTATE 31 DSPFILL 11 \INSUREWINDOW 5 GETSTREAM)
(107 GRAPH 94 INVERT 78 LASTMOUSEBUTTONS 65 INVERT 49 LASTMOUSEY 44 LASTMOUSEX 25 INVERT)
()
ALIGNMENTNODE :D8
(L (1 GRAPH 0 NODESPEC)) Ú@gðª@dgð²%¿AAHµIZ ¼K“LKó“L»J¹HX°ægðª@dgð²%¿AAHµIZ ¼K“KLó“L»J¹HX°ægðª@dgð²%¿AAHµIZ ¼K“LKó“L»J¹HX°ægðª@dgð²%¿AAHµIZ ¼K“KLó“L»J¹HX°æA
(215 GETNODEFROMID 192 GN/LEFT 140 GN/RIGHT 88 GN/BOTTOM 36 GN/TOP)
(170 *LEFT 161 *LEFT* 118 *RIGHT 109 *RIGHT* 66 *BOTTOM 57 *BOTTOM* 14 *TOP 5 *TOP*)
()
GRAPHOBJ.CHECKALIGN :D8
(L (1 ALIGNSPEC 0 GRAPH)) ž
jbd±”d3’±<00>²}Adgð³>dgð³5dgð³,dgð³#dgð³dgð¯dgð§dgð¿i‰¿A@
²'A²"Ad3³&dgð³©AjhbµoA
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
IgjHÕjHÕ
CœIgC ¿DœIgD ¿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
2H¢I²A@g
HI `do¿dg ¿dg¿jdnÿdhºdJ
¿ ´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)) <00>@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
#@g
¼@AlL¸Ik
J‡JAI [JAhdA
HÕKÕI×hA
HÕKÕI×
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)) /@`
Hd²do
¬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)ð³W¿Ig@ ¿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]Ikð¨KAI »K ZdJMd3—JÖ°ZK
^ Mdgð²5¿NN ÈÙN È ØlÛŠNÖÔLd3JÖ°(K
^ Ldgð¿j<C2BF>NÖÔh(187 GN/LEFT 181 ALIGNMENTNODE 143 FONTCREATE 124 FONTCREATE 87 GN/BOTTOM 81 ALIGNMENTNODE 51 GRAPHREGION 44 SCALE/GRAPH 17 DSPSCALE 10 IMAGEOBJPROP)
(196 BASELINE 96 BASELINE 5 OBJECTDATUM)
()
GRAPHOBJ.PUTALIGN :D8
(L (2 ALIGN 1 GRAPH 0 STREAM)) CBd²o
BŽAkHµhB@` ºBJðI°çIkÔ¹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@aHµvI@@@@@@@@@@@@\LLLLLLLLLLL]dØ¿M °òMg
¾MkN€MLL»Jµ
KhZ¹HX±þØK&º°÷(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
¿Wd²1¿lhW ¿oW
¿WW
¿W²/lhW ¿oW
¿WW
¿Wd²3¿lhW ¿oW
¿WW
¿W²0lhW ¿oW
¿WW
¿oW
W! Oµ3W ¿oW
¿KW
¿kW
N ˜_dNªKkÔ[N¾O_²OO¬OJkÔZO_¿OdM³IkÔYM½O_ið³OdœLªOHkÔXL\¿O_±ÿOdW
¿kW
¿µêW ¿oW
¿IW
¿kW
M ]°Bd_d³'dÙ¿O ° ´gO W
¿kW
¿µ¿L²@W ¿oW
¿HW
¿kW
¿L \W  OµuO²BW ¿oW
¿JW
¿kW
¿O _W  OµSW ¿oW
W! OµToW
h_¿OkW ¿OW
¿O_±ÿk_¿OkW ¿OW
¿O_°<>_¿lhW ¿oW
¿ONW
¿kW
¿W _¿OW
¿kW
¿OhW ¿OW
¿kW
¿OMW
¿kW
¿Od”dið²¿O°¿OLW
¿kW
¿O´
OOW
¿kW
¿O²VoW
¿O°4d_dgðžONONW
¿kW
¿µÍo„oW
¿O´;oW
¿O°dNW
¿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`
gð¬¿o ¿@ hddddddddddddñ @`
Zdgð¢±S¿@`
±:d_dgðš¿HO± dgð¿HO± dgðœ¿HO±÷dgð<>¿HO±ádgðž¿HO±ÊdgðŸ¿HO±²dgð²¿HO±˜dgð²¿HO°}dgð²¿HO°bdgð²¿HO°Fdgð²¿HO°)gð²HOŒoO
¿µ±þűþœgð²<@`
Y ¾I_¿k_Oó±þtNO@`
¿OkÔ°ßJdgð²8¿@`
Y ¼I_¿k_Oó’±þ/LO@ ¿OkÔ°ägð²s@`
Y »I_¿k_Oó±ýòKO@`
Zdgð²¿@`
ZJ
°gðJJ
€J ¿OkÔ°¨Jdgð¢±y¿@ ¿H0@d`
gð³¿O$¿@`
¿±ý` ¿0N@`
@ _,¿@`
hdK@`
_.¿@`
ZdJ†LJ
_*¿@`
Z´ MJ
hd0@`
°Ad_gð²ONO
O‡NO
_0¿O2µ O0h_4O0&_2¿µÀO40@`
°$d_¿NO
_6¿O8µ O6h_:O6&_8¿µÝO:O.O,O*h@`
¿_(¿O&µO(h_&_$¿±þ¢O(&_&¿±þ™gð²7@`
Y ½I_ ¿k_"O ó±û÷MO"@ ¿O"kÔ°äJgðHo@
¿±ûÉ(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))
NIL