(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "20-May-2000 10:22:40" ("compiled on " {DSK}medley3.5>lispusers>PLOT.;3) " 9-Apr-2000 18:01:32" tcompl'd in "LFG 8-May-2000 ..." dated " 8-May-2000 12:15:45") (FILECREATED "20-May-2000 10:22:28" {DSK}medley3.5>lispusers>PLOT.;3 198079 changes to%: ( VARS PLOTCOMS) previous date%: " 4-Nov-93 14:56:28" {DSK}medley3.5>lispusers>PLOT.;2) ADDPLOTOBJECT :D8 (L (2 NODRAWFLG 1 PLOT 0 OBJECT)) @g'!@A A@A@A A iB9IA A @AA H@ @ABlHgHd@ABlJ(124 DRAWPLOTOBJECT 100 REDRAWPLOTWINDOW 93 OPENWP 64 ADJUSTSCALE? 58 EXTENTOFPLOTOBJECT 30 MEMB) (149 LAMBDA 116 WINDOWINFO 109 PLOT 86 WINDOWINFO 79 PLOT 45 PLOT 38 PLOT 23 PLOT 12 WHENADDEDFN 5 PLOTOBJECT) () ADJUSTSCALE? :D8 (L (1 PLOT 0 EXTENT)) AHHHHHH @d_@d_@d_@d_h_OIdOIdOi_OId OId __OJA OOJKA OLdOLdOi_OLd OLd __OMA OOMNA O+HIHKHLHN O(375 CHOOSESCALE 361 CHOOSETICS 347 FMAX 325 FMIN 257 CHOOSESCALE 243 CHOOSETICS 229 FMAX 207 FMIN) (416 PLOTSCALE 406 PLOTSCALE 396 PLOTSCALE 386 PLOTSCALE 333 AXISINTERVAL 311 AXISINTERVAL 287 AXISINTERVAL 266 AXISINTERVAL 215 AXISINTERVAL 193 AXISINTERVAL 169 AXISINTERVAL 148 AXISINTERVAL 124 EXTENT 106 EXTENT 88 EXTENT 70 EXTENT 61 PLOTSCALE 52 PLOTSCALE 43 PLOTSCALE 34 PLOTSCALE 25 PLOTSCALE 16 PLOTSCALE 5 PLOT) () ADJUSTVIEWPORT :D8 (L (2 PLOT 1 STREAMREGION 0 VIEWPORT)) .B@bIBB ZIBB [IBB \IBB ]@HdHdH^dNdH_dOd @AKAJAKLAJM @ @(298 COMPUTETRANSFORM 290 CREATEREGION 245 CREATEREGION 109 COMPUTETOPMARGIN 86 COMPUTERIGHTMARGIN 63 COMPUTELEFTMARGIN 40 COMPUTEBOTTOMMARGIN) (253 VIEWPORT 230 AXISINTERVAL 214 AXISINTERVAL 205 PLOTSCALE 189 AXISINTERVAL 174 AXISINTERVAL 166 PLOTSCALE 151 AXISINTERVAL 144 PLOTSCALE 129 AXISINTERVAL 122 PLOTSCALE 116 VIEWPORT 101 MARGININFO 94 PLOT 78 MARGININFO 71 PLOT 55 MARGININFO 48 PLOT 32 MARGININFO 25 PLOT 13 VIEWPORT 5 PLOT) () APPLY.AFTERFN.MACRO :D8 (L (0 ARGS)) @@gHggggHhggHhohggggHgggIhggHIhhNIL (117 CL:FUNCALL 112 else 97 FN 92 CL:FUNCALL 87 do 81 in 76 FN 71 for 66 then 46 CAR 41 NEQ 32 LISTP 27 AND 22 if 17 then 11 if) ( 55 ((QUOTE LAMBDA))) ASKFORLABEL :D8 (L (1 MARGINNAME 0 PLOT)) Aggb@Adg@Yg@@Adg@$g@oA Adgo9go+AdgogooA #I[H JKoHhdo \dKdK @AL h(277 PLOTLABEL 268 STREQUAL 256 PROMPTFORWORD 235 TERPRI 217 HELP 145 HELP) (226 MARGIN 198 RIGHT 183 TOP 167 LEFT 152 BOTTOM 131 MARGININFO 124 PLOT 116 RIGHT 107 MARGININFO 100 PLOT 90 TOP 79 MARGININFO 72 PLOT 63 LEFT 54 MARGININFO 47 PLOT 37 BOTTOM 28 WINDOWINFO 21 PLOT 12 TOP 5 TITLE) ( 250 (13 10 27 9) 242 "Type a label" 211 "ILLEGAL MARGIN NAME" 205 "RIGHT MARGIN LABEL?" 191 "TITLE?" 174 "LEFT MARGIN LABEL?" 160 "BOTTOM MARGIN LABEL?" 139 "ILLEGAL MARGIN NAME") ASKFORSCALE :D8 (L (1 AXIS 0 PLOT)) =@Adg"@d3g @doA @A Adg"@d3g @doA @A H Ao IoHhdo  @A YoJoHhdo  @A ZIJ(310 PLOT.LABELTOWORLD 303 READ 298 OPENSTRINGSTREAM 293 PROMPTFORWORD 267 PLOT.LABELTOWORLD 260 READ 255 OPENSTRINGSTREAM 250 PROMPTFORWORD 230 CONCAT 219 TERPRI 210 PLOT.WORLDTOLABEL 203 HELP 112 PLOT.WORLDTOLABEL 105 HELP) (182 AXISINTERVAL 175 PLOTSCALE 168 PLOT 159 Y 143 AXISINTERVAL 136 PLOTSCALE 129 PLOT 119 X 84 AXISINTERVAL 77 PLOTSCALE 70 PLOT 61 Y 45 AXISINTERVAL 38 PLOTSCALE 31 PLOT 21 X 12 WINDOWINFO 5 PLOT) ( 287 (13 10 27 9) 279 "Type a number" 273 " to " 244 (13 10 27 9) 236 "Type a number" 225 " axis: From " 197 "Illegal axis" 99 "Illegal axis") BOXREGION :D8 (L (1 STREAM 0 REGION)) l@@@@m@@mhA HIJILgA JIJKLgA JKHKLgA HKHILgA h(104 DRAWLINE 87 DRAWLINE 70 DRAWLINE 53 DRAWLINE 33 DSPSCALE) (97 REPLACE 80 REPLACE 63 REPLACE 46 REPLACE) () CHOOSESCALE :D8 (L (4 PLOT 3 TICINFO 2 AXISINFO 1 MAX 0 MIN)) 6BH@ACDlH@AC YddoI I(50 HELP 29 DEFAULTSCALEFN) (37 AXISINTERVAL 5 AXISINFO) ( 44 "Not an AXISINTERVAL") CHOOSETICS :D8 (L (3 PLOT 2 AXISINFO 1 MAX 0 MIN)) 4BH@AClH@A YddoI I(48 HELP 27 DEFAULTTICFN) (35 TICINFO 5 AXISINFO) ( 42 "Not a TICINFO") CLOSEPLOTWINDOW :D8 (L (0 PLOT)) @@ g'@h H Hgh Hgg Hgg Hgg Hgg Hgh Hgh Hgh Hgh H H Id"@kIgId@kJh(194 DETACHALLWINDOWS 187 CLOSEW 180 PUTWINDOWPROP 167 PUTWINDOWPROP 154 PUTWINDOWPROP 141 PUTWINDOWPROP 128 PUTWINDOWPROP 111 WINDOWDELPROP 94 WINDOWDELPROP 77 WINDOWDELPROP 60 PUTWINDOWPROP 44 WINDOWP 38 PLOT.FIXRIGHTMENU) (213 LAMBDA 174 ICONFN 161 HARDCOPYFN 148 COPYBUTTONEVENTFN 135 RIGHTBUTTONFN 123 TOTOPW 118 BUTTONEVENTFN 106 PLOT.CLOSEFN 101 CLOSEFN 89 PLOT.REPAINTFN 84 RESHAPEFN 72 PLOT.REPAINTFN 67 REPAINTFN 54 PLOT 27 WHENCLOSEDFN 20 PLOT 12 WINDOWINFO 5 PLOT) () CLOSESTPLOTOBJECT :D8 (L (1 STREAMPOSITION 0 PLOT)) +@AHIZA@ KKLLJHX(25 DISTANCETOPLOTOBJECT) (5 PLOT) () COMPOUNDSUBTYPE :D8 (L (0 COMPOUNDOBJECT)) @ NIL (12 COMPOUNDDATA 5 PLOTOBJECT) () COMPUTEBOTTOMMARGIN :D8 (L (2 PLOT 1 BOTTOMMARGIN 0 STREAM) P 1 LARGEFONT P 0 SMALLFONT F 7 SMALLPLOTFONT F 8 LARGEPLOTFONT) cWhdd@ Whdd@ AA4H \I ]JKMlM^JdlLؾKNlMؾKI jN(92 STRINGWIDTH 55 FONTHEIGHT 48 FONTASCENT 23 FONTCREATE 11 FONTCREATE) (37 MARGIN 29 MARGIN) () COMPUTELEFTMARGIN :D8 (L (2 PLOT 1 LEFTMARGIN 0 STREAM) F 12 SMALLPLOTFONT F 13 LARGEPLOTFONT) Whdd@ Whdd@ AAAj6gH _gI ^JLNlN_JdlOK! O)O_LOlN_L I ڽOMH _OOOO_O_(154 STRINGWIDTH 139 FONTHEIGHT 133 NCHARS 75 STRINGWIDTH 62 STRINGWIDTH 23 FONTCREATE 11 FONTCREATE) (69 A 56 A 45 MARGIN 37 MARGIN 29 MARGIN) () COMPUTERIGHTMARGIN :D8 (L (2 PLOT 1 RIGHTMARGIN 0 STREAM) P 1 LARGEFONT P 0 SMALLFONT F 12 SMALLPLOTFONT F 13 LARGEPLOTFONT) Whdd@ Whdd@ AAAj6gH ^gI _JLOlO_JdlNK! O*O_LOlO_L I ڽOMH _OOOO_O_(156 STRINGWIDTH 141 FONTHEIGHT 135 NCHARS 74 STRINGWIDTH 62 STRINGWIDTH 23 FONTCREATE 11 FONTCREATE) (68 A 56 A 45 MARGIN 37 MARGIN 29 MARGIN) () COMPUTETOPMARGIN :D8 (L (2 PLOT 1 TOPMARGIN 0 STREAM) P 1 LARGEFONT P 0 SMALLFONT F 8 SMALLPLOTFONT F 9 LARGEPLOTFONT) pWhdd@ Whdd@ AADH \I ]JKMlM^JdlLؾKNlMؾjKI _dOOjN(94 STRINGWIDTH 55 FONTHEIGHT 48 FONTASCENT 23 FONTCREATE 11 FONTCREATE) (37 MARGIN 29 MARGIN) () COPYMENU :D8 (L (1 NEWITEMS 0 MENU))  `A @HdI@HdI@HdI@ HdI @HdI@HdI@HdI@$HdI$@HdI@ HdI @HdI@HdI@HdIjdndhHdI NIL (230 MENU 212 MENU 194 MENU 176 MENU 158 MENU 140 MENU 122 MENU 104 MENU 86 MENU 68 MENU 50 MENU 32 MENU 14 MENU 4 |MENUTYPE#|) () CREATEPLOT :D8 (L (3 BORDER 2 TITLE 1 REGION 0 OPENFLG)) ``HdI `HdI`HdIaH``dI`dhdn?jdJ`dhdn?jdodldK`dL`dhdn?jdM`dhdn?jdodldN Hgd Hgd H`dgH`dgH`dgH`dgABCHABCh@H H(420 OPENPLOTWINDOW 262 PLOTMENU 257 PLOT.DEFAULTMENU 245 PLOTMENU 240 PLOT.DEFAULTMENU) (402 WINDOWINFO 395 PLOT 377 DEFAULT 370 |MARGINTYPE#| 365 MARGININFO 358 PLOT 347 DEFAULT 340 |MARGINTYPE#| 335 MARGININFO 328 PLOT 317 DEFAULT 310 |MARGINTYPE#| 305 MARGININFO 298 PLOT 287 DEFAULT 280 |MARGINTYPE#| 275 MARGININFO 268 PLOT 251 RIGHT 234 MIDDLE 190 |TICINFOTYPE#| 164 |AXISINTERVALTYPE#| 152 |AXISINFOTYPE#| 111 |TICINFOTYPE#| 85 |AXISINTERVALTYPE#| 73 |AXISINFOTYPE#| 67 |PLOTSCALETYPE#| 62 PLOT 42 |WINDOWINFOTYPE#| 26 |MARGININFOTYPE#| 10 |MENUINFOTYPE#| 4 |PLOTTYPE#|) ( 211 1.0 132 1.0) CREATEPLOTFNSA0012 :D8 NIL nNIL NIL () CREATEPLOTFNS :D8 (L (11 BORROWFROM) I 10 GETFN I 9 PUTFN I 8 COPYFN I 7 MOVEFN I 6 LABELFN I 5 LOWLIGHTFN I 4 HIGHLIGHTFN I 3 DISTANCEFN I 2 EXTENTFN I 1 ERASEFN I 0 DRAWFN)  G9EDGb odH HdG @ABo CDo `d@dADgHdIE DgHdIGgHdI FgHdIdB CgHdIGgHdIGgHdIGgHdI(89 HELP 74 HELP 52 SET 47 RECORDACCESS 37 EVAL) (252 GETGENERIC 233 PUTGENERIC 214 COPYGENERIC 195 CREATEPLOTFNSA0012 172 LABELGENERIC 154 PLOTOPERROR 135 PLOTOPERROR 114 PLOTOPERROR 95 |PLOTFNSTYPE#| 14 PLOTFNS) ( 84 "DISTANCEFN without a HIGHLIGHTFN" 69 "Attempt to create PLOTFNS without required FNS" 24 (DRAWFN ERASEFN EXTENTFN HIGHLIGHTFN LABELFN DISTANCEFN MOVEFN COPYFN PUTFN GETFN)) CREATEPLOTOBJECT :D8 (L (4 OBJECTDATA 3 OBJECTMENU 2 OBJECTLABEL 1 OBJECTSUBTYPE 0 OBJECTFNS)) ;@Do `d@dAdBdD HgC H(55 PLOTOBJECTPROP 13 HELP) (49 OBJECTMENU 19 |PLOTOBJECTTYPE#|) ( 8 "Attempt to create a PLOTOBJECT without a FNS vector or OBJECTDATA") DEFAULTSCALEFN :D8 (L (2 TICINFO 1 MAX 0 MIN)) =`BdHdIBdHdINIL (38 TICINFO 11 TICINFO 4 |AXISINTERVALTYPE#|) () DEFAULTTICFN :D8 (L (4 POWER 3 ROUND 2 TICS 1 MAX 0 MIN)) B obd3 hboB B@ABCD "HI@AJCD [dKdIdIdKHX(70 SCALE 48 SCALE 33 HELP) (122 TICINFO 107 TICINFO 91 TICINFO 76 TICINFO) ( 27 "Not a list of FIXP's" 7 (3 4 5 6 7 8)) DEFAULTTICMETHOD :D8 (L (2 PLOT 1 PLOTSCALE 0 MARGIN)) @g@dgA%g@gA o@ HYdd3ZHkkHd3KJL_NOh^KkԻLIԼO&MHdh oI (183 HELP 171 \NCONC2 62 HELP) (155 TICINFO 101 TICINFO 90 TICINFO 71 TICINFO 48 PLOTSCALE 40 LEFT 32 RIGHT 23 PLOTSCALE 14 TOP 5 BOTTOM) ( 177 "Invalid TICINC" 56 "MARGIN must be one of RIGHT, LEFT, TOP, BOTTOM") DELETEPLOTOBJECT :D8 (L (3 NOSAVEFLG 2 NODRAWFLG 1 PLOT 0 OBJECT)) AA@g'@H k@ABI @A AhA@H CA@ABI A @A J@ @ABClJgJd@ABClK(148 ERASEPLOTOBJECT 140 OPENPLOTWINDOW 133 OPENWP 100 DREMOVE 76 LOWLIGHTPLOTOBJECT 68 OPENWP 46 MEMB) (174 LAMBDA 118 PLOT 111 PLOT 93 PLOT 83 PLOT 55 PLOT 35 WHENDELETEDFN 28 PLOTOBJECT 20 WINDOWINFO 13 PLOT 5 PLOT) () DESELECTPLOTOBJECT :D8 (L (0 PLOT)) $@@@ @hh(23 LOWLIGHTPLOTOBJECT) (29 PLOT 15 PLOT 5 PLOT) () DISTANCETOPLOTOBJECT :D8 (L (2 PLOT 1 STREAMPOSITION 0 OBJECT)) @@ABlHNIL (12 PLOTFNS 5 PLOTOBJECT) () DRAWBOTTOMMARGIN :D8 (L (4 PLOT 3 STREAMREGION 2 VIEWPORT 1 STREAM 0 BOTTOMMARGIN) P 1 LARGEFONT P 0 SMALLFONT F 6 SMALLPLOTFONT F 7 LARGEPLOTFONT) VhddA WhddA @D$H \B]@=@KdKdLMMLlLHABi JdICA I CA h(165 DRAW-LABEL-TOP-BOTTOM 155 FONTHEIGHT 149 FONTDESCENT 134 DRAW-TICS-TOP-BOTTOM 54 FONTASCENT 22 FONTCREATE 10 FONTCREATE) (105 AXISINTERVAL 90 AXISINTERVAL 82 MARGIN 72 MARGIN 61 VIEWPORT 43 PLOTSCALE 36 PLOT 28 MARGIN) () DRAWLEFTMARGIN :D8 (L (4 PLOT 3 STREAMREGION 2 VIEWPORT 1 STREAM 0 LEFTMARGIN) P 1 LARGEFONT P 0 SMALLFONT F 6 SMALLPLOTFONT F 7 LARGEPLOTFONT) VhddA WhddA @D$gH \B]@:@KdKdLMMLLHABi JdICgI CA h(163 DRAW-LABEL-LEFT-RIGHT 154 STRINGWIDTH 135 DRAW-TICS-LEFT-RIGHT 59 STRINGWIDTH 22 FONTCREATE 10 FONTCREATE) (148 A 109 AXISINTERVAL 94 AXISINTERVAL 86 MARGIN 76 MARGIN 66 VIEWPORT 53 A 43 PLOTSCALE 36 PLOT 28 MARGIN) () DRAWMARGIN :D8 (L (4 PLOT 3 STREAMREGION 2 STREAMVIEWPORT 1 STREAM 0 MARGIN)) @dgDABCD dgDABCD gDABCD @gDABCD o@ (152 HELP 140 DRAWTOPMARGIN 105 DRAWBOTTOMMARGIN 71 DRAWLEFTMARGIN 35 DRAWRIGHTMARGIN) (128 MARGININFO 121 PLOT 112 TOP 93 MARGININFO 86 PLOT 77 BOTTOM 59 MARGININFO 52 PLOT 42 LEFT 23 MARGININFO 16 PLOT 6 RIGHT) ( 146 "MARGIN must be one of RIGHT, LEFT, BOTTOM, or TOP ") DRAWPLOTOBJECT :D8 (L (2 PLOT 1 VIEWPORT 0 OBJECT)) p@g'@g'"@@ABlJHHAB Id* @ABlIgId@ABlKh(64 DRAWPLOTOBJECT) (88 LAMBDA 43 PLOTFNS 36 PLOTOBJECT 26 WHENDRAWNFN 19 PLOTOBJECT 12 LABEL 5 PLOTOBJECT) () DRAWPLOT :D8 (L (3 STREAMREGION 2 STREAMVIEWPORT 1 CURRENTSTREAM 0 PLOT)) R@o@ BA odABC@ @dB@ h(73 DRAWPLOTOBJECT 50 DRAWMARGIN 32 BOXREGION 17 HELP) (61 PLOT 24 VIEWPORT 5 PLOT) ( 37 (BOTTOM LEFT TOP RIGHT) 11 "Not a PLOT ") DRAWRIGHTMARGIN :D8 (L (4 PLOT 3 STREAMREGION 2 VIEWPORT 1 STREAM 0 RIGHTMARGIN) P 1 LARGEFONT P 0 SMALLFONT F 7 SMALLPLOTFONT F 8 LARGEPLOTFONT) WhddA WhddA @D4gH \B^Nm]@9@KdKdLMMLLHAB Jd%ICCmlgI CA h(183 DRAW-LABEL-LEFT-RIGHT 173 STRINGWIDTH 144 DRAW-TICS-LEFT-RIGHT 60 STRINGWIDTH 23 FONTCREATE 11 FONTCREATE) (167 A 119 AXISINTERVAL 104 AXISINTERVAL 96 MARGIN 86 MARGIN 67 VIEWPORT 54 A 44 PLOTSCALE 37 PLOT 29 MARGIN) () DRAWTOPMARGIN :D8 (L (4 PLOT 3 STREAMREGION 2 VIEWPORT 1 STREAM 0 TOPMARGIN) P 1 LARGEFONT P 0 SMALLFONT F 7 SMALLPLOTFONT F 8 LARGEPLOTFONT) WhddA WhddA @D4H \B^Nm]@9@KdKdLMMLLHAB Jd&ICCmI A CA h(181 DRAW-LABEL-TOP-BOTTOM 171 FONTASCENT 165 FONTHEIGHT 141 DRAW-TICS-TOP-BOTTOM 55 FONTASCENT 23 FONTCREATE 11 FONTCREATE) (116 AXISINTERVAL 101 AXISINTERVAL 93 MARGIN 83 MARGIN 62 VIEWPORT 44 PLOTSCALE 37 PLOT 29 MARGIN) () ERASEPLOTOBJECT :D8 (L (1 PLOT 0 OBJECT)) {@g'@g'"@@AAlJHHA Id( @AlIgId@AlKh(77 ERASEPLOTOBJECT) (100 LAMBDA 60 WINDOWINFO 53 PLOT 43 PLOTFNS 36 PLOTOBJECT 26 WHENERASEDFN 19 PLOTOBJECT 12 LABEL 5 PLOTOBJECT) () EXTENDEDSCALEFN :D8 (L (2 TICINFO 1 MAX 0 MIN)) JBdBdo3JIH[`HKdLIKdMNIL (48 |AXISINTERVALTYPE#| 20 TICINFO 5 TICINFO) ( 34 0.05) EXTENTOFPLOTOBJECT :D8 (L (1 PLOT 0 OBJECT)) @ @AlHNIL (12 PLOTFNS 5 PLOTOBJECT) () EXTENTOFPLOT :D8 (L (0 PLOT)) @````H%`dIdJdKdL ]ddIMdMdJMdMddKMdMdLMdHXA(75 EXTENTOFPLOTOBJECT) (209 EXTENT 191 EXTENT 175 EXTENT 154 EXTENT 137 EXTENT 119 EXTENT 103 EXTENT 82 EXTENT 39 |EXTENTTYPE#| 27 MIN.FLOAT 22 MAX.FLOAT 17 MIN.FLOAT 12 MAX.FLOAT 5 PLOT) () GETPLOTWINDOW :D8 (L (0 PLOT)) @ (19 WINDOWP) (12 WINDOWINFO 5 PLOT) () GETTICLIST :D8 (L (1 PLOT 0 MARGINNAME)) @dgASdgA8gA@gAHdg@AA d3@H@AAlIH oH (183 HELP 144 DEFAULTTICMETHOD 108 SHOULDNT) (160 PLOT 136 PLOT 125 DEFAULT 113 MARGIN 100 MARGININFO 93 PLOT 85 RIGHT 75 MARGININFO 68 PLOT 59 TOP 50 MARGININFO 43 PLOT 33 LEFT 23 MARGININFO 16 PLOT 6 BOTTOM) ( 177 "Illegal ticmethod") HIGHLIGHTPLOTOBJECT :D8 (L (1 PLOT 0 OBJECT)) {@g'@g'"@@AAlJHHA Id( @AlIgId@AlKh(77 HIGHLIGHTPLOTOBJECT) (100 LAMBDA 60 WINDOWINFO 53 PLOT 43 PLOTFNS 36 PLOTOBJECT 26 WHENHIGHLIGHTEDFN 19 PLOTOBJECT 12 LABEL 5 PLOTOBJECT) () LABELPLOTOBJECT :D8 (L (1 PLOT 0 OBJECT)) T@g'!@@AlIHd( @AlHgHd@AlJhNIL (61 LAMBDA 29 PLOTFNS 22 PLOTOBJECT 12 WHENLABELEDFN 5 PLOTOBJECT) () LOWLIGHTPLOTOBJECT :D8 (L (1 PLOT 0 OBJECT)) {@g'@g'"@@AAlJHHA Id( @AlIgId@AlKh(77 LOWLIGHTPLOTOBJECT) (100 LAMBDA 60 WINDOWINFO 53 PLOT 43 PLOTFNS 36 PLOTOBJECT 26 WHENLOWLIGHTEDFN 19 PLOTOBJECT 12 LABEL 5 PLOTOBJECT) () MANUALRESCALE :D8 (L (1 AXIS 0 PLOT)) Agb@@AgAdgT@g YI@IIHHJKL@ H`dJdKAgAgR@g YI@IIHHJKL@  H`dJdK@ h(229 REDRAWPLOTWINDOW 191 CHOOSETICS 154 ASKFORSCALE 94 CHOOSETICS 57 ASKFORSCALE) (205 |AXISINTERVALTYPE#| 200 PLOTSCALE 182 PLOTSCALE 171 PLOTSCALE 149 Y 140 Y 132 BOTH 108 |AXISINTERVALTYPE#| 103 PLOTSCALE 85 PLOTSCALE 74 PLOTSCALE 52 X 42 X 33 BOTH 23 PLOT 15 PLOT 6 BOTH) () MINSTREAMREGIONSIZE :D8 (L (1 PLOT 0 STREAM)) @AA @AA @AA @AA DIHKdNNdldldJ\HIJ_dOOdldldK]LM(87 COMPUTETOPMARGIN 65 COMPUTERIGHTMARGIN 43 COMPUTELEFTMARGIN 21 COMPUTEBOTTOMMARGIN) (79 MARGININFO 72 PLOT 57 MARGININFO 50 PLOT 35 MARGININFO 28 PLOT 13 MARGININFO 6 PLOT) () MOVEPLOTOBJECT :D8 (L (3 PLOT 2 DY 1 DX 0 OBJECT)) @ @ABClHNIL (12 PLOTFNS 5 PLOTOBJECT) () OPENPLOTWINDOW :D8 (L (0 PLOT))  @do@ @@@ g'SHd H D0 HyO jdldd OoOi @HOh\Hg@ Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg @H Iqjdldg hdi Ygg IgnI  gI @I@ H @ [Hd g_H_H_ygKH , KH (H ,  L1Hg KHg Kio LH K@@H MhH @ @H MhH N@IHg @ g'@i JH @kJgJ@ d_@kO(738 HIGHLIGHTPLOTOBJECT 704 PLOT.FIXRIGHTMENU 682 ATTACHWINDOW 666 DRAWPLOT 661 DSPCLIPPINGREGION 651 \INSUREWINDOW 643 ADJUSTVIEWPORT 637 DSPCLIPPINGREGION 628 OPENW 594 SHAPEW 585 PROMPTPRINT 568 GETWINDOWPROP 552 GETWINDOWPROP 538 WINDOWPROP 532 HEIGHTIFWINDOW 525 \INSUREWINDOW 517 \INSUREWINDOW 509 WIDTHIFWINDOW 502 \INSUREWINDOW 460 ATTACHEDWINDOWS 452 MINSTREAMREGIONSIZE 444 \INSUREWINDOW 438 CREATETICLISTS 414 DSPSCROLL 402 PUTWINDOWPROP 390 \INSUREWINDOW 374 PUTWINDOWPROP 358 CREATEW 350 CREATEREGION 345 HEIGHTIFWINDOW 340 FONTHEIGHT 335 DEFAULTFONT 316 CREATEVIEWPORT 309 \INSUREWINDOW 290 PUTWINDOWPROP 274 PUTWINDOWPROP 258 PUTWINDOWPROP 242 PUTWINDOWPROP 226 PUTWINDOWPROP 210 WINDOWADDPROP 194 WINDOWADDPROP 178 WINDOWADDPROP 162 PUTWINDOWPROP 126 CREATEW 109 CREATEREGION 82 WINDOWP 74 OPENWP 19 HELP) (726 LAMBDA 695 FIXEDRIGHTMENU? 688 PLOT 677 TOP 618 PLOT 610 WINDOWINFO 603 PLOT 563 HEIGHT 547 WIDTH 494 MAINWINDOWMINSIZE 467 MINSIZE 428 WINDOWINFO 421 PLOT 408 ON 381 MAXSIZE 369 NILL 364 PAGEFULLFN 330 DISPLAY 303 WINDOWINFO 296 PLOT 285 PLOT.ICONFN 280 ICONFN 269 PLOT.HARDCOPYFN 264 HARDCOPYFN 253 PLOT.COPYBUTTONEVENTFN 248 COPYBUTTONEVENTFN 237 PLOT.BUTTONEVENTFN 232 RIGHTBUTTONFN 221 PLOT.BUTTONEVENTFN 216 BUTTONEVENTFN 205 PLOT.CLOSEFN 200 CLOSEFN 189 PLOT.REPAINTFN 184 RESHAPEFN 173 PLOT.REPAINTFN 168 REPAINTFN 156 PLOT 140 WINDOWINFO 133 PLOT 63 WHENOPENEDFN 56 PLOT 48 WINDOWINFO 41 PLOT 33 WINDOWINFO 26 PLOT 6 PLOT) ( 580 "Window too small: reshape" 118 "Plot Window" 13 "Not a plot") PLOT.BUTTONEVENTFN :D8 (L (0 PLOTWINDOW))  @ @g 1H`ljjdHhd4 `ljhO@ _O@ _NO QLOMOIHO _=OI7I(OH HOOYH H I OOsH hHII`dkjH IMFL^ddgH Ngg N Ngh Ngh dd3@𲸿H M'`ljH H g'Kh@ @g @ JdgH J Jgh (490 PUTMENUPROP 478 MENU 472 PUTMENUPROP 456 DOWINDOWCOM 448 GETWINDOWPROP 436 CURSORPOSITION 353 PUTMENUPROP 341 PUTMENUPROP 329 MENU 323 PUTMENUPROP 307 PUTMENUPROP 222 LOWLIGHTPLOTOBJECT 201 LOWLIGHTPLOTOBJECT 193 PLOTPROMPT 165 HIGHLIGHTPLOTOBJECT 144 CLOSESTPLOTOBJECT 123 INSIDEP 111 LASTMOUSEY 99 LASTMOUSEX 77 GETMOUSESTATE 16 GETWINDOWUSERPROP 5 TOTOPW) (484 PLOT 466 PLOT 443 HEIGHT 423 FIXEDRIGHTMENU? 416 PLOT 408 MENUINFO 401 PLOT 386 LASTMOUSEBUTTONS 375 MENUINFO 368 PLOT 347 PLOT 335 MODE 318 MIDDLE 313 MODE 301 PLOT 278 PLOTOBJECT 270 MENUINFO 263 PLOT 247 LASTMOUSEBUTTONS 231 PLOT 185 PLOTOBJECT 172 PLOT 83 LASTMOUSEBUTTONS 64 VIEWPORT 57 WINDOWINFO 50 PLOT 33 LASTMOUSEBUTTONS 25 PLOT 11 PLOT) () PLOT.CLOSEFN :D8 (L (0 W)) @g (15 CLOSEPLOTWINDOW 10 GETWINDOWUSERPROP) (5 PLOT) () PLOT.DEFAULTMENU :D8 (L (0 ARGS)) ekHo kaHkla"HkJoJ Idgg (`!gg `[HkcJ;ddJ 0`dJdg dgjdndhdL IdgKgKK(214 SHOULDNT 129 COPYMENU 111 SHOULDNT 98 BOUNDP 71 BOUNDP 49 HELP 17 HELP) (208 PLOT.DEFAULTRIGHTMENU 200 RIGHT 194 PLOT.DEFAULTMIDDLEMENU 185 MIDDLE 157 DEFAULTMENUHELDFN 148 CLRPROMPT 136 |MENUTYPE#| 105 PLOT.DEFAULTRIGHTMENU 93 PLOT.DEFAULTRIGHTMENU 85 RIGHT 78 PLOT.DEFAULTMIDDLEMENU 66 PLOT.DEFAULTMIDDLEMENU 57 MIDDLE) ( 43 "Not a list" 12 "Must have at least one arg, MENUNAME") PLOT.FIXRIGHTMENU :D8 (L (0 ARGS) P 5 OLDVALUE) ekHo ka1HklaI g'IHk\Kg IgJhh J9K 4L1KgI Kgg LM L Kgh (187 PUTWINDOWPROP 174 DETACHWINDOW 167 CLOSEW 155 PUTWINDOWPROP 150 ATTACHMENU 108 OPENWP 98 PLOTPROP 81 GETWINDOWUSERPROP 17 HELP) (181 FIXEDRIGHTMENU 145 TOP 140 RIGHT 132 MENUINFO 125 PLOT 119 FIXEDRIGHTMENU 88 FIXEDRIGHTMENU? 76 FIXEDRIGHTMENU 62 WINDOWINFO 55 PLOT 45 FIXEDRIGHTMENU? 38 PLOT) ( 12 "Must have at least one arg") PLOT.HARDCOPYFN :D8 (L (1 PRINTERSTREAM 0 PLOTWINDOW)) n h@ @g A s A gHHSAlZ A Ajdon j A on jon jl n jo%on jon jon jl n j A hA [dA KA KKmA KKmA KHKH_OdNN]dHMH__KKOlKKOlOO \I JLI IAJL h(362 DRAWPLOT 353 ADJUSTVIEWPORT 345 CREATETICLISTS 338 CREATEREGION 249 DSPTOPMARGIN 231 DSPRIGHTMARGIN 215 DSPBOTTOMMARGIN 206 DSPLEFTMARGIN 197 DSPCLIPPINGREGION 189 DSPCLIPPINGREGION 183 CREATEREGION 99 CONCATT.IP 92 TRANSLATE.IP 71 CONCATT.IP 64 ROTATE.IP 32 IMAGESTREAMTYPE 23 CREATEVIEWPORT 17 GETWINDOWUSERPROP 6 DSPCLIPPINGREGION) (37 INTERPRESS 12 PLOT) ( 164 7.5 153 0.5 142 0.5 135 7.5 116 0.5 105 0.5 80 8.5) PLOT.ICONFN :D8 (L (1 OLDICON 0 PLOTWINDOW))  @g r@g @g +ld ld@g @g )ld@g @g ld AJK IM M oMg oMg oMg oMg \M LH ^LM H_l2O _;O2d A JK A]2dNH OOo k O.Hg S@ (o 7@ (._jOO jONH O_Ok_hohM M(509 CENTERPRINTINREGION 478 DRAWPLOTOBJECT 465 IMOD 447 \INSUREWINDOW 439 STREQUAL 427 \INSUREWINDOW 419 PLOTLABEL 398 FIXR 376 DRAWPLOTOBJECT 361 SHAPEW 356 CREATEREGION 345 \INSUREWINDOW 336 \INSUREWINDOW 321 LENGTH 301 BOXREGION 293 CREATEVIEWPORT 263 \INSUREWINDOW 256 CREATEREGION 251 FIXR 245 GETWINDOWPROP 229 FIXR 223 GETWINDOWPROP 207 FIXR 201 GETWINDOWPROP 185 FIXR 179 GETWINDOWPROP 163 CLEARW 156 DSPFONT 148 CREATEW 143 GETBOXREGION 128 HEIGHTIFWINDOW 120 WIDTHIFWINDOW 115 FIXR 108 GETWINDOWPROP 97 GETWINDOWPROP 82 FIXR 75 GETWINDOWPROP 64 GETWINDOWPROP 50 WIDTHIFWINDOW 40 GETWINDOWPROP 29 GETWINDOWPROP 15 WINDOWTITLEFONT 10 GETWINDOWUSERPROP) (414 TOP 307 PLOT 286 VIEWPORT 279 WINDOWINFO 272 PLOT 240 HEIGHT 218 WIDTH 196 HEIGHT 174 WIDTH 103 HEIGHT 92 WIDTH 70 WIDTH 59 HEIGHT 35 HEIGHT 24 WIDTH 5 PLOT) ( 502 "Plot Icon" 434 "Plot Window" 392 50.0 234 0.8 212 0.8 190 0.1 168 0.1) PLOT.LABELTOWORLD :D8 (L (2 AXIS 1 PLOT 0 VALUE)) LBdgA g'#gA g'oB H@ABlH@(59 HELP) (46 YWORLDFN 39 PLOT 31 Y 23 XWORLDFN 16 PLOT 6 X) ( 53 "Illegal axis") PLOT.REPAINTFN :D8 (L (0 WINDOW)) @g (15 REDRAWPLOTWINDOW 10 GETWINDOWUSERPROP) (5 PLOT) () PLOT.RESET :D8 (L (5 NODRAWFLG 4 FLUSHPROPS 3 FLUSHMARGINS 2 YSCALE 1 XSCALE 0 PLOT)) @do@ @h@h@hC0o&d@Hhi @Hhi @Hhi A@gAi B@gBi D@h @ hE@ h(166 REDRAWPLOTWINDOW 127 PLOTAXISINTERVAL 111 PLOTAXISINTERVAL 91 PLOTTICMETHOD 81 PLOTTICS 71 PLOTLABEL 19 HELP) (154 MENUINFO 147 PLOT 137 PLOT 120 Y 104 X 44 PLOT 35 PLOT 26 PLOT 6 PLOT) ( 55 (BOTTOM LEFT TOP RIGHT) 13 "NOT A PLOT") PLOT.SETUP :D8 (L (0 OPSTABLE) F 7 LARGEPLOTFONT F 8 SMALLPLOTFONT) h@!HW cW cYg go1IKL HXJM Nh]K[N&(72 SET 67 APPLY 40 PACK* 24 FONTCREATE 15 FONTCREATE) (45 CREATEPLOTFNS 35 FNS) ( 50 (DRAWFN ERASEFN EXTENTFN DISTANCEFN HIGHLIGHTFN LOWLIGHTFN LABELFN MOVEFN COPYFN PUTFN GETFN)) PLOT.SKETCH.CREATE :D8 (L (0 PLOT)) @o@ g o@ o@2@ gHH h H YdhH @ @HIhH h(155 DRAWPLOT 150 DSPCLIPPINGREGION 140 ADJUSTVIEWPORT 134 DSPCLIPPINGREGION 125 CREATEVIEWPORT 116 OPENSKETCHSTREAM 107 GETBOXREGION 83 \INSUREWINDOW 40 PLOTPROMPT 28 CL:FBOUNDP 17 HELP) (93 REGION 76 WINDOWINFO 69 PLOT 59 WINDOWINFO 52 PLOT 23 OPENSKETCHSTREAM 5 PLOT) ( 46 "LAYOUT OF PLOT" 34 "SKETCHSTREAM not loaded" 11 "Not a PLOT ") PLOT.WHENSELECTEDFN :D8 (L (1 MENU 0 ITEM)) Ag A g  Ag H@hK0 L%Kd _O Oh_O&_O]Ig?HhJH Kl_JHMdnOk_o ONKk__HMdnOk_o OO(222 LISPERROR 177 LISPERROR 140 LOWLIGHTPLOTOBJECT 87 EVAL 47 GETMENUPROP 33 GETWINDOWUSERPROP 23 MAINWINDOW 18 WFROMMENU 10 GETMENUPROP) (130 PLOT 121 MIDDLE 54 PLOT 42 MODE 28 PLOT 5 PLOT) ( 217 "TOO MANY ARGUMENTS" 172 "TOO MANY ARGUMENTS") PLOT.WORLDTOLABEL :D8 (L (2 AXIS 1 PLOT 0 VALUE)) LBdgA g'#gA g'oB H@ABlH@(59 HELP) (46 YLABELFN 39 PLOT 31 Y 23 XLABELFN 16 PLOT 6 X) ( 53 "Illegal axis") PLOTADDMENUITEMS :D8 (L (2 ITEMSTOADD 1 MENUNAME 0 PLOT)) Adg@ ,g@ @ A'@A "BIALMb@AIB _IhZhO_NOh^L\[OKiJO&(110 PLOTMENUITEMS 105 \APPEND2 76 PLOTMENUITEMS) (65 MENUINFO 58 PLOT 48 MENUINFO 41 PLOT 32 RIGHT 23 MENUINFO 16 PLOT 6 MIDDLE) () PLOTADDPROP :D8 (L (3 FIRSTFLG 2 ITEMTOADD 1 PROP 0 PLOT)) 3@A ddhBH CBHHBh @AH (48 PLOTPROP 39 \APPEND2 23 MEMB 6 PLOTPROP) NIL () PLOTAXISINTERVAL :D8 (L (3 NODRAWFLG 2 INTERVAL 1 AXIS 0 PLOT) P 1 OLDVALUE) t@AdgHgHYB6AdgHBgHBC@ I(112 REDRAWPLOTWINDOW 103 SHOULDNT 51 SHOULDNT) (94 PLOTSCALE 86 Y 76 PLOTSCALE 67 X 58 AXISINTERVAL 43 PLOTSCALE 35 Y 26 PLOTSCALE 17 X 5 PLOT) () PLOTDELMENUITEMS :D8 (L (2 ITEMSTODELETE 1 MENUNAME 0 PLOT)) BddhbAdg@ ,g@ @ A'AHdYB!MJ @AI I^dd3@Ih[hNLLiKNI _iOI M](175 REMOVE 161 MEMBER 113 PLOTMENUITEMS) (90 MENU 75 MENUINFO 68 PLOT 58 MENUINFO 51 PLOT 42 RIGHT 33 MENUINFO 26 PLOT 16 MIDDLE) () PLOTDELPROP :D8 (L (2 ITEMTODELETE 1 PROP 0 PLOT)) 1@A BdH@Ah H @ABH (46 PLOTPROP 41 REMOVE 30 MEMB 23 PLOTPROP 6 PLOTPROP) NIL () PLOTLABEL :D8 (L (0 ARGS)) elHo kalaHllaHlla$JdgIYgI@JdgI$gIoJ ]d^HlMKd LI N(201 REDRAWPLOTWINDOW 190 MKSTRING 160 HELP 18 HELP) (182 MARGIN 167 MARGIN 146 MARGININFO 139 PLOT 131 RIGHT 122 MARGININFO 115 PLOT 105 TOP 94 MARGININFO 87 PLOT 78 LEFT 69 MARGININFO 62 PLOT 52 BOTTOM) ( 154 "Illegal margin" 13 "PLOTLABEL takes at least two args, plot and position") PLOTMENU :D8 (L (0 ARGS) P 5 OLDVALUE) ^elHo kalaHlla#I\JdgI ,gI I J']K1KdoK KKgHlJdgI KZgI K@Id I JKh JK L )Jg I g'Ih Ii M(346 PLOT.FIXRIGHTMENU 338 PLOT.FIXRIGHTMENU 305 OPENWP 298 LISTPUT 146 HELP 18 HELP) (329 FIXEDRIGHTMENU? 322 PLOT 313 RIGHT 289 MENUINFO 282 PLOT 268 MENUINFO 261 PLOT 250 MENUINFO 243 PLOT 231 MENUINFO 224 PLOT 215 RIGHT 205 MENUINFO 198 PLOT 188 MIDDLE 170 PLOT.WHENSELECTEDFN 165 MENU 156 MENU 133 MENU 118 MENUINFO 111 PLOT 101 MENUINFO 94 PLOT 85 RIGHT 76 MENUINFO 69 PLOT 59 MIDDLE 49 WINDOWINFO 42 PLOT) ( 140 "Not a menu" 13 "Must have at least two args, PLOT and MENUNAME") PLOTMENUITEMS :D8 (L (0 ARGS)) elHo kalaHlla#HlKoK JdgI ,gI I J'\HlHK;ddK 0`dKdg dgjdndhdM IJL lHLdK(202 PLOTMENU 145 COPYMENU 55 HELP 18 HELP) (216 MENU 173 DEFAULTMENUHELDFN 164 CLRPROMPT 152 |MENUTYPE#| 122 MENUINFO 115 PLOT 105 MENUINFO 98 PLOT 89 RIGHT 80 MENUINFO 73 PLOT 63 MIDDLE) ( 49 "Not a list" 13 "Must have at least two args, PLOT and MENUNAME") PLOTOBJECTADDPROP :D8 (L (3 FIRSTFLG 2 ITEMTOADD 1 PROP 0 OBJECT)) 3@A ddhBH CBHHBh @AH (48 PLOTOBJECTPROP 39 \APPEND2 23 MEMB 6 PLOTOBJECTPROP) NIL () PLOTOBJECTDELPROP :D8 (L (2 ITEMTODELETE 1 PROP 0 OBJECT)) 1@A BdH@Ah H @ABH (46 PLOTOBJECTPROP 41 REMOVE 30 MEMB 23 PLOTOBJECTPROP 6 PLOTOBJECTPROP) NIL () PLOTOBJECTLABEL :D8 (L (3 NODRAWFLG 2 PLOT 1 LABEL 0 OBJECT)) Y@do@ @A5C@dg'B@B @ABC@B H(85 LABELPLOTOBJECT 63 UNLABELPLOTOBJECT 19 HELP) (70 PLOTOBJECT 51 LABEL 44 PLOTOBJECT 26 PLOTOBJECT 6 PLOTOBJECT) ( 13 "NOT A PLOTOBJECT") PLOTOBJECTPROP :D8 (L (0 ARGS) P 5 OLDVALUE) _ elHo kalaHllaoDI^JL >JdgI-gIJgI NJ']HlJL JdgIKdoM)MK _dPOgO<`dKdgdg dgjdndh_dO KFgIK4JgIK !NIJKhJK M(347 LISTPUT 321 SHOULDNT 182 COPYMENU 138 MEMB 118 SHOULDNT 57 MEMB 18 HELP) (332 PLOTOBJECT 311 PLOTOBJECT 303 OBJECTDATA 292 PLOTOBJECT 284 OBJECTLABEL 249 DEFAULTMENUHELDFN 240 CLRPROMPT 231 PLOT.WHENSELECTEDFN 219 |MENUTYPE#| 207 PLOT.WHENSELECTEDFN 202 MENU 190 MENU 173 MENU 161 PLOTOBJECT 149 OBJECTMENU 110 PLOTOBJECT 102 OBJECTDATA 92 PLOTOBJECT 84 OBJECTLABEL 75 PLOTOBJECT 66 OBJECTMENU 47 PLOTOBJECT) ( 38 (OBJECTMENU OBJECTLABEL OBJECTDATA) 13 "OBJECTPROP takes at least two arguments, plotobject and prop") PLOTOBJECTPROPMACRO :D8 (L (0 ARGS)) Q@@o@l IgIJ gggogHhIh(40 MEMB 20 EQLENGTH) (67 of 57 fetch 52 LISTGET 46 IGNOREMACRO 29 QUOTE) ( 62 (PLOTOBJECT OBJECTUSERDATA) 9 (OBJECTMENU OBJECTLABEL OBJECTDATA)) PLOTOBJECTSUBTYPE :D8 (L (0 PLOTOBJECT)) @NIL (5 PLOTOBJECT) () PLOTOPERROR :D8 NIL o (9 HELP) NIL ( 4 "ATTEMPT To APPLY a generic PLOT operation to a deficient PLOT OBJECT") PLOTPROMPT :D8 (L (1 PLOT 0 TEXT)) #AH @H h(31 PRIN1 23 TERPRI) (12 WINDOWINFO 5 PLOT) () PLOTPROP :D8 (L (0 ARGS) P 5 OLDVALUE) elHo kalaHllao$I ^JL JI NJ']Hl4JL JIhgK NIJKh JK M(126 LISTPUT 100 RECORDACCESS 83 MEMB 65 RECORDACCESS 57 MEMB 18 HELP) (111 PLOT 93 REPLACE 47 PLOT) ( 38 (XLOWER XUPPER YLOWER YUPPER MIDDLEMENU RIGHTMENU OTHERMENUS LEFTMARGIN RIGHTMARGIN TOPMARGIN BOTTOMMARGIN PLOTWINDOW PLOTWINDOWVIEWPORT PLOTPROMPTWINDOW PLOTOBJECTS PLOTSCALE SELECTEDOBJECT WINDOWINFO MARGININFO MENUINFO PLOTUSERDATA PLOTSAVELIST) 13 "PLOTPROP TAKES AT LEAST TWO ARGUMENTS, PLOT and PROPNAME") PLOTPROPMACRO :D8 (L (0 ARGS)) @@@oIdggK p@l JgggIhgHhggIhgHgJhhggIhgHh@l yggogHhIh(160 EQLENGTH 50 EQLENGTH 40 MEMB) (184 of 174 fetch 169 LISTGET 145 of 134 PLOT 129 fetch 111 with 105 of 94 PLOT 89 replace 78 of 67 PLOT 62 fetch 57 PROG1 31 IGNOREMACRO 24 QUOTE) ( 179 (PLOT PLOTUSERDATA) 13 (XLOWER XUPPER YLOWER YUPPER MIDDLEMENU RIGHTMENU OTHERMENUS LEFTMARGIN RIGHTMARGIN TOPMARGIN BOTTOMMARGIN PLOTWINDOW PLOTWINDOWVIEWPORT PLOTPROMPTWINDOW PLOTOBJECTS PLOTSCALE SELECTEDOBJECT WINDOWINFO MARGININFO MENUINFO PLOTUSERDATA PLOTSAVELIST)) PLOTREMPROP :D8 (L (1 PROPNAME 0 PLOT) P 3 OLDVALUE) @o@ g @ "AH A@ IA'[AdH @hgh I ZKI@I IkJ J(120 NLEFT 90 MEMB 82 RECORDACCESS 67 MEMB 54 RECORDACCESS 46 MEMB 28 RECORDFIELDNAMES 17 HELP) (104 PLOT 75 REPLACE 34 PLOT 23 PLOT 5 PLOT) ( 11 "Not a plot") PLOTSCALEFN :D8 (L (0 ARGS) P 4 OLDVALUE) elHo kalaBJdgIgI[d\Hl"laHllaKMIJN L(131 RESCALEPLOT 83 SHOULDNT 18 HELP) (119 AXISINFO 90 AXISINFO 75 PLOTSCALE 68 PLOT 60 Y 51 PLOTSCALE 44 PLOT 34 X) ( 13 "Must have at least two args") PLOTTICFN :D8 (L (0 ARGS) P 4 OLDVALUE) elHo kalaBJdgIgI[d\Hl"laHllaKMIJN L(131 RESCALEPLOT 83 SHOULDNT 18 HELP) (119 AXISINFO 90 AXISINFO 75 PLOTSCALE 68 PLOT 60 Y 51 PLOTSCALE 44 PLOT 34 X) ( 13 "Must have at least two args") PLOTTICINFO :D8 (L (3 NODRAWFLG 2 NEWTICINFO 1 AXIS 0 PLOT) P 1 OLDVALUE) t@AdgHgH YB6AdgHBgHB C@ I(112 REDRAWPLOTWINDOW 103 SHOULDNT 51 SHOULDNT) (94 PLOTSCALE 86 Y 76 PLOTSCALE 67 X 58 TICINFO 43 PLOTSCALE 35 Y 26 PLOTSCALE 17 X 5 PLOT) () PLOTTICMETHOD :D8 (L (3 NODRAWFLG 2 NEWMETHOD 1 MARGINNAME 0 PLOT) P 1 OLDVALUE)  Adg@Ydg@>g@%Ag@oH XdYBHBCH@ I(157 REDRAWPLOTWINDOW 117 HELP) (148 MARGIN 136 MARGIN 124 MARGIN 103 MARGININFO 96 PLOT 88 RIGHT 78 MARGININFO 71 PLOT 62 TOP 53 MARGININFO 46 PLOT 36 LEFT 26 MARGININFO 19 PLOT 9 BOTTOM) ( 111 "ILLEGAL MARGIN") PLOTTICS :D8 (L (0 ARGS) P 4 OLDVALUE) elHo kalaBJdgIYgI@JdgI$gIoJ [d\Hl"laHllaKMNI L(190 REDRAWPLOTWINDOW 142 HELP 18 HELP) (178 MARGIN 149 MARGIN 128 MARGININFO 121 PLOT 113 RIGHT 104 MARGININFO 97 PLOT 87 TOP 76 MARGININFO 69 PLOT 60 LEFT 51 MARGININFO 44 PLOT 34 BOTTOM) ( 136 "Illegal margin" 13 "Must have at least two args") PRINTFONT :D8 (L (1 STREAM 0 FONT)) oA kA @g A kA oA kA @g A kA oA kA @g A kA oA kA @g A kA oA kA @g A oA i(232 PRIN1 220 PRIN1 214 FONTPROP 202 SPACES 194 PRIN1 182 SPACES 174 PRIN1 168 FONTPROP 156 SPACES 148 PRIN1 136 SPACES 128 PRIN1 122 FONTPROP 110 SPACES 102 PRIN1 90 SPACES 82 PRIN2 76 FONTPROP 64 SPACES 56 PRIN1 44 SPACES 36 PRIN2 30 FONTPROP 18 SPACES 10 PRIN1) (209 DEVICE 163 ROTATION 117 FACE 71 SIZE 25 FAMILY) ( 226 ")" 188 "DEVICE" 142 "ROTATION" 96 "FACE" 50 "SIZE" 4 "(READFONT)(FAMILY") PRINTMENU :D8 (L (1 STREAM 0 MENU)) oA kA @A kA oA kA @A kA oA kA @A kA oA kA @ A kA oA kA @A kA oA kA @A kA oA kA @Aid kA oA kA @A kA oA kA @ A kA oA kA @A kA oA kA @A kA oA kA @ A kA oA kA @ A kA oA kA @A kA oA kA @A kA oA kA @A oA i(695 PRIN1 683 PRIN2 668 SPACES 660 PRIN1 648 SPACES 640 PRIN2 625 SPACES 617 PRIN1 605 SPACES 597 PRIN2 582 SPACES 574 PRIN1 562 SPACES 554 PRIN2 536 SPACES 528 PRIN1 516 SPACES 508 PRIN2 489 SPACES 481 PRIN1 469 SPACES 461 PRIN2 446 SPACES 438 PRIN1 426 SPACES 418 PRIN2 403 SPACES 395 PRIN1 383 SPACES 375 PRIN2 360 SPACES 352 PRIN1 340 SPACES 332 PRIN2 317 SPACES 309 PRIN1 298 SPACES 291 HPRINT 275 SPACES 267 PRIN1 256 SPACES 248 PRIN2 233 SPACES 225 PRIN1 213 SPACES 205 PRIN2 190 SPACES 182 PRIN1 170 SPACES 162 PRIN2 147 SPACES 139 PRIN1 127 SPACES 119 PRIN2 104 SPACES 96 PRIN1 84 SPACES 76 PRIN2 61 SPACES 53 PRIN1 41 SPACES 33 PRIN2 18 SPACES 10 PRIN1) (675 MENU 632 MENU 589 MENU 543 MENU 496 MENU 453 MENU 410 MENU 367 MENU 324 MENU 281 MENU 240 MENU 197 MENU 154 MENU 111 MENU 68 MENU 25 MENU) ( 689 ")" 654 "CHANGEOFFSETFLG" 611 "MENUOUTLINESIZE" 568 "MENUBORDERSIZE" 522 "ITEMWIDTH" 475 "ITEMHEIGHT" 432 "MENUCOLUMNS" 389 "MENUROWS" 346 "CENTERFLG" 303 "TITLE" 261 "MENUFONT" 219 "MENUOFFSET" 176 "MENUPOSITION" 133 "WHENUNHELDFN" 90 "WHENHELDFN" 47 "WHENSELECTEDFN" 4 "(READMENU)(ITEMS") REDRAWPLOTWINDOW :D8 (L (0 PLOT)) @@@H @ @ H @ HgKH , KH (H ,  Hg KHg Ko H 8IhH @ H @H IhH Jd@ h(236 HIGHLIGHTPLOTOBJECT 226 DRAWPLOT 221 DSPCLIPPINGREGION 211 \INSUREWINDOW 203 CLEARW 196 ADJUSTVIEWPORT 190 DSPCLIPPINGREGION 180 SHAPEW 173 PROMPTPRINT 157 GETWINDOWPROP 140 GETWINDOWPROP 128 PUTWINDOWPROP 122 HEIGHTIFWINDOW 115 \INSUREWINDOW 107 \INSUREWINDOW 99 WIDTHIFWINDOW 92 \INSUREWINDOW 77 MINSTREAMREGIONSIZE 69 \INSUREWINDOW 62 CREATETICLISTS 53 OPENPLOTWINDOW 46 OPENWP) (152 HEIGHT 135 WIDTH 84 MAINWINDOWMINSIZE 35 PLOT 27 WINDOWINFO 20 PLOT 12 WINDOWINFO 5 PLOT) ( 168 "Plotwindow too small: reshape") RELABELSELECTEDPLOTOBJECT :D8 (L (1 PLOT 0 SELECTEDOBJECT)) gA@dg'@A @YH oIoHhdo Y@I@A h(99 LABELPLOTOBJECT 82 PROMPTFORWORD 57 TERPRI 41 UNLABELPLOTOBJECT) (89 PLOTOBJECT 48 PLOTOBJECT 31 LABEL 24 PLOTOBJECT 12 WINDOWINFO 5 PLOT) ( 76 (13 10 27 9) 68 "ENTER NIL FOR NO LABEL" 62 "TYPE NEW LABEL :") RESCALEPLOT :D8 (L (2 NODRAWFLG 1 AXIS 0 PLOT)) 9 Agb@ @@ ZdJdJdJdIHHHHAgAdgBLK;H_KLO@ _HOHKLOO@ AgAg@NM;H_MNO@ _HO HMNOO@ B@ h(308 REDRAWPLOTWINDOW 297 CHOOSESCALE 264 CHOOSETICS 218 CHOOSESCALE 185 CHOOSETICS 35 EXTENTOFPLOT) (284 PLOTSCALE 273 PLOTSCALE 249 PLOTSCALE 235 Y 227 BOTH 205 PLOTSCALE 194 PLOTSCALE 170 PLOTSCALE 155 X 146 BOTH 136 PLOTSCALE 128 PLOTSCALE 120 PLOTSCALE 112 PLOTSCALE 89 EXTENT 73 EXTENT 57 EXTENT 41 EXTENT 26 PLOT 15 PLOT 6 BOTH) () SCALE :D8 (L (4 POWER 3 ROUND 2 NTICS 1 MAX 0 MIN)) 9 CobBk1A@HYoD I bIDZdCl DbC CC"MLN@Q ALKD־A@HNoN_NO _]@NOk_o@jMj_oOH_NOAo Loj_ojH_NOCkK [wC l Dbf_NdUJOKNL\;`dLdMdNdB(240 LAST 229 NLEFT 132 PLOT.CEILING 69 LAST 45 EXPT 40 PLOT.FLOOR 35 PLOT.LOG10) (285 |TICINFOTYPE#|) ( 209 0.0 197 0.0 188 0.0 169 0.0 153 0.0 118 2.0 26 10.0 6 (5.0 2.5 2.0 1.5 1.0)) TOGGELLABEL :D8 (L (1 PLOT 0 SELECTEDOBJECT)) !@dg'@A A (30 LABELPLOTOBJECT 23 UNLABELPLOTOBJECT) (13 LABEL 6 PLOTOBJECT) () TOGGLEEXTENDEDAXES :D8 (L (1 AXIS 0 PLOT)) Agb@g @g AgAdgLHg@g@ g'$@g@g @ggi AgAgJIg@g@ g'$@g@g @ggi @A (222 RESCALEPLOT 213 PLOTSCALEFN 195 PLOTPROP 190 PLOTSCALEFN 124 PLOTSCALEFN 106 PLOTPROP 101 PLOTSCALEFN 31 PLOTSCALEFN 20 PLOTSCALEFN) (207 EXTENDEDSCALEFN 202 Y 185 Y 179 OLDYSCALEFN 170 OLDYSCALEFN 163 PLOT 157 Y 148 EXTENDEDSCALEFN 139 BOTH 131 Y 118 EXTENDEDSCALEFN 113 X 96 X 90 OLDXSCALEFN 81 OLDXSCALEFN 74 PLOT 68 X 59 EXTENDEDSCALEFN 49 BOTH 40 X 26 Y 15 X 6 BOTH) () TOGGLEFIXEDMENU :D8 (L (0 PLOT)) @d h (13 PLOT.FIXRIGHTMENU 6 PLOT.FIXRIGHTMENU) NIL () TOGGLETICS :D8 (L (1 MARGINNAME 0 PLOT)) MA,o d@dH @HhiHid @dA @AhiAid @ (74 REDRAWPLOTWINDOW 67 PLOTTICS 52 PLOTTICS 37 PLOTTICS 22 PLOTTICS) NIL ( 7 (BOTTOM LEFT)) TRANSLATEPLOTOBJECT :D8 (L (4 NODRAWFLG 3 PLOT 2 DY 1 DX 0 OBJECT)) @g'@g'D/@CCC Ch@C @ABC D@CC H!Id<@ABCDlI,gIABCD d@ABCDlJh(157 TRANSLATEPLOTOBJECT 112 DRAWPLOTOBJECT 87 MOVEPLOTOBJECT 77 ERASEPLOTOBJECT 59 LOWLIGHTPLOTOBJECT) (141 LAMBDA 104 WINDOWINFO 97 PLOT 66 PLOT 51 PLOT 40 PLOT 26 WHENTRANSLATEDFN 19 PLOTOBJECT 12 LABEL 5 PLOTOBJECT) () UNDELETEPLOTOBJECT :D8 (L (1 MODE 0 PLOT))  Agb@AHo@ hAdgHhgH AgAg`HkR MPOdKdg dgjdndhdL YAg^HI h__O oO O Nh_OOh__MNkԾjO&_HIkC MO<_ONO_OOh__Ok_M]O&_o Zd`dd@ @AdgH:gh0AdgHI gJH o J(422 SHOULDNT 411 DREMOVE 393 NTH 341 ADDPLOTOBJECT 327 SHOULDNT 216 PLOTOBJECTSUBTYPE 208 CONCAT 196 PLOTOBJECTSUBTYPE 169 NTH 146 MENU 33 PLOTPROMPT) (401 SELECT 383 ABOVE 371 ALL 359 TOP 352 PLOT 183 PLOTOBJECT 159 SELECT 121 DEFAULTMENUHELDFN 112 CLRPROMPT 87 |MENUTYPE#| 77 SELECT 69 ABOVE 57 ALL 42 TOP 15 PLOT 6 TOP) ( 417 "ILLEGAL MODE" 322 "Illegal mode" 201 " " 27 "No object to undelete") UNLABELPLOTOBJECT :D8 (L (1 PLOT 0 OBJECT)) o@g'@g'HoA hA @gh Id @AlIgId@AlJ(65 PLOTOBJECTPROP 52 ERASEPLOTOBJECT 44 PLOTPROMPT) (88 LAMBDA 59 LABEL 26 WHENUNLABELEDFN 19 PLOTOBJECT 12 LABEL 5 PLOTOBJECT) ( 38 "NOT A LABELED OBJECT") WHICHLABEL :D8 (L (0 PLOT)) 'oo@ H Yd @I h(35 ASKFORLABEL 24 MENU 18 PLOTPROMPT) NIL ( 12 "Select a margin" 4 (create MENU ITEMS _ (QUOTE (TOP LEFT BOTTOM RIGHT)))) WHICHPLOT :D8 (L (1 Y 0 X)) @@ @A Hg Hg g YdI(51 GETWINDOWUSERPROP 41 GETWINDOWUSERPROP 28 GETWINDOWUSERPROP 14 WHICHW 5 WINDOWP) (58 PLOT 46 PLOT 36 ICONFOR 23 PLOT) () PLOT.PRINTNUM :D8 (L (0 F)) @blgggj o@j@bBo@o@3@dj.dd "@l \LHJKI @l ]MHJKI (143 PLOT.FNUM-STRING 127 \MVLIST 122 FLTSTR 113 PLOT.ENUM-STRING 97 \MVLIST 92 FLTSTR 81 \FZEROP 31 CL:MAKE-ARRAY) (24 :FILL-POINTER 19 CL:STRING-CHAR 14 :ELEMENT-TYPE 5 FLOATP) ( 61 1.0E+7 53 0.001 36 0.0) PLOT.FNUM-STRING :D8 (L (3 MINUSP 2 INTEXP 1 MANTSTR 0 OUTSTR)) &A p%HBԹjC@oKjkjI@JoMLJkԺ@_JoONJkԺjIj__OO"@_J_oOOJkԺOk_Hj__OO@_J_AOOOJkԺOk_jBlIj_&_$O$O&!@_"J_ AO&O"O JkԺO&k_&@_*J_(oO*O(JkԺI_0H@_.J_,AO0O.O,JkԺO0k԰Hj_8_6O6O8!@_4J_2AO8O4O2JkԺO8k_8Bj_@_>O>O@"@_@" 4 "#<") PRINTPLOTOBJECT :D8 (L (2 STREAM 1 PLOT 0 PLOTOBJECT)) `@g'ddhAoB kB oB kB @B kB oB kB @@ABlIkB oB kB @Bid kB oB kB @B kB oB 0@dNMh_M&O,d\B kB HZ%h@L Bhi oB i@ALBlKKiJ(327 PRIN1 311 HPRINT 303 PLOTOBJECTPROP 288 SPACES 280 PRIN1 233 PRIN1 222 SPACES 214 PRIN2 199 SPACES 191 PRIN1 179 SPACES 172 HPRINT 156 SPACES 148 PRIN1 136 SPACES 105 SPACES 97 PRIN1 85 SPACES 77 PRIN2 62 SPACES 54 PRIN1 42 SPACES 34 PRIN1) (242 PLOTOBJECT 206 PLOTOBJECT 162 PLOTOBJECT 118 PLOTFNS 111 PLOTOBJECT 69 PLOTOBJECT 12 PUTFN 5 PLOTOBJECT) ( 321 "))" 227 "OBJECTUSERDATA (" 185 "OBJECTLABEL" 142 "OBJECTMENU" 91 "OBJECTDATA" 48 "OBJECTSUBTYPE" 28 "(READPLOTOBJECT)(") PRINTPLOT :D8 (L (1 STREAM 0 PLOT)) @ g'ddhAoA oA kA g @ oA kA @ Aid oA kA g @ oA kA @ Aid o'dYA kA I@ Aid kA oA @dAid oA kA kA oA 0@ dNMh_M&O7dkA LA kA HhZ8h@L Ahi oA kA oA i@LAlKKiJ(470 PRIN1 459 SPACES 451 PRIN1 435 HPRINT 427 PLOTPROP 410 SPACES 402 PRIN1 394 SPACES 346 PRIN1 334 SPACES 327 SPACES 319 PRIN1 303 HPRINT 284 PRIN1 272 SPACES 260 HPRINT 252 RECORDACCESS 244 SPACES 236 PRIN1 217 HPRINT 192 SPACES 184 PRIN1 155 PLOT.DEFAULTMENU 145 SPACES 137 PRIN1 125 HPRINT 100 SPACES 92 PRIN1 63 PLOT.DEFAULTMENU 53 SPACES 45 PRIN1 34 PRIN1) (355 PLOT 290 PLOT 207 MENUINFO 200 PLOT 168 MENUINFO 161 PLOT 150 MIDDLE 115 MENUINFO 108 PLOT 76 MENUINFO 69 PLOT 58 RIGHT 12 PUTFN 5 PLOT) ( 464 ")" 445 ")" 340 "PLOTUSERDATA (" 313 ")" 278 "PLOTOBJECTS (" 223 ((PLOT OTHERMENUS) (PLOT LEFTMARGIN) (PLOT TOPMARGIN) (PLOT RIGHTMARGIN) (PLOT BOTTOMMARGIN) (PLOT PLOTSCALE)) 178 "DEFAULT" 131 "MIDDLEMENU" 86 "DEFAULT" 39 "RIGHTMENU" 28 "(READPLOT)(") READFONT :D8 (L (0 STREAM)) 4@ Hg'Hg'Hg'Hg'Hg' (49 FONTCREATE 5 READ) (42 DEVICE 35 ROTATION 28 FACE 21 SIZE 14 FAMILY) () READMENU :D8 (L (0 STREAM)) *@ 0`Hg'dIHg'dJHg'dKHg'dL Hg'dMHg'dNHg'_dOHg'_dOHg'_dO Hg'_dOHg'_dOHg'_"Hg'_ Hg'_dOHg'_dOHg'_dOjdndh_dO _$d O"O$ O (5 HREAD) (287 MENU 271 MENU 233 CHANGEOFFSETFLG 217 MENUOUTLINESIZE 201 MENUBORDERSIZE 191 ITEMWIDTH 181 ITEMHEIGHT 165 MENUCOLUMNS 149 MENUROWS 133 CENTERFLG 117 TITLE 101 MENUFONT 88 MENUOFFSET 75 MENUPOSITION 62 WHENUNHELDFN 49 WHENHELDFN 36 WHENSELECTEDFN 23 ITEMS 16 |MENUTYPE#|) () READPLOTOBJECT :D8 (L (0 STREAM)) @ qHg'Ydg Zd[JIHg'Hg'KHg'kN \Hg']dM" O_OL_LOOddg_LOlO O_O_(148 PLOTOBJECTPROP 76 CREATEPLOTOBJECT 32 EVAL 27 PACK* 5 HREAD) (128 FUNCTION 83 OBJECTUSERDATA 66 OBJECTDATA 57 OBJECTMENU 50 OBJECTLABEL 39 PLOTFNS 22 FNS 14 OBJECTSUBTYPE) () READPLOT :D8 (L (0 STREAM)) W@  Hg'Hg'Hg'P`Hg'_Hg'_Hg'_Hg'_Hg'_Hg'dLHg'dM`dOdN `dOdOdOdO_dO`_dO_gIdgd OgJdgd KK"O_OO_OOOd%d dg_OOOlO O_O_(324 PLOTPROP 246 PLOTMENU 241 PLOT.DEFAULTMENU 218 PLOTMENU 213 PLOT.DEFAULTMENU 5 HREAD) (297 FUNCTION 232 DEFAULT 225 MIDDLE 204 DEFAULT 197 RIGHT 179 |WINDOWINFOTYPE#| 140 |MARGININFOTYPE#| 122 |MENUINFOTYPE#| 110 PLOTOBJECTS 97 PLOTSCALE 87 BOTTOMMARGIN 77 RIGHTMARGIN 67 TOPMARGIN 57 LEFTMARGIN 47 OTHERMENUS 40 |PLOTTYPE#| 30 PLOTUSERDATA 22 MIDDLEMENU 14 RIGHTMENU) () PRINT-VECTOR :D8 (L (1 STREAM 0 VECTOR)) oA @g A (27 PRIN2 21 COERCE 10 PRIN1) (16 LIST) ( 4 "(READ-VECTOR)") READ-VECTOR :D8 (L (0 STREAM)) @ H gH (25 CL:MAKE-ARRAY 14 LENGTH 5 HREAD) (19 :INITIAL-CONTENTS) () PLOT.EXP10 :D8 (L (0 X)) o@ (10 EXPT) NIL ( 4 10.0) PLOT.LOG10 :D8 (L (0 X)) o@ (10 LOG) NIL ( 4 0.43429446) PLOT.FLOOR :D8 (L (0 X)) !@bdjj@Hd@ Hk(25 EQP) (5 FLOATP) () PLOT.CEILING :D8 (L (0 X)) #@bdjj@HHd@ Hk(27 EQP) (5 FLOATP) () SINEWAVE :D8 (L (4 AMPLITUDE 3 TO 2 FROM 1 FREQUENCY 0 N)) ` ooCBAkbDkb@kBI@D KJ4LDALi _LMԼO_OOh_Kk[O&_N(53 SIN) NIL ( 9 3.14159 4 2.0) CREATEPLOTIMAGEOBJ :D8 (L (0 PLOT)) X@!Hd H @ ` ZgI JgI J(84 IMAGEOBJPROP 68 IMAGEOBJPROP 53 IMAGEOBJCREATE 43 COPYPLOT 32 \INSUREWINDOW 24 WINDOWP) (74 HEIGHT 59 WIDTH 48 PLOTIMAGEFNS 12 WINDOWINFO 5 PLOT) () CREATEPLOTBITMAPOBJ :D8 (L (0 PLOT)) A@Hg Hg HhdI Ikj (62 BITMAPTEDITOBJ 54 BITBLT 44 BITMAPCREATE 39 GETWINDOWPROP 28 GETWINDOWPROP) (34 HEIGHT 23 WIDTH 12 WINDOWINFO 5 PLOT) () PLIO.BUTTONEVENTINFN :D8 (L (7 BUTTON 6 TEXTSTREAM 5 WINDOW 4 RELY 3 RELX 2 SELECTION 1 WINDOWSTREAM 0 PLOTIMAGEOBJ))  o@g @g @g 4GGgH dgdI I \LhA hA JK @gM @gM ggWIhJ Ki o ^gFEA Ng@ Nggi i(262 WINDOWADDPROP 244 PUTWINDOWPROP 231 PUTWINDOWPROP 213 OPENPLOTWINDOW 208 COPYPLOT 198 GETBOXREGION 193 HEIGHTIFWINDOW 186 WIDTHIFWINDOW 164 IMAGEOBJPROP 147 IMAGEOBJPROP 131 GETREGION 126 CREATEREGION 119 DSPYOFFSET 112 DSPXOFFSET 101 MINSTREAMREGIONSIZE 93 \INSUREWINDOW 63 MENU 37 IMAGEOBJPROP 26 IMAGEOBJPROP 15 IMAGEOBJPROP) (256 PLIO.EDITCLOSEFN 251 CLOSEFN 238 SOURCEIMAGEOBJ 219 SOURCEHOST 175 EDIT 169 CHANGED 154 HEIGHT 138 WIDTH 86 WINDOWINFO 79 PLOT 69 RESHAPE 50 LEFT 32 HEIGHT 21 WIDTH 10 OBJECTDATUM) ( 203 "Plot Edit Window" 4 (create MENU CENTERFLG _ T ITEMS _ (QUOTE (("Select" (QUOTE SELECT) "Select the image object") ("Reshape" (QUOTE RESHAPE) "Reshape the image objcet") ("Plot Window" (QUOTE EDIT) "Open a window containing plot"))))) PLIO.COPYFN :D8 (L (0 PLOTIOBJ)) Xh` Hg@g Hg@g Hg@g H(84 IMAGEOBJPROP 79 IMAGEOBJPROP 62 IMAGEOBJPROP 57 IMAGEOBJPROP 40 IMAGEOBJPROP 35 COPYPLOT 30 IMAGEOBJPROP 10 IMAGEOBJCREATE) (74 HEIGHT 68 HEIGHT 52 WIDTH 46 WIDTH 25 OBJECTDATUM 19 OBJECTDATUM 5 PLOTIMAGEFNS) () PLIO.GETFN :D8 (L (1 TEXTSTREAM 0 STREAM)) B@ Hg'` YdgHg' IgHg' I(62 IMAGEOBJPROP 44 IMAGEOBJPROP 25 IMAGEOBJCREATE 5 HREAD) (56 HEIGHT 50 HEIGHT 38 WIDTH 32 WIDTH 20 PLOTIMAGEFNS 14 PLOT) () PLIO.PUTFN :D8 (L (1 STREAM 0 PLOTIMAGEOBJ)) oA kA @g A kA oA kA @g A kA oA kA @g Aid oA (140 PRIN1 129 HPRINT 121 IMAGEOBJPROP 110 SPACES 102 PRIN1 90 SPACES 82 PRIN1 76 IMAGEOBJPROP 64 SPACES 56 PRIN1 44 SPACES 36 PRIN1 30 IMAGEOBJPROP 18 SPACES 10 PRIN1) (116 OBJECTDATUM 71 HEIGHT 25 WIDTH) ( 134 ")" 96 "PLOT" 50 "HEIGHT" 4 "(WIDTH") PLIO.REINSERTOBJ :D8 (L (0 PLOT)) @!Hg YHg Zdd oJ Jg@ JgHg JgHg IJ h(130 IMAGE.OBJECT.CHANGED 123 IMAGEOBJPROP 118 GETWINDOWPROP 101 IMAGEOBJPROP 96 GETWINDOWPROP 79 IMAGEOBJPROP 74 COPYPLOT 61 HELP 48 IMAGEOBJP 40 GETWINDOWUSERPROP 28 GETWINDOWUSERPROP) (113 HEIGHT 107 HEIGHT 91 WIDTH 85 WIDTH 68 OBJECTDATUM 35 SOURCEIMAGEOBJ 23 SOURCEHOST 12 WINDOWINFO 5 PLOT) ( 55 "Not an IMAGEOBJ") PLOT.COPYBUTTONEVENTFN :D8 (L (0 WINDOW)) @g o"@ `l[jKK @ @h@ 1I dgH ZgH J J h(129 COPYINSERT 119 CREATEPLOTBITMAPOBJ 104 CREATEPLOTIMAGEOBJ 89 MENU 81 INSIDEP 76 CURSORPOSITION 68 INVERTW 59 \BACKGROUND 53 \FZEROP 29 GETMOUSESTATE 24 INVERTW 10 GETWINDOWUSERPROP) (111 BITMAP 95 PLOT 35 LASTMOUSEBUTTONS 5 PLOT) ( 15 (create MENU ITEMS _ (QUOTE ((Plot (QUOTE PLOT)) (Bitmap (QUOTE BITMAP)))))) PLIO.DISPLAYFN :D8 (L (1 IMAGESTREAM 0 PLOTIOBJ)) @g @g hA IIAA @gI hA hA J@g J@g [H IKH HAIK h(144 DRAWPLOT 135 ADJUSTVIEWPORT 127 CREATETICLISTS 120 CREATEREGION 115 FIXR 109 IMAGEOBJPROP 97 FIXR 91 IMAGEOBJPROP 79 DSPYPOSITION 72 DSPXPOSITION 64 IMAGEOBJPROP 51 CREATEVIEWPORT 28 DSPSCALE 21 IMAGEOBJPROP 10 IMAGEOBJPROP) (104 HEIGHT 86 WIDTH 58 VIEWPORT 39 VIEWPORT 16 VIEWPORT 5 OBJECTDATUM) () PLIO.IMAGEBOXFN :D8 (L (3 RIGHTMARGIN 2 CURRENTX 1 IMAGESTREAM 0 PLOTIOBJ)) >@g @g @g AhA kKHKIjdh(41 DSPSCALE 32 IMAGEOBJPROP 21 IMAGEOBJPROP 10 IMAGEOBJPROP) (27 OBJECTDATUM 16 HEIGHT 5 WIDTH) () PLIO.EDITCLOSEFN :D8 (L (0 W)) Po dg@ hdghhgXd@gg H(76 WINDOWDELPROP 32 PLIO.REINSERTOBJ 27 WHICHPLOT 12 MENU) (71 PLIO.EDITCLOSEFN 66 CLOSEFN 56 DON'T 42 NO 18 YES) ( 7 (create MENU TITLE _ "Change source image object?" ITEMS _ (QUOTE (("Yes" (QUOTE YES) "This image used in the document instead of the one that is there.") ("No" (QUOTE NO) "The changes made to this image will not be put into the document."))) CENTERFLG _ T)) IMAGE.OBJECT.CHANGEDA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 HOST F 3 SI::NLSETQ-VALUE) i@R hcg(10 TEXTSTREAM) (19 :NORMAL) () IMAGE.OBJECT.CHANGEDA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 HOST F 3 SI::NLSETQ-VALUE) i@R hcg(10 INSURE.SKETCH) (19 :NORMAL) () IMAGE.OBJECT.CHANGED :D8 (L (1 OBJECT) P 4 *CONDITION-HANDLER-BINDINGS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE I 0 HOST F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS*) `UioVJ gID`UioVJ gIXo@  H A d h(123 REDISPLAYW 115 TEDIT.OBJECT.CHANGED 108 SKETCH.ALL.VIEWERS 102 SK.MARK.DIRTY 96 HELP 70 IMAGE.OBJECT.CHANGEDA0002 29 IMAGE.OBJECT.CHANGEDA0001) (76 :NORMAL 51 SI::NLSETQ-PROCEED-CASE 35 :NORMAL 10 SI::NLSETQ-PROCEED-CASE) ( 90 "Can't update image object in " 59 (CL:ERROR . SI::NLSETQHANDLER) 18 (CL:ERROR . SI::NLSETQHANDLER)) (PRETTYCOMPRINT PLOTCOMS) (RPAQQ PLOTCOMS ((* ;;; "PLOT manager fns") (FNS ADDPLOTOBJECT ADJUSTSCALE? ADJUSTVIEWPORT APPLY.AFTERFN.MACRO ASKFORLABEL ASKFORSCALE BOXREGION CHOOSESCALE CHOOSETICS CLOSEPLOTWINDOW CLOSESTPLOTOBJECT COMPOUNDSUBTYPE COMPUTEBOTTOMMARGIN COMPUTELEFTMARGIN COMPUTERIGHTMARGIN COMPUTETOPMARGIN COPYMENU CREATEPLOT CREATEPLOTFNS CREATEPLOTOBJECT DEFAULTSCALEFN DEFAULTTICFN DEFAULTTICMETHOD DELETEPLOTOBJECT DESELECTPLOTOBJECT DISTANCETOPLOTOBJECT DRAWBOTTOMMARGIN DRAWLEFTMARGIN DRAWMARGIN DRAWPLOTOBJECT DRAWPLOT DRAWRIGHTMARGIN DRAWTOPMARGIN ERASEPLOTOBJECT EXTENDEDSCALEFN EXTENTOFPLOTOBJECT EXTENTOFPLOT GETPLOTWINDOW GETTICLIST HIGHLIGHTPLOTOBJECT LABELPLOTOBJECT LOWLIGHTPLOTOBJECT MANUALRESCALE MINSTREAMREGIONSIZE MOVEPLOTOBJECT OPENPLOTWINDOW PLOT.BUTTONEVENTFN PLOT.CLOSEFN PLOT.DEFAULTMENU PLOT.FIXRIGHTMENU PLOT.HARDCOPYFN PLOT.ICONFN PLOT.LABELTOWORLD PLOT.REPAINTFN PLOT.RESET PLOT.SETUP PLOT.SKETCH.CREATE PLOT.WHENSELECTEDFN PLOT.WORLDTOLABEL PLOTADDMENUITEMS PLOTADDPROP PLOTAXISINTERVAL PLOTDELMENUITEMS PLOTDELPROP PLOTLABEL PLOTMENU PLOTMENUITEMS PLOTOBJECTADDPROP PLOTOBJECTDELPROP PLOTOBJECTLABEL PLOTOBJECTPROP PLOTOBJECTPROPMACRO PLOTOBJECTSUBTYPE PLOTOPERROR PLOTPROMPT PLOTPROP PLOTPROPMACRO PLOTREMPROP PLOTSCALEFN PLOTTICFN PLOTTICINFO PLOTTICMETHOD PLOTTICS PRINTFONT PRINTMENU REDRAWPLOTWINDOW RELABELSELECTEDPLOTOBJECT RESCALEPLOT SCALE TOGGELLABEL TOGGLEEXTENDEDAXES TOGGLEFIXEDMENU TOGGLETICS TRANSLATEPLOTOBJECT UNDELETEPLOTOBJECT UNLABELPLOTOBJECT WHICHLABEL WHICHPLOT) (* ;; "Fns to do our own number printing") (FNS PLOT.PRINTNUM PLOT.FNUM-STRING PLOT.ENUM-STRING CREATETICLISTS NORMALIZE-TICLIST) (FNS DRAW-TICS-LEFT-RIGHT DRAW-TICS-TOP-BOTTOM DRAW-LABEL-LEFT-RIGHT DRAW-LABEL-TOP-BOTTOM) (VARS PLOT.DEFAULTMIDDLEMENUITEMS PLOT.DEFAULTRIGHTMENUITEMS OBJECTOPSTABLE) ( RECORDS EXTENT MARGIN PLOT PLOTFNS PLOTOBJECT AXISINFO AXISINTERVAL PLOTSCALE TICINFO) (MACROS APPLY.AFTERFN PLOTOBJECTSUBTYPE? PLOTOBJECTPROP PLOTPROP) (PROP ARGNAMES PLOTOBJECTPROP PLOT.DEFAULTMENU PLOT.FIXRIGHTMENU PLOTLABEL PLOTMENU PLOTMENUITEMS PLOTPRETTYFNS PLOTPROP PLOTSCALEFN PLOTTICFN PLOTTICS) (INITVARS (SMALLPLOTFONT (QUOTE (GACHA 8 MRR))) (LARGEPLOTFONT (QUOTE (GACHA 12 BRR)))) (* ;;; "PLOT I/O") (FNS COPYPLOTOBJECT COPYPLOT PLOTOBJECTPRINT PRINTPLOTOBJECT PRINTPLOT READFONT READMENU READPLOTOBJECT READPLOT) (FNS PRINT-VECTOR READ-VECTOR) (FILEPKGCOMS PLOTS) (ADDVARS (HPRINTMACROS (FONTDESCRIPTOR . PRINTFONT) (MENU . PRINTMENU) (PLOT . PRINTPLOT) (PLOTOBJECT . PRINTPLOTOBJECT) (ONED-ARRAY . PRINT-VECTOR))) (ADDVARS (HPRINTREADFNS READPLOT READPLOTOBJECT READFONT READMENU READ-VECTOR)) (P (DEFPRINT (QUOTE PLOTOBJECT) (FUNCTION PLOTOBJECTPRINT))) (* ;;; "Numeric fns") (FNS PLOT.EXP10 PLOT.LOG10 PLOT.FLOOR PLOT.CEILING SINEWAVE) (* ;;; "PLOT image object FNS") (FNS CREATEPLOTIMAGEOBJ CREATEPLOTBITMAPOBJ PLIO.BUTTONEVENTINFN PLIO.COPYFN PLIO.GETFN PLIO.PUTFN PLIO.REINSERTOBJ PLOT.COPYBUTTONEVENTFN PLIO.DISPLAYFN PLIO.IMAGEBOXFN) (* ;; "additional fns to allow plot im. objs. to work in Sketch") (FNS PLIO.EDITCLOSEFN IMAGE.OBJECT.CHANGED ) (INITVARS (PLOTIMAGEFNS (IMAGEFNSCREATE (FUNCTION PLIO.DISPLAYFN) (FUNCTION PLIO.IMAGEBOXFN) ( FUNCTION PLIO.PUTFN) (FUNCTION PLIO.GETFN) (FUNCTION PLIO.COPYFN) (FUNCTION PLIO.BUTTONEVENTINFN) ( FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL)))) ( GLOBALVARS PLOTIMAGEFNS) (* ;;; "Initialize") (P (PLOT.SETUP OBJECTOPSTABLE) (PLOT.DEFAULTMENU (QUOTE MIDDLE) PLOT.DEFAULTMIDDLEMENUITEMS) (PLOT.DEFAULTMENU (QUOTE RIGHT) PLOT.DEFAULTRIGHTMENUITEMS)) (* ;;; "Dependent files") (FILES TWODGRAPHICS PLOTOBJECTS) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP) TWODGRAPHICS UNBOXEDOPS)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML ) (LAMA PLOTTICS PLOTTICFN PLOTSCALEFN PLOTPROP PLOTOBJECTPROP PLOTMENUITEMS PLOTMENU PLOTLABEL PLOT.FIXRIGHTMENU PLOT.DEFAULTMENU))))) (RPAQQ PLOT.DEFAULTMIDDLEMENUITEMS ((Label TOGGELLABEL "Toggle label on/off" (SUBITEMS (Relabel RELABELSELECTEDPLOTOBJECT "Change label"))) (Delete DELETEPLOTOBJECT "Delete object"))) (RPAQQ PLOT.DEFAULTRIGHTMENUITEMS ((Layout PLOT.SKETCH.CREATE "Create a sketch of the PLOT") (Redraw REDRAWPLOTWINDOW "Redraw plot") (Rescale RESCALEPLOT "Rescale plot axes" (SUBITEMS (X% Axis ( RESCALEPLOT (QUOTE X)) "Rescale X axis" (SUBITEMS (Automatic (RESCALEPLOT (QUOTE X)) "Rescale automatically") (Manual (MANUALRESCALE (QUOTE X)) "Rescale manually"))) (Y% Axis (RESCALEPLOT (QUOTE Y)) "Rescale Y axis" (SUBITEMS (Automatic (RESCALEPLOT (QUOTE Y)) "Rescale automatically") ( Manual (MANUALRESCALE (QUOTE Y)) "Rescale manually"))))) (Extend TOGGLEEXTENDEDAXES "Extend plot axes on/off" (SUBITEMS (X% Axis (TOGGLEEXTENDEDAXES (QUOTE X)) "Extend X axis on/off") ( Y% Axis (TOGGLEEXTENDEDAXES (QUOTE Y)) "Extend Y axis on/off"))) (Labels WHICHLABEL "Relabel plot" ( SUBITEMS (Title (ASKFORLABEL (QUOTE TOP)) "Title plot") (Left (ASKFORLABEL (QUOTE LEFT)) "Label left of plot") (Bottom (ASKFORLABEL (QUOTE BOTTOM)) "Label bottom of plot") (Right (ASKFORLABEL (QUOTE RIGHT)) "Label right of plot"))) (Tics TOGGLETICS "Tics on or off" (SUBITEMS (Top (TOGGLETICS (QUOTE TOP)) "Top tics on/off") (Left (TOGGLETICS (QUOTE LEFT)) "Left tics on/off") (Bottom ( TOGGLETICS (QUOTE BOTTOM)) "Bottom tics on/off") (Right (TOGGLETICS (QUOTE RIGHT)) "Right tics on/off" ))) (Undelete UNDELETEPLOTOBJECT "Undelete last deleted object" (SUBITEMS (Top (UNDELETEPLOTOBJECT ( QUOTE TOP)) "Undelete last deleted object") (Select (UNDELETEPLOTOBJECT (QUOTE SELECT)) "Select object to undelete") (Above (UNDELETEPLOTOBJECT (QUOTE ABOVE)) "Undelete all objects above selected object") (All (UNDELETEPLOTOBJECT (QUOTE ALL)) "Undelete all deleted objects"))) (Fixed% Menu TOGGLEFIXEDMENU "Fix Plot menu"))) (RPAQQ OBJECTOPSTABLE ((POINT (DRAWFN DRAWPOINTOBJECT) (ERASEFN ERASEPOINTOBJECT) (HIGHLIGHTFN HIGHLIGHTPOINT) (MOVEFN MOVEPOINT) (LABELFN LABELPOINT) (EXTENTFN EXTENTOFPOINT) (DISTANCEFN DISTANCETOPOINT) (COPYFN COPYPOINT) (PUTFN PUTPOINT) (GETFN GETPOINT)) (CURVE (DRAWFN DRAWCURVEOBJECT) (ERASEFN ERASECURVEOBJECT) (HIGHLIGHTFN HIGHLIGHTCURVE) (MOVEFN MOVECURVE) (EXTENTFN EXTENTOFCURVE) ( DISTANCEFN DISTANCETOCURVE) (COPYFN COPYCURVE) (PUTFN PUTCURVE) (GETFN GETCURVE)) (POLYGON (DRAWFN DRAWPOLYGONOBJECT) (ERASEFN ERASEPOLYGONOBJECT) (HIGHLIGHTFN HIGHLIGHTPOLYGON) (MOVEFN MOVEPOLYGON) ( EXTENTFN EXTENTOFPOLYGON) (DISTANCEFN DISTANCETOPOLYGON) (COPYFN COPYPOLYGON) (PUTFN PUTPOLYGON) ( GETFN GETPOLYGON)) (LINE (DRAWFN DRAWLINEOBJECT) (ERASEFN ERASELINEOBJECT) (HIGHLIGHTFN HIGHLIGHTLINE) (MOVEFN MOVELINE) (EXTENTFN EXTENTOFLINE) (DISTANCEFN DISTANCETOLINE) (COPYFN COPYLINE) (PUTFN PUTLINE) (GETFN GETLINE)) (GRAPH (DRAWFN DRAWGRAPHOBJECT) (ERASEFN ERASEGRAPHOBJECT) (HIGHLIGHTFN HIGHLIGHTGRAPH) (EXTENTFN EXTENTOFGRAPH) (DISTANCEFN DISTANCETOGRAPH) (COPYFN COPYGRAPHOBJECT) (PUTFN PUTGRAPH) (GETFN GETGRAPH)) (TEXT (DRAWFN DRAWTEXTOBJECT) (ERASEFN ERASETEXTOBJECT) (HIGHLIGHTFN HIGHLIGHTTEXT) (MOVEFN MOVETEXT) (LABELFN LABELTEXT) (EXTENTFN EXTENTOFTEXT) (DISTANCEFN DISTANCETOTEXT) (COPYFN COPYTEXT) (PUTFN PUTTEXT) (GETFN GETTEXT)) (COMPOUND (DRAWFN DRAWCOMPOUNDOBJECT) (ERASEFN ERASECOMPOUNDOBJECT) (HIGHLIGHTFN HIGHLIGHTCOMPOUND) (LOWLIGHTFN LOWLIGHTCOMPOUND) (MOVEFN MOVECOMPOUND) (EXTENTFN EXTENTOFCOMPOUND) (DISTANCEFN DISTANCETOCOMPOUND) ( COPYFN COPYCOMPOUND) (PUTFN PUTCOMPOUND) (GETFN GETCOMPOUND)) (FILLEDRECTANGLE (DRAWFN DRAWFILLEDRECTANGLEOBJECT) (ERASEFN ERASEFILLEDRECTANGLEOBJECT) (HIGHLIGHTFN HIGHLIGHTFILLEDRECTANGLE) (MOVEFN MOVEFILLEDRECTANGLE) (EXTENTFN EXTENTOFFILLEDRECTANGLE) (DISTANCEFN DISTANCETOFILLEDRECTANGLE ) (COPYFN COPYFILLEDRECTANGLE) (PUTFN PUTFILLEDRECTANGLE) (GETFN GETFILLEDRECTANGLE)))) (DATATYPE EXTENT ((MINX FLOATING) (MAXX FLOATING) (MINY FLOATING) (MAXY FLOATING))) (DATATYPE MARGIN (TICS? TICMETHOD LABEL TICLIST)) (DATATYPE PLOT (PLOTOBJECTS PLOTSCALE SELECTEDOBJECT WINDOWINFO MARGININFO MENUINFO PLOTUSERDATA PLOTSAVELIST) (* ;; "PLOTOBJECTS is a display list, PLOTSCALE describes the scale in world coordinates, USERDATA is a prop list, SAVELIST is for undelete" ) (* ;; "WINDOWINFO descibes the associated PLOTWINDOW and its attached PLOTPROMPTWINDOW") (DATATYPE WINDOWINFO (PLOTWINDOW PLOTWINDOWVIEWPORT PLOTPROMPTWINDOW)) (* ;; "MARGININFO describes the size of the plot margins in stream coordinates") (DATATYPE MARGININFO ( LEFTMARGIN RIGHTMARGIN TOPMARGIN BOTTOMMARGIN)) (* ;; "MENUINFO decribes the PLOT's menus") (DATATYPE MENUINFO (MIDDLEMENU RIGHTMENU OTHERMENUS)) (ACCESSFNS PLOT ((XLOWER (fetch MIN of (fetch XINTERVAL of (fetch PLOTSCALE of DATUM)))) (XUPPER (fetch MAX of (fetch XINTERVAL of (fetch PLOTSCALE of DATUM)))) (YLOWER (fetch MIN of (fetch YINTERVAL of (fetch PLOTSCALE of DATUM)))) (YUPPER (fetch MAX of (fetch YINTERVAL of (fetch PLOTSCALE of DATUM))))))) (DATATYPE PLOTFNS (DRAWFN ERASEFN HIGHLIGHTFN LOWLIGHTFN LABELFN MOVEFN EXTENTFN DISTANCEFN COPYFN PUTFN GETFN)) (DATATYPE PLOTOBJECT (OBJECTFNS OBJECTSUBTYPE OBJECTUSERDATA OBJECTMENU OBJECTLABEL OBJECTDATA)) (DATATYPE AXISINFO (SCALEFN TICFN) (* ; "SCALEFN and TICFN are functions")) (DATATYPE AXISINTERVAL ((MIN FLOATING) (MAX FLOATING)) (ACCESSFNS (INTERVALLENGTH (FDIFFERENCE (fetch MAX of DATUM) (fetch MIN of DATUM))))) (DATATYPE PLOTSCALE (XINTERVAL XAXISINFO XTICINFO YINTERVAL YAXISINFO YTICINFO) (* ;; "XINTERVAL YINTERVAL are instances of AXISINTERVAL, XAXISINFO and YAXISINFO are instances of AXISINFO and XTICINFO and YTICINFO are instances of TICINFO" )) (DATATYPE TICINFO ((TICMIN FLOATING) (TICMAX FLOATING) TICINC NTICS) (ACCESSFNS (TICINTERVALLENGTH ( FDIFFERENCE (fetch (TICINFO TICMAX) of DATUM) (fetch (TICINFO TICMIN) of DATUM))))) (/DECLAREDATATYPE (QUOTE EXTENT) (QUOTE (FLOATP FLOATP FLOATP FLOATP)) (QUOTE ((EXTENT 0 FLOATP) ( EXTENT 2 FLOATP) (EXTENT 4 FLOATP) (EXTENT 6 FLOATP))) (QUOTE 8)) (/DECLAREDATATYPE (QUOTE MARGIN) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE ((MARGIN 0 POINTER) (MARGIN 2 POINTER) (MARGIN 4 POINTER) (MARGIN 6 POINTER))) (QUOTE 8)) (/DECLAREDATATYPE (QUOTE MENUINFO) (QUOTE (POINTER POINTER POINTER)) (QUOTE ((MENUINFO 0 POINTER) ( MENUINFO 2 POINTER) (MENUINFO 4 POINTER))) (QUOTE 6)) (/DECLAREDATATYPE (QUOTE MARGININFO) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE ((MARGININFO 0 POINTER) (MARGININFO 2 POINTER) (MARGININFO 4 POINTER) (MARGININFO 6 POINTER))) (QUOTE 8)) (/DECLAREDATATYPE (QUOTE WINDOWINFO) (QUOTE (POINTER POINTER POINTER)) (QUOTE ((WINDOWINFO 0 POINTER) (WINDOWINFO 2 POINTER) (WINDOWINFO 4 POINTER))) (QUOTE 6)) (/DECLAREDATATYPE (QUOTE PLOT) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER )) (QUOTE ((PLOT 0 POINTER) (PLOT 2 POINTER) (PLOT 4 POINTER) (PLOT 6 POINTER) (PLOT 8 POINTER) (PLOT 10 POINTER) (PLOT 12 POINTER) (PLOT 14 POINTER))) (QUOTE 16)) (/DECLAREDATATYPE (QUOTE PLOTFNS) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((PLOTFNS 0 POINTER) (PLOTFNS 2 POINTER) (PLOTFNS 4 POINTER) (PLOTFNS 6 POINTER) (PLOTFNS 8 POINTER) (PLOTFNS 10 POINTER) (PLOTFNS 12 POINTER) (PLOTFNS 14 POINTER) (PLOTFNS 16 POINTER) (PLOTFNS 18 POINTER) (PLOTFNS 20 POINTER))) (QUOTE 22)) (/DECLAREDATATYPE (QUOTE PLOTOBJECT) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((PLOTOBJECT 0 POINTER) (PLOTOBJECT 2 POINTER) (PLOTOBJECT 4 POINTER) (PLOTOBJECT 6 POINTER) ( PLOTOBJECT 8 POINTER) (PLOTOBJECT 10 POINTER))) (QUOTE 12)) (/DECLAREDATATYPE (QUOTE AXISINFO) (QUOTE (POINTER POINTER)) (QUOTE ((AXISINFO 0 POINTER) (AXISINFO 2 POINTER))) (QUOTE 4)) (/DECLAREDATATYPE (QUOTE AXISINTERVAL) (QUOTE (FLOATP FLOATP)) (QUOTE ((AXISINTERVAL 0 FLOATP) ( AXISINTERVAL 2 FLOATP))) (QUOTE 4)) (/DECLAREDATATYPE (QUOTE PLOTSCALE) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ( (PLOTSCALE 0 POINTER) (PLOTSCALE 2 POINTER) (PLOTSCALE 4 POINTER) (PLOTSCALE 6 POINTER) (PLOTSCALE 8 POINTER) (PLOTSCALE 10 POINTER))) (QUOTE 12)) (/DECLAREDATATYPE (QUOTE TICINFO) (QUOTE (FLOATP FLOATP POINTER POINTER)) (QUOTE ((TICINFO 0 FLOATP) ( TICINFO 2 FLOATP) (TICINFO 4 POINTER) (TICINFO 6 POINTER))) (QUOTE 8)) (PUTPROPS APPLY.AFTERFN MACRO (ARGS (APPLY.AFTERFN.MACRO ARGS))) (PUTPROPS PLOTOBJECTSUBTYPE? MACRO (ARGS (BQUOTE (EQ (QUOTE (\, (CAR ARGS))) (fetch (PLOTOBJECT OBJECTSUBTYPE) of (\, (CADR ARGS))))))) (PUTPROPS PLOTOBJECTPROP MACRO (ARGS (PLOTOBJECTPROPMACRO ARGS))) (PUTPROPS PLOTPROP MACRO (ARGS (PLOTPROPMACRO ARGS))) (PUTPROPS PLOTOBJECTPROP ARGNAMES (NIL (PLOTOBJECT PROP NEWVALUE) . PROPARGS)) (PUTPROPS PLOT.DEFAULTMENU ARGNAMES (NIL (MENUNAME NEWMENUITEMS) . MENUARGS)) (PUTPROPS PLOT.FIXRIGHTMENU ARGNAMES (NIL (PLOT FIXEDFLG) . PROPARGS)) (PUTPROPS PLOTLABEL ARGNAMES (NIL (PLOT MARGINNAME NEWLABEL NODRAWFLG) . LABELARGS)) (PUTPROPS PLOTMENU ARGNAMES (NIL (PLOT MENUNAME NEWMENU) . MENUARGS)) (PUTPROPS PLOTMENUITEMS ARGNAMES (NIL (PLOT MENUNAME NEWMENUITEMS) . MENUARGS)) (PUTPROPS PLOTPRETTYFNS ARGNAMES (NIL (PLOT AXIS NEWPRETTYSCALEFN NEWINVPRETTYSCALEFN NODRAWFLG) . PROPARGS)) (PUTPROPS PLOTPROP ARGNAMES (NIL (PLOT PROP NEWVALUE) . PROPARGS)) (PUTPROPS PLOTSCALEFN ARGNAMES (NIL (PLOT AXIS NEWSCALEFN NODRAWFLG) . PROPARGS)) (PUTPROPS PLOTTICFN ARGNAMES (NIL (PLOT AXIS NEWTICFN NODRAWFLG) . PROPARGS)) (PUTPROPS PLOTTICS ARGNAMES (NIL (PLOT MARGINNAME NEWTICFLG NODRAWFLG) . LABELARGS)) (RPAQ? SMALLPLOTFONT (QUOTE (GACHA 8 MRR))) (RPAQ? LARGEPLOTFONT (QUOTE (GACHA 12 BRR))) (PUTDEF (QUOTE PLOTS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (PLTS (HORRIBLEVARS . PLTS)))))) (ADDTOVAR HPRINTMACROS (FONTDESCRIPTOR . PRINTFONT) (MENU . PRINTMENU) (PLOT . PRINTPLOT) (PLOTOBJECT . PRINTPLOTOBJECT) (ONED-ARRAY . PRINT-VECTOR)) (ADDTOVAR HPRINTREADFNS READPLOT READPLOTOBJECT READFONT READMENU READ-VECTOR) (DEFPRINT (QUOTE PLOTOBJECT) (FUNCTION PLOTOBJECTPRINT)) (RPAQ? PLOTIMAGEFNS (IMAGEFNSCREATE (FUNCTION PLIO.DISPLAYFN) (FUNCTION PLIO.IMAGEBOXFN) (FUNCTION PLIO.PUTFN) (FUNCTION PLIO.GETFN) (FUNCTION PLIO.COPYFN) (FUNCTION PLIO.BUTTONEVENTINFN) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL) (FUNCTION NILL))) (PLOT.SETUP OBJECTOPSTABLE) (PLOT.DEFAULTMENU (QUOTE MIDDLE) PLOT.DEFAULTMIDDLEMENUITEMS) (PLOT.DEFAULTMENU (QUOTE RIGHT) PLOT.DEFAULTRIGHTMENUITEMS) (FILESLOAD TWODGRAPHICS PLOTOBJECTS) (PUTPROPS PLOT COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1993 2000)) NIL