(FILECREATED "14-Dec-84 13:53:17" ("compiled on " {ERIS}LIBRARY>GRAPHER.;20) "10-Dec-84 17:38:51" recompiled changes: EDITTOGGLEBORDER PRINTDISPLAYNODE RESET/NODE/BORDER SHOWGRAPH DEFAULTGRAPHERCOPYBUTTONEVENTFN in "INTERLISP-D 10-Dec-84 ..." dated "10-Dec-84 18:25:04") (FILECREATED "14-Dec-84 13:52:09" {ERIS}LIBRARY>GRAPHER.;20 105104 changes to: (FNS EDITTOGGLEBORDER RESET/NODE/BORDER SHOWGRAPH DEFAULTGRAPHERCOPYBUTTONEVENTFN PRINTDISPLAYNODE) (VARS GRAPHERCOMS) previous date: "11-Dec-84 14:36:38" {PHYLUM}LISP>GRAPHER.;8) ADD/AND/DISPLAY/LINK D1 (L (3 G 2 WIN 1 TOND 0 FROMND)) .A@ oi i h@ACB@AoBC i(52Q DISPLAYLINK 36Q GRAPHADDLINK 25Q TERPRI 21Q PRIN1 10Q MEMB 5 TOLINKS) NIL ( 44Q (0 . 0) 15Q " link already exists. ") APPLYTOSELECTEDNODE D1 (L (0 WINDOW)) Ï @g @g @g @ ÉT@ ¿`dlåjð«¿H´‚±ˆg‹kåjð³|I´zg¼@ ¿JhK ] _¿N•NK ¿Od–K ¿O¾¿`låjð²*N•NK ¿Ldgð’¿H‰gð‘I‚_¿N@lO@ É``¨Nd”K hNJhKM _ð²°¡(306Q NODELST/AS/MENU 303Q CURSORPOSITION 271Q FLIPNODE 261Q INSIDE? 246Q \INSUREWINDOW 226Q SHOULDNT 201Q FLIPNODE 157Q GETMOUSESTATE 150Q FLIPNODE 137Q FLIPNODE 125Q NODELST/AS/MENU 121Q CURSORPOSITION 112Q \INSUREWINDOW 42Q TOTOPW 31Q \INSUREWINDOW 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (256Q LASTMOUSEY 253Q LASTMOUSEX 217Q MIDDLE 207Q LEFT 163Q LASTMOUSEBUTTONS 105Q MIDDLE 70Q LEFT 46Q LASTMOUSEBUTTONS 21Q GRAPH 12Q BROWSER/MIDDLEFN 3 BROWSER/LEFTFN) () CALL.MOVENODEFN D1 (L (3 WINDOW 2 GRAPH 1 NEWPOS 0 NODE)) BH´@ABClHhNIL NIL () CHANGE.NODEFONT.SIZE D1 (L (3 WINDOW 2 GRAPH 1 NODE 0 HOW)) h@A H´SAoCB¿BY™@ABClI¿AH¿Ah¿Ah¿A ¿AoCBh(144Q DISPLAYNODE 131Q MEASUREGRAPHNODE 36Q DISPLAYNODE 16Q NEXTSIZEFONT) NIL ( 137Q (0 . 0) 31Q (0 . 0)) CHOOSE.GRAPH.FONT D1 (L (0 GRAPH)) @NIL NIL () CLOSEST/NODE D1 (L (1 POS 0 NODELST)) "nýè!@¡IH@A Zñ”@¹J¸@b°è(22Q MANHATTANDIST) NIL () DEFAULT.ADDNODEFN D1 (L (3 FONT 2 BOXED 1 WINDOW 0 GRAPH)) 1o X¿H d@ ³òHhA hdCµ@ B (56Q NODECREATE 51Q CHOOSE.GRAPH.FONT 40Q CURSORPOSITION 30Q FASSOC 22Q PACK* 17Q GENSYM 11Q PROMPTINWINDOW) NIL ( 6 "Node label? ") DELETE/AND/DISPLAY/LINK D1 (L (3 G 2 WIN 1 TOND 0 FROMND)) LA@ ³@A ²)C³#@Ab¿Hb@ACB@AoBC ioi i h(110Q TERPRI 104Q PRIN1 72Q DISPLAYLINK 56Q GRAPHDELETELINK 23Q MEMB 20Q TOLINKS 10Q MEMB 5 TOLINKS) NIL ( 100Q " link does not exist. " 64Q (0 . 0)) DISPLAY/NAME D1 (L (0 ND)) @NIL NIL () DISPLAYGRAPH D1 (L (3 TRANS 2 CLIP/REG 1 STREAM 0 GRAPH)) ŠkC²Cd¥d¡œCd¥d¡¦ob¿Ag bd ´nýèA °$A ¹@AIb¿ICê ICê b¿IX¿@ŒdCA@iH ¿µò@‰dCAB¿µõh(201Q PRINTDISPLAYNODE 161Q DISPLAYNODELINKS 134Q FIXR 125Q FIXR 113Q SCALE/GRAPH 104Q DSPSCALE 76Q DSPRIGHTMARGIN 65Q DISPLAYSTREAMP 57Q \GETSTREAM) (54Q OUTPUT) ( 45Q (0 . 0)) DISPLAYLINK D1 (L (5 LINEWIDTH 4 G 3 STREAM 2 TRANS 1 TOND 0 FRND)) ˜E£kb ¿Dd²Q©A @ ñšBA@EhC @ A ñ³^@ A ñšBA@EhC A @ ñ´HB@AEhC ³Ü@ A ñ³ÑA @ ñ³ÜA @ ñ³›@ A ñ´B@AEhC (225Q DISPLAYLINK/LR 210Q GN/RIGHT 204Q GN/LEFT 175Q GN/RIGHT 171Q GN/LEFT 162Q GN/TOP 156Q GN/BOTTOM 147Q GN/TOP 143Q GN/BOTTOM 131Q DISPLAYLINK/TB 114Q GN/TOP 110Q GN/BOTTOM 103Q DISPLAYLINK/TB 67Q GN/TOP 63Q GN/BOTTOM 54Q GN/RIGHT 50Q GN/LEFT 43Q DISPLAYLINK/LR 27Q GN/RIGHT 23Q GN/LEFT) NIL () DISPLAYLINK/LR D1 (L (6 COLOR 5 STREAM 4 OPERATION 3 WIDTH 2 GNR 1 GNL 0 TRANS)) *@A kÙØ@AØ@B kØØ@BØCDEF (47Q DRAWLINE 25Q GN/RIGHT 5 GN/LEFT) NIL () DISPLAYLINK/TB D1 (L (6 COLOR 5 STREAM 4 OPERATION 3 WIDTH 2 GNB 1 GNT 0 TRANS)) *@AØ@A kØØ@BØ@B kÙØCDEF (47Q DRAWLINE 34Q GN/BOTTOM 14Q GN/TOP) NIL () EDITTOGGLEBORDERA0001 D1 (NAME ERRORSET L (0 NIL) F 4 W F 5 MACROY) ‘¿Tg T É"Hªo ¿h°ko ¿HI ºi ¿JgTH¿H²H»JHTlK¿oi ¿Ji ¿oi ¿i ¿Jc i(210Q TERPRI 203Q PRIN1 172Q PRIN1 151Q PRIN1 76Q RESET/NODE/BORDER 64Q TERPRI 57Q READ/NODE 50Q PROMPTPRINT 35Q PROMPTPRINT 16Q \INSUREWINDOW 12Q GETWINDOWUSERPROP 2 CLRPROMPT) (71Q INVERT 7 GRAPH) ( 177Q " inverted." 145Q "Node " 45Q " Select node to have border inverted. " 32Q " No nodes to invert. ") EDITTOGGLEBORDER D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 W F 4 RESETVARSLST) =` 1gHhhTcYog £g»IcgI K“J(70Q ERROR! 63Q APPLY 40Q EDITTOGGLEBORDERA0001 5 TTYDISPLAYSTREAM) (54Q TTYDISPLAYSTREAM 44Q ERROR 35Q INTERNAL 13Q TTYDISPLAYSTREAM 2 PROMPTWINDOW) ( 32Q (EDITTOGGLEBORDERA0001)) ERASE/GRAPHNODE D1 (L (2 TRANS 1 STREAM 0 NODE)) jA µ Ag hðµI@jðµ=@hðµ.hddABµ0@ Bµ!@ @@ggj @ Ø°ß@ Ø°Ð(145Q GN/LEFT 135Q GN/BOTTOM 127Q BKBITBLT 75Q GN/BOTTOM 66Q GN/LEFT 14Q IMAGESTREAMTYPEP 3 WINDOWP) (122Q REPLACE 117Q TEXTURE 11Q DISPLAY) () DISPLAYNODE D1 (L (4 TOSONLY 3 G 2 STREAM 1 TRANS 0 NODE)) @ABCD @ABhB (23Q PRINTDISPLAYNODE 20Q DSPCLIPPINGREGION 10Q DISPLAYNODELINKS) NIL () DISPLAYNODELINKS D1 (L (5 LINEWIDTH 4 TOSONLY 3 G 2 STREAM 1 TRANS 0 NODE)) AC@ °d¹@IH ABCE ¿µìD³@ °dH @ABCE ¿µîh(70Q DISPLAYLINK 57Q GETNODEFROMID 47Q FROMLINKS 33Q DISPLAYLINK 23Q GETNODEFROMID 10Q TOLINKS) NIL () DRAW/GRAPHNODE/BORDER D1 (L (5 STREAM 4 HEIGHT 3 WIDTH 2 BOTTOM 1 LEFT 0 BORDER)) ‹@hðµ}@diðœ¿ABCDkhE d¡²@jñhðµ\ABCD@hE @²ME ¨Eg ´>@ hddEABCDgg@ hddEAHØBHØCHdØÙDHdØÙggj ho@ (210Q ERROR 176Q BKBITBLT 137Q BKBITBLT 107Q GRAPHNODE/BORDER/WIDTH 101Q IMAGESTREAMTYPEP 71Q WINDOWP 60Q DRAWAREABOX 25Q DRAWAREABOX) (171Q REPLACE 166Q TEXTURE 130Q REPLACE 125Q TEXTURE 76Q DISPLAY) ( 204Q "Illegal border:") DRAWAREABOX D1 (L (6 W 5 OP 4 BORDER 3 HEIGHT 2 WIDTH 1 BOTTOM 0 LEFT)) h€DlÛXDkÙlÛY@IØZACkÙØ\JAJLDEF LHÙ\@DØ^L@BkÙØDÙ_LDEF @BkÙØHÙ[dAKACkÙØDEF AIØ]NMOMDEF h(144Q DRAWLINE 124Q DRAWLINE 75Q DRAWLINE 43Q DRAWLINE) NIL () EDITADDLINK D1 (L (0 W)) gg@g @(20Q EDITAPPLYTOLINK 14Q GETWINDOWUSERPROP) (11Q GRAPH 5 added 2 ADD/AND/DISPLAY/LINK) () EDITADDNODE D1 (L (0 W)) N@g H@ Yd ` ¿o` ¿I ` Io@h@ I@ ÉHI(112Q TRACKCURSOR 104Q \INSUREWINDOW 77Q PRINTDISPLAYNODE 74Q DSPCLIPPINGREGION 61Q PRIN1 53Q DISPLAY/NAME 46Q PRIN1 33Q TERPRI 25Q MEASUREGRAPHNODE 16Q GRAPHADDNODE 6 GETWINDOWUSERPROP) (56Q PROMPTWINDOW 43Q PROMPTWINDOW 30Q PROMPTWINDOW 3 GRAPH) ( 66Q (0 . 0) 40Q "Position node ") EDITAPPLYTOLINKA0001A0002 D1 (NAME ERRORSET F 0 GRAPH F 1 DS) PQ h(5 READ/NODE) NIL () EDITAPPLYTOLINKA0001 D1 (NAME ERRORSET L (0 NIL) F 2 DS F 3 GRAPH F 4 MACROY F 5 FN F 6 MSG) ®S¢±™ oi ¿i ¿oi ¿SR ¸¿HR ¿oi ¿oi µHR ¿¹¿HR ¿HIRSlU´8oi ¿H i ¿oi ¿I i ¿ki ¿Vi ¿i ¿hŒi ¿oi ci(250Q PRINT 237Q TERPRI 227Q TERPRI 222Q PRIN1 214Q SPACES 206Q PRIN1 202Q DISPLAY/NAME 175Q PRIN1 164Q PRIN1 160Q DISPLAY/NAME 153Q PRIN1 127Q FLIPNODE 121Q CLRPROMPT 115Q ERROR! 111Q FLIPNODE 101Q EDITAPPLYTOLINKA0001A0002 70Q PRIN1 57Q FLIPNODE 51Q CLRPROMPT 45Q READ/NODE 36Q PRIN1 25Q TERPRI 20Q PRIN1) NIL ( 244Q "There are no nodes. You can create nodes with the Add Node command." 171Q " to " 147Q "Link from " 75Q (EDITAPPLYTOLINKA0001A0002) 64Q "TO?" 32Q "FROM?" 14Q "Specify the link by selecting the FROM node, then the TO node.") EDITAPPLYTOLINK D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 3 DS I 2 GRAPH I 1 MSG I 0 FN F 4 RESETVARSLST) =` 1gHhhTcYog £g»IcgI K“J(70Q ERROR! 63Q APPLY 40Q EDITAPPLYTOLINKA0001 5 TTYDISPLAYSTREAM) (54Q TTYDISPLAYSTREAM 44Q ERROR 35Q INTERNAL 13Q TTYDISPLAYSTREAM 2 PROMPTWINDOW) ( 32Q (EDITAPPLYTOLINKA0001)) EDITCHANGEFONT D1 (L (1 W 0 HOW)) WAg A ÉH¨o h` ¿o` ¿@gð”oƒo` HI Zd´ @JHAh(123Q CHANGE.NODEFONT.SIZE 110Q READ/NODE 102Q PRIN1 54Q PRIN1 41Q TERPRI 31Q PROMPTPRINT 12Q \INSUREWINDOW 6 GETWINDOWUSERPROP) (77Q PROMPTWINDOW 61Q SMALLER 51Q PROMPTWINDOW 36Q PROMPTWINDOW 3 GRAPH) ( 74Q "larger." 67Q "smaller." 46Q " Select node to be made " 26Q " No nodes yet. ") EDITDELETELINK D1 (L (0 W)) gg@g @(20Q EDITAPPLYTOLINK 14Q GETWINDOWUSERPROP) (11Q GRAPH 5 deleted 2 DELETE/AND/DISPLAY/LINK) () EDITDELETENODEA0001 D1 (NAME ERRORSET L (0 NIL) F 5 W F 6 MACROY) Ü¿Ug U É2H©o ±¶o ¿HI ºi ¿JI ¿hdoJ [hgð²qJI ¿JoIH¿J °d¼JLH HU¿µîJ ŽdH JHU¿µðJHU¿oi ¿Ki ¿oi ¿i ¿J°JI ¿oi ¿i ¿hci(323Q TERPRI 316Q PRIN1 305Q FLIPNODE 274Q TERPRI 267Q PRIN1 256Q PRIN1 250Q PRIN1 237Q GRAPHDELETENODE 224Q GRAPHDELETELINK 216Q GETNODEFROMID 206Q \APPEND2 203Q FROMLINKS 172Q GRAPHDELETELINK 165Q GETNODEFROMID 151Q \APPEND2 146Q TOLINKS 141Q DISPLAYNODE 126Q FLIPNODE 113Q ASKUSER 104Q DISPLAY/NAME 71Q FLIPNODE 63Q TERPRI 56Q READ/NODE 47Q PROMPTPRINT 35Q PROMPTPRINT 16Q \INSUREWINDOW 12Q GETWINDOWUSERPROP 2 CLRPROMPT) (116Q Y 7 GRAPH) ( 312Q "nothing deleted." 263Q " deleted." 244Q "Node " 134Q (0 . 0) 100Q "delete node " 44Q " Select node to be deleted. " 32Q " No nodes to delete. ") EDITDELETENODE D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 W F 4 RESETVARSLST) =` 1gHhhTcYog £g»IcgI K“J(70Q ERROR! 63Q APPLY 40Q EDITDELETENODEA0001 5 TTYDISPLAYSTREAM) (54Q TTYDISPLAYSTREAM 44Q ERROR 35Q INTERNAL 13Q TTYDISPLAYSTREAM 2 PROMPTWINDOW) ( 32Q (EDITDELETENODEA0001)) EDITGRAPH D1 (L (1 WINDOW 0 GRAPH)) P@d³ddddddddddhbA bdg@AggAgggA A A @(114Q EDITGRAPH1 110Q REDISPLAYGRAPH 104Q DSPOPERATION 75Q PUTWINDOWPROP 63Q PUTWINDOWPROP 51Q PUTWINDOWPROP 37Q SIZE/GRAPH/WINDOW) (100Q INVERT 72Q SCROLLBYREPAINTFN 67Q SCROLLFN 60Q REDISPLAYGRAPH 55Q REPAINTFN 45Q GRAPH) () EDITGRAPH1A0001 D1 (NAME ERRORSET F 0 W) P h(3 GRAPHEDITCOMMANDFN) NIL () EDITGRAPH1 D1 (I 0 W) Å¿o` ¿` ¿o` ¿` ¿o` ¿¿`låjð³ô`kåjð³8oi µ#` ¿` ¿o` ¿` °?gð²9@g •@ °%` ¿o` ¿` ¿o` ¿¿`låjð²ô±ÿr(265Q GETMOUSESTATE 261Q PRIN1 246Q TERPRI 237Q PRIN1 224Q TERPRI 214Q TRACKNODE 206Q GETWINDOWUSERPROP 176Q CLRPROMPT 162Q TERPRI 153Q PRIN1 140Q TERPRI 131Q TERPRI 121Q EDITGRAPH1A0001 65Q GETMOUSESTATE 61Q PRIN1 46Q TERPRI 37Q PRIN1 24Q TERPRI 15Q PRIN1 2 CLRPROMPT) (271Q LASTMOUSEBUTTONS 256Q PROMPTWINDOW 243Q PROMPTWINDOW 234Q PROMPTWINDOW 221Q PROMPTWINDOW 203Q GRAPH 170Q STOP 157Q PROMPTWINDOW 150Q PROMPTWINDOW 135Q PROMPTWINDOW 126Q PROMPTWINDOW 103Q LASTMOUSEBUTTONS 71Q LASTMOUSEBUTTONS 56Q PROMPTWINDOW 43Q PROMPTWINDOW 34Q PROMPTWINDOW 21Q PROMPTWINDOW 12Q PROMPTWINDOW) ( 253Q "Press the middle button and select the 'Add a node' command." 231Q "There are no nodes to move yet." 145Q "command aborted." 115Q (EDITGRAPH1A0001) 53Q "During an edit command, the middle button can be used to abort." 31Q "Use the middle button to get a menu of edit commands." 7 "Use the left button to move nodes.") EDITGRAPHMENU D1 NIL K``ð“``do¿di¿di¿dg ¿dg¿jdnÿdhHdI ¿NIL (110Q EDITGRAPHMENU 55Q DEFAULTMENUHELDFN 46Q CLRPROMPT 17Q MENUTYPE# 13Q EDITGRAPHMENU 6 MENUTYPE# 2 EDITGRAPHMENU) ( 25Q (("Add Node" (QUOTE ADDNODE)) ("Delete Node" (QUOTE DELETENODE)) ("Add Link" (QUOTE ADDLINK)) ("Delete Link" (QUOTE DELETELINK)) ("Toggle DirectedFlg" (QUOTE DIRECTED)) ("Toggle SidesFlg" (QUOTE SIDES)) STOP)) EDITMOVENODE D1 (L (0 WINDOW)) Í@ É@ É@g CJd¢±¡¾` ¿o` ¿o` ¿o` ¿NhH [ ½L•LH ¿Md•H ¿M¼¿`låjð³LL•LH ¿` ¿o` ¿o` ¿o` ¿LHJ¿` ¿o` hLNhHK ]ð²‰°™(305Q NODELST/AS/MENU 302Q CURSORPOSITION 270Q PRIN1 255Q TERPRI 246Q TRACKCURSOR 237Q PRIN1 224Q PRIN1 211Q PRIN1 176Q TERPRI 167Q FLIPNODE 145Q GETMOUSESTATE 137Q FLIPNODE 127Q FLIPNODE 117Q NODELST/AS/MENU 113Q CURSORPOSITION 104Q PRIN1 71Q PRIN1 56Q PRIN1 43Q TERPRI 22Q GETWINDOWUSERPROP 11Q \INSUREWINDOW 3 \INSUREWINDOW) (265Q PROMPTWINDOW 252Q PROMPTWINDOW 234Q PROMPTWINDOW 221Q PROMPTWINDOW 206Q PROMPTWINDOW 173Q PROMPTWINDOW 151Q LASTMOUSEBUTTONS 101Q PROMPTWINDOW 66Q PROMPTWINDOW 53Q PROMPTWINDOW 40Q PROMPTWINDOW 17Q GRAPH) ( 262Q "Done." 231Q "and release the button." 216Q "move the node to its new position" 203Q "Holding the button down, " 76Q "and press any button." 63Q "you want to move " 50Q "Move the cursor to the node ") EDITTOGGLELABELA0001 D1 (NAME ERRORSET L (0 NIL) F 4 W F 5 MACROY) ’¿Tg T É"Hªo ¿h°lo ¿HI ºi ¿JgT¿H²H»JHTlK¿oi ¿Ji ¿oi ¿i ¿Jc i(211Q TERPRI 204Q PRIN1 173Q PRIN1 152Q PRIN1 75Q RESET/NODE/LABELSHADE 64Q TERPRI 57Q READ/NODE 50Q PROMPTPRINT 35Q PROMPTPRINT 16Q \INSUREWINDOW 12Q GETWINDOWUSERPROP 2 CLRPROMPT) (71Q INVERT 7 GRAPH) ( 200Q " inverted." 146Q "Node " 45Q " Select node to have label inverted. " 32Q " No nodes to invert.") EDITTOGGLELABEL D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 W F 4 RESETVARSLST) =` 1gHhhTcYog £g»IcgI K“J(70Q ERROR! 63Q APPLY 40Q EDITTOGGLELABELA0001 5 TTYDISPLAYSTREAM) (54Q TTYDISPLAYSTREAM 44Q ERROR 35Q INTERNAL 13Q TTYDISPLAYSTREAM 2 PROMPTWINDOW) ( 32Q (EDITTOGGLELABELA0001)) FLIPNODE D1 (L (1 DS 0 NODE)) 4hddA@ kÙ@ kÙ@lØ@lØggnÿÿ (61Q BKBITBLT 15Q GN/BOTTOM 7 GN/LEFT) (52Q INVERT 47Q TEXTURE) () FONTNAMELIST D1 (L (0 FONTDESC)) @g @g @g h(24Q FONTPROP 15Q FONTPROP 6 FONTPROP) (21Q FACE 12Q SIZE 3 FAMILY) () FROMLINKS D1 (L (0 NODE)) @NIL NIL () GETNODEFROMID D1 (L (1 NODELST 0 ID)) @A µ o@ (16Q ERROR 4 FASSOC) NIL ( 12Q "No graphnode for nodeid:") GN/BOTTOM D1 (L (0 NODE)) @@âÙNIL NIL () GN/LEFT D1 (L (0 NODE)) @@âÙNIL NIL () GN/RIGHT D1 (L (0 NODE)) @@âØNIL NIL () GN/TOP D1 (L (0 NODE)) @@âØNIL NIL () GRAPHADDLINK D1 (L (3 WINDOW 2 GRAPH 1 TO 0 FROM)) ABH™@ABClH¿AH@H@HAHNIL NIL () GRAPHADDNODE D1 (L (1 W 0 GRAPH)) * @X—@AlH…@AiY¡h@dIh I(45Q \NCONC2 30Q DEFAULT.ADDNODEFN) NIL () GRAPHDELETELINK D1 (L (3 WINDOW 2 GRAPH 1 TO 0 FROM)) LBH™@ABClH¿@A@ A@A (107Q REMOVE 56Q REMOVE) NIL () GRAPHDELETENODE D1 (L (2 WINDOW 1 GRAPH 0 NODE)) AH˜@ABlH¿A@A h(33Q DREMOVE) NIL () GRAPHEDITCOMMANDFN D1 (L (0 GRAPHWINDOW)) á``ð”`°>`do¿di¿di¿dg ¿dg¿jdnÿdhHdI ¿ dgð“gdgð•¿@ dgð•¿@ dgð•¿@ dgð•¿@ dgð˜¿g@ dgð˜¿g@ dgð•¿@ dgð•¿@ dgð•¿@ dgð•¿@ gð´@ (336Q EDITTOGGLELABEL 323Q EDITTOGGLEBORDER 307Q TOGGLE/SIDESFLG 273Q TOGGLE/DIRECTEDFLG 257Q EDITDELETELINK 243Q EDITCHANGEFONT 224Q EDITCHANGEFONT 205Q EDITADDLINK 171Q EDITDELETENODE 155Q EDITADDNODE 141Q EDITMOVENODE 114Q MENU) (327Q SHADE 314Q BORDER 300Q SIDES 264Q DIRECTED 250Q DELETELINK 237Q LARGER 231Q LARGER 220Q SMALLER 212Q SMALLER 176Q ADDLINK 162Q DELETENODE 146Q ADDNODE 132Q MOVENODE 125Q STOP 120Q STOP 111Q EDITGRAPHMENU 56Q DEFAULTMENUHELDFN 47Q CLRPROMPT 20Q MENUTYPE# 13Q EDITGRAPHMENU 6 MENUTYPE# 2 EDITGRAPHMENU) ( 26Q (("Move Node" (QUOTE MOVENODE)) ("Add Node" (QUOTE ADDNODE)) ("Delete Node" (QUOTE DELETENODE)) ("Add Link" (QUOTE ADDLINK)) ("Delete Link" (QUOTE DELETELINK)) ("label smaller" (QUOTE SMALLER)) ("label larger" (QUOTE LARGER)) ("<-> Directed" (QUOTE DIRECTED)) ("<-> Sides" (QUOTE SIDES)) ("<-> Border" (QUOTE BORDER)) ("<-> Shade" (QUOTE SHADE)) STOP)) GRAPHEDITEVENTFN D1 (L (0 GRWINDOW)) /h@ @ @ ¤@ ”@ @ gð´@ (54Q CLOSEW 42Q GRAPHEDITCOMMANDFN 35Q TRACKNODE 30Q SHIFTP 24Q DOWINDOWCOM 17Q INSIDE? 14Q LASTMOUSEY 10Q LASTMOUSEX 4 DSPCLIPPINGREGION) (45Q STOP) () GRAPHER/CENTERPRINTINAREA D1 (L (5 STREAM 4 HEIGHT 3 WIDTH 2 Y 1 X 0 EXP)) ;Eg b @E ACHÙkØlÛØBDEÈÙEÈØlÛØE@E h(67Q PRIN3 62Q MOVETO 15Q STRINGWIDTH 6 \GETSTREAM) (47Q FONTDESCRIPTOR 40Q FONTDESCRIPTOR 3 OUTPUT) () GRAPHMOVENODE D1 (L (3 WINDOW 2 GRAPH 1 NEWPOS 0 NODE)) @dA ‘hA @ABC(25Q CALL.MOVENODEFN 16Q SET/LAYOUT/POSITION 7 EQUAL) NIL () GRAPHNODE/BORDER/WIDTH D1 (L (0 BORDER)) 5@µjið‘k@dd¡“ ²@d¡—j@ñ¢@o@ (62Q ERROR 25Q ABS) NIL ( 56Q "Illegal border:") GRAPHREGION D1 (L (0 GRAPH)) 9@!Hµjdddd ¿µøH YH ZH IÙkØH JÙkØ(66Q CREATEREGION 57Q MAX/TOP 47Q MAX/RIGHT 42Q MIN/BOTTOM 35Q MIN/LEFT 24Q MEASUREGRAPHNODE 16Q CREATEREGION) NIL () HARDCOPYGRAPH D1 (L (3 TRANS 2 IMAGETYPE 1 FILE 0 GRAPH/WINDOW)) "AB @d —¿@g HhCH (37Q CLOSEF 33Q DISPLAYGRAPH 25Q GETWINDOWUSERPROP 14Q WINDOWP 4 OPENIMAGESTREAM) (22Q GRAPH) () INTERSECT/REGIONP/LBWH D1 (L (4 REG 3 H 2 W 1 B 0 L)) -DACØñµ"DDØ@ýñµD@BØñµDDØAýñhðNIL NIL () INVERTED/GRAPHNODE/BORDER D1 (L (0 BORDER)) 2@dið‘h¡i@dd¡”¿j@Ù´@d¡´ @@ h(54Q INVERTED/SHADE/FOR/GRAPHER) NIL () INVERTED/SHADE/FOR/GRAPHER D1 (L (0 SHADE)) F@dið‘h¡i@dd¡“mÿæ`ð² @ hddHhdddggnÿÿ Ho@ (103Q ERROR 71Q BKBITBLT 41Q COPYBITMAP) (62Q INVERT 57Q TEXTURE 32Q BITMAPTYPE#) ( 77Q "Illegal shade:") LAYOUT/POSITION D1 (L (0 NODE)) @NIL NIL () MANHATTANDIST D1 (L (1 POS2 0 POS1)) @AÙ @AÙ Ø(17Q ABS 7 ABS) NIL () MAX/RIGHT D1 (L (0 NODES)) @oHµI ZIñ‘J¹HX°î(21Q GN/RIGHT) NIL ( 4 -20000000000Q) MAX/TOP D1 (L (0 NODES)) @oHµI ZIñ‘J¹HX°î(21Q GN/TOP) NIL ( 4 -20000000000Q) MEASUREGRAPHNODE D1 (L (0 NODE)) @ @dµ o@ (24Q SET/LAYOUT/POSITION 21Q ERROR 3 SET/LABEL/SIZE) NIL ( 15Q "This graphnode has not been given a position:") MIN/BOTTOM D1 (L (0 NODES)) @o"HµIºIJ [ñ‘K¹HX°ì(24Q GN/BOTTOM) NIL ( 4 17777777777Q) MIN/LEFT D1 (L (0 NODES)) @o"HµIºIJ [ñ‘K¹HX°ì(24Q GN/LEFT) NIL ( 4 17777777777Q) MOVENODE D1 (L (4 STREAM 3 GRAPH 2 POS 1 OLDPOS 0 NODE)) -AB ‘h@D @oDC@B @oDC@D (52Q FLIPNODE 45Q DISPLAYNODE 33Q SET/LAYOUT/POSITION 26Q DISPLAYNODE 14Q FLIPNODE 4 EQUAL) NIL ( 40Q (0 . 0) 21Q (0 . 0)) NODECREATE D1 (L (7 LABELSHADE 6 BORDER 5 FONT 4 FROMNODEIDS 3 TONODEIDS 2 POS 1 LABEL 0 ID) F 3 DEFAULT.GRAPH.NODEFONT) 00@BhdAºEµSµ` ¹GhdCDJ¸IHFh(24Q FONTNAMELIST) (21Q DEFAULTFONT) () NODELST/AS/MENU D1 (L (1 POS 0 NODELST)) Q@AA3Hµh[\Kâ]ÙJýñ²)JLMØýñ²!K\Kâ]ÙIýñ›ILMØýñ”KµiHX°»NIL NIL () NODEREGION D1 (L (0 NODE)) @ @ @@(31Q CREATEREGION 7 GN/BOTTOM 3 GN/LEFT) NIL () PRINTDISPLAYNODE D1 (L (3 CLIP/REG 2 STREAM 1 TRANS 0 NODE) F 7 CACHE/NODE/LABEL/BITMAPS) ï@jðµ‚±àA@ ØA@ Ø@@@@ C›HIJKC ¡@@d`ð²jdBHIJKg ±v`ð²\Mjð³:@HIJKB ¿@jdBHMØIMØJKg ±'@jdBHIJKg ± @ ²UMjð³ @HIJKB ¿MHØMIØHIB¿@g ¾@BlN¿±¦L¢±¡Klñ´‚±„Mjð³@HIJKB ¿LB ¿@HIJKB ¿@²@HIJKMB ¿W²AC²>HIJKC ²3@JK ¿BHI@jdJKg °ddBHIldghnÿÿ @(753Q BKBITBLT 726Q BKBITBLT 702Q BITMAPCREATE 670Q INTERSECT/REGIONP/LBWH 647Q FILL/GRAPHNODE/LABEL 616Q GRAPHER/CENTERPRINTINAREA 570Q DSPFONT 562Q DRAW/GRAPHNODE/BORDER 461Q IMAGEOBJPROP 436Q MOVETO 420Q DRAW/GRAPHNODE/BORDER 363Q IMAGEOBJP 341Q BKBITBLT 304Q BKBITBLT 245Q DRAW/GRAPHNODE/BORDER 165Q BKBITBLT 125Q INTERSECT/REGIONP/LBWH 107Q GRAPHNODE/BORDER/WIDTH 34Q GN/BOTTOM 25Q GN/LEFT) (743Q TEXTURE 722Q INPUT 456Q DISPLAYFN 335Q INPUT 300Q INPUT 207Q BITMAPTYPE# 161Q INPUT 141Q BITMAPTYPE#) () FILL/GRAPHNODE/LABEL D1 (L (6 STREAM 5 NBW 4 HEIGHT 3 WIDTH 2 BOTTOM 1 LEFT 0 SHADE)) >@F ¥F ´/@dið”¿nÿÿ¡j¸hddFAEØBEØCEdØÙDEdØÙggH h(72Q BKBITBLT 14Q DISPLAYSTREAMP 7 WINDOWP) (65Q INVERT 62Q TEXTURE) () PROMPTINWINDOWA0003 D1 (NAME ERRORSET) hdddddl h h(15Q PROMPTFORWORD) NIL () PROMPTINWINDOW D1 (L (3 BORDERSIZE 2 WHICHCORNER 1 POSITION 0 PROMPTSTR) F 10Q TtyDisplayStream F 11Q WindowTitleDisplayStream) ¨Cd¥d¡µlAµD`Aµ;`Sg ÈlÚiH[@W dl<ñ¢¿ld^²!Nd¥d¡ŸNd¥d¡³oN ¿µÃBgð¬Bd²@¿gB²7@ ¿L ¿Bdgð•gB¤L ¿BgðªB²8gB²1L °+BgðªBdœ¿gB”L ¿Bgð¨B™gB“L L(563Q REFLECT/GRAPH/VERTICALLY 537Q REFLECT/GRAPH/HORIZONTALLY 510Q REFLECT/GRAPH/HORIZONTALLY 462Q REFLECT/GRAPH/VERTICALLY 436Q REFLECT/GRAPH/DIAGONALLY 431Q SWITCH/NODE/HEIGHT/WIDTH 375Q ERROR 277Q BROWSE/LAYOUT/HORIZ/COMPACTLY 272Q BROWSE/LAYOUT/HORIZ 245Q BROWSE/LAYOUT/LATTICE 217Q SWITCH/NODE/HEIGHT/WIDTH 172Q INIT/NODES/FOR/LAYOUT 163Q INTERPRET/MARK/FORMAT 132Q ERROR 122Q FASSOC 112Q STRINGWIDTH 53Q STRINGWIDTH 23Q ERROR) (554Q REVERSE/DAUGHTERS 544Q REVERSE/DAUGHTERS 530Q REVERSE 516Q REVERSE 500Q REVERSE/DAUGHTERS 467Q REVERSE/DAUGHTERS 453Q REVERSE 444Q REVERSE 421Q VERTICAL 406Q VERTICAL 263Q FAST 253Q FAST 236Q LATTICE 224Q LATTICE 210Q VERTICAL 176Q VERTICAL 151Q FONTDESCRIPTOR 76Q VERTICAL 65Q VERTICAL 36Q DEFAULTFONT 5 DON'T) ( 356Q "Disconnected graph. Root(s) didn't connect to:" 127Q "is in ROOTIDS but no GRAPHNODE for it in NODELST." 106Q "AA" 47Q "AAAAAA" 20Q "LAYOUTGRAPH needs a LIST of root node ids") LAYOUTLATTICE D1 (L (3 FONT 2 FORMAT 1 ROOTIDS) I 6 FAMILYD I 5 PERSONALD I 4 MOTHERD I 0 NODELST) cAHµ?Cµ`b@ABCF©CÈâb¿DªoC b¿E³+Bgð² oC °d@ ¦o ¿HX°®jb ¿A (140Q BROWSE/LAYOUT/LATTICE 122Q ERROR 112Q FASSOC 102Q STRINGWIDTH 55Q STRINGWIDTH 27Q INIT/NODES/FOR/LAYOUT) (67Q VERTICAL 35Q FONTDESCRIPTOR 16Q DEFAULTFONT) ( 117Q "is in ROOTIDS but no GRAPHNODE for it in NODELST." 76Q "AA" 51Q "AAAAAA") LAYOUTSEXPR D1 (L (6 FAMILYD 5 PERSONALD 4 MOTHERD 3 FONT 2 BOXING 1 FORMAT 0 TREE) P 0 RESULT) !@ H@hAd£d‘hB CDEF (36Q LAYOUTGRAPH 26Q \APPEND2 6 LAYOUTSEXPR1) NIL () LAYOUTSEXPR1 D1 (L (0 TREE) F 2 RESULT F 3 DEFAULT.GRAPH.NODELABELSHADE F 4 DEFAULT.GRAPH.NODEFONT F 5 DEFAULT.GRAPH.NODEBORDER) u@hðµpRHµ(hµd@d³1hddShdddT@UhRc¹@Ið•IµÓi°ÐHX°ÇhddShd@ hT@UhRc@…d ¿µøh(154Q LAYOUTSEXPR1 117Q \APPEND2) NIL () MARK/GRAPH/NODE D1 (L (0 NODE) F 0 BORDER/FOR/MARKING F 1 LABELSHADE/FOR/MARKING) &Pgð®@P¿Qgðµ @QNIL (30Q DON'T 3 DON'T) () NEW/INSTANCE/OF/GRAPHNODE D1 (L (0 GN) F 5 NODELST F 6 BOX/LEAVES/FLG F 7 BOX/BOTH/FLG) ƒP@hhdd@¹@º@¼@»@ ¸@LKhdJIHhHUc V©@›H ¿W“@ H(177Q MARK/GRAPH/NODE 167Q MARK/GRAPH/NODE 103Q COPY) NIL () RAISE/TRANSITION/CHAIN D1 (L (1 RAISE 0 TC)) @Hµ@dAØ¿HX°ñNIL NIL () REFLECT/GRAPH/DIAGONALLY D1 (L (0 GRAPH)) %@@hð@°dHXdHd¿µì@NIL NIL () REFLECT/GRAPH/HORIZONTALLY D1 (L (0 GRAPH)) &@@ @ ØHµhZIJÙ¿HX°î(13Q MIN/LEFT 6 MAX/RIGHT) NIL () REFLECT/GRAPH/VERTICALLY D1 (L (0 GRAPH)) &@@ @ ØHµhZIJÙ¿HX°î(13Q MIN/BOTTOM 6 MAX/TOP) NIL () SWITCH/NODE/HEIGHT/WIDTH D1 (L (0 NL)) '@° d!HHºYJJI¿µáhNIL NIL () (PRETTYCOMPRINT GRAPHERCOMS) (RPAQQ GRAPHERCOMS ((FNS ADD/AND/DISPLAY/LINK APPLYTOSELECTEDNODE CALL.MOVENODEFN CHANGE.NODEFONT.SIZE CHOOSE.GRAPH.FONT CLOSEST/NODE DEFAULT.ADDNODEFN DELETE/AND/DISPLAY/LINK DISPLAY/NAME DISPLAYGRAPH DISPLAYLINK DISPLAYLINK/LR DISPLAYLINK/TB EDITTOGGLEBORDER ERASE/GRAPHNODE DISPLAYNODE DISPLAYNODELINKS DRAW/GRAPHNODE/BORDER DRAWAREABOX EDITADDLINK EDITADDNODE EDITAPPLYTOLINK EDITCHANGEFONT EDITDELETELINK EDITDELETENODE EDITGRAPH EDITGRAPH1 EDITGRAPHMENU EDITMOVENODE EDITTOGGLELABEL FLIPNODE FONTNAMELIST FROMLINKS GETNODEFROMID GN/BOTTOM GN/LEFT GN/RIGHT GN/TOP GRAPHADDLINK GRAPHADDNODE GRAPHDELETELINK GRAPHDELETENODE GRAPHEDITCOMMANDFN GRAPHEDITEVENTFN GRAPHER/CENTERPRINTINAREA GRAPHMOVENODE GRAPHNODE/BORDER/WIDTH GRAPHREGION HARDCOPYGRAPH INTERSECT/REGIONP/LBWH INVERTED/GRAPHNODE/BORDER INVERTED/SHADE/FOR/GRAPHER LAYOUT/POSITION MANHATTANDIST MAX/RIGHT MAX/TOP MEASUREGRAPHNODE MIN/BOTTOM MIN/LEFT MOVENODE NODECREATE NODELST/AS/MENU NODEREGION PRINTDISPLAYNODE FILL/GRAPHNODE/LABEL PROMPTINWINDOW READ/NODE REDISPLAYGRAPH RESET/NODE/BORDER RESET/NODE/LABELSHADE SCALE/GRAPH SCALE/GRAPHNODE/BORDER SET/LABEL/SIZE SET/LAYOUT/POSITION SHIFTP SHOWGRAPH SIZE/GRAPH/WINDOW TOGGLE/DIRECTEDFLG TOGGLE/SIDESFLG TOLINKS TRACKCURSOR TRACKNODE) (COMS (FNS DEFAULTGRAPHERCOPYBUTTONEVENTFN) (* For shift-selecting without GRAPHEROBJs) (P (MOVD? (QUOTE DEFAULTGRAPHERCOPYBUTTONEVENTFN) (QUOTE GRAPHCOPYBUTTONEVENTFN)))) (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) (VARS DEFAULT.GRAPH.NODEBORDER DEFAULT.GRAPH.NODEFONT DEFAULT.GRAPH.NODELABELSHADE (CACHE/NODE/LABEL/BITMAPS) (EDITGRAPHMENU) ( GRAPHEDITWINDOW) (NODEBORDERWIDTH 1) (ORIGIN (CREATEPOSITION 0 0))) (P (MOVD? (FUNCTION NILL) ( FUNCTION IMAGEOBJP) T)) (LOCALVARS . T) (GLOBALVARS EDITGRAPHMENU GRAPHEDITWINDOW NODEBORDERWIDTH ORIGIN) (RECORDS GRAPHNODE GRAPH) (DECLARE: DONTCOPY (MACROS HALF)))) (MOVD? (QUOTE DEFAULTGRAPHERCOPYBUTTONEVENTFN) (QUOTE GRAPHCOPYBUTTONEVENTFN)) (RPAQ DECREASING.FONT.LIST (DECREASING.FONT.LIST)) (RPAQQ DEFAULT.GRAPH.NODEBORDER NIL) (RPAQQ DEFAULT.GRAPH.NODEFONT NIL) (RPAQQ DEFAULT.GRAPH.NODELABELSHADE NIL) (RPAQQ CACHE/NODE/LABEL/BITMAPS NIL) (RPAQQ EDITGRAPHMENU NIL) (RPAQQ GRAPHEDITWINDOW NIL) (RPAQQ NODEBORDERWIDTH 1) (RPAQ ORIGIN (CREATEPOSITION 0 0)) (MOVD? (FUNCTION NILL) (FUNCTION IMAGEOBJP) T) (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)) (PUTPROPS GRAPHER COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL