(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "26-Feb-93 11:14:13" ("compiled on " |{PELE:MV:ENVOS}LIBRARY>GRAPHZOOM.;2|) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "11-Jun-90 16:20:36" {DSK}local>lde>lispcore>library>GRAPHZOOM.;2 24143 changes to%: (VARS GRAPHZOOMCOMS) previous date%: " 6-Sep-85 08:52:00" {DSK}local>lde>lispcore>library>GRAPHZOOM.;1) MAKE.ZOOM.GRAPH :D8 (I 1 SCALE I 0 GRAPH) ?@A @@gggggghddd(7 SCALE.GRAPH.NODES) (44 ZOOM.GRAPH.FONTCHANGEFN 39 ZOOM.GRAPH.DELETELINKFN 34 ZOOM.GRAPH.ADDLINKFN 29 ZOOM.GRAPH.DELETENODEFN 24 ZOOM.GRAPH.ADDNODEFN 19 ZOOM.GRAPH.MOVENODEFN) () ORIG.NODE.OF.GRAPH :D8 (L (2 CORRESGRAPH 1 INGRAPH 0 NODE)) (BA@#IHhKJLIHNIL NIL () SCALE.GRAPH.FONT :D8 (I 1 SCALE I 0 FONT) o@ Ao (22 SCALE.FONT 10 STRINGWIDTH) NIL ( 17 "LABEL" 4 "LABEL") SCALE.GRAPH.NODE :D8 (I 1 SCALE I 0 NODE) @@A @@@@@@@@A @@@(76 SCALE.GRAPH.FONT 10 SCALE.POSITION) NIL () SCALE.GRAPH.NODES :D8 (P 3 NODE I 1 SCALE I 0 NODELST) "@@d[A IHhZH&J(14 SCALE.GRAPH.NODE) NIL () SCALE.GRAPH :D8 (P 0 SCALEDGRAPH I 0 SGWINDOW) 4@g @g @gH H@ H(48 RESET.GRAPH.EXTENT 41 PUTWINDOWPROP 26 MAKE.ZOOM.GRAPH 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (35 GRAPH 16 SCALE 5 SKETCH.GRAPH) () RESET.GRAPH.EXTENT :D8 (I 1 WINDOW I 0 GRAPH) Ag@ (16 PUTWINDOWPROP 11 GRAPHREGION) (5 EXTENT) () ZOOM.GRAPH.WINDOW :D8 (P 4 LARGEINFACTOR P 3 SMALLINFACTOR P 2 LARGEOUTFACTOR P 1 SMALLOUTFACTOR P 0 MAINW I 2 BUTTON I 1 MENU I 0 ITEM) kA g oo#oI[oJ\H@gBgLKBgJI H H H h(103 REDISPLAYGRAPH 97 ADJUST.EXTENT 91 SCALE.GRAPH 85 ZOOM.TO.CENTER 15 GETWINDOWUSERPROP 5 WFROMMENU) (75 MIDDLE 63 MIDDLE 55 IN 10 MAINWINDOW) ( 41 1.0 33 1.0 25 1.8 20 1.1) ADJUST.EXTENT :D8 (P 5 EXTEXT P 4 EXTOFF P 3 REGEXT P 2 REGOFF P 1 REG P 0 EXTENT I 0 WINDOW) @ h@ BI[H]HKMl۰H\IZLJKLM\LK@ I[H]HKMl۰H\IZLJKLM\ LK@ h(124 ABSWYOFFSET 67 ABSWXOFFSET 14 DSPCLIPPINGREGION 5 \INSUREWINDOW) NIL () ZOOM.GRAPH.ADDLINKFN :D8 (P 0 ORGGRAPH I 3 WINDOW I 2 GRAPH I 1 TO I 0 FROM) (Cg @BH ABH HC h(36 GRAPHADDLINK 29 ORIG.NODE.OF.GRAPH 21 ORIG.NODE.OF.GRAPH 10 GETWINDOWUSERPROP) (5 SKETCH.GRAPH) () ZOOM.GRAPH.ADDNODEFN :D8 (P 0 NEWNODE I 1 WINDOW I 0 GRAPH) )Ag A XdAg (38 SCALE.GRAPH.NODE 33 GETWINDOWUSERPROP 19 GRAPHADDNODE 13 GETWINDOWUSERPROP) (28 SCALE 8 SKETCH.GRAPH) () ZOOM.GRAPH.DELETELINKFN :D8 (P 0 ORGGRAPH I 3 WINDOW I 2 GRAPH I 1 TO I 0 FROM) (Cg @BH ABH HC h(36 GRAPHDELETELINK 29 ORIG.NODE.OF.GRAPH 21 ORIG.NODE.OF.GRAPH 10 GETWINDOWUSERPROP) (5 SKETCH.GRAPH) () ZOOM.GRAPH.DELETENODEFN :D8 (P 0 ORGGRAPH I 2 WINDOW I 1 GRAPH I 0 NODE) Bg @AH HB (28 GRAPHDELETENODE 21 ORIG.NODE.OF.GRAPH 10 GETWINDOWUSERPROP) (5 SKETCH.GRAPH) () ZOOM.GRAPH.FONTCHANGEFN :D8 (P 1 ORIGNODE P 0 NEWFONT I 3 WINDOW I 2 GRAPH I 1 NODE I 0 HOW) 9 @ABCg Y XdIHh(37 NEXTSIZEFONT 21 ORIG.NODE.OF.GRAPH 16 GETWINDOWUSERPROP) (11 SKETCH.GRAPH) () ZOOM.GRAPH.MOVENODEFN :D8 (P 1 SCALE P 0 ORGGRAPH I 3 WINDOW I 2 GRAPH I 1 NEWPOS I 0 NODE) 2Cg Cg @BH AI HC h(46 GRAPHMOVENODE 39 UNSCALE.POSITION 32 ORIG.NODE.OF.GRAPH 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (16 SCALE 5 SKETCH.GRAPH) () SHOWZOOMGRAPH :D8 (P 5 MENU P 4 ATW P 1 SKETCH.GRAPH P 0 INITSCALE I 6 INITSCALE I 5 ALLOWEDITFLG I 4 TOPJUSTIFYFLG I 3 MIDDLEBUTTONFN I 2 LEFTBUTTONFN I 1 WINDOW I 0 GRAPH) Fo!@d'dddddddddddddb @H YdA EoD bd !K`dodi dgdkdkdg dgjdndhdJ Ag Ag@ AgH AgI Agg Agg Agg EgA Agg Agg AgB AgC A A A\g ]Mg