(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 7-Apr-87 14:50:04" ("compiled on " {ERIS}LIBRARY>SKETCH.;5) "31-Mar-87 21:33:35" brecompiled changes%: SK.PUT.ON.FILE SKETCH.PUT SK.SHRINK.ICONCREATE in "Xerox Lisp 31-Mar-87 ..." dated "31-Mar-87 21:58:30") (FILECREATED " 7-Apr-87 14:42:30" {ERIS}LIBRARY>SKETCH.;5 485356 changes to%: (FNS SKETCH.PUT SK.SHRINK.ICONCREATE SK.PUT.ON.FILE) previous date%: "20-Feb-87 18:19:44" {ERIS}LIBRARY>SKETCH.;3) (PROG ((NOTECARDSFLG (GETPROP (QUOTE NOTECARDS) (QUOTE FILEDATES))) (SKETCHFLG (AND (BOUNDP (QUOTE ALL.SKETCHES)) ALL.SKETCHES)) TEDITFLG) (* current knows about SKETCH TEDIT and NOTECARDS. Everyone else loses.) (MAP.PROCESSES (FUNCTION (LAMBDA (PROC PROCNAME PROCFORM) (AND (EQ (CAR PROCFORM) (QUOTE \TEDIT2)) (SETQ TEDITFLG T))))) (COND ((AND (BOUNDP (QUOTE ALL.SKETCHES)) (OR SKETCHFLG NOTECARDSFLG TEDITFLG)) (ERROR (CONCAT "Please close" (COND (SKETCHFLG " all open Sketch windows,") (T "")) (COND ( NOTECARDSFLG (CONCAT (COND (SKETCHFLG " and") (T "")) " any open notefiles,")) (T "")) (COND (TEDITFLG (CONCAT (COND ((OR SKETCHFLG NOTECARDSFLG) " and") (T "")) " any TEDIT windows that have sketches in them,")) (T "")) " then type 'RETURN'. To abort loading the new version of Sketch, type '^'."))))) SKETCH :D4 (P 2 READSKETCH P 1 SCREENREG P 0 SKIMAGEOBJ I 1 WINDOW I 0 SKETCH) z@dhdla !HH YHZdHA2I  l Ii `l hddo JHiH Ahdid (119 SKETCHW.CREATE 111 GETREGION 104 SKETCHW.CREATE 85 GETBOXREGION 74 MIN 65 HEIGHTIFWINDOW 56 MIN 50 BITMAPWIDTH 47 SCREENBITMAP 44 WIDTHIFWINDOW 26 SK.SCALE.REGION 13 SK.GET.IMAGEOBJ.FROM.FILE) (68 SCREENHEIGHT) ( 81 "Position sketch window.") SKETCH.FROM.A.FILE :D4 (P 0 NAME) o Hd (15 SKETCH 6 PopUpWindowAndGetAtom) NIL ( 3 "Sketch file name: ") SKETCHW.CREATE :D4 (P 6 X P 5 ELT P 3 SKETCHSTRUCTURE P 2 SKPROC P 1 SCALE P 0 W I 6 INITIALGRID I 5 BRINGUPMENU I 4 INITIALSCALE I 3 TITLE I 2 SCREENREGION I 1 SKETCHREGION I 0 SKETCH) g@@d l@ @dddgs1@g A JbD3JbF3Jb J?@dl3Li&@ @N@NN] hL\@ [B CBgC B B ``ld CK hi XdB hE B B H nH HgK HgD3!A AhH A` Y HgKg Kg A jAIH jAIH H KH H HgF3H HgFi Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg HggHddi3 gHhhgigggg Z Hgi Hggi H KH H H (610 LEASTPOWEROF2GT 605 SKETCHW.REPAINTFN 601 ADD.SKETCH.VIEWER 596 OPENW 592 WINDOWADDPROP 581 PUTWINDOWPROP 573 PUTWINDOWPROP 569 ADD.PROCESS 521 PUTWINDOWPROP 511 PUTWINDOWPROP 501 PUTWINDOWPROP 491 WINDOWADDPROP 481 WINDOWADDPROP 471 WINDOWADDPROP 461 WINDOWADDPROP 451 PUTWINDOWPROP 441 PUTWINDOWPROP 431 PUTWINDOWPROP 421 PUTWINDOWPROP 411 PUTWINDOWPROP 401 PUTWINDOWPROP 391 PUTWINDOWPROP 380 PUTWINDOWPROP 377 SK.DEFAULT.GRIDFACTOR 360 SK.CREATE.HOTSPOT.CACHE 356 MAP.SKETCHSPEC.INTO.VIEWER 351 SK.UPDATE.REGION.VIEWED 346 WYOFFSET 334 WXOFFSET 322 REGIONP 318 PUTWINDOWPROP 315 PUTSKETCHPROP 312 CREATE.DEFAULT.SKETCH.CONTEXT 303 GETSKETCHPROP 292 PUTWINDOWPROP 288 \ILLEGAL.ARG 272 DSPCLIPPINGREGION 261 REGIONP 248 PUTWINDOWPROP 240 DSPRIGHTMARGIN 232 SHAPEW 227 WINDOWP 222 REGIONP 218 SK.SET.UP.MENUS 212 OPENWP 206 CREATEW 201 SK.WINDOW.TITLE 194 CREATEREGION 180 REGIONP 172 PUTWINDOWPROP 161 WINDOWP 156 SK.CHECK.SKETCH.VERSION 153 \ILLEGAL.ARG 140 GLOBALELEMENTP 120 SKIO.UPDATE.FROM.OLD.FORM 57 REGIONP 52 IMAGEOBJPROP 20 SKETCH.GET 8 SKETCH.CREATE) (588 SKETCHW.CLOSEFN 585 CLOSEFN 577 SCROLLEXTENTUSE 565 SK.TTYEXITFN 562 TTYEXITFN 559 SK.TTYENTRYFN 556 TTYENTRYFN 552 RESTARTABLE 542 QUOTE 528 WB.EDITOR 525 PROCESS 518 NILL 515 PAGEFULLFN 508 SKETCHW.HARDCOPYFN 505 HARDCOPYFN 498 SKETCHW.SCROLLFN 495 SCROLLFN 488 SK.TAKE.TTY 485 EXPANDFN 478 SK.RETURN.TTY 475 SHRINKFN 468 SK.SHRINK.ICONCREATE 465 SHRINKFN 458 SKETCHW.RESHAPEFN 455 RESHAPEFN 448 SKETCHW.REPAINTFN 445 REPAINTFN 438 SKETCHW.OUTFN 435 CURSOROUTFN 428 WB.BUTTON.HANDLER 425 RIGHTBUTTONFN 418 SK.COPY.INSERTFN 415 COPYINSERTFN 408 SK.COPY.BUTTONEVENTFN 405 COPYBUTTONEVENTFN 398 WB.BUTTON.HANDLER 395 BUTTONEVENTFN 384 USEGRID 364 GRIDFACTOR 309 SKETCHCONTEXT 300 SKETCHCONTEXT 296 SKETCHCONTEXT 284 INITIAL.SCALE 252 SCALE 244 SKETCH 188 LASTMOUSEY 185 LASTMOUSEX 168 TITLE 49 OBJECTDATUM 43 IMAGEOBJ 37 SKETCH) () SKETCH.RESET :D4 (P 1 VIEWER P 0 SKSTRUC I 0 SKETCH) g@ HhhH QdI I Ig` I HI I IgI Ig Ig Ig h(94 PUTWINDOWPROP 86 PUTWINDOWPROP 78 PUTWINDOWPROP 70 PUTWINDOWPROP 67 SK.DEFAULT.GRIDFACTOR 58 SK.CREATE.HOTSPOT.CACHE 53 MAP.SKETCHSPEC.INTO.VIEWER 47 SK.UPDATE.REGION.VIEWED 42 PUTWINDOWPROP 31 DSPRESET 26 SKED.CLEAR.SELECTION 15 ALL.SKETCH.VIEWERS 3 INSURE.SKETCH) (91 SKETCHCHANGED 83 SKETCHHISTORY 75 USEGRID 63 GRIDFACTOR 39 INITIAL.SCALE 36 SCALE) () SKETCHW.FIG.CHANGED :D4 (I 0 W) @g @gg (18 PUTWINDOWPROP 6 GETWINDOWUSERPROP) (15 OLD 12 SKETCHCHANGED 3 SKETCHCHANGED) () SK.WINDOW.TITLE :D4 (I 0 SKETCH) @o@ o(15 CONCAT) NIL ( 20 "Viewer onto a sketch" 8 "Viewer onto ") EDITSLIDE :D4 (I 1 LANDSCAPE I 0 SKETCH) !@hAn ndndn hdio (30 SKETCHW.CREATE 19 GETBOXREGION) NIL ( 26 16.0) EDITSKETCH :D4 (I 0 SLIDENAME) @ o bhdddio @(24 SKETCHW.CREATE 9 GENSYM) NIL ( 20 16.0 6 "SLIDE") SK.PUT.ON.FILE :D4 (P 4 SKW P 3 TEXTSTREAM P 2 NEWNAME P 1 NOWNAME P 0 SKETCH I 0 SKETCHW) T@ 1H Y@oI Zd2H@ Zd)IJ#HJH dLgH J(75 PUTWINDOWPROP 72 SK.WINDOW.TITLE 57 ALL.SKETCH.VIEWERS 38 SKETCH.PUT 29 MKATOM 26 PROMPT.GETINPUT 23 SK.OUTPUT.FILE.NAME 13 SKETCH.TITLE 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) (68 TITLE) ( 19 "File to PUT to: ") SK.OUTPUT.FILE.NAME :D4 (I 0 SKETCHFILENAME) o@ h@ (14 FILENAMELESSVERSION 7 STRPOS) NIL ( 3 " ") SKETCH.PUT :D4 (P 1 FILESTREAM P 0 TEXTSTREAM I 5 GRID I 4 SCALE I 3 REGION I 2 VIEWER I 1 SKETCH I 0 FILENAME)  g oo o ohddBgBg gB h XA C Bd D3Bd E3Bd Hk Hokd Hhddddjddd H@g Y I I bA @Bo h(181 STATUSPRINT 171 SK.MARK.UNDIRTY 164 CLOSEF 159 OPENP 155 TEDIT.PUT 151 OPENSTREAM 143 TEDIT.PAGEFORMAT 140 TEDIT.SINGLE.PAGEFORMAT 126 TEDIT.PARALOOKS 116 TEDIT.INSERT.OBJECT 111 SKETCH.IMAGEOBJ 108 SK.GRIDFACTOR 97 VIEWER.SCALE 86 SKETCH.REGION.VIEWED 78 REGIONP 74 INSURE.SKETCH 69 OPENTEXTSTREAM 60 GETPROMPTWINDOW 53 GETWINDOWUSERPROP 32 FILESLOAD 21 MOUSECONFIRM 8 DEFINEDP) (148 OUTPUT 56 PROMPTWINDOW 50 TEDIT.PUTFN 46 PUTFN 5 OPENTEXTSTREAM) ( 178 "Sketch not saved." 121 (LEFTMARGIN 0 RIGHTMARGIN 0 QUAD CENTER) 37 "" 29 (TEDIT) 18 "Click LEFT to load TEDIT now, RIGHT to abort." 14 "TEDIT must be loaded to save sketches.") SK.GET.FROM.FILE :D4 (I 0 SKETCHW) ,@o @ @ @ @o @o (41 STATUSPRINT 31 SK.CONFIRM.DESTRUCTION 22 SK.INCLUDE.FILE 18 SK.DELETE.ELEMENT2 12 INSURE.SKETCH 7 SK.CONFIRM.DESTRUCTION) NIL ( 38 "GET aborted. The INCLUDE subcommand to GET doesn't delete." 28 "Press LEFT to include file, RIGHT to abort the GET." 4 "Press LEFT to delete current elements before GET.") SK.INCLUDE.FILE :D4 (P 5 SKW P 4 DIRTYSTATUS P 3 READSKETCH P 2 FILENAME P 1 NOWNAME P 0 SKETCH I 0 SKETCHW) @ AHY@o Zdo @ h@o J Jo Zd@ [GIJ#HJH dMgH K@Hig LH @o h(137 STATUSPRINT 128 SK.MARK.UNDIRTY 122 ADD.SKETCH.TO.VIEWER 102 PUTWINDOWPROP 99 SK.WINDOW.TITLE 84 ALL.SKETCH.VIEWERS 66 SKETCH.GET 60 ERROR 50 INFILEP 46 STATUSPRINT 36 CLOSEPROMPTWINDOW 31 MEMB 22 MKATOM 19 PROMPT.GETINPUT 3 SKETCH.FROM.VIEWER) (119 ASK 95 TITLE) ( 134 " done." 57 "file not found." 43 " ..." 28 (NIL %]) 16 "File to GET: ") SK.GET.IMAGEOBJ.FROM.FILEA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 3 READFILE P 2 READSKETCH P 1 IMAGEOBJ P 0 TEXTSTREAM I 0 SI::*CLEANUP-FORMS* F 5 FILENAME F 6 VIEWER) UhddV gV h AH YU [U I V`Uo hIg Z\LLgV`Uo hJKUVIg V Ig (134 IMAGEOBJPROP 126 SK.CHANGE.GRID 117 IMAGEOBJPROP 96 STATUSPRINT 65 IMAGEOBJPROP 56 STATUSPRINT 41 IMAGEOBJP 36 CLOSEF 30 OPENP 20 OPENTEXTSTREAM 13 GETPROMPTWINDOW) (131 OBJECTDATUM 114 OBJECTDATUM 88 PROMPTWINDOW 80 SKETCH 62 OBJECTDATUM 48 PROMPTWINDOW 9 PROMPTWINDOW) ( 93 " is not a sketch file." 53 " is not a sketch file.") SK.GET.IMAGEOBJ.FROM.FILE :D4 (P 0 SI::*RESETFORMS* I 1 VIEWER I 0 FILENAME) %g` hhhg  (34 CL:VALUES-LIST 30 SI::RESETUNWIND 27 \MVLIST 24 SK.GET.IMAGEOBJ.FROM.FILEA0001 8 CURSOR) (21 SI::RESETUNWIND 5 WAITINGCURSOR 2 CURSOR) () SKETCH.GET :D4 (I 1 VIEWER I 0 FILENAME) @A (4 SK.GET.IMAGEOBJ.FROM.FILE) NIL () ADD.SKETCH.TO.VIEWER :D4 (P 4 SKPROP P 2 DEFAULTS P 1 TOSKETCH P 0 ADDSKETCH I 2 ABOUTDEFAULTS? I 1 VIEWER I 0 SKETCHTOADD) @dlA A "Bo lHg ZIg ZBE`dodi dodldg dgjdndhdK IgJ AgJ HA H6dLdg(gIgHg Ig ILHL h(199 PUTSKETCHPROP 196 GETSKETCHPROP 188 UNION 185 GETSKETCHPROP 178 GETSKETCHPROP 144 SK.ADD.ELEMENTS.TO.SKETCH 136 PUTWINDOWPROP 127 PUTSKETCHPROP 117 MENU 46 GETSKETCHPROP 38 GETSKETCHPROP 29 MEMB 18 INSURE.SKETCH 14 INSURE.SKETCH 10 SKETCH.GET) (182 VIEWS 175 VIEWS 171 VIEWS 164 VIEWS 158 SKETCHCONTEXT 132 SKETCHCONTEXT 123 SKETCHCONTEXT 94 DEFAULTMENUHELDFN 87 CLRPROMPT 55 |MENUTYPE#| 43 SKETCHCONTEXT 35 SKETCHCONTEXT) ( 74 "Use the defaults from the retrieved sketch?" 61 ((Yes T "Will use the defaults of the retrieved sketch.") (No NIL "Will not change the defaults.")) 26 (NIL ASK)) FILENAMELESSVERSION :D4 (I 0 FILENAME) gh@  (12 PACKFILENAME 7 UNPACKFILENAME) (2 VERSION) () SK.ADD.ELEMENTS.TO.SKETCH :D4 (P 0 ELT I 1 SKW I 0 ELTS) @dH HA h(17 SK.ADD.ELEMENT 11 SK.SET.ELEMENT.PRIORITY) NIL () SKETCH.SET.A.DEFAULT :D4 (I 0 SKW F 2 BOLDFONT) Q`dodi dgR HdIdg dgjdndhHdI  (78 \CURSOR.IN.MIDDLE.MENU 30 SK.FONTNAMELIST 27 FONTCREATE) (51 DEFAULTMENUHELDFN 44 CLRPROMPT 20 SK.POPUP.SELECTIONFN 2 |MENUTYPE#|) ( 8 ((Line SKETCH.SET.BRUSH.SIZE "Sets the characteristics of the default brush." (SUBITEMS (Size SKETCH.SET.BRUSH.SIZE "Sets the size of the default brush") (Shape SKETCH.SET.BRUSH.SHAPE "Sets the shape of the default brush") (Add% arrowhead SK.SET.LINE.ARROWHEAD "Sets the arrowhead characteristics of new lines.") ("Mouse line specs" SK.SET.LINE.LENGTH.MODE "Sets whether the lines drawn with the middle mouse button connect to each other."))) (Arrowhead SK.SET.ARROWHEAD.LENGTH "Sets the characteristics of the default arrowhead." (SUBITEMS (Size SK.SET.ARROWHEAD.LENGTH) (Angle SK.SET.ARROWHEAD.ANGLE) (Type SK.SET.ARROWHEAD.TYPE))) (Text SK.SET.TEXT.SIZE "Sets the size of newly added text." (SUBITEMS ("Font size" SK.SET.TEXT.SIZE "Sets the size of newly added text.") ("Font family" SK.SET.TEXT.FONT "Sets the font family of newly added text.") ("Horizontal justification" SK.SET.TEXT.HORIZ.ALIGN "Sets the horizontal justification mode of new text.") ("Vertical justification" SK.SET.TEXT.VERT.ALIGN "Sets the vertical justification of new text.") ("Bold and/or italic" SK.SET.TEXT.LOOKS "Sets the bold and italic look of new text."))) (Text% Box SK.SET.TEXTBOX.HORIZ.ALIGN "Sets the alignment of text within new text boxes." (SUBITEMS ("Horizontal justification" SK.SET.TEXTBOX.HORIZ.ALIGN "Sets the horizontal alignment of text within new text boxes.") ("Vertical justification" SK.SET.TEXTBOX.VERT.ALIGN "Sets the vertical alignment of text within new text boxes."))) (Arc SK.SET.ARC.DIRECTION "Sets the direction arcs go around their circle." (SUBITEMS ("Clockwise" SK.SET.ARC.DIRECTION.CW "Makes new arcs go around in the clockwise direction") ("Counterclockwise" SK.SET.ARC.DIRECTION.CCW "Makes new arcs go around in the counterclockwise direction"))) ("Input scale" SK.SET.INPUT.SCALE "Sets the scale for newly added lines and text." (SUBITEMS ("Read new input scale" SK.SET.INPUT.SCALE "Reads a new input scale.") ("Make input scale current" SK.SET.INPUT.SCALE.CURRENT "makes the input scale be the scale of the current view."))) (Feedback SK.SET.FEEDBACK.MODE "Controls the amount of feedback when adding new curves, circles, etc." (SUBITEMS ("Points only" SK.SET.FEEDBACK.POINT "Only the control points will be shown when entering elements.") ("Fast figures" SK.SET.FEEDBACK.VERBOSE "Wires, circles and ellipses are shown while they are being entered.") ("All figures" SK.SET.FEEDBACK.ALWAYS "Most elements are shown while they are being entered. This will be slow for arcs and curves."))))) SK.POPUP.SELECTIONFN :D4 (I 1 MENU I 0 ITEM F 0 SKW) P @P (10 SK.APPLY.MENU.COMMAND 3 CLOSEPROMPTWINDOW) NIL () GETSKETCHWREGION :D4 (I 0 SKETCHWINDOW) @ @ (10 UNSCALE.REGION 7 VIEWER.SCALE 3 GETWREGION) NIL () SK.ADD.ELEMENT :D4 (P 4 SKW P 2 ADDEDELT P 1 SKETCH P 0 GELTTOADD I 4 DONTCALLWHENADDEDFN I 3 GROUPFLG I 2 DONTCLEARCURSOR I 1 SKETCHW I 0 GELT) P@6D@A@ A HhBA @I @AhC ZI KJ\A@L @LC K[(72 SKETCH.ADD.AND.DISPLAY1 65 ELT.INSIDE.SKETCHWP 46 ALL.SKETCH.VIEWERS 41 SKETCH.ADD.AND.DISPLAY1 34 ADD.ELEMENT.TO.SKETCH 28 SKED.CLEAR.SELECTION 15 SKETCH.FROM.VIEWER 11 SK.CHECK.WHENADDEDFN) NIL () SK.ADD.PRIORITY.ELEMENT.TO.SKETCH :D4 (P 2 SKELTTAIL P 0 SKELTSCELL I 2 PRIORITY I 1 ELEMENT I 0 SKETCH) L@HdBH HA BH HAHHIZBJ JAJAJ(59 SK.ELEMENT.PRIORITY 32 SK.ELEMENT.PRIORITY 24 TCONC 16 SK.ELEMENT.PRIORITY) NIL () SK.ELTS.BY.PRIORITY :D4 (I 1 GELTB I 0 GELTA) @ A (7 SK.ELEMENT.PRIORITY 3 SK.ELEMENT.PRIORITY) NIL () SK.ORDER.ELEMENTS :D4 (I 0 GSKETCHELEMENTS) @g (6 SORT) (3 SK.ELTS.BY.PRIORITY) () SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH :D4 (P 2 SKELTTAIL P 0 PRIORITY I 1 LOCALELEMENT I 0 LOCALSKETCHELTS) AA @dH@ @A @IZHJ JAJAJ(48 SK.ELEMENT.PRIORITY 29 TCONC 21 SK.ELEMENT.PRIORITY 4 SK.ELEMENT.PRIORITY) NIL () SK.ADD.ELEMENTS :D4 (P 0 ELT I 1 SKW I 0 ELEMENTS) @ dH HA h(20 SK.ADD.ELEMENT 14 SK.SET.ELEMENT.PRIORITY 3 SK.ORDER.ELEMENTS) NIL () SK.CHECK.WHENADDEDFN :D4 (P 2 RESULT P 1 ADDFN P 0 SKETCH I 1 GELT I 0 VIEWER) +@ !Hg YA@AlIZddgh J(37 GLOBALELEMENTP 13 GETSKETCHPROP 3 INSURE.SKETCH) (30 DON'T 10 WHENADDEDFN) () SK.APPLY.MENU.COMMAND :D4 (I 1 SKETCHW I 0 COMMAND) 4@d0@A @Ak@Addi3 gAhh (49 EVAL 46 \APPEND2 12 SKETCHW.ADD.INSTANCE) (37 QUOTE 6 SKETCHTYPE) () SK.DELETE.ELEMENT1 :D4 (P 3 SKW P 1 LOCALELT P 0 SKETCH I 2 GROUPFLG I 1 SKETCHW I 0 OLDGELT) HA @H h@A AB H J B@A @[A@K YKB JZ(64 SK.ERASE.AND.DELETE.ITEM 55 SK.LOCAL.ELT.FROM.GLOBALPART 43 SK.CHECK.IMAGEOBJ.WHENDELETEDFN 28 ALL.SKETCH.VIEWERS 24 SK.ERASE.AND.DELETE.ITEM 19 SK.LOCAL.ELT.FROM.GLOBALPART 11 REMOVE.ELEMENT.FROM.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SK.MARK.DIRTY :D4 (P 0 SKW I 0 SKETCH) &@ dHg iHgi h(28 PUTWINDOWPROP 17 GETWINDOWUSERPROP 3 ALL.SKETCH.VIEWERS) (24 SKETCHCHANGED 14 SKETCHCHANGED) () SK.MARK.UNDIRTY :D4 (P 0 SKW I 0 SKETCH) @ dHgg h(20 PUTWINDOWPROP 3 ALL.SKETCH.VIEWERS) (17 OLD 14 SKETCHCHANGED) () SK.MENU.AND.RETURN.FIELD :D4 (P 0 ITEMS I 0 ELEMENTTYPE) O@ HdDH `dHdi dodg dgjdndhdI (76 MENU 19 EVAL 3 CHANGEABLEFIELDITEMS) (53 DEFAULTMENUHELDFN 46 CLRPROMPT 23 |MENUTYPE#|) ( 39 "Choose which property to change") SKETCH.SET.BRUSH.SHAPE :D4 (P 1 NOWBRUSH P 0 NEWSHAPE I 0 W) +@g H@g HIII(23 GETWINDOWUSERPROP 9 GETWINDOWUSERPROP 2 PAINTW.READBRUSHSHAPE) (20 SKETCHCONTEXT 6 SKETCHCONTEXT) () SKETCH.SET.BRUSH.SIZE :D4 (I 0 W) @g  @ (16 SK.SET.DEFAULT.BRUSH.SIZE 12 READBRUSHSIZE 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) () SKETCHW.CLOSEFN :D4 (P 0 PROCINFO I 0 SKW) s@g XY@g @ gQ` @ . H .X H @g @ @g @gg h@o g(107 SK.CONFIRM.DESTRUCTION 97 WINDOWADDPROP 87 DEL.PROCESS 84 PUTWINDOWPROP 77 REMOVE.SKETCH.VIEWER 73 GETWINDOWUSERPROP 65 TTY.PROCESS 60 PROCESSP 54 \INSUREWINDOW 46 TTY.PROCESSP 41 \INSUREWINDOW 36 TTY.PROCESSP 24 UPDATE.IMAGE.IN.DOCUMENT 19 GETWINDOWUSERPROP 9 GETWINDOWUSERPROP) (112 DON'T 94 SKETCHW.REOPENFN 91 OPENFN 81 PROCESS 70 SKETCH 33 \RUNNING.PROCESS 27 DON'T 16 SKETCHCHANGED 6 DOCUMENTINFO) ( 104 "unsaved changes ... press LEFT to close anyway") SK.CONFIRM.DESTRUCTION :D4 (I 1 MSG I 0 VIEWER) 6@g -@g ih @o Aoi@ @ i(50 CLOSEPROMPTWINDOW 44 MOUSECONFIRM 41 GETPROMPTWINDOW 29 STATUSPRINT 15 GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (12 SKETCHCHANGED 3 DONTQUERYCHANGES) ( 36 "unsaved changes ... press LEFT to do operation anyway" 26 " ") SKETCHW.OUTFN :D4 (L (0 SKW)) hNIL NIL () SKETCHW.REOPENFN :D4 (I 0 SKW) /@g @ @gg@ddi3 g@hh (44 PUTWINDOWPROP 41 ADD.PROCESS 10 ADD.SKETCH.VIEWER 6 GETWINDOWUSERPROP) (31 QUOTE 17 WB.EDITOR 14 PROCESS 3 SKETCH) () MAKE.LOCAL.SKETCH :D4 (P 4 SKELT I 4 EVERYTHINGFLG I 3 STREAM I 2 SCALE I 1 SKETCHREGION I 0 SKETCH) 3@ AHIDLA LCB J KhZHXK&(30 SK.LOCAL.FROM.GLOBAL 23 SK.INSIDE.REGION 3 INSURE.SKETCH) NIL () MAP.SKETCHSPEC.INTO.VIEWER :D4 (P 6 SKELT P 1 SPECS P 0 SKREGION I 1 SKW I 0 SKETCH) IAg Ag@@AJKYd  ^H NA L Mh\JZM&(52 SK.LOCAL.FROM.GLOBAL 46 SK.INSIDE.REGION 39 PUTWINDOWPROP 35 LAST 6 GETWINDOWUSERPROP) (13 SKETCHSPECS 3 REGION.VIEWED) () SKETCHW.REPAINTFN :D4 (I 3 NEWGRIDFLG I 2 STOPIFMOUSEDOWN I 1 REG I 0 W) /g@ n@ g@ @AB l `C @ (43 SKED.SELECTION.FEEDBACK 39 SKETCHW.REPAINTFN1 31 \CLOCK0 20 DSPSCROLL 13 DSPRIGHTMARGIN 6 DSPOPERATION) (34 AUTOZOOM.REPAINT.TIME 16 OFF 2 PAINT) () SKETCHW.REPAINTFN1 :D4 (I 3 NEWGRIDFLG I 2 TIMER I 1 REGION I 0 SKW) '@ Bgg@A@ @g @C (36 SK.DISPLAY.GRID.POINTS 29 GETWINDOWUSERPROP 22 MAPSKETCHSPECS 18 VIEWER.SCALE 3 LOCALSPECS.FROM.VIEWER) (26 GRIDUP 12 SK.DRAWFIGURE 8 SK.DRAWFIGURE.IF) () SK.DRAWFIGURE.IF :D4 (I 3 SCALE I 2 REGION I 1 STREAM I 0 SCREENELT F 0 TIMER) (@ABC P`ljP gg (36 RETFROM 26 TIMEREXPIRED? 12 GETMOUSESTATE 6 SK.DRAWFIGURE) (33 STOPPED 30 SKETCHW.REPAINTFN1 16 LASTMOUSEBUTTONS) () SKETCHW.SCROLLFN :D4 (P 8 GELT P 7 SCALE P 6 LOCALELT P 5 NEWONES P 4 INNEW? P 3 NEWLOCALREGION P 2 NEWREGION P 1 NOWREG P 0 SKETCH I 3 CONTINUOUSFLG I 2 YDELTA I 1 XDELTA I 0 SKW) @ h@ b@ CA>B+IAjIBjII [@ _ ZHfjBjl bjAjl bmbmbdOJ O@ ^LKN N@ N@ LOM]@AB @ @ MdO@O h(201 SKETCH.ADD.AND.DISPLAY1 186 SK.UPDATE.REGION.VIEWED 182 SKETCHW.FIG.CHANGED 178 SCROLLBYREPAINTFN 158 SK.DELETE.ITEM 152 SK.ERASE.AND.DELETE.ITEM 146 REGIONSINTERSECTP 143 SK.ITEM.REGION 132 SK.LOCAL.ELT.FROM.GLOBALPART 125 SK.INSIDE.REGION 65 UNSCALE.REGION 60 VIEWER.SCALE 55 CREATEREGION 20 SKED.CLEAR.SELECTION 13 DSPCLIPPINGREGION 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SKETCHW.RESHAPEFN :D4 (P 8 GELT P 7 SCALE P 6 LOCALELT P 5 NEWONES P 4 INNEW? P 3 NEWLOCALREGION P 2 NEWREGION P 1 NOWREG P 0 SKETCH I 3 OLDSCREENREGION I 2 IMAGEREGION I 1 OLDIMAGE I 0 SKW) @ h@ b@ @ABC h@ [@ _ ZH9dOJ O@ ^LKN N@ N@ LOM]@ @ MdO@O h(127 SKETCH.ADD.AND.DISPLAY1 112 SK.UPDATE.REGION.VIEWED 108 SKETCHW.FIG.CHANGED 90 SK.DELETE.ITEM 84 SK.ERASE.AND.DELETE.ITEM 78 REGIONSINTERSECTP 75 SK.ITEM.REGION 64 SK.LOCAL.ELT.FROM.GLOBALPART 57 SK.INSIDE.REGION 42 UNSCALE.REGION 37 VIEWER.SCALE 32 DSPCLIPPINGREGION 27 RESHAPEBYREPAINTFN 20 SKED.CLEAR.SELECTION 13 DSPCLIPPINGREGION 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SK.UPDATE.EVENT.SELECTION :D4 (P 2 SELITEM P 0 SELITEMS I 8 DELETEMODE I 7 COPYMODE I 6 WINDOW I 5 SCALE I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 HOTSPOTCACHE)   `lYjpII f@AC BD AC BD XK`ll`lkHdJFGG hHdJFGG h(118 SK.REMOVE.SELECTION 115 SK.BUTTONEVENT.MARK 91 SK.ADD.SELECTION 88 SK.BUTTONEVENT.MARK 48 SK.LOCAL.ITEMS.IN.REGION 44 MAX 39 MAX 34 MIN 29 MIN 21 \FZEROP) (64 LASTMOUSEBUTTONS 54 LASTMOUSEBUTTONS 5 LASTMOUSEBUTTONS) () LIGHTGRAYWINDOW :D4 (I 0 WINDOW) hkg@ @(8 DSPFILL) (4 INVERT) () SK.ADD.SPACES :D4 (P 3 STR I 0 STRLST) E0@3dKohKm l KhKohXI HZYJ YH(62 LAST 26 NTHCHARCODE) NIL ( 39 " " 15 "") SK.SKETCH.MENU :D4 (I 0 SKW) @i (4 SK.MIDDLE.TITLEFN) NIL () SK.CHECK.IMAGEOBJ.WHENDELETEDFN :D4 (P 0 GELT I 1 SKETCHW I 0 GELT) -@dg@A g@dHA h(36 SK.CHECK.IMAGEOBJ.WHENDELETEDFN 14 SK.APPLY.IMAGEOBJ.WHENDELETEDFN) (18 GROUP 7 SKIMAGEOBJ) () SK.APPLY.IMAGEOBJ.WHENDELETEDFN :D4 (P 1 FN P 0 IMAGEOBJ I 1 SKETCHW I 0 GELT) ! @Xg YdgHAlIh(14 IMAGEOBJPROP) (20 NILL 11 WHENDELETEDFN) () SK.RETURN.TTY :D4 (I 0 W) @ . i (14 TTY.PROCESS 8 TTY.PROCESSP 3 \INSUREWINDOW) NIL () SK.TAKE.TTY :D4 (I 0 W) @ . (8 TTY.PROCESS 3 \INSUREWINDOW) NIL () SKETCH.COMMANDMENU :D4 (I 1 TITLE I 0 ITEMS F 2 BOLDFONT) O`d@di dgR HdIdAdg dgjdndhHdI (27 SK.FONTNAMELIST 24 FONTCREATE) (53 DEFAULTMENUHELDFN 46 CLRPROMPT 17 SKETCHW.SELECTIONFN 2 |MENUTYPE#|) () SKETCH.COMMANDMENU.ITEMS :D4 (P 4 ELEMENT I 2 VIEWER I 1 ELEMENTTYPES I 0 ADDFIXITEM F 5 FILLINGMODEFLG) ooooog g B oAdi`AHIg oUoooooooooo@ooo \g \LLdhJ KhZHXDK&(209 GETPROP 200 \APPEND2 197 \APPEND2 194 \APPEND2 191 \APPEND2 188 \APPEND2 185 \APPEND2 182 \APPEND2 179 \APPEND2 176 \APPEND2 173 \APPEND2 170 \APPEND2 167 \APPEND2 164 \APPEND2 161 \APPEND2 158 \APPEND2 155 \APPEND2 152 \APPEND2 149 \APPEND2 146 \APPEND2 132 USERNAME 73 \DEFINEDP 39 NCP.CardFromWindow 33 \DEFINEDP 25 \DEFINEDP) (228 SKETCHTYPE 221 SKETCHTYPE 213 SKETCHTYPE 206 SKETCHTYPE 70 SK.SEL.AND.SHOW.ANNOTE 54 SKETCH.ELEMENT.TYPE.NAMES 30 NCP.CardFromWindow 22 SK.SEL.AND.SHOW.ANNOTE) ( 143 ((inspect INSPECT.SKETCH "Calls the Inspector on the figure data structures.")) 136 "BURTON.PA" 129 ((Fix% Menu SK.FIX.MENU "leaves up the menu of sketch operations.")) 122 ((Get SK.GET.FROM.FILE "gets a sketch from a file." (SUBITEMS (Get SK.GET.FROM.FILE "gets a sketch from a file.") (Include SK.INCLUDE.FILE "adds the contents of a file to the existing sketch.")))) 118 ((Put SK.PUT.ON.FILE "saves this sketch on a file")) 114 ((HardCopy SK.HARDCOPYIMAGEW "sends a copy of the current window contents on the default printer." (SUBITEMS ("To a file" SK.HARDCOPYIMAGEW.TOFILE "Puts image on a file; prompts for filename and format") ("To a printer" SK.HARDCOPYIMAGEW.TOPRINTER "Sends image to a printer of your choosing") ("Whole sketch" SK.LIST.IMAGE "Sends the image of the whole sketch at the current scale to the printer." (SUBITEMS ("To a file" SK.LIST.IMAGE.ON.FILE "Sends the image of the whole sketch at the current scale on a file.") ("To a printer" SK.LIST.IMAGE "Sends the image of the whole sketch at the current scale to the printer."))) (Hardcopy% Display SK.SET.HARDCOPY.MODE "Makes the display correspond to the hardcopy image on the default printer.") (Normal% Display SK.UNSET.HARDCOPY.MODE "Changes the display to use display fonts.")))) 110 (("Move view" SKETCH.ZOOM "makes a new region the part of the sketch visible." (SUBITEMS ("Move view" SKETCH.ZOOM "changes the scale of the display.") (AutoZoom SKETCH.AUTOZOOM "changes the scale around a selected point.") (Home SKETCH.HOME "returns to the origin at the original scale") ("Fit to window" SK.FRAME.IT "moves so that the entire sketch just fits in the window" (SUBITEMS ("Fit to window" SK.FRAME.IT "moves so that the entire sketch just fits in the window") ("Fit window to sketch" SK.FRAME.WINDOW.TO.SKETCH "reshapes the window so that the entire sketch just fits"))) ("Restore view" SK.RESTORE.VIEW "Moves to a previously saved view." (SUBITEMS ("Restore view" SK.RESTORE.VIEW "Moves to a previously saved view.") ("Save view" SK.NAME.CURRENT.VIEW "saves the current view (position and scale) of the sketch for easy return.") ("Forget view" SK.FORGET.VIEW "Deletes a previously saved view."))) ("Coord window" ADD.GLOBAL.DISPLAY "creates a window that shows the cursor in global coordinates." (SUBITEMS ("Coord window" ADD.GLOBAL.DISPLAY "creates a window that shows the cursor position in global coordinates.") ("Grid coord window" ADD.GLOBAL.GRIDDED.DISPLAY "creates a window that shows the grid position nearest the cursor in global coordinates."))) (New% window SKETCH.NEW.VIEW "opens another viewer onto this sketch")))) 106 ((Grid SK.SET.GRID "Flips between using the grid and not using the grid." (SUBITEMS (|Turn grid ON| SK.TURN.GRID.ON "turns on a grid. Only pts on the grid can be selected.") (|Turn grid OFF| SK.TURN.GRID.OFF "turns off the grid. Any point can be selected.") (LARGER% Grid SK.MAKE.GRID.LARGER "doubles the distance between the grid points.") (smaller% Grid SK.MAKE.GRID.SMALLER "halves the distance between the grid points.") ("Display grid" SK.DISPLAY.GRID "XORs a point at each grid point. If grid is visible, this will erase it.") ("Remove grid display" SK.TAKE.DOWN.GRID "XORs a point at each grid point. If grid is visible, this will erase it.")))) 102 ((Defaults SKETCH.SET.A.DEFAULT "Changes one of the default characteristics." (SUBITEMS (Line SKETCH.SET.BRUSH.SIZE "Sets the characteristics of the default brush." (SUBITEMS (Size SKETCH.SET.BRUSH.SIZE "Sets the size of the default brush") (Shape SKETCH.SET.BRUSH.SHAPE "Sets the shape of the default brush") (Add% arrowhead SK.SET.LINE.ARROWHEAD "Makes it so that new lines automatically have Arrowheads.") ("Mouse line specs" SK.SET.LINE.LENGTH.MODE "Sets whether the lines drawn with the middle mouse button connect to each other."))) (Arrowhead SK.SET.ARROWHEAD.LENGTH "Sets the characteristics of the default arrowhead." (SUBITEMS ("set Size of default arrowhead" SK.SET.ARROWHEAD.LENGTH) ("set Angle of default arrowhead" SK.SET.ARROWHEAD.ANGLE) ("set Type of default arrowhead" SK.SET.ARROWHEAD.TYPE) ("default Add arrowheads" SK.SET.LINE.ARROWHEAD "Makes it so that new lines automatically have Arrowheads."))) (Text SK.SET.TEXT.SIZE "Sets the size of newly added text." (SUBITEMS ("Font size" SK.SET.TEXT.SIZE "Sets the size of newly added text.") ("Font family" SK.SET.TEXT.FONT "Sets the font family of newly added text.") ("Horizontal justification" SK.SET.TEXT.HORIZ.ALIGN "Sets the horizontal justification mode of new text.") ("Vertical justification" SK.SET.TEXT.VERT.ALIGN "Sets the vertical justification of new text.") ("Bold and/or italic" SK.SET.TEXT.LOOKS "Sets the bold and italic look of new text."))) (Text% Box SK.SET.TEXTBOX.HORIZ.ALIGN "Sets the alignment of text within new text boxes." (SUBITEMS ("Horizontal justification" SK.SET.TEXTBOX.HORIZ.ALIGN "Sets the horizontal alignment of text within new text boxes.") ("Vertical justification" SK.SET.TEXTBOX.VERT.ALIGN "Sets the vertical alignment of text within new text boxes."))) (Arc SK.SET.ARC.DIRECTION "Sets the direction arcs go around their circle." (SUBITEMS ("Clockwise" SK.SET.ARC.DIRECTION.CW "Makes new arcs go around in the clockwise direction") ("Counterclockwise" SK.SET.ARC.DIRECTION.CCW "Makes new arcs go around in the counterclockwise direction"))) ("Input scale" SK.SET.INPUT.SCALE "Sets the scale for newly added lines and text." (SUBITEMS ("Read new input scale" SK.SET.INPUT.SCALE "Reads a new input scale.") ("Make input scale current" SK.SET.INPUT.SCALE.CURRENT "makes the input scale be the scale of the current view."))) (Feedback SK.SET.FEEDBACK.MODE "Controls the amount of feedback when adding new curves, circles, etc." (SUBITEMS ("Points only" SK.SET.FEEDBACK.POINT "Only the control points will be shown when entering elements.") ("Fast figures" SK.SET.FEEDBACK.VERBOSE "Wires, circles and ellipses are shown while they are being entered.") ("All figures" SK.SET.FEEDBACK.ALWAYS "Most elements are shown while they are being entered. This will be slow for arcs and curves.")))))) 98 ((Undo SK.UNDO.LAST "undoes the previous event. Or the latest one that hasn't been undone." (SUBITEMS (?Undo SK.SEL.AND.UNDO "allows selection of an event to undo.") (Undo SK.UNDO.LAST "undoes the previous event. Or the latest one that hasn't been undone.")))) 94 ((UnGroup SK.UNGROUP.ELT "replaces a group element by its constituents." (SUBITEMS (UnGroup SK.UNGROUP.ELT "replaces a group element by its constituents.") (UnFreeze SK.UNFREEZE.ELT "unprotects an element so it can be moved, changed, copied or deleted.")))) 90 ((Group SK.GROUP.ELTS "groups a collection of elements into a single unit." (SUBITEMS ("Move group control point" SK.MOVE.GROUP.CONTROL.PT "moves the control point of a group without moving the group.") (Group SK.GROUP.ELTS "groups a collection of elements into a single unit.") (Freeze SK.FREEZE.ELTS "freezes elements so that they can not be moved, changed, copied or deleted.")))) 86 (("Bury" SK.SEND.TO.BOTTOM "will put selected elements on the bottom of the display stack." (SUBITEMS ("Send to bottom" SK.SEND.TO.BOTTOM "same as BURY, puts selected elements on the bottom of the display stack.") ("Bring to top" SK.BRING.TO.TOP "will cause selected elements to be displayed on top of ones now covering it.") ("Reverse order" SK.SWITCH.PRIORITIES "reorders the display of elements. Selecting 2 will switch them.")))) 79 ((Link SK.ADD.ANNOTATION "Adds an annotation object.")) 45 ((Annotations SK.SEL.AND.SHOW.ANNOTE "Manipulates the annotations from a selected element." (SUBITEMS (Add% Annotation SK.SEL.AND.ADD.ANNOTE "Adds an annotation to an element.") (Delete% Annotation SK.SEL.AND.DELETE.ANNOTE "Deletes the annotation from an element.") (Show% Annotation SK.SEL.AND.SHOW.ANNOTE "Shows the annotation of an element.")))) 19 ((Change SK.CHANGE.ELT "Changes a property of a piece or collection of pieces.")) 15 ((Align SK.ALIGN.POINTS.LEFT "Aligns a collection of points with the leftmost one." (SUBITEMS ("Align Left" SK.ALIGN.POINTS.LEFT "Aligns a collection of points with the leftmost one.") ("Align Right" SK.ALIGN.POINTS.RIGHT "Aligns a collection of points with the rightmost one.") ("Align Top" SK.ALIGN.POINTS.TOP "Aligns a collection of points with the topmost one.") ("Align Bottom" SK.ALIGN.POINTS.BOTTOM "Aligns a collection of points with the bottommost one.") ("Move onto grid" SK.PUT.ELTS.ON.GRID "Moves control points to nearest grid point.") ("Space evenly in X" SK.EVEN.SPACE.POINTS.IN.X "Moves points so that they are evenly spaced between the leftmost and rightmost.") ("Space evenly in Y" SK.EVEN.SPACE.POINTS.IN.Y "Moves points so that they are evenly spaced between the topmost and bottommost.")))) 11 ((Copy SK.COPY.ELT "Copies a piece of the sketch." (SUBITEMS ("Copy elements" SK.COPY.ELT "copies one or more elements of the sketch.") ("Copy w/2 pt trans" SK.COPY.AND.TWO.PT.TRANSFORM.ELTS "Copies one or more sketch elements with a two point transformation.") ("Copy w/3 pt trans" SK.COPY.AND.THREE.PT.TRANSFORM.ELTS "Copies one or more sketch elements with a three point transformation.")))) 7 ((Move SK.APPLY.DEFAULT.MOVE "Moves a control point, or one or more elements." (SUBITEMS (Move% point SK.MOVE.ELEMENT.POINT "Moves one of the control points.") ("Move points" SK.MOVE.POINTS "Moves a collection of control points.") ("Move elements" SK.MOVE.ELT "Moves one or more elements of the sketch.") ("Two pt transform" SK.TWO.PT.TRANSFORM.ELTS "Moves one or more sketch elements with a two point transformation.") ("Three pt transform" SK.THREE.PT.TRANSFORM.ELTS "Moves one or more sketch elements with a three point transformation.") ("Set MOVE command mode" SK.SET.MOVE.MODE "changes whether the MOVE command applies to points or elements." (SUBITEMS (Points SK.SET.MOVE.MODE.POINTS "Top level MOVE command will be the same as MOVE POINTS command.") (Elements SK.SET.MOVE.MODE.ELEMENTS "Top level MOVE command will be the same as MOVE ELEMENTS command.") (Combined SK.SET.MOVE.MODE.COMBINED "MOVE command will move points if a single point is clicked; elements otherwise")))))) 3 ((Delete SK.DELETE.ELT "Deletes one or more elements from the sketch." (SUBITEMS ("Delete element(s)" SK.DELETE.ELT "Deletes one or more elements from the sketch.") ("Delete point" SK.DELETE.KNOT "Deletes a control point from a wire or curve."))))) CREATE.SKETCHW.COMMANDMENU :D4 (I 3 VIEWER I 2 ELEMENTTYPES I 1 ADDFIXITEM I 0 MENUTITLE) ABC @ (9 SKETCH.COMMANDMENU 5 SKETCH.COMMANDMENU.ITEMS) NIL () SKETCHW.SELECTIONFNA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SKW F 1 ITEM) (P id P P QP Poo (37 STATUSPRINT 24 SK.APPLY.MENU.COMMAND 17 RESET.LINE.BEING.INPUT 13 CLOSEPROMPTWINDOW 8 OBTAIN.MONITORLOCK 3 SKETCH.MONITORLOCK) NIL ( 34 "Sketch operation in progress. Please wait." 30 " ") SKETCHW.SELECTIONFN :D4 (P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 SKW I 1 MENU I 0 ITEM F 3 LISPXHIST) #A g Sg  (32 CL:VALUES-LIST 28 SI::RESETUNWIND 25 \MVLIST 22 SKETCHW.SELECTIONFNA0001 9 GETWINDOWUSERPROP 3 WFROMMENU) (19 SI::RESETUNWIND 6 MAINWINDOW) () SKETCH.MONITORLOCK :D4 (P 0 LOCK I 0 VIEWER) !@g o @gH H(29 PUTWINDOWPROP 18 CREATE.MONITORLOCK 15 GENSYM 6 GETWINDOWUSERPROP) (25 MONITORLOCK 3 MONITORLOCK) ( 12 "Sketch") SK.EVAL.AS.PROCESS :D4 (I 1 VIEWER I 0 FORM) >`7g@ddi3 g@hAddi3 gAhhgg @,(56 ADD.PROCESS) (53 NO 50 RESTARTABLE 39 QUOTE 21 QUOTE 7 SK.EVAL.WITH.LOCK 2 \RUNNING.PROCESS) () SK.EVAL.WITH.LOCKA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*LOCKED-MONITOR* F 1 FORM) P Q (7 EVAL 3 OBTAIN.MONITORLOCK) NIL () SK.EVAL.WITH.LOCK :D4 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 VIEWER I 0 FORM) A g  (22 CL:VALUES-LIST 18 SI::MONITOR-UNWIND 15 \MVLIST 12 SK.EVAL.WITH.LOCKA0001 3 SKETCH.MONITORLOCK) (9 SI::MONITOR-UNWIND) () SK.FIX.MENU :D4 (P 0 MENUW I 1 DONTOPENFLG I 0 SKETCHW) c@ XY@g HgHg  l H@ /H@ggg Hgg Hggi AH h(95 OPENW 88 WINDOWADDPROP 76 WINDOWADDPROP 65 ATTACHWINDOW 48 MEMB 45 ATTACHEDWINDOWS 40 PUTWINDOWPROP 34 BITMAPWIDTH 31 UPDATE/MENU/IMAGE 27 GETWINDOWUSERPROP 16 PUTWINDOWPROP 6 SK.INSURE.HAS.MENU) (84 SK.CLEAR.POPUP.MENU 81 CLOSEFN 73 DETACHWINDOW 70 CLOSEFN 61 LOCALCLOSE 58 TOP 55 RIGHT 24 MENU 20 MINSIZE 13 SKETCHPOPUPMENUCACHE) () SK.SET.UP.MENUS :D4 (P 2 FIXIT? P 1 POPUPMENUW P 0 FIXEDMENUW I 2 MENUSPEC I 1 DONTOPENFLG I 0 SKETCHW) 0BiYBi iYB iYX@gH @gI J@A hBdidBBBi B BdidBBBi B (131 \ILLEGAL.ARG 124 MENUWINDOW 93 \ILLEGAL.ARG 87 MENUWINDOW 55 SK.FIX.MENU 47 PUTWINDOWPROP 39 PUTWINDOWPROP 19 MENUWINDOW) (116 MENU 80 MENU 43 SKETCHPOPUPMENU 35 SKETCHFIXEDMENU 13 MENU) () SK.INSURE.HAS.MENU :D4 (P 0 FIXEDMENU I 0 SKETCHW) #@g @g i@g@ X H(31 PUTWINDOWPROP 27 SK.CREATE.STANDARD.MENU 16 GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (23 SKETCHFIXEDMENU 13 SKETCHFIXEDMENU 3 SKETCHFIXEDMENU) () SK.CREATE.STANDARD.MENUA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 VIEWER) hdiP i (10 MENUWINDOW 6 CREATE.SKETCHW.COMMANDMENU) NIL () SK.CREATE.STANDARD.MENU :D4 (P 0 SI::*RESETFORMS* I 0 VIEWER) %g` hhhg  (34 CL:VALUES-LIST 30 SI::RESETUNWIND 27 \MVLIST 24 SK.CREATE.STANDARD.MENUA0001 8 CURSOR) (21 SI::RESETUNWIND 5 WAITINGCURSOR 2 CURSOR) () SK.ADD.ITEM.TO.MENU :D4 (I 1 NEWITEM I 0 OLDMENU) B`@ @Ah HdIdhdhdhjdndhHdI (18 \APPEND2 6 NCREATE2) (10 MENU 2 |MENUTYPE#|) () SK.GET.VIEWER.POPUP.MENU :D4 (P 0 SKETCHMENU I 0 SKETCHW) h@g _@g HH @g Xi8@g@ X )Hdi@g@ X Hg o i X@gH H(100 PUTWINDOWPROP 90 MENUWINDOW 86 SK.ADD.ITEM.TO.MENU 78 GETWINDOWUSERPROP 70 PUTWINDOWPROP 66 SK.CREATE.STANDARD.MENU 50 PUTWINDOWPROP 46 SK.CREATE.STANDARD.MENU 33 GETWINDOWUSERPROP 24 OPENWP 15 GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (96 SKETCHPOPUPMENUCACHE 75 MENU 62 SKETCHFIXEDMENU 42 SKETCHPOPUPMENU 30 SKETCHPOPUPMENU 12 SKETCHFIXEDMENU 3 SKETCHPOPUPMENUCACHE) ( 83 (Fix% Menu SK.FIX.MENU "leaves up the menu of sketch operations.")) SK.CLEAR.POPUP.MENU :D4 (I 0 MENUW) @ dg h(12 PUTWINDOWPROP 3 MAINWINDOW) (9 SKETCHPOPUPMENUCACHE) () SKETCH.CREATE :D4 (P 3 I P 1 SKETCH P 0 ARGS) heghglgjdhhd dHjkaIg Igl HkHlKJIKaKka Kl[I(92 PUTSKETCHPROP 66 PUTSKETCHPROP 57 PUTSKETCHPROP 54 CREATE.DEFAULT.SKETCH.CONTEXT 30 LAST) (61 VERSION 51 SKETCHCONTEXT 15 PRIRANGE 10 VERSION 6 SKETCH) () GETSKETCHPROP :D4 (P 1 SKETCHCONTEXT P 0 SKETCH I 1 PROPERTY I 0 SKETCH) %@ Hg'YAdgdgIAdgIgIAdgIgIAdgIgIAdgIgIgAdgIgIAgAdgIgIAdgIgIAdgHgHHA'(3 INSURE.SKETCH) (277 NAME 267 ELEMENTS 247 MOVEMODE 229 ARCDIRECTION 211 LINEMODE 194 BACKCOLOR 187 FILLINGCOLOR 169 TEXTURE 154 TEXTBOXALIGNMENT 148 REPLACE 126 DRAWINGMODE 112 USEARROWHEAD 98 DASHING 86 ARROWHEAD 74 TEXTALIGNMENT 64 FONT 51 COLOR 40 SIZE 29 SHAPE 20 BRUSH 13 SKETCHCONTEXT) () PUTSKETCHPROP :D4 (P 2 PLIST P 1 SKETCHCONTEXT P 0 SKETCH I 2 VALUE I 1 PROPERTY I 0 SKETCH) @ AHZHg'YAdgdBgIBIIIwAdgIdBIIXgIdIBI=AdgIB.gIB!AdgIBgIBAdgIBgIBAdgIBg'IIBKKKAgAdg%II\BLLegIBSAdgIB=gIB)AdgHBd gHBJ HABhBAB (442 LISTPUT 410 LAST 3 INSURE.SKETCH) (415 NAME 401 ELEMENTS 379 MOVEMODE 359 ARCDIRECTION 339 LINEMODE 298 FILLINGCOLOR 291 BACKCOLOR 247 TEXTURE 229 TEXTBOXALIGNMENT 203 DRAWINGMODE 186 USEARROWHEAD 169 DASHING 154 ARROWHEAD 139 TEXTALIGNMENT 126 FONT 97 COLOR 68 SIZE 37 SHAPE 25 BRUSH 18 SKETCHCONTEXT) () CREATE.DEFAULT.SKETCH.CONTEXT :D4 (F 0 SK.DEFAULT.FONT F 1 SK.DEFAULT.OPERATION) >`P g ````h`h`ihdkQh(40 SK.CREATE.DEFAULT.FILLING 14 SK.FONT.LIST 11 DEFAULTFONT) (37 SK.DEFAULT.TEXTBOX.ALIGNMENT 33 SK.DEFAULT.DASHING 26 SK.DEFAULT.ARROW.LENGTH 23 SK.DEFAULT.ARROW.ANGLE 20 SK.DEFAULT.ARROW.TYPE 17 SK.DEFAULT.TEXT.ALIGNMENT 8 DISPLAY 2 SK.DEFAULT.BRUSH) () SK.COPY.BUTTONEVENTFN :D4 (P 25 SEL P 24 SELITEM P 23 SELITEM P 17 OPERATION P 16 MIDDLEONLYFLG P 15 NOW P 14 PREVMOUSEBUTTONS P 13 RETURNVAL P 12 SELITEMS P 11 MOVEDMUCHFLG P 10 ORIGY P 9 OLDY P 8 NEWY P 7 NEWX P 6 ORIGX P 5 OLDX P 4 HOTSPOTCACHE P 3 SCALE P 2 DELETEMODE P 1 COPYMODE I 0 WINDOW) @ . l`ljjkjal@`ljjkj(l`ljjkjl@`l jjkjIl`ljjkjl`ljjkj#@g g@ @ `lHj HH >l@`ljjkj9l`ljjkj&l@`l jjkjl`ljjkj@ . 9l`ljjkj&l`ljjkjl`ljjkj@ @I@ . JgggJg_"@O" \ s@ @L @ooIJggJg `l_$j,O$!`lk_ IJ @g E IJ @L h`l_&j3O&O& '@ `` IJ h_@g v@ _@ _O`OO_OjiOeOah_`llh_ O *`lk @ dO.@IJ @ dO0@IJ h_`l_(j[O(O( OLOO _F`llh_ O `dlkO@IJ `ljO@IJ h_`_ZOMOAOOh6NO_*jO*O*jO*lOO_,jO,O,jO,li_LNOOOK@IJ OO_>dO2@IJ @L @ O:@ . 0I#JO@ IO O@i O@ JO@ O@O (1022 COPYINSERT 1019 SK.BUILD.IMAGEOBJ 1010 SK.DELETE.ELEMENT 1000 SK.COPY.ELEMENTS 993 COPYINSERT 990 SK.BUILD.IMAGEOBJ 976 SK.MOVE.ELEMENTS 963 TTY.PROCESSP 958 \INSUREWINDOW 949 CLOSEPROMPTWINDOW 944 SK.TAKE.MARKS.DOWN 934 SK.REMOVE.SELECTION 931 SK.BUTTONEVENT.MARK 906 SK.UPDATE.EVENT.SELECTION 806 SK.REMOVE.SELECTION 803 SK.BUTTONEVENT.MARK 784 SK.ADD.SELECTION 781 SK.BUTTONEVENT.MARK 739 IN.SKETCH.ELT? 728 \FZEROP 695 SK.REMOVE.SELECTION 692 SK.BUTTONEVENT.MARK 677 LOCALSPECS.FROM.VIEWER 665 SK.ADD.SELECTION 662 SK.BUTTONEVENT.MARK 647 LOCALSPECS.FROM.VIEWER 576 LASTMOUSEX 569 LASTMOUSEY 562 GETWINDOWUSERPROP 550 SK.BUTTONEVENT.SAME.KEYS 543 INSIDEP 532 \INSUREWINDOW 526 \FZEROP 502 SK.TAKE.MARKS.DOWN 495 SK.BUTTONEVENT.OVERP 488 \FZEROP 483 GETWINDOWUSERPROP 474 SK.BUTTONEVENT.OVERP 468 GETMOUSESTATE 435 GETMOUSESTATE 431 STATUSPRINT 400 SK.PUT.MARKS.UP 394 TOTOPW 388 SK.HAS.SOME.HOTSPOTS 384 SK.HOTSPOT.CACHE.FOR.OPERATION 349 TTY.PROCESSP 344 \INSUREWINDOW 331 VIEWER.SCALE 270 TTY.PROCESSP 265 \INSUREWINDOW 182 \FZEROP 158 SK.SEL.AND.MOVE 153 SK.SEL.AND.MOVE.POINTS 133 GETWINDOWUSERPROP 8 TTY.PROCESSP 3 \INSUREWINDOW) (814 LASTMOUSEBUTTONS 789 LASTMOUSEBUTTONS 764 LASTMOUSEBUTTONS 746 LASTMOUSEBUTTONS 709 LASTMOUSEBUTTONS 636 LASTMOUSEBUTTONS 618 LASTMOUSEBUTTONS 584 LASTMOUSEBUTTONS 559 SKETCH.SELECTIONS 540 LASTMOUSEY 537 LASTMOUSEX 507 LASTMOUSEBUTTONS 480 SKETCH.SELECTIONS 457 LASTMOUSEBUTTONS 439 LASTMOUSEBUTTONS 428 DELETE 421 COPY 417 MOVE 375 DELETE 364 COPYSELECT 360 COPY 355 MOVE 315 \LASTKEYSTATE 296 \LASTKEYSTATE 277 \LASTKEYSTATE 249 \LASTKEYSTATE 230 \LASTKEYSTATE 211 \LASTKEYSTATE 192 \LASTKEYSTATE 162 LASTMOUSEBUTTONS 147 POINTS 130 SKETCHCONTEXT 112 \LASTKEYSTATE 93 \LASTKEYSTATE 74 \LASTKEYSTATE 55 \LASTKEYSTATE 36 \LASTKEYSTATE 17 \LASTKEYSTATE) ( 410 "Select elements to " 406 " ") SK.BUTTONEVENT.MARK :D4 (L (1 DELETEFLG 0 COPYFLG)) A@```NIL (14 COPYSELECTIONMARK 10 DELETESELECTIONMARK 6 MOVESELECTIONMARK) () SK.BUILD.IMAGEOBJA0001 :D4 (L (1 B 0 A)) @bAb@A@ANIL NIL () SK.BUILD.IMAGEOBJ :D4 (P 15 GELT P 14 LOCALSKELT P 9 TEXTELT P 5 CHARSLST P 4 TEXTELTS P 3 GELT P 2 LOCALSKELT I 2 CHARSONLYFLG I 1 SKW I 0 SCRELTS) LB@1HILg 0L|IJ[dgK['dgK[ gK[KKhh HXd Odgh ^ON__O] oM  _NMA ghglgjdhYHIHI@QO)O d dh@A A A __dg _OOh__O_O&_(299 COPY 295 SK.COPY.IMAGEOBJ 276 SKETCH.IMAGEOBJ 273 SK.GRIDFACTOR 269 VIEWER.SCALE 265 SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS 262 VIEWER.SCALE 248 LAST 244 SK.SORT.GELTS.BY.PRIORITY 189 INSURE.SKETCH 177 LAST 173 BUTLAST 162 LAST 137 SK.ADD.SPACES 100 \NCONC2 68 SK.TEXTBOX.TEXT.POSITION 24 SORT) (290 SKIMAGEOBJ 204 PRIRANGE 199 VERSION 195 SKETCH 120 SKIMAGEOBJ 73 SKIMAGEOBJ 58 TEXTBOX 43 TEXT 21 SK.BUILD.IMAGEOBJA0001) ( 167 " ") SK.BUTTONEVENT.OVERP :D4 (I 1 DELETEMODE I 0 COPYMODE) Al`ljjkj&l`ljjkjl`ljjkjhS@hNl@`ljjkj9l`ljjkj&l@`l jjkjl`ljjkjh@l@`ljjkjl`ljjkjl@`l jjNIL (191 \LASTKEYSTATE 172 \LASTKEYSTATE 153 \LASTKEYSTATE 130 \LASTKEYSTATE 111 \LASTKEYSTATE 92 \LASTKEYSTATE 73 \LASTKEYSTATE 47 \LASTKEYSTATE 28 \LASTKEYSTATE 9 \LASTKEYSTATE) () SK.BUTTONEVENT.SAME.KEYS :D4 (I 1 DELETEMODE I 0 COPYMODE) Al`ljjkj(l`ljjkjl`ljjkjN@l@`ljjkj9l`ljjkj&l@`l jjkjl`ljjkj@9l@`ljjkj&l`ljjkjl@`l jjkjNIL (184 \LASTKEYSTATE 165 \LASTKEYSTATE 146 \LASTKEYSTATE 124 \LASTKEYSTATE 105 \LASTKEYSTATE 86 \LASTKEYSTATE 67 \LASTKEYSTATE 47 \LASTKEYSTATE 28 \LASTKEYSTATE 9 \LASTKEYSTATE) () SK.SEL.AND.CHANGE :D4 (I 0 W) @ihg @ (12 SK.CHANGE.THING 8 SK.SELECT.MULTIPLE.ITEMS) (5 CHANGE) () SK.CHECK.WHENCHANGEDFN :D4 (P 2 WHENCHANGEDFN P 1 RESULT P 0 SKETCH I 4 OLDVALUE I 3 NEWVALUE I 2 PROPERTY I 1 GELT I 0 VIEWER) &@ !Hg ZA@ABCDlJdgh(13 GETSKETCHPROP 3 INSURE.SKETCH) (31 DON'T 10 WHENCHANGEDFN) () SK.CHECK.PRECHANGEFN :D4 (P 1 PRECHANGEFN P 0 SKETCH I 2 CHANGESPEC I 1 SCRELT I 0 VIEWER) @ Hg Y @ABlI(13 GETSKETCHPROP 3 INSURE.SKETCH) (10 PRECHANGEFN) () SK.CHANGE.ELT :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.CHANGE) () SK.CHANGE.THING :D4 (P 3 ELT P 1 READCHANGEFN P 0 FIRSTTYPE I 1 W I 0 ELTSTOCHANGE) > @Jhh[X YJZgiH A@lI@A (59 SK.APPLY.CHANGE.COMMAND 47 SK.CHANGEFN 26 SK.READCHANGEFN) (37 NILL) () SKETCH.CHANGE.ELEMENTS :D4 (P 6 ELEMENT P 1 RESULT P 0 VIEWER I 3 ADDHISTORY? I 2 SKETCHTOUPDATE I 1 CHANGESPECS I 0 ELEMENTS) ;B @AJKHhdCh ^AH YL Mh\JZM&(34 SK.DO.CHANGESPECS 26 SK.DO.AND.RECORD.CHANGES 3 SK.VIEWER.FROM.SKETCH.ARG) NIL () SK.APPLY.SINGLE.CHANGEFN :D4 (I 3 VIEWER I 2 CHANGESPEC I 1 CHANGEFN I 0 GELEMENT) @dgABC BClA(15 SK.GROUP.CHANGEFN) (7 GROUP) () SK.DO.CHANGESPECS :D4 (P 1 CHANGESPEC P 0 NEWELEMENT I 2 VIEWER I 1 CHANGESPECS I 0 ELEMENT) 0 AdH!@IB HH@HAhdh(17 SK.DO.CHANGESPEC1) NIL () SK.VIEWER.FROM.SKETCH.ARG :D4 (I 0 SKETCH) @d @ bd (19 ALL.SKETCH.VIEWERS 12 INSURE.SKETCH 6 WINDOWP) NIL () SK.DO.CHANGESPEC1 :D4 (P 1 CHANGEASPECTFN P 0 CHANGEHOW I 2 VIEWER I 1 CHANGESPEC I 0 ELEMENT) AAdggdggdggdgg{dggodggcdggWdgdgdgdgdgAg/dg@H dggdggggYh@IHB (190 SK.APPLY.SINGLE.CHANGEFN 146 SK.ADD.KNOT.TO.ELEMENT) (179 SK.CHANGE.FILLING.MODE 173 FILLINGMODE 169 SK.CHANGE.FILLING.COLOR 163 FILLINGCOLOR 157 SK.CHANGE.BRUSH.COLOR 151 BRUSHCOLOR 138 ADDPOINT 132 SK.CHANGE.TEXT 124 FAMILY&SIZE 118 SAME 112 SETSIZE 105 NEWFONT 98 TEXT 92 SK.CHANGE.ARC.DIRECTION 86 DIRECTION 80 SK.CHANGE.ANGLE 74 ANGLE 68 SK.CHANGE.DASHING 62 DASHING 56 SK.CHANGE.FILLING 50 FILLING 43 SK.CHANGE.ARROWHEAD 37 ARROW 30 SK.CHANGE.BRUSH.SHAPE 24 SHAPE 17 SK.CHANGE.BRUSH.SIZE 11 SIZE) () SK.CHANGEFN :D4 (I 0 ELEMENTTYPE) @g  g(6 GETPROP) (16 SK.DEFAULT.CHANGEFN 9 SKETCHTYPE 3 SKETCHTYPE) () SK.READCHANGEFN :D4 (I 0 ELEMENTTYPE) @g (6 GETPROP) (9 SKETCHTYPE 3 SKETCHTYPE) () SK.DEFAULT.CHANGEFN :D4 (P 5 FIELDNAME P 4 NEWPROPVALUE P 3 CURRENTVAL P 2 NOSETVALUE P 1 INDVELT P 0 FIELD I 2 FIELD I 1 W I 0 SCRNELT) B @ @oCH Ao hHH]I@ g [HIoH oHI@ g A J\JMI@ gL @@HAJlN(128 RECORDACCESS 124 EVAL 117 RECLOOK 99 READ.FUNCTION 95 CONCAT 92 MKSTRING 89 RECORDACCESS 83 RECLOOK 69 MKSTRING 56 RECORDACCESS 50 RECLOOK 32 STATUSPRINT 10 SK.MENU.AND.RETURN.FIELD) (120 REPLACE 86 FETCH 53 FETCH) ( 73 " value. Current value is " 65 "Enter new " 29 "That element doesn't have any changeable parts." 18 "str") CHANGEABLEFIELDITEMS :D4 (I 0 ELEMENTTYPE) @g (6 GETPROP) (3 CHANGEABLEFIELDITEMS) () SK.APPLY.CHANGE.COMMAND :D4 (P 5 ELTCHANGE P 4 SCRELT I 3 SKW I 2 SCRELTS I 1 COMMAND I 0 CHANGEFN) 3ABQH IC @ALC ]J KhZHXK&(26 SK.APPLY.CHANGE.COMMAND1 16 SK.DO.AND.RECORD.CHANGES) NIL () SK.DO.AND.RECORD.CHANGES :D4 (I 4 DONTHISTORYFLG I 3 DONTDISPLAYFLG I 2 DONTUPDATEPRIORITYFLG I 1 VIEWER I 0 LSTOFCHANGESPECS F 0 LSTOFCHANGESPEC) $@!B@ @ c@ABC Dg@A i(32 SK.ADD.HISTEVENT 22 SK.UPDATE.ELEMENTS 13 SORT.CHANGESPECS.BY.OLD.PRIORITY 8 SORT.CHANGESPECS.BY.NEW.PRIORITY) (27 CHANGE) () SK.APPLY.CHANGE.COMMAND1 :D4 (P 1 CHANGES P 0 FNRESULT I 3 VIEWER I 2 SCRELT I 1 COMMAND I 0 CHANGEFN) B CBA XdgHbBhCAl@hYCIIII I(60 SK.CHECK.WHENCHANGEDFN 8 SK.CHECK.PRECHANGEFN) (13 DON'T) () SK.ELEMENTS.CHANGEFN :D4 (P 5 SCRELT P 1 CHANGEASPECTFN P 0 CHANGEHOW I 2 HOW I 1 SKW I 0 SCRELTS) BBdggdggdggdggdggsdgggdgg[dgdgdgdgdgBg3dg@H hdggdggggYh@@d]IHA KJh\J&L(204 SK.APPLY.SINGLE.CHANGEFN 149 SK.ADD.KNOT.TO.ELEMENT) (184 SK.CHANGE.FILLING.MODE 178 FILLINGMODE 174 SK.CHANGE.FILLING.COLOR 168 FILLINGCOLOR 162 SK.CHANGE.BRUSH.COLOR 156 BRUSHCOLOR 139 ADDPOINT 133 SK.CHANGE.TEXT 125 FAMILY&SIZE 119 SAME 113 SETSIZE 106 NEWFONT 99 TEXT 93 SK.CHANGE.ARC.DIRECTION 87 DIRECTION 81 SK.CHANGE.ANGLE 75 ANGLE 69 SK.CHANGE.DASHING 63 DASHING 56 SK.CHANGE.FILLING 50 FILLING 43 SK.CHANGE.ARROWHEAD 37 ARROW 30 SK.CHANGE.BRUSH.SHAPE 24 SHAPE 17 SK.CHANGE.BRUSH.SIZE 11 SIZE) () READ.POINT.TO.ADD :D4 (P 1 NEWPT P 0 AFTERPT I 1 SKVIEWER I 0 SCRELT F 2 POINTREADINGCURSOR) G Ao Ah@h XA hAo ARhddd` YA IH@ IA h(65 SK.MAP.INPUT.PT.TO.GLOBAL 60 GLOBAL.KNOT.FROM.LOCAL 52 CLOSEPROMPTWINDOW 47 SK.READ.POINT.WITH.FEEDBACK 34 STATUSPRINT 24 CLOSEPROMPTWINDOW 18 SK.SELECT.ITEM 10 STATUSPRINT) (43 SKETCH.USE.POSITION.PAD) ( 31 "Indicate where the new point should be." 7 "Select the point that the new point should follow.") GLOBAL.KNOT.FROM.LOCAL :D4 (I 1 SCRELT I 0 LOCALKNOT) ,Ag A"IHhJ@KIH(7 GETSKETCHELEMENTPROP) (4 DATA) () SK.ADD.KNOT.TO.ELEMENT :D4 (P 1 NEWKNOTS P 0 OLDKNOTS I 1 PTS I 0 GELTWITHKNOTS) N@g !0HddAAhh[L!K]\MY@I @JgIHh \K(71 LAST 53 SK.CHANGE.ELEMENT.KNOTS 6 GETSKETCHELEMENTPROP) (59 DATA 3 DATA) () SK.GROUP.CHANGEFN :D4 (P 0 NEWELT I 3 SKW I 2 CHANGEHOW I 1 CHANGEASPECTFN I 0 GROUPELT) (@ABC Xdh@HgH@h(9 SK.GROUP.CHANGEFN1) (19 DATA) () SK.GROUP.CHANGEFN1 :D4 (P 14 NEWSUBELT P 13 OLDSUBELT P 7 SUBELT P 3 CHANGEDFLG P 2 NEWELT P 1 NEWSUBELTS P 0 OLDSUBELTS I 3 SKW I 2 CHANGEHOW I 1 CHANGEASPECTFN I 0 GROUPELT) @1@H2d_dgABC BClAZiJMLh^L&NYKhIHRO_O*OY@g@I@@h _O _OOh__O_O_O&_(142 SK.COPY.GLOBAL.ELEMENT 131 SK.UPDATE.GROUP.AFTER.CHANGE 33 SK.GROUP.CHANGEFN1) (101 GROUP 25 GROUP) () ADD.ELEMENT.TO.SKETCH :D4 (P 1 ELTPRI P 0 REALSKETCH I 1 SKETCH I 0 GELT) .A @g I@H H@ A@I H h(42 SK.MARK.DIRTY 37 SK.ADD.PRIORITY.ELEMENT.TO.SKETCH 30 TCONC 23 SK.SET.ELEMENT.PRIORITY 20 SK.POP.NEXT.PRIORITY 10 \GETSKETCHELEMENTPROP1 3 INSURE.SKETCH) (7 PRI) () ADD.SKETCH.VIEWER :D4 (P 0 VIEWERS I 1 VIEWER I 0 SKETCH) %@ XAHHAh @Ah`h(20 \NCONC2 6 ALL.SKETCH.VIEWERS) (33 ALL.SKETCHES 29 ALL.SKETCHES) () REMOVE.SKETCH.VIEWER :D4 (P 0 VIEWERS I 1 VIEWER I 0 SKETCH) @ XAH H` h(23 REMOVE 14 DREMOVE 6 VIEWER.BUCKET) (26 ALL.SKETCHES 20 ALL.SKETCHES) () ALL.SKETCH.VIEWERS :D4 (I 0 SKETCH) @ (3 VIEWER.BUCKET) NIL () SKETCH.ALL.VIEWERS :D4 (I 0 SKETCH) @ (6 ALL.SKETCH.VIEWERS 3 INSURE.SKETCH) NIL () VIEWER.BUCKET :D4 (I 0 SKETCH) @`NIL (3 ALL.SKETCHES) () ELT.INSIDE.REGION? :D4 (I 1 WORLDREG I 0 GLOBALPART) @ @AlH(6 SK.INSIDEFN) NIL () ELT.INSIDE.SKWP :D4 (I 1 SKETCHW I 0 GLOBALPART) @A (7 ELT.INSIDE.REGION? 4 SKETCH.REGION.VIEWED) NIL () SCALE.FROM.SKW :D4 (I 0 WINDOW) @g (6 GETWINDOWUSERPROP) (3 SCALE) () SK.ADDELT.TO.WINDOW :D4 (P 0 CACHE I 1 SKETCHW I 0 PELT) )@&Ag @ A H@H A@H @(37 SK.SET.HOTSPOT.CACHE 34 SK.ADD.HOTSPOTS.TO.CACHE1 27 SK.ADD.HOTSPOTS.TO.CACHE1 17 SK.HOTSPOT.CACHE 13 SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH 9 GETWINDOWUSERPROP) (6 SKETCHSPECS) () SK.CALC.REGION.VIEWED :D4 (I 1 SCALE I 0 WINDOW) h@ A (8 UNSCALE.REGION 4 DSPCLIPPINGREGION) NIL () SK.DRAWFIGURE :D4 (P 0 GLOBALPART I 3 SCALE I 2 REGION I 1 STREAM I 0 SCREENELT) &C3C@XCH@ABdA @(34 SK.DRAWFIGURE1 31 DSPCLIPPINGREGION) NIL () SK.DRAWFIGURE1 :D4 (I 2 REGION I 1 SKW I 0 ELT) @ @ABlH(7 SK.DRAWFN) NIL () SK.LOCAL.FROM.GLOBAL :D4 (P 2 ACTIVEREGION P 1 SCRELT I 2 SCALE I 1 SKSTREAM I 0 GELT) ?@ @B3A AlHI@g ZIJB3A I(58 SK.SCALE.REGION 55 VIEWER.SCALE 39 GETSKETCHELEMENTPROP 19 VIEWER.SCALE 6 SK.EXPANDFN) (36 ACTIVEREGION) () SKETCH.REGION.VIEWED :D4 (P 0 NEWVIEW I 1 NEWREGION I 0 SKETCHW) 9@g A/A @A Adg@ @ X@H A (53 \ILLEGAL.ARG 48 SK.MOVE.TO.VIEW 41 SKETCH.VIEW.FROM.NAME 36 SKETCH.HOME 22 SKETCH.GLOBAL.REGION.ZOOM 16 REGIONP 6 GETWINDOWUSERPROP) (29 HOME 3 REGION.VIEWED) () SKETCH.VIEW.FROM.NAME :D4 (I 1 SKETCHW I 0 VIEWNAME) "A g Hh@IIHX(9 GETSKETCHPROP 3 INSURE.SKETCH) (6 VIEWS) () SK.UPDATE.REGION.VIEWED :D4 (I 0 SKW) @g@d (14 PUTWINDOWPROP 11 SK.CALC.REGION.VIEWED 8 VIEWER.SCALE) (3 REGION.VIEWED) () SKETCH.ADD.AND.DISPLAY :D4 (I 2 DONTCLEARCURSOR I 1 SKETCHW I 0 GELT) @g@hA @AB (18 SK.ADD.ELEMENT 12 SK.ADD.HISTEVENT) (5 ADD) () SKETCH.ADD.AND.DISPLAY1 :D4 (I 3 NODISPLAYFLG I 2 SCALE I 1 SKETCHW I 0 GELT) @C@A @A AhBA (27 SK.DRAWFIGURE 24 VIEWER.SCALE 15 SK.ADD.ITEM 9 SK.ADD.ITEM) NIL () SK.ADD.ITEM :D4 (I 1 SKETCHW I 0 GELT) @A A (8 SK.ADDELT.TO.WINDOW 4 SK.LOCAL.FROM.GLOBAL) NIL () SKETCHW.ADD.INSTANCE :D4 (P 0 ELT I 1 SKW I 0 TYPE) @A HdA H(14 SKETCH.ADD.AND.DISPLAY 4 SK.INPUT) NIL () SK.SEL.AND.DELETE :D4 (I 0 W) @ihg @ (12 SK.DELETE.ELEMENT 8 SK.SELECT.MULTIPLE.ITEMS) (5 DELETE) () SK.ERASE.AND.DELETE.ITEM :D4 (I 2 NODISPLAYFLG I 1 SKW I 0 SELELT) @B@A @A (15 SK.DELETE.ITEM 9 SK.ERASE.ELT) NIL () REMOVE.ELEMENT.FROM.SKETCH :D4 (P 2 ELT P 0 SKETCHDATA I 2 INSIDEGROUPFLG I 1 SKETCH I 0 GELT) 3A H@ A iBHIZ @J A JJ(43 SK.MARK.DIRTY 38 DELFROMGROUPELT 17 SK.MARK.DIRTY 12 DELFROMTCONC 3 INSURE.SKETCH) NIL () SK.DELETE.ELEMENT :D4 (I 2 ELTSFORHISTORY I 1 SKETCHW I 0 ELTSTODEL) (A @!0@dIHhZH&JAB (37 SK.DELETE.ELEMENT2 3 SKED.CLEAR.SELECTION) NIL () SK.DELETE.ELEMENT2 :D4 (P 1 GELT P 0 DELETEDELTS I 2 ELTSFORHISTORY I 1 SKETCHW I 0 GELTSTODEL) 3A@ XdhBggBHA HdIA H(42 SK.DELETE.ELEMENT1 29 SK.ADD.HISTEVENT 7 SK.CHECK.WHENDELETEDFN) (21 DELETE 16 DON'T) () SK.DELETE.KNOT :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.DELETE.KNOT) () SK.SEL.AND.DELETE.KNOT :D4 (P 4 KNOTELTS P 3 SCRELT I 0 W) \0@ 3dKo Kg hdIHhZH&JL@o h@hL L@ h(88 SK.DELETE.ELEMENT.KNOT 83 SK.SELECT.ITEM 75 STATUSPRINT 38 SK.ELEMENT.PROTECTED? 25 MEMB 6 LOCALSPECS.FROM.VIEWER) (35 CHANGE) ( 72 "There are no curve or wire elements to delete points from." 22 (WIRE CLOSEDWIRE OPENCURVE CLOSEDCURVE)) SK.DELETE.ELEMENT.KNOT :D4 (P 9 GLOBALPART P 8 CHANGES P 7 NEWELT P 6 NEWKNOTS P 5 GLOBALKNOTS P 4 GLOBALKNOT P 3 LOCALKNOTS P 2 SCREENELT P 1 SKELT I 2 SKW I 1 SCRELTS I 0 LOCALKNOT) B @hj@ @_@ Y@bSAH hq Jd@I IHX_dg ]J[" O_Oh\BJL h_O@OO_O_LM ^;ON _0BOgNM OOgNMhh_B gOB JhB (212 SK.DELETE.ELEMENT 204 SK.ADD.HISTEVENT 195 SK.UPDATE.ELEMENTS 170 SK.CHECK.WHENCHANGEDFN 154 SK.CHANGE.ELEMENT.KNOTS 145 REMOVE 109 SK.CHECK.WHENPOINTDELETEDFN 77 GETSKETCHELEMENTPROP 58 MEMBER 23 POSITIONP 12 POSITIONP 3 SKED.CLEAR.SELECTION) (198 CHANGE 179 DATA 164 DATA 74 DATA) () SK.CHECK.WHENDELETEDFN :D4 (P 2 DELETEFN P 1 RESULT P 0 SKETCH I 1 GELTS I 0 VIEWER) )@ !Hg ZA@AlJYddghI(13 GETSKETCHPROP 3 INSURE.SKETCH) (30 DON'T 10 WHENDELETEDFN) () SK.CHECK.PREEDITFN :D4 (P 1 PREEDITFN P 0 SKETCH I 1 OLDELT I 0 VIEWER) !@ Hg Yi@AlIgh(13 GETSKETCHPROP 3 INSURE.SKETCH) (27 DON'T 10 PREEDITFN) () SK.CHECK.END.INITIAL.EDIT :D4 (I 1 NEWELT I 0 VIEWER) @AghA (15 SK.CHECK.WHENCHANGEDFN) (4 DATA) () SK.CHECK.WHENPOINTDELETEDFN :D4 (P 2 PRECHANGEFN P 1 RESULT P 0 SKETCH I 2 CONTROLPOINT I 1 SCRELT I 0 VIEWER) -@ !Hg ZA@AhgBhlJdgh(13 GETSKETCHPROP 3 INSURE.SKETCH) (38 DON'T 25 DELETEPOINT 10 PRECHANGEFN) () SK.ERASE.ELT :D4 (I 2 REGION I 1 WINDOW I 0 ELT) gA @ABA gA (23 DSPOPERATION 16 SK.DRAWFIGURE 13 VIEWER.SCALE 6 DSPOPERATION) (19 PAINT 2 ERASE) () SK.DELETE.ELT :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.DELETE) () SK.DELETE.ITEM :D4 (I 1 SKETCHW I 0 ELT) @Ag @ @A @(21 SK.REMOVE.HOTSPOTS.FROM.CACHE1 18 SK.HOTSPOT.CACHE 13 DELFROMTCONC 9 GETWINDOWUSERPROP) (6 SKETCHSPECS) () DELFROMTCONC :D4 (I 1 ELEMENT I 0 TCONCCELL) `Ad@@k @h@h@di@!@HYi@@IIhI@HYAIIdiI(14 EQLENGTH) NIL () SK.COPY.ELT :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.COPY) () SK.SEL.AND.COPY :D4 (I 0 W) @ihg @ (12 SK.COPY.ELEMENTS 8 SK.SELECT.MULTIPLE.ITEMS) (5 COPY) () SK.COPY.ELEMENTS :D4 (P 10 COPYPLACEDYETFLG P 9 COPYARGS P 8 SKETCH P 7 COPYFN P 6 NEWELTS P 5 DELTAPOS P 4 NEWGPOS P 3 LOWLFT P 2 GHOTSPOT P 1 FIRSTHOTSPOT P 0 FIGINFO I 1 SKW I 0 SCRELTS) @@ A _g _A@ _lOMdgh A@Od _M @hA X@@g AHgoKI KI A \4A LJLJA@Od _M l@`ljjOA hAo hkj(l`ljjkjl@`l jjkji_g(198 STATUSPRINT 188 CLOSEPROMPTWINDOW 164 SK.ADD.COPY.OF.ELEMENTS 158 SK.GLOBAL.FROM.LOCAL.ELEMENTS 135 CLOSEPROMPTWINDOW 128 SK.MAP.INPUT.PT.TO.GLOBAL 124 GET.BITMAP.POSITION 120 FIXR 112 FIXR 93 GETSKETCHELEMENTPROP 74 SK.FIGUREIMAGE 71 DSPCLIPPINGREGION 64 SK.ADD.COPY.OF.ELEMENTS 58 SK.GLOBAL.FROM.LOCAL.ELEMENTS 46 POSITIONP 25 SK.GLOBAL.FROM.LOCAL.ELEMENTS 17 GETSKETCHPROP 9 INSURE.SKETCH) (229 \LASTKEYSTATE 210 \LASTKEYSTATE 170 \LASTKEYSTATE 100 PAINT 90 POSITION 39 DON'T 14 PRECOPYFN) ( 195 "Position was outside the window. Copy not placed." 104 "move the figure into place and press the left button.") SK.ADD.COPY.OF.ELEMENTS :D4 (P 3 X P 2 COPYFN P 1 NEWELTS P 0 SKETCH I 3 NEWPOSDELTA I 2 GLOBALELEMENTS I 1 SCRELEMENTS I 0 VIEWER) _P@ Xg Z@BClJKdg= KbKKd\L ihKAgC@ Yd@ gI@ h(91 SK.ADD.HISTEVENT 83 SK.ADD.ELEMENTS 77 SK.SORT.GELTS.BY.PRIORITY 74 MAPCOLLECTSKETCHSPECS 53 GLOBALELEMENTP 35 POSITIONP 13 GETSKETCHPROP 6 INSURE.SKETCH) (86 COPY 69 SK.COPY.ITEM 29 DON'T 10 WHENCOPIEDFN) () SK.GLOBAL.FROM.LOCAL.ELEMENTS :D4 (L (0 SCRELTS)) 0@dIHhZH&JNIL NIL () SK.COPY.ITEM :D4 (P 0 OLDGLOBAL I 2 W I 1 GLOBALDELTAPOS I 0 SELELT) @HdgBi XA (24 SK.TRANSLATE.GLOBALPART 19 SK.COPY.IMAGEOBJ) (12 SKIMAGEOBJ) () SK.INSERT.SKETCH :D4 (P 6 NEWELTS P 5 WINDOWSCALE P 4 NEWPOS P 3 LOWLFT P 2 FIRSTHOTSPOT P 1 FIGINFO P 0 LOCALSCRELTS I 3 SCALE I 2 REGION I 1 SKETCH I 0 W) AC@ ]Rghglgjdh_AOAOAOAgCM d bBCM bAhM@i XdYB YHZI[@IgoKJKJ \.@ HgLJLJM @ ^d@ gN@ N@oo h(211 STATUSPRINT 197 SK.ADD.HISTEVENT 189 SK.ADD.ELEMENTS 183 MAPCOLLECTSKETCHSPECS 179 SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 159 CLOSEPROMPTWINDOW 150 GET.BITMAP.POSITION 115 SK.FIGUREIMAGE 107 MAKE.LOCAL.SKETCH 95 SK.SCALE.REGION 83 LAST 79 SK.TRANSFORM.GLOBAL.ELEMENTS 14 VIEWER.SCALE) (192 COPY 164 SK.COPY.ITEM 132 PAINT 73 SK.SCALE.POSITION.INTO.VIEWER.EXACT 30 PRIRANGE 25 VERSION 21 SKETCH) ( 208 "Position was outside the window. Copy not placed." 204 " " 136 "move the figure into place and press the left button.") SK.MOVE.ELT :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.MOVE) () SK.MOVE.ELT.OR.PT :D4 (I 0 W) g@ddi3 g@hih@ (29 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.MOVE) () SK.APPLY.DEFAULT.MOVE :D4 (I 0 W) .@g dg@ g@ @ (43 SK.MOVE.ELT.OR.PT 38 SK.MOVE.ELT 28 SK.MOVE.POINTS 6 GETWINDOWUSERPROP) (32 ELEMENTS 21 POINTS 3 SKETCHCONTEXT) () SK.SEL.AND.MOVE :D4 (I 1 PTFLG I 0 W) !Ag@hdg @Ahhg @ (30 SK.MOVE.ELEMENTS 26 SK.SELECT.MULTIPLE.ITEMS 14 SK.SELECT.ITEM) (23 MOVE 11 MOVE 3 ONLY) () SK.MOVE.ELEMENTSA0001 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 IMAGEBM F 5 IMAGEPOSX F 6 IMAGEPOSY F 7 SKW F 8 FIRSTHOTSPOT F 9 PROCEED-CASE0084 F 10 *PROCEED-CASES* F 11 NEWPOS) ii@ggggWgjgg gg WTUVgW WTgoUWVW ch (100 \MVLIST 90 GET.BITMAP.POSITION 65 SK.SHOW.FIG.FROM.INFO 44 MAKE-PROCEED-CASE 40 CL:SYMBOL-FUNCTION 31 CL:SYMBOL-FUNCTION) (72 PAINT 59 ERASE 37 SI::ERRORSET-PRINT-FUNCTION 34 :REPORT 28 TRUE 25 :TEST 21 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) ( 76 "Move image to its new position.") SK.MOVE.ELEMENTS :D4 (P 28 PROCEED-CASE0082 P 27 A0086 P 26 PROCEED-CASE0083 P 25 A0085 P 24 PROCEED-CASE0084 P 23 GDELTAPOS P 22 X P 21 MOVEFN P 20 CHANGES P 19 DELTAPOS P 18 IMAGEBM P 17 IMAGEPOSY P 16 IMAGEPOSX P 15 LOWLFT P 14 NEWPOS P 13 FIRSTHOTSPOT P 12 FIGINFO P 11 PT P 10 SCRELT P 8 SKETCH P 7 MOVEARGS P 6 X P 5 GDELTAPOS P 4 MOVEFN P 3 NEWPOS P 2 OTHERHOTSPOTS P 1 SKETCHELT P 0 SKETCHELTS I 1 SKW I 0 SCRELTS F 32 OTHERCONTROLPOINTMARK) ? A @h3@ @@  @b@A Hd O hYh_g OO_@I ZIhA A _g \AI@ _lLMdg ZJd OAW@ @A Ahdddd` Jd OAW@ Kdb@K@A Og \AOI@ MlLNdg% NI@MA A g _*A@ lO*_.O.dg @hA _@_O_$O__ O_"OA hhO0 1O2_8O2_6_4O8dgO4 j:h;O$O O"gA A OOOO_&A _.0@7OO$O O"gA Ao hd_:O< O:h_>O:&_<O>O.Ai A h(571 CLOSEPROMPTWINDOW 567 SKETCH.MOVE.ELEMENTS 528 STATUSPRINT 519 SK.SHOW.FIG.FROM.INFO 492 SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 489 VIEWER.SCALE 467 ERROR! 463 CLOSEPROMPTWINDOW 458 SK.SHOW.FIG.FROM.INFO 435 CL:VALUES-LIST 403 SK.MOVE.ELEMENTSA0001 391 CURSORPOSITION 352 SK.FIGUREIMAGE 349 DSPCLIPPINGREGION 339 POSITIONP 316 SK.MAKE.ELEMENTS.MOVE.ARG 308 GETSKETCHPROP 302 INSURE.SKETCH 294 SK.MOVE.THING 284 POSITIONP 264 SK.MAKE.ELEMENT.MOVE.ARG 251 GETSKETCHPROP 242 SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 239 VIEWER.SCALE 210 MARKPOINT 194 SK.READ.POINT.WITH.FEEDBACK 180 CURSORPOSITION 170 MARKPOINT 153 POSITIONP 132 SK.MAKE.ELEMENT.MOVE.ARG 124 GETSKETCHPROP 116 INSURE.SKETCH 111 SK.MOVE.ELEMENTS 102 REMOVE 83 SK.ELEMENT.PROTECTED? 49 SK.ELTS.FROM.HOTSPOT 46 SK.HOTSPOT.CACHE 29 POSITIONP 16 POSITIONP 3 SKED.CLEAR.SELECTION) (514 PAINT 453 PAINT 427 :NORMAL 331 DON'T 305 PREMOVEFN 276 DON'T 248 WHENMOVEDFN 190 SKETCH.USE.POSITION.PAD 145 DON'T 121 PREMOVEFN 80 MOVE) ( 525 "Position was outside the window, copy not placed.") SKETCH.MOVE.ELEMENTS :D4 (P 5 VIEWER P 4 GDELTAPOS P 3 SKETCH P 2 NEWGLOBALS P 1 MOVEFN P 0 X I 3 ADDHISTORY? I 2 SKETCHTOUPDATE I 1 DELTA I 0 ELEMENTS) pA A BB [B K#A@ gLM ZCig@JR OLSg YM0 @diN_O Oh_O&_OAlIXdgh H_O OM J_OOOLh_OOh__O_O_rO&_(149 SK.ADD.HISTEVENT 128 POSITIONP 67 GETSKETCHPROP 42 MAPGLOBALSKETCHSPECS 34 SK.SORT.GELTS.BY.PRIORITY 24 SK.VIEWER.FROM.SKETCH.ARG 18 INSURE.SKETCH 11 \ILLEGAL.ARG 6 POSITIONP) (121 DON'T 64 WHENMOVEDFN 49 MOVE 37 SK.TRANSLATE.ELEMENT) () SKETCH.COPY.ELEMENTS :D4 (P 6 ELT P 5 VIEWER P 4 GDELTAPOS P 3 SKETCH P 2 NEWGLOBALS P 1 COPYFN P 0 X I 3 ADDHISTORY? I 2 DELTA I 1 SKETCHTOUPDATE I 0 ELEMENTS) `B jd b B AA [A KB@gLM ZK;d5g YM@BlIXdgh HdN NA C#M g@JR O_O OM J_OOOh_OOh__O_O_O&_(146 SK.ADD.HISTEVENT 105 SKETCH.ADD.ELEMENT 99 SK.SET.ELEMENT.PRIORITY 85 POSITIONP 62 GETSKETCHPROP 49 MAPGLOBALSKETCHSPECS 34 SK.VIEWER.FROM.SKETCH.ARG 28 INSURE.SKETCH 21 \ILLEGAL.ARG 16 POSITIONP 10 CREATEPOSITION) (119 COPY 78 DON'T 59 WHENCOPIEDFN 44 \SKETCH.COPY.ELEMENT) () \SKETCH.COPY.ELEMENT :D4 (I 2 W I 1 GLOBALDELTAPOS I 0 GLOBALELEMENT) @dgBi A (18 SK.TRANSLATE.GLOBALPART 14 SK.COPY.IMAGEOBJ) (7 SKIMAGEOBJ) () SK.TRANSLATE.ELEMENT :D4 (P 0 NEWGLOBAL I 2 W I 1 GLOBALDELTAPOS I 0 GELT) @A XB@HBid H(21 SK.UPDATE.ELEMENT 7 SK.TRANSLATE.GLOBALPART) NIL () SK.COPY.GLOBAL.ELEMENT :D4 (I 0 GLOBALELT) @jd i (9 SK.TRANSLATE.GLOBALPART 5 CREATEPOSITION) NIL () SK.MAKE.ELEMENT.MOVE.ARG :D4 (L (1 SELPOS 0 SCRELT)) $@kH hh@AIIkԹHXNIL NIL () SK.MAKE.ELEMENTS.MOVE.ARG :D4 (L (0 SCRELTS)) i0@dIHhZH&JNIL NIL () SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG :D4 (P 11 PT P 10 NOTALL P 6 I P 4 SCRELT I 1 SELPTS I 0 SCRELTS) h @AHI\kR M O6i5_A i_hN_OOh__NkԾM]O&_OLJ KhZHXK&(35 MEMBER) NIL () SK.SHOW.FIG.FROM.INFO :D4 (I 4 WINDOW I 3 OPERATION I 2 YOFFSET I 1 XOFFSET I 0 IMAGEBM) @jdDABhdgC (15 BKBITBLT) (10 INPUT) () SK.MOVE.THING :D4 (P 1 NEWGLOBAL P 0 OLDGLOBAL I 3 SKW I 2 GDELTAPOS I 1 LOCALPT I 0 SKETCHELT) ( AhB@C Y@XIC gHIBhhC I(36 SK.ADD.HISTEVENT 20 SK.UPDATE.ELEMENT 11 SK.TRANSLATE.POINTS) (23 MOVE) () UPDATE.ELEMENT.IN.SKETCH :D4 (P 3 GELTTAIL P 1 SKETCHELEMENTS P 0 SKETCHSTRUCTURE I 4 DONTUPDATEPRIORITYFLG I 3 SKW I 2 SKETCH I 1 NEWGELT I 0 OLDGELT) ]B @ALD@ A /HJ[h0h@DAK KAiK@H HAd B i(89 SK.MARK.DIRTY 84 SK.ADD.PRIORITY.ELEMENT.TO.SKETCH 81 SK.ELEMENT.PRIORITY 74 REMOVE.ELEMENT.FROM.SKETCH 57 SK.SET.ELEMENT.PRIORITY 54 SK.ELEMENT.PRIORITY 21 SK.ELEMENT.PRIORITY 17 SK.ELEMENT.PRIORITY 3 INSURE.SKETCH) NIL () SK.UPDATE.ELEMENT :D4 (P 3 SKW P 1 UPDATEDELT P 0 SKETCH I 5 DONTDISPLAYFLG I 4 DONTUPDATEPRIORITYFLG I 3 REDRAWIFSAMEFLG I 2 SKETCHW I 1 NEWGLOBAL I 0 OLDGLOBAL) ?B @AHBD h@ABCE YH JI[B@AKCE JZ(55 SK.UPDATE.ELEMENT1 32 ALL.SKETCH.VIEWERS 27 SK.UPDATE.ELEMENT1 15 UPDATE.ELEMENT.IN.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SK.UPDATE.ELEMENTS :D4 (P 0 CHANGEEVENT I 3 DONTDISPLAYFLG I 2 DONTUPDATEPRIORITYFLG I 1 WINDOW I 0 CHANGEEVENTS) @dHHAhBC h(20 SK.UPDATE.ELEMENT) NIL () SK.UPDATE.ELEMENT1 :D4 (P 2 NEWLOCAL P 1 UPDATEFN P 0 LOCALELT I 4 DONTDISPLAYFLG I 3 REDRAWIFSAME I 2 SKETCHW I 1 NEWGELT I 0 OLDGELT) 0@B XyDHB AB @ gHB HjgB AB @A%@o CHB AB /AB A YHABlIZHB JAB h(137 MEMB 134 SKETCH.ELEMENTS.OF.SKETCH 127 SK.DELETE.ITEM 108 SK.UPDATEFN 100 SKETCH.ADD.AND.DISPLAY1 93 ELT.INSIDE.SKWP 87 SK.ERASE.AND.DELETE.ITEM 77 MEMB 60 SKETCH.ADD.AND.DISPLAY1 54 DSPFILL 39 SK.DELETE.ITEM 28 SKETCH.ELEMENT.TYPE 23 SK.ADD.ITEM 17 SK.DELETE.ITEM 7 SK.LOCAL.ELT.FROM.GLOBALPART) (50 REPLACE 31 SKIMAGEOBJ) ( 74 (TEXT TEXTBOX)) SK.MOVE.ELEMENT.POINT :D4 (I 0 W) #g@ddi3 g@hoh@ (32 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.MOVE) ( 24 (QUOTE ONLY)) SK.MOVE.POINTS :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.MOVE.POINTS) () SK.SEL.AND.MOVE.POINTS :D4 (I 0 W) @ @ (7 SK.DO.MOVE.ELEMENT.POINTS 3 SK.SELECT.MULTIPLE.POINTS) NIL () SK.DO.MOVE.ELEMENT.POINTSA0001 :D4 (P 4 PT P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 SKW F 6 IMAGEBM F 7 IMAGEPOSX F 8 IMAGEPOSY F 9 FIRSTHOTSPOT F 10 PROCEED-CASE0094 F 11 *PROCEED-CASES* F 12 NEWPOS F 13 NONMOVEDHOTSPOTS F 14 OTHERCONTROLPOINTMARK)  i@ggggWgjgg gg WVWWgU WdLUW UVgoWWWW ch (122 \MVLIST 112 GET.BITMAP.POSITION 82 MARKPOINT 66 SK.SHOW.FIG.FROM.INFO 44 MAKE-PROCEED-CASE 40 CL:SYMBOL-FUNCTION 31 CL:SYMBOL-FUNCTION) (92 PAINT 61 ERASE 37 SI::ERRORSET-PRINT-FUNCTION 34 :REPORT 28 TRUE 25 :TEST 21 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) ( 96 "Move image to its new position.") SK.DO.MOVE.ELEMENT.POINTS :D4 (P 27 PT P 26 PROCEED-CASE0092 P 25 A0096 P 24 PROCEED-CASE0093 P 23 A0095 P 22 PROCEED-CASE0094 P 21 ELT P 17 GDELTAPOS P 16 SKETCH P 15 MOVEARGS P 14 X P 13 MOVEFN P 12 CHANGES P 11 NEWGLOBALS P 10 DELTAPOS P 9 IMAGEBM P 8 IMAGEPOSY P 7 IMAGEPOSX P 6 LOWLFT P 5 NEWPOS P 4 FIRSTHOTSPOT P 3 FIGINFO P 2 ONEPTELTS P 1 NONMOVEDHOTSPOTS P 0 SCRELTS I 1 SKW I 0 SCRPTS F 35 OTHERCONTROLPOINTMARK)  #A @dA  A _ g _AH@ _lO_"O"dg -@H @H&d_* kd_$O& O$h_(O$&_&O(HhJ@ J @ l @KK_N_N_LA hhO, 1O._4O._2_0O4dgO0 j:h1OOOgA IdO6AWF A IAMOOOgA IdO6AWF Ao hdO6AWF MLMLA _"O g _AOH O"lO_Odg< O_"HgO"A@ _gHOR"O:_BO8O<A A h_DOBODOBh_@O>O@h_>_(467 CLOSEPROMPTWINDOW 463 SK.ADD.HISTEVENT 430 MAPCOLLECTSKETCHSPECS 412 POSITIONP 389 SK.MAKE.ELEMENTS.MOVE.ARG 376 GETSKETCHPROP 365 SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 362 VIEWER.SCALE 342 MARKPOINT 327 STATUSPRINT 314 MARKPOINT 298 SK.SHOW.FIG.FROM.INFO 277 ERROR! 273 CLOSEPROMPTWINDOW 264 MARKPOINT 248 SK.SHOW.FIG.FROM.INFO 225 CL:VALUES-LIST 193 SK.DO.MOVE.ELEMENT.POINTSA0001 181 CURSORPOSITION 153 SK.FIGUREIMAGE 150 INCREASEREGION 145 REGION.CONTAINING.PTS 140 SK.UNIONREGIONS 137 SK.LOCAL.REGION.OF.LOCAL.ELEMENTS 133 REGION.CONTAINING.PTS 91 LENGTH 75 SK.HOTSPOTS.NOT.ON.LIST 66 POSITIONP 41 SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG 31 GETSKETCHPROP 23 INSURE.SKETCH 13 SK.ELTS.CONTAINING.PTS 3 SKED.CLEAR.SELECTION) (435 MOVE 422 SK.MOVE.ITEM.POINTS 406 DON'T 373 WHENMOVEDFN 293 PAINT 243 PAINT 217 :NORMAL 58 DON'T 28 PREMOVEFN) ( 324 "Position was outside the window, copy not placed.") SK.MOVE.ITEM.POINTS :D4 (P 4 NEWSCREENELT P 3 OLDGLOBAL P 2 NEWGLOBAL P 1 MOVEDPTS P 0 ELTHOTSPOTS I 3 LOCALPTS I 2 W I 1 GLOBALDELTAPOS I 0 SELELT) 9@AHC Y@[I H KAB ZhIA@B ZKJBi J(53 SK.UPDATE.ELEMENT 43 SK.TRANSLATE.POINTS 32 SK.TRANSLATE.GLOBALPART 24 LENGTH 20 LENGTH 10 INTERSECTION) NIL () SK.TRANSLATEPTSFN :D4 (I 0 ELEMENTTYPE) @g (6 GETPROP) (9 SKETCHTYPE 3 SKETCHTYPE) () SK.TRANSLATE.POINTS :D4 (P 1 NEWGLOBAL I 3 W I 2 SKETCHELT I 1 GLOBALDELTA I 0 SELPTS) $Bd  B@AClHIB I(32 SK.COPY.ELEMENT.PROPERTY.LIST 10 SK.TRANSLATEPTSFN) NIL () SK.SELECT.MULTIPLE.POINTS :D4 (P 18 SEL P 17 SELPT P 16 ELT P 12 MOUSEINSIDE? P 11 PREVMOUSEBUTTONS P 10 SELPTS P 9 ORIGY P 8 OLDY P 7 NEWY P 6 NEWX P 5 ORIGX P 4 OLDX P 3 NOW P 2 HOTSPOTCACHE P 1 SELECTABLEITEMS P 0 INTERIOR I 0 SKW) Qh@ @g Z ?@ @J `l_jOO H@ @ @J hdO @ HNO #h_@g _dO @ O`E`_@ @ _JNOi [`dllK@ yljrK@ jNLOO_JMN OO MN OO _>`dllOdO"@ ljOdO"@ NO_`l_jO*O #`l_j7O O *h_@ _@ OHNO i_Ol@`ljjkjl`ljjkj_O*H@ @ i_OdO @ lH@ @ \h_@g _dO @ ;@g _dO$@ @J O(588 SK.TAKE.MARKS.DOWN 578 SK.REMOVE.PT.SELECTION 564 GETWINDOWUSERPROP 549 SK.REMOVE.PT.SELECTION 535 GETWINDOWUSERPROP 520 INSIDEP 517 LASTMOUSEY 513 LASTMOUSEX 500 SK.ADD.PT.SELECTION 480 INSIDEP 477 LASTMOUSEY 473 LASTMOUSEX 415 INSIDEP 401 LASTMOUSEX 394 LASTMOUSEY 384 \FZEROP 360 GETMOUSESTATE 355 \FZEROP 332 GETMOUSESTATE 317 SK.REMOVE.PT.SELECTION 289 SK.ADD.PT.SELECTION 258 SK.CONTROL.POINTS.IN.REGION 254 MAX 247 MAX 242 MIN 235 MIN 215 SK.REMOVE.PT.SELECTION 200 SK.ADD.PT.SELECTION 178 IN.SKETCH.ELT? 166 LASTMOUSEY 161 LASTMOUSEX 135 SK.REMOVE.PT.SELECTION 121 GETWINDOWUSERPROP 108 INSIDEP 93 SK.ADD.PT.SELECTION 80 SK.TAKE.MARKS.DOWN 71 INSIDEP 68 LASTMOUSEY 64 LASTMOUSEX 57 \FZEROP 34 GETMOUSESTATE 30 SK.PUT.MARKS.UP 24 TOTOPW 18 SK.HAS.SOME.HOTSPOTS 14 SK.HOTSPOT.CACHE.FOR.OPERATION 4 DSPCLIPPINGREGION) (561 SKETCH.SELECTIONS 532 SKETCH.SELECTIONS 450 \LASTKEYSTATE 431 \LASTKEYSTATE 364 LASTMOUSEBUTTONS 336 LASTMOUSEBUTTONS 265 LASTMOUSEBUTTONS 186 LASTMOUSEBUTTONS 154 LASTMOUSEBUTTONS 148 LASTMOUSEBUTTONS 118 SKETCH.SELECTIONS 38 LASTMOUSEBUTTONS 11 MOVE) () SK.CONTROL.POINTS.IN.REGION :D4 (P 8 XBUCKET P 6 YBUCKET P 4 ELTS P 3 RTOP P 2 RRIGHT P 1 RBOTTOM P 0 RLEFT I 4 TOP I 3 RIGHT I 2 BOTTOM I 1 LEFT I 0 HOTSPOTCACHE) c AlBlClDl@ML^dK񒿰INOM]_dJHOLON \O_(88 SK.ADD.POINT) NIL () SK.ADD.PT.SELECTION :D4 (I 2 MARKBM I 1 WINDOW I 0 PT) @Ag @AB Ag@ h(25 WINDOWADDPROP 17 MARKPOINT 10 MEMBER 7 GETWINDOWUSERPROP) (21 SKETCH.SELECTIONS 4 SKETCH.SELECTIONS) () SK.REMOVE.PT.SELECTION :D4 (I 2 MARKBM I 1 WINDOW I 0 PT) '@Ag @AB Ag@Ag (36 PUTWINDOWPROP 33 REMOVE 30 GETWINDOWUSERPROP 18 MARKPOINT 10 MEMBER 7 GETWINDOWUSERPROP) (27 SKETCH.SELECTIONS 22 SKETCH.SELECTIONS 4 SKETCH.SELECTIONS) () SK.ADD.POINT :D4 (L (2 Y 1 X 0 PTLST)) +@Hh@YAIBIiHXAB@NIL NIL () SK.ELTS.CONTAINING.PTS :D4 (P 3 ELTS P 2 POS P 1 HOTSPOTCACHE I 1 SKW I 0 PTLST) "@A "HK ZI K HX(26 UNION 22 SK.ELTS.FROM.HOTSPOT 15 REVERSE 4 SK.HOTSPOT.CACHE) NIL () SK.HOTSPOTS.NOT.ON.LIST :D4 (P 3 HOTSPOT P 2 OTHERHOTSPOTS P 1 ELT I 1 ELTS I 0 PTLST) ,A1HJYd[@ KJ KJHX(28 MEMBER 22 MEMBER) NIL () SK.SET.MOVE.MODE :D4 (P 0 LOCALNEWMODE I 1 NEWMODE I 0 SKW) /AH#@g AdggA(18 GETWINDOWUSERPROP 5 READMOVEMODE) (38 ELEMENTS 33 POINTS 15 SKETCHCONTEXT) () SK.SET.MOVE.MODE.POINTS :D4 (I 0 SKW) @g (6 SK.SET.MOVE.MODE) (3 POINTS) () SK.SET.MOVE.MODE.ELEMENTS :D4 (I 0 SKW) @g (6 SK.SET.MOVE.MODE) (3 ELEMENTS) () SK.SET.MOVE.MODE.COMBINED :D4 (I 0 SKW) @g (6 SK.SET.MOVE.MODE) (3 COMBINED) () READMOVEMODE :D4 (I 0 MENUTITLE) J`@oHdIdodi dg dgjdndhHdI  (71 \CURSOR.IN.MIDDLE.MENU) (44 DEFAULTMENUHELDFN 37 CLRPROMPT 2 |MENUTYPE#|) ( 25 ((Points (QUOTE POINTS) "Top level MOVE command will be the same as MOVE POINTS command.") (Elements (QUOTE ELEMENTS) "Top level MOVE command will be the same as MOVE ELEMENTS command.") (Combined (QUOTE COMBINED) "MOVE command will move points if a single point is clicked; elements otherwise")) 10 "Top level MOVE command should apply to?") SK.ALIGN.POINTS :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.MOVE.POINTS) () SK.SEL.AND.ALIGN.POINTS :D4 (I 1 W I 0 ALIGNHOW) A @A (8 SK.DO.ALIGN.POINTS 3 SK.SELECT.MULTIPLE.POINTS) NIL () SK.ALIGN.POINTS.LEFT :D4 (I 0 W) #go@ddi3 g@hh@ (32 SK.EVAL.AS.PROCESS) (20 QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE LEFT)) SK.ALIGN.POINTS.RIGHT :D4 (I 0 W) #go@ddi3 g@hh@ (32 SK.EVAL.AS.PROCESS) (20 QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE RIGHT)) SK.ALIGN.POINTS.TOP :D4 (I 0 W) #go@ddi3 g@hh@ (32 SK.EVAL.AS.PROCESS) (20 QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE TOP)) SK.ALIGN.POINTS.BOTTOM :D4 (I 0 W) #go@ddi3 g@hh@ (32 SK.EVAL.AS.PROCESS) (20 QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE BOTTOM)) SK.EVEN.SPACE.POINTS.IN.X :D4 (I 0 W) #go@ddi3 g@hh@ (32 SK.EVAL.AS.PROCESS) (20 QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE EVENX)) SK.EVEN.SPACE.POINTS.IN.Y :D4 (I 0 W) #go@ddi3 g@hh@ (32 SK.EVAL.AS.PROCESS) (20 QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE EVENY)) SK.DO.ALIGN.POINTSA0001 :D4 (L (1 B 0 A)) @A@A @ANIL NIL () SK.DO.ALIGN.POINTSA0002 :D4 (L (1 B 0 A)) @A@A @ANIL NIL () SK.DO.ALIGN.POINTS :D4 (P 24 SELBUCK P 21 VALUE P 18 SELBUCK P 8 NEWGLOBALS P 7 X P 6 PREMOVEFN P 5 MOST P 4 LEAST P 3 DIMENSION P 2 LEASTSELBUCK P 1 MOSTSELBUCK P 0 SELECTEDPTSTRUC I 2 SKW I 1 ALIGNHOW I 0 SCRPTS) zB @@B B g ^B@B @ AlNgHYHZAgAdgg=gAdgg+g@gAg@g[dg$Hd_dI󑹊JO"Hd_dI󑹊JOKdg@JJ_II_CdL\OdM]OgJJ_%II_'AgAdgX0H?dL\OdM]OdO$LKB _O O_"_ O"z _ OgAdg90H dO$MKB _O O_"_ O"6 _ OgAg MHKggg L3O(O._dgOB B h_0O,#O,jO,O, jO,MO*O*MO.O0O*KB _.O(_(O*MLH k_,_*(621 LENGTH 603 \NCONC2 600 SK.DO.ALIGN.SETVALUE 572 \FZEROP 546 CLOSEPROMPTWINDOW 541 SK.ADD.HISTEVENT 516 SORT 479 LAST 451 SK.DO.ALIGN.SETVALUE 411 LAST 383 SK.DO.ALIGN.SETVALUE 140 SHOULDNT 42 SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG 38 SK.ELTS.CONTAINING.PTS 29 GETSKETCHPROP 23 INSURE.SKETCH 16 SK.GET.SELECTED.ELEMENT.STRUCTURE 3 SKED.CLEAR.SELECTION) (535 MOVE 513 SK.DO.ALIGN.POINTSA0002 509 SK.DO.ALIGN.POINTSA0001 504 HORIZONTAL 495 EVENY 489 EVENX 428 TOP 421 RIGHT 329 BOTTOM 322 LEFT 287 VERTICAL 219 HORIZONTAL 145 HORIZONTAL 136 VERTICAL 122 EVENY 116 HORIZONTAL 102 EVENX 97 VERTICAL 91 BOTTOM 84 TOP 79 HORIZONTAL 73 RIGHT 66 LEFT 51 DON'T 26 PREMOVEFN) () SK.NTH.CONTROL.POINT :D4 (I 1 N I 0 ELEMENT) 5Adk@g l@g Al@g @g A (49 NTH 45 GETSKETCHELEMENTPROP 37 GETSKETCHELEMENTPROP 24 GETSKETCHELEMENTPROP 12 GETSKETCHELEMENTPROP) (42 DATA 34 3RDCONTROLPT 21 2NDCONTROLPT 9 POSITION) () SK.GET.SELECTED.ELEMENT.STRUCTURE :D4 (P 9 ELT P 5 POS P 1 HOTSPOTCACHE I 1 SKW I 0 SELPTS) W @A BHJ]0MI $d MO OhONh_N&_OK Lh[HXL&(36 SK.CORRESPONDING.CONTROL.PT 23 SK.ELTS.FROM.HOTSPOT 4 SK.HOTSPOT.CACHE) NIL () SK.CORRESPONDING.CONTROL.PT :D4 (P 2 PT P 1 I I 1 SCRELEMENT I 0 SELPT) (AkHhZ@AI IkԹHX(28 SHOULDNT 23 SK.NTH.CONTROL.POINT) NIL () SK.CONTROL.POINT.NUMBER :D4 (L (1 SCRELT 0 SELPT)) AkHh@JIIkԹHXNIL NIL () SK.DO.ALIGN.SETVALUE :D4 (P 6 X P 5 GDELTA P 4 GELTSTRUC P 2 MOVEFN P 1 SELPT I 3 VIEWER I 2 DIMENSION I 1 VALUE I 0 SELBUCKET) @@C g CHKBgAL^jNd hRNjBgAL^jNd h2NjJ)CIL LhhMlJ^dgh NiKLMCIh ^ LNhh HXk(162 \NCONC2 146 SK.MOVE.ITEM.POINTS 128 POSITIONP 100 SK.CONTROL.POINT.NUMBER 79 \FZEROP 48 \FZEROP 13 GETSKETCHPROP 7 INSURE.SKETCH) (120 DON'T 59 VERTICAL 28 HORIZONTAL 10 WHENMOVEDFN) () SKETCH.CREATE.GROUP :D4 (I 1 CONTROLPOINT I 0 LISTOFSKETCHELEMENTS) @A @ (16 SK.CREATE.GROUP1 13 REGION.CENTER 10 SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS 4 POSITIONP) NIL () SK.CREATE.GROUP1 :D4 (I 1 CONTROLPT I 0 GELTS) hddhgh@Ahh (23 SK.UPDATE.GROUP.AFTER.CHANGE) (9 GROUP) () SK.UPDATE.GROUP.AFTER.CHANGE :D4 (P 1 GROUPREGION P 0 INDGROUPELT I 0 GROUPELT) @H YHII@ @(22 BOX.SET.SCALES 12 SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS) NIL () SK.GROUP.ELTS :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.GROUP) () SK.SEL.AND.GROUP :D4 (I 0 W) @ihg @ (12 SK.GROUP.ELEMENTS 8 SK.SELECT.MULTIPLE.ITEMS) (5 GROUP) () SK.GROUP.ELEMENTS :D4 (P 1 LOCALGROUPELT P 0 GROUPELT I 1 SKW I 0 SCRELTS) NA @G 0@dKJh\J&L@A A XdA hgHhhA H(74 SK.ADD.HISTEVENT 59 SK.DO.GROUP 53 SKETCH.CREATE.GROUP 50 MAP.GLOBAL.PT.ONTO.GRID 46 REGION.CENTER 43 SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS 40 VIEWER.SCALE 3 SKED.CLEAR.SELECTION) (65 GROUP) () SK.UNGROUP.ELT :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.UNGROUP) () SK.SEL.AND.UNGROUP :D4 (P 3 SCRELT I 0 W) P@i0@ -dKg Kg hdIHhZH&J @o h @ (77 SK.UNGROUP.ELEMENT 73 SK.SELECT.MULTIPLE.ITEMS 68 STATUSPRINT 34 SK.ELEMENT.PROTECTED? 8 LOCALSPECS.FROM.VIEWER) (31 UNGROUP 23 GROUP) ( 65 "There are no grouped elements to ungroup.") SK.UNGROUP.ELEMENT :D4 (P 10 GROUPELT P 5 X P 4 GROUPELTS I 1 SKW I 0 SCRELTS) u @1H ILd#dgJ KhZYHXK&ZA NO]d gMA h_A Oh_OOh__N^O&_(80 SK.DO.UNGROUP 71 SK.ADD.HISTEVENT) (66 UNGROUP 26 GROUP) () SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS :D4 (P 1 SCRELT P 0 GROUPREGION I 1 SCALE I 0 SCRELTS) '@dHI XHA I (35 SK.UNIONREGIONS 32 SK.ITEM.REGION 27 UNSCALE.REGION 16 SK.ITEM.REGION) NIL () SK.LOCAL.REGION.OF.LOCAL.ELEMENTS :D4 (P 2 GROUPREGION P 1 SCRELT I 1 SCALE I 0 SCRELTS) #@!HJJ I HXI (31 SK.UNIONREGIONS 28 SK.ITEM.REGION 18 SK.ITEM.REGION) NIL () SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS :D4 (P 4 GROUPREGION P 3 GELT I 0 GELTS) Ul2@ +g0@dK IHhZH&J @dLK \LK (81 SK.UNIONREGIONS 78 SK.ELEMENT.GLOBAL.REGION 66 SK.ELEMENT.GLOBAL.REGION 48 APPLY 26 SK.ELEMENT.GLOBAL.REGION 5 LENGTH) (11 SK.UNIONREGIONS) () SK.UNIONREGIONS :D4 (L (0 REGIONS)) w eHjhkaYdZdI[I\dI]Hl__OdOJLKJMLhaYdJZI^KNIdL\I^MNOk_NIL NIL () SKETCH.REGION.OF.SKETCH :D4 (I 0 SKETCH) @  (8 SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS 3 INSURE.SKETCH) NIL () SK.FLASHREGION :D4 (I 2 TEXTURE I 1 WINDOW I 0 REGION) @BgA n @BgA (23 DSPFILL 14 DISMISS 8 DSPFILL) (19 INVERT 4 INVERT) () INIT.GROUP.ELEMENT :D4 NIL ;g 2ghogggggggghgghg h(54 CREATE.SKETCH.ELEMENT.TYPE 5 SKETCH.ELEMENT.TYPEP) (50 GROUP.GLOBALREGIONFN 46 GROUP.TRANSFORMFN 43 GROUP.READCHANGEFN 39 GROUP.TRANSLATEFN 36 GROUP.REGIONFN 33 GROUP.INSIDEFN 30 TEXTBOX.INPUTFN 27 SK.ELEMENTS.CHANGEFN 24 OBSOLETE 21 GROUP.EXPANDFN 18 GROUP.DRAWFN 10 GROUP 2 GROUP) ( 15 "groups a collection of elements as a single element.") GROUP.DRAWFN :D4 (P 0 ELT I 3 OPERATION I 2 REGION I 1 WINDOW I 0 GROUPELT) '@dH HABClIh(20 SK.DRAWFN) NIL () GROUP.EXPANDFN :D4 (P 5 ELEMENT P 1 LOCALREGION P 0 GROUPINDVELT I 2 STREAM I 1 SCALE I 0 GROUPELT) G@HA YHA hhI@Hd]BA KJh\J&Lh@(43 SK.LOCAL.FROM.GLOBAL 22 SK.SCALE.POSITION.INTO.VIEWER 12 SCALE.REGION.OUT) NIL () GROUP.INSIDEFN :D4 (I 1 WREG I 0 GROUPELT) @A (8 REGIONSINTERSECTP) NIL () GROUP.REGIONFN :D4 (L (0 GROUPSCRELT)) @NIL NIL () GROUP.GLOBALREGIONFN :D4 (L (0 GGROUPELT)) @NIL NIL () GROUP.TRANSLATEFN :D4 (P 5 SUBELT P 1 NEWREG P 0 GGROUPELT I 1 DELTAPOS I 0 SKELT) P@HAA Y@ gI@Hd]Ai KJh\J&LHA hh(69 PTPLUS 42 SK.TRANSLATE.GLOBALPART 21 \APPEND2 15 REL.MOVE.REGION) (24 GROUP) () GROUP.TRANSFORMFN :D4 (P 7 SUBELT P 3 NEWREG P 2 GGROUPELT P 1 NOWPOS P 0 GGROUPELT I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) tAg@HY@IAB I @JAB [d@gK@Jd_ABC MLh^L&NJAB hh (113 BOX.SET.SCALES 102 SK.TRANSFORM.POINT 74 SK.TRANSFORM.ELEMENT 47 SK.TRANSFORM.REGION 32 GROUP.TRANSLATEFN 29 PTDIFFERENCE 25 SK.TRANSFORM.POINT) (54 GROUP 3 SK.PUT.ON.GRID) () GROUP.READCHANGEFN :D4 (P 1 HOW P 0 ASPECT I 1 SCRNELTS I 0 SKW) @`dooo dJdi dg dgjdndhdK Xdg@Ai d^go OHdgBgA 7Hdg*g Hdgo g oi YdHIh(184 READ.COLOR.CHANGE 169 READ.COLOR.CHANGE 152 READ.FILLING.CHANGE 142 READ.DASHING.CHANGE 129 READ.ARROW.CHANGE 118 READBRUSHSHAPE 105 READSIZECHANGE 89 TEXT.READCHANGEFN 75 \CURSOR.IN.MIDDLE.MENU 30 \APPEND2 17 SKETCHINCOLORP) (173 FILLINGCOLOR 159 BRUSHCOLOR 147 FILLING 136 DASHING 123 ARROW 112 SHAPE 96 SIZE 80 TEXT 52 DEFAULTMENUHELDFN 45 CLRPROMPT 5 |MENUTYPE#|) ( 180 "Change filling color how?" 166 "Change line color how?" 102 "Change size how?" 27 ((Arrowheads (QUOTE ARROW) "allows changing of arrow head charactistics.") (Shape (QUOTE SHAPE) "changes the shape of the brush") (Size (QUOTE SIZE) "changes the size of the lines") (Dashing (QUOTE DASHING) "changes the dashing property of the elements with lines.") (Filling (QUOTE FILLING) "allows changing of the fillings.") (Text (QUOTE TEXT) "allows changing the properties of the text.")) 23 (("Brush color" (QUOTE BRUSHCOLOR) "changes the color of any lines or text in the group.") ("Filling color" (QUOTE FILLINGCOLOR) "changes the filling color of any boxes or text boxes in the group.")) 11 "Change which part?") REGION.CENTER :D4 (L (0 REGION)) @@l@@lNIL NIL () REMOVE.LAST :D4 (L (0 LST)) @d HYhIh@INIL NIL () SK.MOVE.GROUP.CONTROL.PT :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.MOVE.CONTROL.PT) () SK.SEL.AND.MOVE.CONTROL.PT :D4 (P 3 SCRELT I 0 W) P@i0@ -dKg Kg hdIHhZH&J @o h @ (77 SK.MOVE.GROUP.ELEMENT.CONTROL.POINT 73 SK.SELECT.ITEM 68 STATUSPRINT 34 SK.ELEMENT.PROTECTED? 8 LOCALSPECS.FROM.VIEWER) (31 CHANGE 23 GROUP) ( 65 "There are no grouped elements.") SK.MOVE.GROUP.ELEMENT.CONTROL.POINT :D4 (P 5 LOCALELT P 4 NEWGROUPELT P 3 NEWPOS P 2 OLDPOS P 1 INDVGELT P 0 GELT I 1 SKW I 0 SCRGROUPELT) @@BAHg ghHg ZA@ [AHgKJ IK \dH HAi LAidd ]dA` gHLgKJhhA L(123 SK.ADD.HISTEVENT 101 SK.FLASHREGION 88 SK.ADD.ELEMENT 79 SK.DELETE.ELEMENT1 73 SK.SET.ELEMENT.PRIORITY 70 SK.ELEMENT.PRIORITY 64 SKETCH.CREATE.GROUP 54 SK.CHECK.WHENCHANGEDFN 40 SK.READ.NEW.GROUP.CONTROL.PT 30 GETSKETCHELEMENTPROP 16 SK.CHECK.PRECHANGEFN) (109 POSITION 104 CHANGE 98 GRAYSHADE 48 POSITION 27 POSITION 19 DON'T 13 POSITION) () SK.READ.NEW.GROUP.CONTROL.PT :D4 (P 0 PT I 1 LOCALGROUPREGION I 0 VIEWER) ZAAAAkg@n @oo @hdddd` XAAAAkg@n Hd@ (87 SK.MAP.INPUT.PT.TO.GLOBAL 80 SK.DRAWBOX 53 SK.READ.POINT.WITH.FEEDBACK 40 STATUSPRINT 28 SK.DRAWBOX) (72 INVERT 49 SKETCH.USE.POSITION.PAD 20 INVERT) ( 37 "Indicate position of the new control point." 33 " ") SK.DO.GROUP :D4 (P 2 GELT P 1 OKEDGELTS P 0 LOCALELT I 1 SKW I 0 GROUPELT) J A@ Yh@I @ IdJAi @Aidd XdA` H(70 SK.FLASHREGION 57 SK.ADD.ELEMENT 43 SK.DELETE.ELEMENT1 30 SK.UPDATE.GROUP.AFTER.CHANGE 25 SK.ORDER.ELEMENTS 12 SK.CHECK.WHENGROUPEDFN) (67 GRAYSHADE) () SK.CHECK.WHENGROUPEDFN :D4 (P 1 X P 0 GROUPFN I 1 ELEMENTS I 0 VIEWER) ) @ g X@AlHIdgh IA(34 SKETCH.LIST.OF.ELEMENTSP 12 GETSKETCHPROP 6 INSURE.SKETCH) (27 DON'T 9 WHENGROUPEDFN) () SK.DO.UNGROUP :D4 (P 0 GELT I 1 SKW I 0 GROUPELT) >A@ h@Ai @dHAidd @A A` @(58 SK.FLASHREGION 51 SCALE.REGION.OUT 48 VIEWER.SCALE 34 SK.ADD.ELEMENT 13 SK.DELETE.ELEMENT1 4 SK.CHECK.WHENUNGROUPEDFN) (55 GRAYSHADE) () SK.CHECK.WHENUNGROUPEDFN :D4 (P 0 UNGROUPFN I 1 GROUPELT I 0 VIEWER) !@ g Xh@AlHgh(12 GETSKETCHPROP 6 INSURE.SKETCH) (27 DON'T 9 WHENUNGROUPEDFN) () SK.GROUP.UNDO :D4 (P 0 GRP I 1 SKW I 0 EVENTARGS) @dHA i(12 SK.DO.UNGROUP) NIL () SK.UNGROUP.UNDO :D4 (P 0 GRP I 1 SKW I 0 EVENTARGS) @dHA i(12 SK.DO.GROUP) NIL () SK.FREEZE.ELTS :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.FREEZE) () SK.SEL.AND.FREEZE :D4 (I 0 W) @ihg @ (12 SK.FREEZE.ELEMENTS 8 SK.SELECT.MULTIPLE.ITEMS) (5 FROZEN) () SK.FREEZE.ELEMENTS :D4 (P 1 GELT P 0 GELTS I 1 SKW I 0 SCRELTS) 0 0@dKJh\J&LXdA gHA h(44 SK.ADD.HISTEVENT 36 SK.DO.FREEZE) (39 FREEZE) () SK.UNFREEZE.ELT :D4 (I 0 W) g@ddi3 g@hh@ (27 SK.EVAL.AS.PROCESS) (16 QUOTE 2 SK.SEL.AND.UNFREEZE) () SK.SEL.AND.UNFREEZE :D4 (P 4 SCRELT I 0 W) V@i@@ 3dLg [gK gKidIHhZH&J @o h @ (83 SK.UNFREEZE.ELEMENTS 79 SK.SELECT.MULTIPLE.ITEMS 74 STATUSPRINT 23 GETSKETCHELEMENTPROP 8 LOCALSPECS.FROM.VIEWER) (37 FROZEN 27 FROZEN 20 PROTECTION) ( 71 "There are no frozen elements to unprotect.") SK.UNFREEZE.ELEMENTS :D4 (P 1 GELT P 0 GELTS I 1 SKW I 0 SCRELTS) 0 0@dKJh\J&LXdA gHA h(44 SK.ADD.HISTEVENT 36 SK.DO.UNFREEZE) (39 UNFREEZE) () SK.FREEZE.UNDO :D4 (I 1 SKW I 0 EVENTARGS) @A (4 SK.DO.UNFREEZE) NIL () SK.UNFREEZE.UNDO :D4 (I 1 SKW I 0 EVENTARGS) @A (4 SK.DO.FREEZE) NIL () SK.DO.FREEZE :D4 (P 0 GELT I 1 SKW I 0 GELTS) @dHgg @(17 ADDSKETCHELEMENTPROP) (14 FROZEN 11 PROTECTION) () SK.DO.UNFREEZE :D4 (P 0 GELT I 1 SKW I 0 GELTS) @dHgg @(17 REMOVESKETCHELEMENTPROP) (14 FROZEN 11 PROTECTION) () SKETCH.ELEMENTS.OF.SKETCH :D4 (I 0 SKETCH) @i (4 INSURE.SKETCH) NIL () SKETCH.LIST.OF.ELEMENTS :D4 (P 4 ELT I 2 INSIDEGROUPSFLG I 1 PREDICATE I 0 SKETCH) )@ AHI\kALJ KhZHXK&(3 SKETCH.ELEMENTS.OF.SKETCH) NIL () SKETCH.ADD.ELEMENT :D4 (P 2 SKW P 0 SKSTRUC I 2 NODISPLAYFLG I 1 SKETCH I 0 ELEMENT) GAd @H @o @H H IH@J @JhB IY(63 SKETCH.ADD.AND.DISPLAY1 55 ELT.INSIDE.SKETCHWP 39 ALL.SKETCH.VIEWERS 35 ADD.ELEMENT.TO.SKETCH 29 ERROR 20 GLOBALELEMENTP 9 INSURE.SKETCH 5 SKETCH.CREATE) NIL ( 26 "is not a sketch element.") SKETCH.DELETE.ELEMENT :D4 (P 4 SKW P 2 OLDGELT P 1 LOCALELT P 0 SKSTRUC I 3 NODISPLAYFLG I 2 INSIDEGROUPSFLG I 1 SKETCH I 0 ELEMENT) QA !@HB Zdi&` o` H K @A J@L YLC K[(73 SK.ERASE.AND.DELETE.ITEM 64 SK.LOCAL.ELT.FROM.GLOBALPART 55 SK.CHECK.IMAGEOBJ.WHENDELETEDFN 42 ALL.SKETCH.VIEWERS 37 PRIN1 26 TERPRI 12 REMOVE.ELEMENT.FROM.SKETCH 3 INSURE.SKETCH) (34 PROMPTWINDOW 23 PROMPTWINDOW) ( 31 "member of group deleted but group not redrawn.") DELFROMGROUPELT :D4 (P 3 ELT P 1 SUBELTS P 0 INDVGROUPELT I 1 GROUPELT I 0 ELTTODEL) CAg'AHY@I H@I iIJh@K KiJZ(54 DELFROMGROUPELT 34 REMOVE 25 MEMBER) (6 GROUP) () SKETCH.ELEMENT.TYPE :D4 (L (0 ELEMENT)) @NIL NIL () SKETCH.ELEMENT.CHANGED :D4 (P 3 SKW P 1 OLDREG P 0 SKETCH I 2 SKETCHWINDOW I 1 ELEMENT I 0 SKETCH) M@ A Ao H AYAB BAIB H JA[BAIK JZ(69 SK.ELEMENT.CHANGED1 49 ALL.SKETCH.VIEWERS 44 SK.ELEMENT.CHANGED1 36 SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT 24 SK.MARK.DIRTY 19 ERROR 10 GLOBALELEMENTP 3 INSURE.SKETCH) NIL ( 16 " is not a sketch element.") SK.ELEMENT.CHANGED1 :D4 (P 0 LOCALELT I 2 SKETCHW I 1 OLDREGION I 0 SKIMAGEOBJELT) ,@B X!@ gHB AjgB @B (41 SKETCH.ADD.AND.DISPLAY1 35 DSPFILL 25 SK.DELETE.ITEM 14 SKETCH.ELEMENT.TYPE 7 SK.LOCAL.ELT.FROM.GLOBALPART) (31 REPLACE 17 SKIMAGEOBJ) () SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT :D4 (P 3 SCALE P 2 REGION P 1 IMOBJSIZE P 0 INDVSKIMOBJELT I 1 VIEWER I 0 SKIMOBJELT) A@1HA YHZH[HJJIKIK HII@(44 CREATEREGION 12 IMAGEBOXSIZE) NIL () INSURE.SKETCH :D4 (P 3 X P 2 ELT P 0 SK? I 1 NOERRORFLG I 0 SK) @dddg #@g Ah@o @g &@ g Aho@ @2@g HAhHgHo@ K@AC@o :l@Ii@ @K@KKZ hIYh (231 SK.CHECK.SKETCH.VERSION 218 GLOBALELEMENTP 199 SKIO.UPDATE.FROM.OLD.FORM 170 ERROR 152 ERROR 114 IMAGEOBJPROP 98 ERROR 75 GETWINDOWUSERPROP 69 \SKSTRM.WINDOW.FROM.STREAM 63 IMAGESTREAMTYPEP 53 ERROR 30 GETWINDOWUSERPROP 21 WINDOWP) (139 SKETCH 111 OBJECTDATUM 105 IMAGEOBJ 72 SKETCH 60 SKETCH 27 SKETCH 13 SKETCH) ( 167 "not a SKETCH" 148 "not a sketch image object" 94 "sketch stream window doesn't have SKETCH property" 50 "doesn't have a SKETCH property.") LOCALSPECS.FROM.VIEWER :D4 (I 0 SKW) @g (6 GETWINDOWUSERPROP) (3 SKETCHSPECS) () SK.LOCAL.ELT.FROM.GLOBALPART :D4 (I 1 SKW I 0 GLOBALPART) A Hhd@HX(3 LOCALSPECS.FROM.VIEWER) NIL () SKETCH.FROM.VIEWER :D4 (I 0 SKETCHW) @g (6 GETWINDOWUSERPROP) (3 SKETCH) () INSPECT.SKETCH :D4 (P 0 SPECS I 0 SKW) @ Hd h(12 INSPECT/TOP/LEVEL/LIST 3 LOCALSPECS.FROM.VIEWER) NIL () ELT.INSIDE.SKETCHWP :D4 (I 1 SKW I 0 GELT) @Ag (10 SK.INSIDE.REGION 7 GETWINDOWUSERPROP) (4 REGION.VIEWED) () SK.INSIDE.REGION :D4 (I 1 REGION I 0 GELT) @ @AlH(6 SK.INSIDEFN) NIL () MAPSKETCHSPECS :D4 (P 0 FIGSPEC I 4 DATUM3 I 3 DATUM2 I 2 DATUM I 1 SPECFN I 0 SKSPECS) 5@d1 @BCDlA@o@ dHABCD h(44 MAPSKETCHSPECS 29 ERROR 6 SCREENELEMENTP) NIL ( 25 "unknown figure specification") MAPCOLLECTSKETCHSPECS :D4 (P 3 FIGSPEC I 5 DATUM4 I 4 DATUM3 I 3 DATUM2 I 2 DATUM I 1 SPECFN I 0 SKSPECS) E@d8 @BCDElA@&@@d[ABCDE IHhZH&Jo@ (66 ERROR 40 MAPCOLLECTSKETCHSPECS 6 SCREENELEMENTP) NIL ( 62 "unknown figure specification") MAPSKETCHSPECSUNTIL :D4 (P 2 VALUE P 1 FIGSPEC I 3 DATUM2 I 2 DATUM I 1 SPECFN I 0 SKETCHSPECS) <@d( @BClA@ o@ !HhYABC ZHX(50 MAPSKETCHSPECSUNTIL 32 ERROR 10 SKETCH.ELEMENT.NAMEP) NIL ( 28 "unknown figure specification") MAPGLOBALSKETCHSPECS :D4 (P 3 FIGSPEC I 4 DATUM3 I 3 DATUM2 I 2 DATUM I 1 SPECFN I 0 SKSPECS) C@d6 @BCDlA@%@@d[ABCD IHhZH&Jo@ (64 ERROR 38 MAPGLOBALSKETCHSPECS 6 GLOBALELEMENTP) NIL ( 60 "unknown global sketch element") MAPGLOBALSKETCHELEMENTS :D4 (P 3 FIGSPEC I 4 DATUM3 I 3 DATUM2 I 2 DATUM I 1 SPECFN I 0 SKSPECS) V@J@ @dgbBCDlA@%@@d[ABCD IHhZH&Jo@ (83 ERROR 57 MAPGLOBALSKETCHELEMENTS 6 GLOBALELEMENTP) (16 GROUP) ( 79 "unknown global sketch element") SK.ADD.SELECTION :D4 (I 3 FIRSTFLG I 2 MARKBM I 1 WINDOW I 0 ITEM/POS) @Ag @AB Ag@C h(26 WINDOWADDPROP 17 SK.SELECT.ELT 10 MEMBER 7 GETWINDOWUSERPROP) (21 SKETCH.SELECTIONS 4 SKETCH.SELECTIONS) () SK.COPY.INSERTFN :D4 (P 5 DATUM P 4 IMOBJ P 2 EXTENDSELECTION P 1 SELECTION P 0 IMAGEOBJYET I 1 SKW I 0 IMAGEOBJ) 0@!KHAgI AgJ A hKhKKL L L`0HiAg Ag Lg AMMM HiAg Ag AggLA ]h MA ]Lg ]NMgELAlM:(182 IMAGEOBJPROP 171 SK.INSERT.SKETCH 168 VIEWER.SCALE 158 SKETCH.CREATE 152 SK.ELEMENT.FROM.IMAGEOBJ 139 GETWINDOWUSERPROP 131 GETWINDOWUSERPROP 115 SK.INSERT.SKETCH 101 IMAGEOBJPROP 93 GETWINDOWUSERPROP 85 GETWINDOWUSERPROP 58 BKSYSBUF 53 STRINGP 35 SKED.SELECTION.FEEDBACK 30 PUTWINDOWPROP 21 PUTWINDOWPROP) (191 NILL 179 WHENINSERTEDFN 147 ELEMENTS 144 DUMMYNAME 136 EXTENDSELECTION 128 SELECTION 98 OBJECTDATUM 90 EXTENDSELECTION 82 SELECTION 70 SKETCHIMAGEFNS 65 IMAGEOBJ 26 EXTENDSELECTION 17 SELECTION) () SCREENELEMENTP :D4 (P 0 X I 0 ELT?) @@@Xd @(22 SKETCH.ELEMENT.NAMEP) NIL () SK.ITEM.REGION :D4 (P 0 REGIONFN I 0 SCRELT) @ Hdgh@kH(7 SK.REGIONFN) (16 NILL) () SK.ELEMENT.GLOBAL.REGION :D4 (P 0 REGIONFN I 0 GELT) @ Hdgh@kH(6 SK.GLOBAL.REGIONFN) (15 NILL) () SK.LOCAL.ITEMS.IN.REGION :D4 (P 8 XBUCKET P 6 YBUCKET P 4 ELTS P 3 RTOP P 2 RRIGHT P 1 RBOTTOM P 0 RLEFT I 4 TOP I 3 RIGHT I 2 BOTTOM I 1 LEFT I 0 HOTSPOTCACHE) \ AlBlClDl@ML^dK񒿰INOM]_dJHOL \O_(81 UNION) NIL () SK.REGIONFN :D4 (I 0 ELEMENTTYPE) @g (6 GETPROP) (9 SKETCHTYPE 3 SKETCHTYPE) () SK.GLOBAL.REGIONFN :D4 (I 0 ELEMENTTYPE) @g (6 GETPROP) (9 SKETCHTYPE 3 SKETCHTYPE) () SK.REMOVE.SELECTION :D4 (I 2 MARKBM I 1 WINDOW I 0 ITEM/POS) @Ag Ag@ @AB (26 SK.DESELECT.ELT 20 WINDOWDELPROP 10 MEMBER 7 GETWINDOWUSERPROP) (16 SKETCH.SELECTIONS 4 SKETCH.SELECTIONS) () SK.SELECT.MULTIPLE.ITEMS :D4 (P 26 SELITEM P 25 SEL P 23 ELT P 13 MOUSEINSIDE? P 12 PREVMOUSEBUTTONS P 11 OUTOFFIRSTPICK P 10 ORIGY P 9 OLDY P 8 NEWY P 7 NEWX P 6 ORIGX P 5 OLDX P 4 NOW P 3 TIMER P 2 HOTSPOTCACHE P 1 SELECTABLEITEMS P 0 INTERIOR I 3 OPERATION I 2 SELITEMS I 1 ITEMFLG I 0 WINDOW F 27 CLICKWAITTIME) h@ pB@ Y @C Z hY @ @J `l_jOO H@ @ 0i_`l_jOO OԱ@J hdO.@ HOO #h_@g bdO.@ O``_@ @ _A@g O0@JOOAh`ll @g h \,`dll!L@ _2 O2@ O0_0ljL@ OMOEOOh8NO_ jO O jO lOO_"jO"O"jO"li_`l_$jO$O$ JNO OO NO OO bcL "L@ `dllJL \L@ `llBdO4@ `ljBdO4@ OO_ KKl W6`l_&jO&O& {lN@ _(jO(O(jO(alO@ _*jO*O*jO*F`llCL L@ JL \@ *L $LdI \dO4@ K d`l_,j=O, O, 0h__@ _@ _OhHOO i_BNl@`ljjkjl`ljjkj`O+H@ @ ~i_BdO.@ eH@ @ Uh_@g bdO.@ 4@g bOBdO2@ @g @J B(1027 SK.TAKE.MARKS.DOWN 1021 PUTWINDOWPROP 1008 SK.REMOVE.SELECTION 988 GETWINDOWUSERPROP 973 SK.REMOVE.SELECTION 959 GETWINDOWUSERPROP 944 INSIDEP 941 LASTMOUSEY 937 LASTMOUSEX 924 SK.ADD.SELECTION 903 INSIDEP 900 LASTMOUSEY 896 LASTMOUSEX 837 INSIDEP 820 LASTMOUSEX 813 LASTMOUSEY 801 \FZEROP 777 GETMOUSESTATE 770 TIMEREXPIRED? 760 SK.ADD.SELECTION 746 REMOVE 738 SCREENELEMENTP 731 SK.ADD.SELECTION 726 IN.SKETCH.ELT? 720 SK.REMOVE.SELECTION 713 POSITIONP 679 LASTMOUSEY 652 LASTMOUSEX 643 \FZEROP 618 GETMOUSESTATE 611 \CLOCK0 582 SK.REMOVE.SELECTION 552 SK.ADD.SELECTION 527 SK.ADD.SELECTION 520 IN.SKETCH.ELT? 501 SK.REMOVE.SELECTION 494 POSITIONP 486 SK.LOCAL.ITEMS.IN.REGION 482 MAX 475 MAX 469 MIN 462 MIN 451 \FZEROP 347 SK.REMOVE.SELECTION 325 SK.REMOVE.SELECTION 318 POSITIONP 308 SK.ADD.SELECTION 285 IN.SKETCH.ELT? 280 GETWINDOWUSERPROP 242 GETWINDOWUSERPROP 230 LASTMOUSEY 225 LASTMOUSEX 197 SK.REMOVE.SELECTION 183 GETWINDOWUSERPROP 170 INSIDEP 154 SK.ADD.SELECTION 141 SK.TAKE.MARKS.DOWN 123 \FZEROP 97 GETMOUSESTATE 88 INSIDEP 85 LASTMOUSEY 81 LASTMOUSEX 74 \FZEROP 51 GETMOUSESTATE 47 SK.PUT.MARKS.UP 41 TOTOPW 36 SK.ADD.HOTSPOTS.TO.CACHE 29 SK.HAS.SOME.HOTSPOTS 25 SK.HOTSPOT.CACHE.FOR.OPERATION 17 LOCALSPECS.FROM.VIEWER 4 DSPCLIPPINGREGION) (1018 SKETCH.SELECTIONS 985 SKETCH.SELECTIONS 956 SKETCH.SELECTIONS 873 \LASTKEYSTATE 854 \LASTKEYSTATE 781 LASTMOUSEBUTTONS 701 LASTMOUSEBUTTONS 622 LASTMOUSEBUTTONS 602 FIXP 562 LASTMOUSEBUTTONS 531 LASTMOUSEBUTTONS 505 LASTMOUSEBUTTONS 430 LASTMOUSEBUTTONS 293 LASTMOUSEBUTTONS 277 SKETCH.SELECTIONS 265 LASTMOUSEBUTTONS 239 SKETCH.SELECTIONS 218 LASTMOUSEBUTTONS 210 LASTMOUSEBUTTONS 180 SKETCH.SELECTIONS 101 LASTMOUSEBUTTONS 55 LASTMOUSEBUTTONS) () SKETCH.GET.ELEMENTS :D4 (P 5 OPERATION P 4 SELECTABLEITEMS P 3 ELT I 2 WHICHONES I 1 SINGLEELEMENTFLG I 0 VIEWER) B+@B d[ K@ K IHhZH&JBhBdg7dg0dg)dg"dgdgdgdidgdBB A@iLM 0@iLM dIHhZH&J(143 SK.SELECT.MULTIPLE.ITEMS 131 SK.SELECT.ITEM 119 \ILLEGAL.ARG 26 \ILLEGAL.ARG 21 SK.LOCAL.ELT.FROM.GLOBALPART 15 GLOBALELEMENTP) (107 FROZEN 97 COPYSELECT 90 UNGROUP 83 GROUP 76 CHANGE 69 DELETE 62 COPY 55 MOVE) () SK.PUT.MARKS.UP :D4 (I 1 HOTSPOTCACHE I 0 SKETCHW) @g @A @gi h(20 PUTWINDOWPROP 12 SK.SHOWMARKS 6 GETWINDOWUSERPROP) (16 MARKS.UP 3 MARKS.UP) () SK.TAKE.MARKS.DOWN :D4 (I 1 HOTSPOTCACHE I 0 SKETCHW) @g @A @g (20 PUTWINDOWPROP 13 SK.SHOWMARKS 6 GETWINDOWUSERPROP) (17 MARKS.UP 3 MARKS.UP) () SK.TRANSLATE.GLOBALPART :D4 (P 3 ACTIVEREGION P 2 OLDGLOBAL P 1 NEWGLOBAL P 0 TRANSLATEFN I 2 RETURNELTIFCANTFLG I 1 DELTAPOS I 0 GLOBALELT) N@ 1HHg@AlHYB@ Ig [I@g IgKAA (73 PUTSKETCHELEMENTPROP 70 REL.MOVE.REGION 55 GETSKETCHELEMENTPROP 43 GETSKETCHELEMENTPROP 36 SK.COPY.ELEMENT.PROPERTY.LIST 6 SK.TRANSLATEFN) (62 ACTIVEREGION 52 ACTIVEREGION 40 ACTIVEREGION 16 NILL) () SK.TRANSLATE.ITEM :D4 (P 1 OLDGLOBAL P 0 NEWGLOBAL I 2 W I 1 GLOBALDELTAPOS I 0 SELELT)  @YA X IHBi H(19 SK.UPDATE.ELEMENT 9 SK.TRANSLATE.GLOBALPART) NIL () SK.TRANSLATEFN :D4 (I 0 ELEMENTTYPE) @g (6 GETPROP) (9 SKETCHTYPE 3 SKETCHTYPE) () TRANSLATE.SKETCH :D4 (P 5 GELT P 0 DELTAPOS I 2 NEWYORG I 1 NEWXORG I 0 SKETCH) cA B ghglgjdhY@I@I@I@@d]Hi KJh\J&Ld (94 LAST 72 SK.TRANSLATE.GLOBALPART 7 MINUS 3 MINUS) (23 PRIRANGE 18 VERSION 14 SKETCH) () SK.INPUT.SCALE :D4 (P 0 SK I 0 SKW) @@g H @o hH Hoo(40 SK.UPDATE.SKETCHCONTEXT 20 ERROR 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) ( 61 1.0 56 1.0 17 "arg not sketch window") SK.UPDATE.SKETCHCONTEXT :D4 (P 0 NEWSK I 0 SKETCHCONTEXT) #H @ j@H@ k @(31 \NCONC2 28 NTH 23 LENGTH 13 LENGTH 9 LENGTH 2 CREATE.DEFAULT.SKETCH.CONTEXT) NIL () SK.SET.INPUT.SCALE :D4 (I 0 W) o@ o hddid @ (27 SK.SET.INPUT.SCALE.VALUE 23 RNUMBER 14 CONCAT 7 SK.INPUT.SCALE) NIL ( 11 ". Enter new input scale. A larger scale will make new lines and text larger." 3 "Input scale is now ") SK.SET.INPUT.SCALE.CURRENT :D4 (I 0 W) @ @ (7 SK.SET.INPUT.SCALE.VALUE 3 VIEWER.SCALE) NIL () SK.SET.INPUT.SCALE.VALUE :D4 (I 1 SKW I 0 NEWINPUTSCALE) 1@3,@j @@ hAg @ (44 ABS 29 GETWINDOWUSERPROP 18 \FZEROP) (26 SKETCHCONTEXT) () SK.SET.FEEDBACK.MODE :D4 (I 0 VALUE) U@do <`dodi dg dgjdndhHdI  b@dgh(66 \CURSOR.IN.MIDDLE.MENU 8 MEMB) (82 SKETCH.VERBOSE.FEEDBACK 75 POINTS 39 DEFAULTMENUHELDFN 32 CLRPROMPT 14 |MENUTYPE#|) ( 20 (("Points only" (QUOTE POINTS) "Only the control points will be shown when entering elements.") ("Fast figures" T "Wires, circles and ellipses are shown while they are being entered.") ("All figures" (QUOTE ALWAYS) "Most elements are shown while they are being entered. This will be slow for arcs and curves.")) 5 (POINTS T ALWAYS)) SK.SET.FEEDBACK.POINT :D4 NIL g (5 SK.SET.FEEDBACK.MODE) (2 POINTS) () SK.SET.FEEDBACK.VERBOSE :D4 NIL i (3 SK.SET.FEEDBACK.MODE) NIL () SK.SET.FEEDBACK.ALWAYS :D4 NIL g (5 SK.SET.FEEDBACK.MODE) (2 ALWAYS) () SKETCH.TITLE :D4 (I 0 SKW) @ (3 INSURE.SKETCH) NIL () SK.SHRINK.ICONCREATE :D4 (P 1 ICONTITLE P 0 ICON I 0 W F 2 TEDIT.ICON.FONT F 3 SKETCH.TITLED.ICON.TEMPLATE) u@g @g H,I@ XIVH@g@ oY IhdH 6@g@ oY @gSIRgRg hihg  h(113 PUTWINDOWPROP 110 TITLEDICONW 100 DEFAULTFONT 79 PUTWINDOWPROP 69 SKETCH.TITLE 59 ICONTITLE 51 PUTWINDOWPROP 41 SKETCH.TITLE 24 SKETCH.TITLE 13 GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (106 FILE 97 DISPLAY 90 NOBIND 84 ICON 65 SKETCH.ICON.TITLE 37 SKETCH.ICON.TITLE 10 SKETCH.ICON.TITLE 3 ICON) ( 75 "" 47 "") READBRUSHSHAPE :D4 NIL A`di dododg dgjdndhHdI  (62 \CURSOR.IN.MIDDLE.MENU) (35 DEFAULTMENUHELDFN 28 CLRPROMPT 2 |MENUTYPE#|) ( 21 (ROUND SQUARE VERTICAL HORIZONTAL DIAGONAL) 13 "pick a shape") READ.FUNCTION :D4 (P 2 LST P 1 OLDTTYDS P 0 PROMPTWIN I 1 W I 0 PRMPT) :Al !H Y@i ZI JH H oH (53 PRIN1 44 TERPRI 39 PRIN1 32 CLOSEW 29 TTYDISPLAYSTREAM 23 READLINE 20 READ 12 TTYDISPLAYSTREAM 5 GETPROMPTWINDOW) NIL ( 49 ">> ") READBRUSHSIZE :D4 (P 0 N I 0 NOWSIZE) /@o@o ohddiddd HjhHd (44 ABS 29 RNUMBER 13 CONCAT) NIL ( 18 "Enter new brush size." 10 ". Enter new brush size." 5 "Current size is ") READANGLE :D4 NIL ohddihi djh(13 RNUMBER) NIL ( 3 "Enter arc angle in degrees.") READARCDIRECTION :D4 (I 0 MENUTITLE) J`@oHdIdodi dg dgjdndhHdI  (71 \CURSOR.IN.MIDDLE.MENU) (44 DEFAULTMENUHELDFN 37 CLRPROMPT 2 |MENUTYPE#|) ( 25 (("Clockwise" (QUOTE CLOCKWISE) "The arc will be drawn clockwise from the first point to the second point.") ("Counterclockwise" (QUOTE COUNTERCLOCKWISE) "The arc will be drawn counterclockwise from the first point to the second point.")) 10 "Which way should the arc go?") SK.CHANGE.DASHING :D4 (P 5 NEWELT P 4 NOWDASHING P 3 NEWDASHING P 2 TYPE P 1 GLINELT P 0 SIZE I 2 SKW I 1 DASHING I 0 ELTWITHLINE) np@Zo Z@Adgh oA JdgIygImJdgI]gIKJdgIKdgIjILIװ& o gLI֌KgLIՂLIԹAgI Ag Ag Ag@dgh I]gIT@dg@Ag fAg Agi Agk oAgk IgHgi h@dgHgg hgHgg h@dg Ag Agi Ag jgAg Agi j@3Ag Agi jAg I jdndH I]Ag ZBAgJk JkoONOo_Ok_OjII@J԰I@J֏jIIl @ԅIl @ A h(690 DISPLAY.POSITION.READER.TOTAL 686 PUTMENUPROP 612 PUTMENUPROP 599 GETMENUPROP 588 \READNUMBER.FLASHAREA 575 NCHARS 572 ABS 568 GETMENUPROP 558 PUTMENUPROP 549 GETMENUPROP 528 PUTMENUPROP 519 PUTMENUPROP 501 PUTMENUPROP 493 PUTMENUPROP 484 PUTMENUPROP 466 PUTWINDOWPROP 449 PUTWINDOWPROP 429 PUTWINDOWPROP 408 PUTMENUPROP 392 PUTMENUPROP 383 PUTMENUPROP 373 GETMENUPROP 362 GETMENUPROP 332 PUTMENUPROP 315 PUTMENUPROP 307 PUTMENUPROP 299 PUTMENUPROP 266 PROMPTPRINT 257 \FZEROP 228 GETMENUPROP 218 GETMENUPROP 209 PUTMENUPROP 191 GETMENUPROP 143 MINUS 130 MKATOM 124 SUBSTRING 117 STRPOS 104 MKSTRING 99 PUTMENUPROP 81 PUTMENUPROP 61 GETMENUPROP 49 PUTMENUPROP 40 GETMENUPROP 13 GETMENUPROP 3 WFROMMENU) (606 DECIMALPOWER 596 DECIMALPOWER 565 MAXDIGITS 554 DIGITYET 546 DIGITYET 524 DIGITYET 516 DECIMALPOWER 509 ce 498 TOPOFSTACK 489 DIGITYET 481 DECIMALPOWER 473 C 463 ABORT 460 FINISHEDFLG 454 abort 446 STOP 443 FINISHEDFLG 436 quit 425 FINISHEDFLG 419 enter 413 FLOATP 404 DECIMALPOWER 388 DECIMALPOWER 379 DIGITYET 370 DIGITYET 359 DECIMALPOWER 351 %. 340 % 325 = 320 OPERATION 312 DECIMALPOWER 304 DIGITYET 295 TOPOFSTACK 281 - 271 236 225 TOPOFSTACK 215 OPERATION 202 = 197 OPERATION 188 DIGITYET 178 = 171 + 164 - 157 150 137 92 DECIMALPOWER 78 DECIMALPOWER 58 DECIMALPOWER 45 DIGITYET 37 DIGITYET 29 bs 22 18 TOTAL 10 TOTAL) ( 634 0.1 619 1.0 397 0.0 263 "Can't divide by zero" 113 ".") POSITIONPAD.HELDFN :D4 (I 2 BUTTON I 1 MENU I 0 ITEM) @dgogo@dgogo@dgoygon@dgo`goU@dgoGgo<@dgo.go#@g@dgogoo (189 PROMPTPRINT) (175 % 164 157 bs 145 %. 133 120 abort 108 quit 95 83 70 - 58 + 44 = 31 C 17 ce 4 enter) ( 186 "Will put this digit on the right of the total." 181 "doesn't do anything." 171 "Will erase the last digit entered." 151 "will enter a decimal point." 140 " will change the sign of the total" 126 "will abort this sketch operation." 115 "Will stop prompting you for points." 101 "Will read another number and divides the current total by it" 90 "Will read another number to be multiplied by the current total" 76 "Will read another number to be subtracted to the current total" 65 "Will read another number to be added to the current total" 50 "performs the previously specified operation between the memory and the current total" 38 "Will clear the stack and set the total to 0" 23 "Will reset the total to 0" 11 "Indicates that you are through entering the position.") \POSITION.PAD.ADD.DIGIT.MENU :D4 (P 0 TOTALREGION I 7 NUMBER/READER/MAXDIGITS I 6 TOTALSHEIGHT I 5 TOTALSWIDTH I 4 MENU I 3 LABEL I 2 MARGIN I 1 LEFT I 0 WIN) BD@AB DgAD BdEFhX Dgj DgG @CD @(62 WINDOWPROP 56 PUTMENUPROP 47 PUTMENUPROP 39 PUTMENUPROP 19 CHECK/MENU/IMAGE 10 ADDMENU) (51 MAXDIGITS 43 TOTAL 22 BITMAP 14 TOTALREG) () \POSITION.READER.NUMBERPAD :D4 (I 1 WIDTH I 0 DIGITFONT) u `dodldi d@dgdgdldg jdndhdI Xd @lH AdllNIL (99 MENU 88 FONTDESCRIPTOR 79 MENU 54 CLRPROMPT 41 POSITION.PAD.READER.HANDLER 34 POSITIONPAD.HELDFN 5 |MENUTYPE#|) ( 11 ( ce C 1 2 3 4 5 6 - 7 8 9 + 0 %. =)) SK.DRAWFN :D4 (I 0 ELEMENTTYPE) @g (6 GETPROP) (9 SKETCHTYPE 3 SKETCHTYPE) () SK.TRANSFORMFN :D4 (I 0 ELEMENTTYPE) @g (6 GETPROP) (9 SKETCHTYPE 3 SKETCHTYPE) () SK.EXPANDFN :D4 (I 0 ELEMENTTYPE) @g (6 GETPROP) (9 SKETCHTYPE 3 SKETCHTYPE) () SK.INPUT :D4 (I 1 SKETCHW I 0 ELEMENTTYPE) @ AkHNIL (3 SKETCHTYPE) () SK.INSIDEFN :D4 (P 0 SKTYPE I 0 ELEMENTTYPE) @g X @o (20 ERROR 9 GETPROP) (26 SKETCHTYPE 6 SKETCHTYPE) ( 17 "Unknown sketch type. If you can load the file containing it, do so and type 'RETURN'. Otherwise, type '^'.") SK.UPDATEFN :D4 (I 0 ELEMENTTYPE) @g (6 GETPROP) (9 SKETCHTYPE 3 SKETCHTYPE) () SK.CHECK.SKETCH.VERSION :D4 (P 0 PLIST I 0 SKETCH) 7@g'l@@ @X@glh@gl (51 LISTPUT 19 SK.INSURE.RECORD.LENGTH) (46 VERSION 35 VERSION 6 VERSION) () SK.INSURE.RECORD.LENGTH :D4 (P 4 NFIELDS P 3 TYPE P 2 INDPART P 1 ELT I 0 SKETCHELTS) V@AHhYZ[ \&K '`KgKh \hh JLK KgJ HX(78 SK.INSURE.RECORD.LENGTH 64 SK.INSURE.HAS.LENGTH 54 \NCONC2 45 LENGTH 42 EVAL 26 RECLOOK 19 SK.RECORD.LENGTH) (69 GROUP 57 SKETCH.RECORD.LENGTHS 35 CREATE 31 SKETCH.RECORD.LENGTHS) () SK.INSURE.HAS.LENGTH :D4 (I 2 TYPE I 1 N I 0 LIST) M@A 2@B gBh @ k A@ k2IHJ K Lh[IkYL&(54 \NCONC2 39 LENGTH 32 NTH 27 LENGTH 23 EVAL 11 RECLOOK 4 EQLENGTH) (16 CREATE) () SK.RECORD.LENGTH :D4 (I 0 SKETCHRECORDTYPE) @`NIL (3 SKETCH.RECORD.LENGTHS) () SK.SET.RECORD.LENGTHS :D4 NIL Ygdhddh hgdhdddddddddh hgdhddddh hgdhddddddh hgdhdddddh hgdhddddddh hgdhdddddh hgdhddddddh hgdhdddddddddh hgdhddddddddh hgdhddddddh hgdhdddh hgdhdddh hh(322 LENGTH 302 LENGTH 282 LENGTH 256 LENGTH 226 LENGTH 194 LENGTH 168 LENGTH 144 LENGTH 118 LENGTH 94 LENGTH 68 LENGTH 46 LENGTH 14 LENGTH) (342 SKETCH.RECORD.LENGTHS 308 SKIMAGEOBJ 288 BITMAPELT 262 CIRCLE 232 ELLIPSE 200 ARC 174 OPENCURVE 150 CLOSEDCURVE 124 WIRE 100 CLOSEDWIRE 74 TEXT 52 BOX 20 TEXTBOX 2 GROUP) () (PRETTYCOMPRINT SKETCHCOMS) (RPAQQ SKETCHCOMS ((DECLARE%: FIRST DOCOPY DONTEVAL@LOAD (P (PROG ((NOTECARDSFLG (GETPROP (QUOTE NOTECARDS) (QUOTE FILEDATES))) (SKETCHFLG (AND (BOUNDP (QUOTE ALL.SKETCHES)) ALL.SKETCHES)) TEDITFLG) (* current knows about SKETCH TEDIT and NOTECARDS. Everyone else loses.) (MAP.PROCESSES (FUNCTION ( LAMBDA (PROC PROCNAME PROCFORM) (AND (EQ (CAR PROCFORM) (QUOTE \TEDIT2)) (SETQ TEDITFLG T))))) (COND ( (AND (BOUNDP (QUOTE ALL.SKETCHES)) (OR SKETCHFLG NOTECARDSFLG TEDITFLG)) (ERROR (CONCAT "Please close" (COND (SKETCHFLG " all open Sketch windows,") (T "")) (COND (NOTECARDSFLG (CONCAT (COND (SKETCHFLG " and") (T "")) " any open notefiles,")) (T "")) (COND (TEDITFLG (CONCAT (COND ((OR SKETCHFLG NOTECARDSFLG) " and") (T "")) " any TEDIT windows that have sketches in them,")) (T "")) " then type 'RETURN'. To abort loading the new version of Sketch, type '^'."))))))) (FNS SKETCH SKETCH.FROM.A.FILE SKETCHW.CREATE SKETCH.RESET SKETCHW.FIG.CHANGED SK.WINDOW.TITLE EDITSLIDE EDITSKETCH SK.PUT.ON.FILE SK.OUTPUT.FILE.NAME SKETCH.PUT SK.GET.FROM.FILE SK.INCLUDE.FILE SK.GET.IMAGEOBJ.FROM.FILE SKETCH.GET ADD.SKETCH.TO.VIEWER FILENAMELESSVERSION SK.ADD.ELEMENTS.TO.SKETCH SKETCH.SET.A.DEFAULT SK.POPUP.SELECTIONFN GETSKETCHWREGION SK.ADD.ELEMENT SK.ADD.PRIORITY.ELEMENT.TO.SKETCH SK.ELTS.BY.PRIORITY SK.ORDER.ELEMENTS SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH SK.ADD.ELEMENTS SK.CHECK.WHENADDEDFN SK.APPLY.MENU.COMMAND SK.DELETE.ELEMENT1 SK.MARK.DIRTY SK.MARK.UNDIRTY SK.MENU.AND.RETURN.FIELD SKETCH.SET.BRUSH.SHAPE SKETCH.SET.BRUSH.SIZE SKETCHW.CLOSEFN SK.CONFIRM.DESTRUCTION SKETCHW.OUTFN SKETCHW.REOPENFN MAKE.LOCAL.SKETCH MAP.SKETCHSPEC.INTO.VIEWER SKETCHW.REPAINTFN SKETCHW.REPAINTFN1 SK.DRAWFIGURE.IF SKETCHW.SCROLLFN SKETCHW.RESHAPEFN SK.UPDATE.EVENT.SELECTION LIGHTGRAYWINDOW SK.ADD.SPACES SK.SKETCH.MENU SK.CHECK.IMAGEOBJ.WHENDELETEDFN SK.APPLY.IMAGEOBJ.WHENDELETEDFN SK.RETURN.TTY SK.TAKE.TTY) (COMS (* fns for dealing with the sketch menu) (FNS SKETCH.COMMANDMENU SKETCH.COMMANDMENU.ITEMS CREATE.SKETCHW.COMMANDMENU SKETCHW.SELECTIONFN SKETCH.MONITORLOCK SK.EVAL.AS.PROCESS SK.EVAL.WITH.LOCK) (FNS SK.FIX.MENU SK.SET.UP.MENUS SK.INSURE.HAS.MENU SK.CREATE.STANDARD.MENU SK.ADD.ITEM.TO.MENU SK.GET.VIEWER.POPUP.MENU SK.CLEAR.POPUP.MENU)) (COMS (* fns for dealing with sketch structures) (FNS SKETCH.CREATE GETSKETCHPROP PUTSKETCHPROP CREATE.DEFAULT.SKETCH.CONTEXT) (PROP ARGNAMES SKETCH.CREATE)) (COMS (* fns for implementing copy and delete functions under keyboard control.) (FNS SK.COPY.BUTTONEVENTFN SK.BUTTONEVENT.MARK SK.BUILD.IMAGEOBJ SK.BUTTONEVENT.OVERP SK.BUTTONEVENT.SAME.KEYS) (MACROS .DELETEKEYDOWNP. .MOVEKEYDOWNP.)) (COMS (* fns for implementing the CHANGE command.) (FNS SK.SEL.AND.CHANGE SK.CHECK.WHENCHANGEDFN SK.CHECK.PRECHANGEFN SK.CHANGE.ELT SK.CHANGE.THING SKETCH.CHANGE.ELEMENTS SK.APPLY.SINGLE.CHANGEFN SK.DO.CHANGESPECS SK.VIEWER.FROM.SKETCH.ARG SK.DO.CHANGESPEC1 SK.CHANGEFN SK.READCHANGEFN SK.DEFAULT.CHANGEFN CHANGEABLEFIELDITEMS SK.APPLY.CHANGE.COMMAND SK.DO.AND.RECORD.CHANGES SK.APPLY.CHANGE.COMMAND1 SK.ELEMENTS.CHANGEFN READ.POINT.TO.ADD GLOBAL.KNOT.FROM.LOCAL SK.ADD.KNOT.TO.ELEMENT SK.GROUP.CHANGEFN SK.GROUP.CHANGEFN1) (DECLARE%: DONTCOPY (RECORDS SKHISTORYCHANGESPEC))) (COMS (* fns for adding elements) (FNS ADD.ELEMENT.TO.SKETCH ADD.SKETCH.VIEWER REMOVE.SKETCH.VIEWER ALL.SKETCH.VIEWERS SKETCH.ALL.VIEWERS VIEWER.BUCKET ELT.INSIDE.REGION? ELT.INSIDE.SKWP SCALE.FROM.SKW SK.ADDELT.TO.WINDOW SK.CALC.REGION.VIEWED SK.DRAWFIGURE SK.DRAWFIGURE1 SK.LOCAL.FROM.GLOBAL SKETCH.REGION.VIEWED SKETCH.VIEW.FROM.NAME SK.UPDATE.REGION.VIEWED SKETCH.ADD.AND.DISPLAY SKETCH.ADD.AND.DISPLAY1 SK.ADD.ITEM SKETCHW.ADD.INSTANCE)) (* fns for deleting things) (FNS SK.SEL.AND.DELETE SK.ERASE.AND.DELETE.ITEM REMOVE.ELEMENT.FROM.SKETCH SK.DELETE.ELEMENT SK.DELETE.ELEMENT2 SK.DELETE.KNOT SK.SEL.AND.DELETE.KNOT SK.DELETE.ELEMENT.KNOT SK.CHECK.WHENDELETEDFN SK.CHECK.PREEDITFN SK.CHECK.END.INITIAL.EDIT SK.CHECK.WHENPOINTDELETEDFN SK.ERASE.ELT SK.DELETE.ELT SK.DELETE.ITEM DELFROMTCONC) (* fns for copying stuff) (FNS SK.COPY.ELT SK.SEL.AND.COPY SK.COPY.ELEMENTS SK.ADD.COPY.OF.ELEMENTS SK.GLOBAL.FROM.LOCAL.ELEMENTS SK.COPY.ITEM SK.INSERT.SKETCH) (COMS (* fns for moving things.) (FNS SK.MOVE.ELT SK.MOVE.ELT.OR.PT SK.APPLY.DEFAULT.MOVE SK.SEL.AND.MOVE SK.MOVE.ELEMENTS SKETCH.MOVE.ELEMENTS SKETCH.COPY.ELEMENTS \SKETCH.COPY.ELEMENT SK.TRANSLATE.ELEMENT SK.COPY.GLOBAL.ELEMENT SK.MAKE.ELEMENT.MOVE.ARG SK.MAKE.ELEMENTS.MOVE.ARG SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG SK.SHOW.FIG.FROM.INFO SK.MOVE.THING UPDATE.ELEMENT.IN.SKETCH SK.UPDATE.ELEMENT SK.UPDATE.ELEMENTS SK.UPDATE.ELEMENT1 SK.MOVE.ELEMENT.POINT) (* fns for moving points or a collection of pts.) (FNS SK.MOVE.POINTS SK.SEL.AND.MOVE.POINTS SK.DO.MOVE.ELEMENT.POINTS SK.MOVE.ITEM.POINTS SK.TRANSLATEPTSFN SK.TRANSLATE.POINTS SK.SELECT.MULTIPLE.POINTS SK.CONTROL.POINTS.IN.REGION SK.ADD.PT.SELECTION SK.REMOVE.PT.SELECTION SK.ADD.POINT SK.ELTS.CONTAINING.PTS SK.HOTSPOTS.NOT.ON.LIST) (MACROS .SHIFTKEYDOWNP.) (FNS SK.SET.MOVE.MODE SK.SET.MOVE.MODE.POINTS SK.SET.MOVE.MODE.ELEMENTS SK.SET.MOVE.MODE.COMBINED READMOVEMODE) (FNS SK.ALIGN.POINTS SK.SEL.AND.ALIGN.POINTS SK.ALIGN.POINTS.LEFT SK.ALIGN.POINTS.RIGHT SK.ALIGN.POINTS.TOP SK.ALIGN.POINTS.BOTTOM SK.EVEN.SPACE.POINTS.IN.X SK.EVEN.SPACE.POINTS.IN.Y SK.DO.ALIGN.POINTS SK.NTH.CONTROL.POINT SK.GET.SELECTED.ELEMENT.STRUCTURE SK.CORRESPONDING.CONTROL.PT SK.CONTROL.POINT.NUMBER SK.DO.ALIGN.SETVALUE)) (COMS (* stuff for supporting the GROUP sketch element. ) (FNS SKETCH.CREATE.GROUP SK.CREATE.GROUP1 SK.UPDATE.GROUP.AFTER.CHANGE SK.GROUP.ELTS SK.SEL.AND.GROUP SK.GROUP.ELEMENTS SK.UNGROUP.ELT SK.SEL.AND.UNGROUP SK.UNGROUP.ELEMENT SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS SK.LOCAL.REGION.OF.LOCAL.ELEMENTS SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS SK.UNIONREGIONS SKETCH.REGION.OF.SKETCH SK.FLASHREGION) (FNS INIT.GROUP.ELEMENT GROUP.DRAWFN GROUP.EXPANDFN GROUP.INSIDEFN GROUP.REGIONFN GROUP.GLOBALREGIONFN GROUP.TRANSLATEFN GROUP.TRANSFORMFN GROUP.READCHANGEFN) (FNS REGION.CENTER REMOVE.LAST) (* moving the control point of a group) (FNS SK.MOVE.GROUP.CONTROL.PT SK.SEL.AND.MOVE.CONTROL.PT SK.MOVE.GROUP.ELEMENT.CONTROL.POINT SK.READ.NEW.GROUP.CONTROL.PT) (RECORDS GROUP LOCALGROUP) (COMS (* history and undo stuff for groups) (FNS SK.DO.GROUP SK.CHECK.WHENGROUPEDFN SK.DO.UNGROUP SK.CHECK.WHENUNGROUPEDFN SK.GROUP.UNDO SK.UNGROUP.UNDO) (IFPROP EVENTFNS GROUP UNGROUP))) (COMS (* stuff for supporting the freezing of elements) (FNS SK.FREEZE.ELTS SK.SEL.AND.FREEZE SK.FREEZE.ELEMENTS SK.UNFREEZE.ELT SK.SEL.AND.UNFREEZE SK.UNFREEZE.ELEMENTS SK.FREEZE.UNDO SK.UNFREEZE.UNDO SK.DO.FREEZE SK.DO.UNFREEZE) (IFPROP EVENTFNS FREEZE UNFREEZE)) (COMS (* programmer interface entries) (FNS SKETCH.ELEMENTS.OF.SKETCH SKETCH.LIST.OF.ELEMENTS SKETCH.ADD.ELEMENT SKETCH.DELETE.ELEMENT DELFROMGROUPELT SKETCH.ELEMENT.TYPE SKETCH.ELEMENT.CHANGED SK.ELEMENT.CHANGED1 SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT)) (* utility routines for sketch windows.) (FNS INSURE.SKETCH LOCALSPECS.FROM.VIEWER SK.LOCAL.ELT.FROM.GLOBALPART SKETCH.FROM.VIEWER INSPECT.SKETCH ELT.INSIDE.SKETCHWP SK.INSIDE.REGION) (FNS MAPSKETCHSPECS MAPCOLLECTSKETCHSPECS MAPSKETCHSPECSUNTIL MAPGLOBALSKETCHSPECS MAPGLOBALSKETCHELEMENTS) (COMS (* multiple selection and copy select functions) ( FNS SK.ADD.SELECTION SK.COPY.INSERTFN SCREENELEMENTP SK.ITEM.REGION SK.ELEMENT.GLOBAL.REGION SK.LOCAL.ITEMS.IN.REGION SK.REGIONFN SK.GLOBAL.REGIONFN SK.REMOVE.SELECTION SK.SELECT.MULTIPLE.ITEMS SKETCH.GET.ELEMENTS SK.PUT.MARKS.UP SK.TAKE.MARKS.DOWN SK.TRANSLATE.GLOBALPART SK.TRANSLATE.ITEM SK.TRANSLATEFN TRANSLATE.SKETCH) (CONSTANTS (SK.NO.MOVE.DISTANCE 4)) (DECLARE%: DONTCOPY (RECORDS SKFIGUREIMAGE))) (COMS (* stuff for changing the input scale) (FNS SK.INPUT.SCALE SK.UPDATE.SKETCHCONTEXT SK.SET.INPUT.SCALE SK.SET.INPUT.SCALE.CURRENT SK.SET.INPUT.SCALE.VALUE)) (COMS (* stuff for setting feedback amount) (FNS SK.SET.FEEDBACK.MODE SK.SET.FEEDBACK.POINT SK.SET.FEEDBACK.VERBOSE SK.SET.FEEDBACK.ALWAYS) (INITVARS (SKETCH.VERBOSE.FEEDBACK T)) (GLOBALVARS SKETCH.VERBOSE.FEEDBACK)) (COMS (* sketch icon support) (FNS SKETCH.TITLE SK.SHRINK.ICONCREATE) ( UGLYVARS SKETCH.TITLED.ICON.TEMPLATE)) (COMS (* fns for reading in various values) (FNS READBRUSHSHAPE READ.FUNCTION READBRUSHSIZE READANGLE READARCDIRECTION) (FNS SK.CHANGE.DASHING READ.AND.SAVE.NEW.DASHING READ.NEW.DASHING READ.DASHING.CHANGE SK.CACHE.DASHING SK.DASHING.LABEL) (FNS READ.FILLING.CHANGE SK.CACHE.FILLING READ.AND.SAVE.NEW.FILLING SK.FILLING.LABEL) (INITVARS ( SK.DASHING.PATTERNS) (SK.FILLING.PATTERNS)) (GLOBALVARS SK.DASHING.PATTERNS SK.FILLING.PATTERNS) (P ( SK.CACHE.DASHING (QUOTE (2 4))) (SK.CACHE.DASHING (QUOTE (6 3 1 3))) (SK.CACHE.FILLING BLACKSHADE) ( SK.CACHE.FILLING GRAYSHADE) (SK.CACHE.FILLING HIGHLIGHTSHADE))) (COMS (* stuff for reading input positions) (FNS SK.GETGLOBALPOSITION SKETCH.TRACK.ELEMENTS SK.PICKOUT.WHOLE.MOVE.ELEMENTS MAP.SKETCH.ELEMENTS.INTO.VIEWER MAP.GLOBAL.POSITION.INTO.VIEWER SKETCH.TO.VIEWER.POSITION SKETCH.TRACK.IMAGE SK.TRACK.IMAGE1 MAP.VIEWER.XY.INTO.GLOBAL SK.SET.POSITION MAP.VIEWER.PT.INTO.GLOBAL VIEWER.TO.SKETCH.POSITION SK.INSURE.SCALE SKETCH.TO.VIEWER.REGION VIEWER.TO.SKETCH.REGION SK.READ.POINT.WITH.FEEDBACK SKETCH.GET.POSITION \CLOBBER.POSITION NEAREST.HOT.SPOT GETWREGION GET.BITMAP.POSITION SK.TRACK.BITMAP1) (RECORDS INPUTPT) (COMS (* stuff to allow reading positions from a number pad) (INITVARS (SKETCH.USE.POSITION.PAD NIL)) (GLOBALVARS SKETCH.USE.POSITION.PAD) (FNS SK.BRING.UP.POSITION.PAD SK.PAD.READER.POSITION SK.POSITION.READER.REPAINTFN SK.POSITION.PAD.FROM.VIEWER SK.INIT.POSITION.NUMBER.PAD.MENU SK.READ.POSITION.PAD.HANDLER DISPLAY.POSITION.READER.TOTAL POSITION.PAD.READER.HANDLER POSITIONPAD.HELDFN \POSITION.PAD.ADD.DIGIT.MENU \POSITION.READER.NUMBERPAD))) (INITVARS (ALL.SKETCHES) (INITIAL.SCALE 1.0 ) (DEFAULT.VISIBLE.SCALE.FACTOR 10.0) (MINIMUM.VISIBLE.SCALE.FACTOR 4.0)) (VARS (SKETCH.ELEMENT.TYPES) (SKETCH.ELEMENT.TYPE.NAMES)) (GLOBALVARS ALL.SKETCHES INITIAL.SCALE DEFAULT.VISIBLE.SCALE.FACTOR MINIMUM.VISIBLE.SCALE.FACTOR SKETCH.ELEMENT.TYPES SKETCH.ELEMENT.TYPE.NAMES SK.SELECTEDMARK SK.LOCATEMARK COPYSELECTIONMARK MOVESELECTIONMARK DELETESELECTIONMARK) (UGLYVARS SK.SELECTEDMARK SK.LOCATEMARK COPYSELECTIONMARK MOVESELECTIONMARK DELETESELECTIONMARK OTHERCONTROLPOINTMARK) (* accessing functions for the methods of a sketch type.) (FNS SK.DRAWFN SK.TRANSFORMFN SK.EXPANDFN SK.INPUT SK.INSIDEFN SK.UPDATEFN) (INITRECORDS SKETCHTYPE) (DECLARE%: DONTCOPY (RECORDS SCREENELT GLOBALPART COMMONGLOBALPART INDIVIDUALGLOBALPART LOCALPART SKETCH SKETCHTYPE SKETCHCONTEXT)) (ADDVARS (BackgroundMenuCommands (Sketch (QUOTE (SKETCHW.CREATE NIL NIL (GETREGION) NIL NIL T T)) "Opens a sketch window for use." (SUBITEMS ("Page sized sketch" (QUOTE (EDITSLIDE NIL)) "Opens a sketch window the size of a page.") ("Landscaped sketch" (QUOTE (EDITSLIDE NIL T)) "Opens a sketch window the size of a landscaped page.") ("Sketch, from a file" (QUOTE ( SKETCH.FROM.A.FILE)) "Reads a file name and opens a sketch window onto the sketch it contains."))))) ( VARS (BackgroundMenu)) (FILES SKETCHOPS SKETCHELEMENTS SKETCHEDIT SKETCHOBJ SKETCHBMELT) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP) SKETCHOPS SKETCHELEMENTS SKETCHOBJ SKETCHEDIT) ) (* recompute the sketch element types because loading SKETCH clobbers the previous ones.) (P ( INIT.BITMAP.ELEMENT) (INIT.SKETCH.ELEMENTS) (INIT.GROUP.ELEMENT)) (COMS (* version checking stuff) ( CONSTANTS (SKETCH.VERSION 3)) (FNS SK.CHECK.SKETCH.VERSION SK.INSURE.RECORD.LENGTH SK.INSURE.HAS.LENGTH SK.RECORD.LENGTH SK.SET.RECORD.LENGTHS) (MACROS SK.SET.RECORD.LENGTHS.MACRO) ( GLOBALVARS SKETCH.RECORD.LENGTHS) (P (SK.SET.RECORD.LENGTHS))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA SK.UNIONREGIONS SKETCH.CREATE))))) (PUTPROPS SKETCH.CREATE ARGNAMES (NIL (NAME . DEFAULTS&VALUES) . U)) (PUTPROPS .DELETEKEYDOWNP. MACRO (NIL (OR (KEYDOWNP (QUOTE CTRL)) (KEYDOWNP (QUOTE DELETE))))) (PUTPROPS .MOVEKEYDOWNP. MACRO (NIL (KEYDOWNP (QUOTE MOVE)))) (PUTPROPS .SHIFTKEYDOWNP. MACRO (NIL (OR (KEYDOWNP (QUOTE LSHIFT)) (KEYDOWNP (QUOTE RSHIFT))))) (TYPERECORD GROUP (GROUPREGION LISTOFGLOBALELTS GROUPCONTROLPOINT)) (RECORD LOCALGROUP ((GROUPPOSITION) LOCALHOTREGION LOCALGROUPREGION LOCALELEMENTS)) (PUTPROPS GROUP EVENTFNS (SK.GROUP.UNDO SK.TYPE.OF.FIRST.ARG SK.UNGROUP.UNDO)) (PUTPROPS UNGROUP EVENTFNS (SK.UNGROUP.UNDO SK.TYPE.OF.FIRST.ARG SK.GROUP.UNDO)) (PUTPROPS FREEZE EVENTFNS (SK.FREEZE.UNDO SK.TYPE.OF.FIRST.ARG SK.UNFREEZE.UNDO)) (PUTPROPS UNFREEZE EVENTFNS (SK.UNFREEZE.UNDO SK.TYPE.OF.FIRST.ARG SK.FREEZE.UNDO)) (RPAQQ SK.NO.MOVE.DISTANCE 4) (CONSTANTS (SK.NO.MOVE.DISTANCE 4)) (RPAQ? SKETCH.VERBOSE.FEEDBACK T) (READVAR-FROM-STRING (QUOTE SKETCH.TITLED.ICON.TEMPLATE) "({(READBITMAP)(87 95 %"AOOOOOOOOOOOOOOOOOOOOL@@%" %"GOOOOOOOOOOOOOOOOOOOOL@@%" %"OKMHOHNCHNCHNCHNCHNCHN@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"ONJJCLGALGALGALGALGALF@@%" %"LOOOOOOOOOOOOOOOOOOOON@@%" %"NKOJCLGALGALGALGALGALF@@%" %"ONOOOOOOOOOOOOOOOOOOON@@%" %"NJJOOOOOOOOOOOOOOOOOON@@%" %"NNKNGALGALGALGALGALGAL@@%" %"OJJNOCLOCLOCLOCLOCLOCN@@%" %"NJJNFAHFAHFAHFAHFAHFAN@@%" %"NNJN@@@@@@@@@@@@@@@@@N@@%" %"OJJN@@@@@@@@@@@@@@@@@N@@%" %"OJKN@@@@@@@@@@@@@@@@@N@@%" %"NJKN@@@@@@@@@@@@@@@@@N@@%" %"OKNN@@@@@@@@@@@@@@@@@N@@%" %"OKJN@@@@@@@@@@@@@@@@@N@@%" %"NJJN@@@@@@@@@@@@@@@@@N@@%" %"NJNN@@@@@@@@@@@@@@@@@N@@%" %"NKJN@@@@@@@@@@@@@@@@@N@@%" %"NJJN@@@@@@@@@@@@@@@@@N@@%" %"NNKN@@@@@@@@@@@@@@@@@N@@%" %"NNKN@@@@@@@@@@@@@@@@@N@@%" %"OJNN@@@@@@@@@@@@@@@@@N@@%" %"NJNN@@@@@@@@@@@@@@@@@N@@%" %"OJNN@@@@@@@@@@@@@@@@@N@@%" %"OJJN@@@@@@@@@@@@@@@@@N@@%" %"NNNN@@@@@@@@@@@@@@@@@N@@%" %"NNNN@@@@@@@@@@@@@@@@@N@@%" %"NJNN@@@@@@@@@@@@@@@@@N@@%" %"NJKN@@@@@@@@@@@@@@@@@N@@%" %"NJJN@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"L@BN@@@@@@@@@@@@@@@@@N@@%" %"L@NN@@@@@@@@@@@@@@@@@N@@%" %"LA@N@@@@@@@@@@@@@@@@@N@@%" %"MM@N@@@@@@@@@@@@@@@@@N@@%" %"LCBN@@@@@@@@@@@@@@@@@N@@%" %"L@NN@@@@@@@@@@@@@@@@@N@@%" %"L@BN@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"LB@N@@@@@@@@@@@@@@@@@N@@%" %"LDDN@@@@@@@@@@@@@@@@@N@@%" %"LDBN@@@@@@@@@@@@@@@@@N@@%" %"LBBN@@@@@@@@@@@@@@@@@N@@%" %"LALN@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"LDDN@@@@@@@@@@@@@@@@@N@@%" %"MLBN@@@@@@@@@@@@@@@@@N@@%" %"LGBN@@@@@@@@@@@@@@@@@N@@%" %"LDNN@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"LC@N@@@@@@@@@@@@@@@@@N@@%" %"LDHN@@@@@@@@@@@@@@@@@N@@%" %"LDJN@@@@@@@@@@@@@@@@@N@@%" %"LCJN@@@@@@@@@@@@@@@@@N@@%" %"LABN@@@@@@@@@@@@@@@@@N@@%" %"L@NN@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"LD@N@@@@@@@@@@@@@@@@@N@@%" %"LB@N@@@@@@@@@@@@@@@@@N@@%" %"MBNN@@@@@@@@@@@@@@@@@N@@%" %"MM@N@@@@@@@@@@@@@@@@@N@@%" %"LCHN@@@@@@@@@@@@@@@@@N@@%" %"L@FN@@@@@@@@@@@@@@@@@N@@%" %"L@BN@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"LH@N@@@@@@@@@@@@@@@@@N@@%" %"M@@N@@@@@@@@@@@@@@@@@N@@%" %"MAHN@@@@@@@@@@@@@@@@@N@@%" %"MBDN@@@@@@@@@@@@@@@@@N@@%" %"MBDN@@@@@@@@@@@@@@@@@N@@%" %"LLDN@@@@@@@@@@@@@@@@@N@@%" %"L@DN@@@@@@@@@@@@@@@@@N@@%" %"L@DN@@@@@@@@@@@@@@@@@N@@%" %"L@LN@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"L@@N@@@@@@@@@@@@@@@@@N@@%" %"NJJN@@@@@@@@@@@@@@@@@N@@%" %"OJJN@@@@@@@@@@@@@@@@@N@@%" %"NKKN@@@@@@@@@@@@@@@@@N@@%" %"OJNN@@@@@@@@@@@@@@@@@N@@%" %"CNNN@@@@@@@@@@@@@@@@@N@@%" %"@OJN@@@@@@@@@@@@@@@@@N@@%" %"@CNN@@@@@@@@@@@@@@@@@N@@%" %"@@OOOOOOOOOOOOOOOOOOON@@%" %"@@COOOOOOOOOOOOOOOOOON@@%" %"@@@OOOOOOOOOOOOOOOOOON@@%")} {(READBITMAP)(87 95 %"AOOOOOOOOOOOOOOOOOOOOH@@%" %"GOOOOOOOOOOOOOOOOOOOOL@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"COOOOOOOOOOOOOOOOOOOON@@%" %"@OOOOOOOOOOOOOOOOOOOON@@%" %"@COOOOOOOOOOOOOOOOOOON@@%" %"@@OOOOOOOOOOOOOOOOOOON@@%" %"@@COOOOOOOOOOOOOOOOOON@@%" %"@@@OOOOOOOOOOOOOOOOOON@@%")} (16 4 64 77)) ") (RPAQ? SK.DASHING.PATTERNS) (RPAQ? SK.FILLING.PATTERNS) (SK.CACHE.DASHING (QUOTE (2 4))) (SK.CACHE.DASHING (QUOTE (6 3 1 3))) (SK.CACHE.FILLING BLACKSHADE) (SK.CACHE.FILLING GRAYSHADE) (SK.CACHE.FILLING HIGHLIGHTSHADE) (RECORD INPUTPT (INPUT.ONGRID? INPUT.POSITION INPUT.GLOBALPOSITION) (TYPE? (AND (LISTP DATUM) (OR ( NULL (CAR DATUM)) (EQ (CAR DATUM) T)) (LISTP (CDR DATUM)) (POSITIONP (CADR DATUM))))) (RPAQ? SKETCH.USE.POSITION.PAD NIL) (RPAQ? ALL.SKETCHES) (RPAQ? INITIAL.SCALE 1.0) (RPAQ? DEFAULT.VISIBLE.SCALE.FACTOR 10.0) (RPAQ? MINIMUM.VISIBLE.SCALE.FACTOR 4.0) (RPAQQ SKETCH.ELEMENT.TYPES NIL) (RPAQQ SKETCH.ELEMENT.TYPE.NAMES NIL) (READVAR-FROM-STRING (QUOTE SK.SELECTEDMARK) "{(READBITMAP)(7 7 %"ON@@%" %"ON@@%" %"ON@@%" %"ON@@%" %"ON@@%" %"ON@@%" %"ON@@%")} ") (READVAR-FROM-STRING (QUOTE SK.LOCATEMARK) "{(READBITMAP)(11 11 %"OON@%" %"OON@%" %"L@F@%" %"L@F@%" %"L@F@%" %"L@F@%" %"L@F@%" %"L@F@%" %"L@F@%" %"OON@%" %"OON@%")} ") (READVAR-FROM-STRING (QUOTE COPYSELECTIONMARK) "{(READBITMAP)(11 11 %"@@@@%" %"EED@%" %"BJH@%" %"EED@%" %"BJH@%" %"EED@%" %"BJH@%" %"EED@%" %"BJH@%" %"EED@%" %"@@@@%")} ") (READVAR-FROM-STRING (QUOTE MOVESELECTIONMARK) "{(READBITMAP)(19 19 %"OL@@@@@@%" %"N@@@@@@@%" %"O@@@@@@@%" %"KH@@@@@@%" %"I@@@@@@@%" %"H@@@@@@@%" %"@CH@@@@@%" %"@CL@@@@@%" %"@CN@@@@@%" %"@AO@@@@@%" %"@@OH@@@@%" %"@@GH@@@@%" %"@@CH@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%")} ") (READVAR-FROM-STRING (QUOTE DELETESELECTIONMARK) "{(READBITMAP)(13 13 %"L@AH%" %"H@@H%" %"@@@@%" %"AHL@%" %"AML@%" %"@OH@%" %"@G@@%" %"@OH@%" %"AML@%" %"AHL@%" %"@@@@%" %"H@@H%" %"L@AH%")} ") (READVAR-FROM-STRING (QUOTE OTHERCONTROLPOINTMARK) "{(READBITMAP)(11 11 %"@@@@%" %"@D@@%" %"BJH@%" %"AE@@%" %"BJH@%" %"EED@%" %"BJH@%" %"AE@@%" %"BJH@%" %"@D@@%" %"@@@@%")} ") (/DECLAREDATATYPE (QUOTE SKETCHTYPE) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((SKETCHTYPE 0 POINTER) ( SKETCHTYPE 2 POINTER) (SKETCHTYPE 4 POINTER) (SKETCHTYPE 6 POINTER) (SKETCHTYPE 8 POINTER) (SKETCHTYPE 10 POINTER) (SKETCHTYPE 12 POINTER) (SKETCHTYPE 14 POINTER) (SKETCHTYPE 16 POINTER) (SKETCHTYPE 18 POINTER) (SKETCHTYPE 20 POINTER) (SKETCHTYPE 22 POINTER) (SKETCHTYPE 24 POINTER) (SKETCHTYPE 26 POINTER) (SKETCHTYPE 28 POINTER))) (QUOTE 30)) (ADDTOVAR BackgroundMenuCommands (Sketch (QUOTE (SKETCHW.CREATE NIL NIL (GETREGION) NIL NIL T T)) "Opens a sketch window for use." (SUBITEMS ("Page sized sketch" (QUOTE (EDITSLIDE NIL)) "Opens a sketch window the size of a page.") ("Landscaped sketch" (QUOTE (EDITSLIDE NIL T)) "Opens a sketch window the size of a landscaped page.") ("Sketch, from a file" (QUOTE ( SKETCH.FROM.A.FILE)) "Reads a file name and opens a sketch window onto the sketch it contains.")))) (RPAQQ BackgroundMenu NIL) (FILESLOAD SKETCHOPS SKETCHELEMENTS SKETCHEDIT SKETCHOBJ SKETCHBMELT) (INIT.BITMAP.ELEMENT) (INIT.SKETCH.ELEMENTS) (INIT.GROUP.ELEMENT) (RPAQQ SKETCH.VERSION 3) (CONSTANTS (SKETCH.VERSION 3)) (PUTPROPS SK.SET.RECORD.LENGTHS.MACRO MACRO (ARGS (CONS (QUOTE LIST) (for X in SKETCH.ELEMENT.TYPE.NAMES collect (LIST (QUOTE LIST) (KWOTE X) (LIST (QUOTE LENGTH) (LIST (QUOTE CREATE) X))))))) (SK.SET.RECORD.LENGTHS) (PUTPROPS SKETCH COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987)) NIL