(FILECREATED "15-Dec-86 16:05:24" ("compiled on " {PHYLUM}SKETCH.;300) "12-Nov-85 14:59:23" recompiled changes: SK.DO.CHANGESPEC1 SKETCH.COPY.ELEMENTS in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "15-Dec-86 16:00:03" {PHYLUM}SKETCH.;300 398053 changes to: (FNS SKETCH.COPY.ELEMENTS SK.DO.CHANGESPEC1) previous date: " 6-Oct-86 10:33:37" {PHYLUM}SKETCH.;298) (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 D1 (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 (167Q SKETCHW.CREATE 157Q GETREGION 150Q SKETCHW.CREATE 125Q GETBOXREGION 112Q MIN 101Q HEIGHTIFWINDOW 70Q MIN 62Q BITMAPWIDTH 54Q WIDTHIFWINDOW 32Q SK.SCALE.REGION 15Q SK.GET.IMAGEOBJ.FROM.FILE) (104Q SCREENHEIGHT 57Q ScreenBitMap) ( 121Q "Position sketch window.") SKETCH.FROM.A.FILE D1 (P 0 NAME) o Hd (17Q SKETCH 6 PopUpWindowAndGetAtom) NIL ( 3 "Sketch file name: ") SKETCHW.CREATE D1 (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) i@@d l@ @dddgu`1@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 (1144Q LEASTPOWEROF2GT 1137Q SKETCHW.REPAINTFN 1133Q ADD.SKETCH.VIEWER 1126Q OPENW 1122Q WINDOWADDPROP 1107Q PUTWINDOWPROP 1077Q PUTWINDOWPROP 1073Q ADD.PROCESS 1013Q PUTWINDOWPROP 1001Q PUTWINDOWPROP 767Q PUTWINDOWPROP 755Q WINDOWADDPROP 743Q WINDOWADDPROP 731Q WINDOWADDPROP 717Q WINDOWADDPROP 705Q PUTWINDOWPROP 673Q PUTWINDOWPROP 661Q PUTWINDOWPROP 647Q PUTWINDOWPROP 635Q PUTWINDOWPROP 623Q PUTWINDOWPROP 611Q PUTWINDOWPROP 576Q PUTWINDOWPROP 573Q SK.DEFAULT.GRIDFACTOR 552Q SK.CREATE.HOTSPOT.CACHE 546Q MAP.SKETCHSPEC.INTO.VIEWER 541Q SK.UPDATE.REGION.VIEWED 534Q WYOFFSET 520Q WXOFFSET 504Q REGIONP 500Q PUTWINDOWPROP 475Q PUTSKETCHPROP 472Q CREATE.DEFAULT.SKETCH.CONTEXT 461Q GETSKETCHPROP 446Q PUTWINDOWPROP 442Q \ILLEGAL.ARG 422Q DSPCLIPPINGREGION 407Q REGIONP 372Q PUTWINDOWPROP 362Q DSPRIGHTMARGIN 352Q SHAPEW 345Q WINDOWP 340Q REGIONP 334Q SK.SET.UP.MENUS 326Q OPENWP 320Q CREATEW 313Q SK.WINDOW.TITLE 304Q CREATEREGION 266Q REGIONP 256Q PUTWINDOWPROP 243Q WINDOWP 236Q SK.CHECK.SKETCH.VERSION 233Q \ILLEGAL.ARG 216Q GLOBALELEMENTP 172Q SKIO.UPDATE.FROM.OLD.FORM 73Q REGIONP 66Q IMAGEOBJPROP 24Q SKETCH.GET 10Q SKETCH.CREATE) (1116Q SKETCHW.CLOSEFN 1113Q CLOSEFN 1103Q SCROLLEXTENTUSE 1067Q SK.TTYEXITFN 1064Q TTYEXITFN 1061Q SK.TTYENTRYFN 1056Q TTYENTRYFN 1052Q RESTARTABLE 1040Q QUOTE 1022Q WB.EDITOR 1017Q PROCESS 1010Q NILL 1005Q PAGEFULLFN 776Q SKETCHW.HARDCOPYFN 773Q HARDCOPYFN 764Q SKETCHW.SCROLLFN 761Q SCROLLFN 752Q SK.TAKE.TTY 747Q EXPANDFN 740Q SK.RETURN.TTY 735Q SHRINKFN 726Q SK.SHRINK.ICONCREATE 723Q SHRINKFN 714Q SKETCHW.RESHAPEFN 711Q RESHAPEFN 702Q SKETCHW.REPAINTFN 677Q REPAINTFN 670Q SKETCHW.OUTFN 665Q CURSOROUTFN 656Q WB.BUTTON.HANDLER 653Q RIGHTBUTTONFN 644Q SK.COPY.INSERTFN 641Q COPYINSERTFN 632Q SK.COPY.BUTTONEVENTFN 627Q COPYBUTTONEVENTFN 620Q WB.BUTTON.HANDLER 615Q BUTTONEVENTFN 602Q USEGRID 556Q GRIDFACTOR 467Q SKETCHCONTEXT 456Q SKETCHCONTEXT 452Q SKETCHCONTEXT 436Q INITIAL.SCALE 376Q SCALE 366Q SKETCH 276Q LASTMOUSEY 273Q LASTMOUSEX 252Q TITLE 63Q OBJECTDATUM 54Q IMAGEOBJTYPE# 45Q SKETCH) () SKETCH.RESET D1 (P 1 VIEWER P 0 SKSTRUC I 0 SKETCH) g@ HhhH QdI I Ig` I HI I IgI Ig Ig Ig h(136Q PUTWINDOWPROP 126Q PUTWINDOWPROP 116Q PUTWINDOWPROP 106Q PUTWINDOWPROP 103Q SK.DEFAULT.GRIDFACTOR 72Q SK.CREATE.HOTSPOT.CACHE 65Q MAP.SKETCHSPEC.INTO.VIEWER 57Q SK.UPDATE.REGION.VIEWED 52Q PUTWINDOWPROP 37Q DSPRESET 32Q SKED.CLEAR.SELECTION 17Q ALL.SKETCH.VIEWERS 3 INSURE.SKETCH) (133Q SKETCHCHANGED 123Q SKETCHHISTORY 113Q USEGRID 77Q GRIDFACTOR 47Q INITIAL.SCALE 44Q SCALE) () SKETCHW.FIG.CHANGED D1 (I 0 W) @g @gg (22Q PUTWINDOWPROP 6 GETWINDOWUSERPROP) (17Q OLD 14Q SKETCHCHANGED 3 SKETCHCHANGED) () SK.WINDOW.TITLE D1 (I 0 SKETCH) @o@ o(17Q CONCAT) NIL ( 24Q "Viewer onto a sketch" 10Q "Viewer onto ") EDITSLIDE D1 (I 1 LANDSCAPE I 0 SKETCH) !@hAn ndndn hdio (36Q SKETCHW.CREATE 23Q GETBOXREGION) NIL ( 32Q 16.0) EDITSKETCH D1 (I 0 SLIDENAME) @ o bhdddio @(30Q SKETCHW.CREATE 11Q GENSYM) NIL ( 24Q 16.0 6 "SLIDE") SK.PUT.ON.FILE D1 (P 4 SKW P 3 TEXTSTREAM P 2 NEWNAME P 1 NOWNAME P 0 SKETCH I 0 SKETCHW) \@ 1H Y@oI Zd:H@ Zd(IJ#HJH dLgH @o J(130Q STATUSPRINT 113Q PUTWINDOWPROP 110Q SK.WINDOW.TITLE 71Q ALL.SKETCH.VIEWERS 46Q SKETCH.PUT 35Q MKATOM 32Q PROMPT.GETINPUT 27Q SK.OUTPUT.FILE.NAME 15Q SKETCH.TITLE 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) (104Q TITLE) ( 125Q "... done." 23Q "File to PUT to: ") SK.OUTPUT.FILE.NAME D1 (I 0 SKETCHFILENAME) o@ h@ (16Q FILENAMELESSVERSION 7 STRPOS) NIL ( 3 " ") SKETCH.PUT D1 (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@ @ @ bA @Bo h(256Q STATUSPRINT 244Q SK.MARK.UNDIRTY 235Q CLOSEF 230Q OPENP 224Q TEDIT.PUT 217Q TEDIT.PAGEFORMAT 214Q TEDIT.SINGLE.PAGEFORMAT 176Q TEDIT.PARALOOKS 164Q TEDIT.INSERT.OBJECT 157Q SKETCH.IMAGEOBJ 154Q SK.GRIDFACTOR 141Q VIEWER.SCALE 126Q SKETCH.REGION.VIEWED 116Q REGIONP 112Q INSURE.SKETCH 105Q OPENTEXTSTREAM 74Q GETPROMPTWINDOW 65Q GETWINDOWUSERPROP 40Q FILESLOAD 25Q MOUSECONFIRM 10Q DEFINEDP) (70Q PROMPTWINDOW 62Q TEDIT.PUTFN 56Q PUTFN 5 OPENTEXTSTREAM) ( 253Q "Sketch not saved." 171Q (LEFTMARGIN 0 RIGHTMARGIN 0 QUAD CENTER) 45Q "" 35Q (TEDIT) 22Q "Click LEFT to load TEDIT now, RIGHT to abort." 16Q "TEDIT must be loaded to save sketches.") SK.GET.FROM.FILE D1 (I 0 SKETCHW) ,@o @ @ @ @o @o (51Q STATUSPRINT 37Q SK.CONFIRM.DESTRUCTION 26Q SK.INCLUDE.FILE 22Q SK.DELETE.ELEMENT2 14Q INSURE.SKETCH 7 SK.CONFIRM.DESTRUCTION) NIL ( 46Q "GET aborted. The INCLUDE subcommand to GET doesn't delete." 34Q "Press LEFT to include file, RIGHT to abort the GET." 4 "Press LEFT to delete current elements before GET.") SK.INCLUDE.FILE D1 (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(211Q STATUSPRINT 200Q SK.MARK.UNDIRTY 172Q ADD.SKETCH.TO.VIEWER 146Q PUTWINDOWPROP 143Q SK.WINDOW.TITLE 124Q ALL.SKETCH.VIEWERS 102Q SKETCH.GET 74Q ERROR 62Q INFILEP 56Q STATUSPRINT 44Q CLOSEPROMPTWINDOW 37Q MEMB 26Q MKATOM 23Q PROMPT.GETINPUT 3 SKETCH.FROM.VIEWER) (167Q ASK 137Q TITLE) ( 206Q " done." 71Q "file not found." 53Q " ..." 34Q (NIL %]) 20Q "File to GET: ") SK.GET.IMAGEOBJ.FROM.FILEA0001 D1 (NAME ERRORSET P 3 READFILE P 2 READSKETCH P 1 IMAGEOBJ P 0 TEXTSTREAM F 5 FILENAME F 6 VIEWER F 7 MACROY) UhddV gV h AH U [U I V`Uo hQIg Z\LLgV`Uo h&JKUVIg V Ig ci(214Q IMAGEOBJPROP 204Q SK.CHANGE.GRID 173Q IMAGEOBJPROP 144Q STATUSPRINT 104Q IMAGEOBJPROP 71Q STATUSPRINT 51Q IMAGEOBJP 44Q CLOSEF 36Q OPENP 24Q OPENTEXTSTREAM 15Q GETPROMPTWINDOW) (211Q OBJECTDATUM 170Q OBJECTDATUM 134Q PROMPTWINDOW 123Q SKETCH 101Q OBJECTDATUM 61Q PROMPTWINDOW 11Q PROMPTWINDOW) ( 141Q " is not a sketch file." 66Q " is not a sketch file.") SK.GET.IMAGEOBJ.FROM.FILE D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 VIEWER I 0 FILENAME F 4 RESETVARSLST) =` 1gHhhTcYog gIcgI KJ(70Q ERROR! 63Q APPLY 40Q SK.GET.IMAGEOBJ.FROM.FILEA0001 5 CURSOR) (54Q CURSOR 44Q ERROR 35Q INTERNAL 13Q CURSOR 2 WAITINGCURSOR) ( 32Q (SK.GET.IMAGEOBJ.FROM.FILEA0001)) SKETCH.GET D1 (I 1 VIEWER I 0 FILENAME) @A (4 SK.GET.IMAGEOBJ.FROM.FILE) NIL () ADD.SKETCH.TO.VIEWER D1 (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(307Q PUTSKETCHPROP 304Q GETSKETCHPROP 274Q UNION 271Q GETSKETCHPROP 262Q GETSKETCHPROP 220Q SK.ADD.ELEMENTS.TO.SKETCH 210Q PUTWINDOWPROP 177Q PUTSKETCHPROP 165Q MENU 56Q GETSKETCHPROP 46Q GETSKETCHPROP 35Q MEMB 22Q INSURE.SKETCH 16Q INSURE.SKETCH 12Q SKETCH.GET) (266Q VIEWS 257Q VIEWS 253Q VIEWS 244Q VIEWS 236Q SKETCHCONTEXT 204Q SKETCHCONTEXT 173Q SKETCHCONTEXT 136Q DEFAULTMENUHELDFN 127Q CLRPROMPT 67Q MENUTYPE# 53Q SKETCHCONTEXT 43Q SKETCHCONTEXT) ( 112Q "Use the defaults from the retrieved sketch?" 75Q ((Yes T "Will use the defaults of the retrieved sketch.") (No NIL "Will not change the defaults.")) 32Q (NIL ASK)) FILENAMELESSVERSION D1 (I 0 FILENAME) gh@  (14Q PACKFILENAME 7 UNPACKFILENAME) (2 VERSION) () SK.ADD.ELEMENTS.TO.SKETCH D1 (P 0 ELT I 1 SKW I 0 ELTS) @dH HA h(21Q SK.ADD.ELEMENT 13Q SK.SET.ELEMENT.PRIORITY) NIL () SKETCH.SET.A.DEFAULT D1 (I 0 SKW) S`dodi dg` HdIdg dgjdndhHdI  (120Q \CURSOR.IN.MIDDLE.MENU 40Q SK.FONTNAMELIST 35Q FONTCREATE) (65Q DEFAULTMENUHELDFN 56Q CLRPROMPT 32Q BOLDFONT 24Q SK.POPUP.SELECTIONFN 2 MENUTYPE#) ( 10Q ((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 D1 (I 1 MENU I 0 ITEM F 0 SKW) P @P (12Q SK.APPLY.MENU.COMMAND 3 CLOSEPROMPTWINDOW) NIL () GETSKETCHWREGION D1 (I 0 SKETCHWINDOW) @ @ (12Q UNSCALE.REGION 7 VIEWER.SCALE 3 GETWREGION) NIL () SK.ADD.ELEMENT D1 (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[(110Q SKETCH.ADD.AND.DISPLAY1 101Q ELT.INSIDE.SKETCHWP 56Q ALL.SKETCH.VIEWERS 51Q SKETCH.ADD.AND.DISPLAY1 42Q ADD.ELEMENT.TO.SKETCH 34Q SKED.CLEAR.SELECTION 17Q SKETCH.FROM.VIEWER 13Q SK.CHECK.WHENADDEDFN) NIL () SK.ADD.PRIORITY.ELEMENT.TO.SKETCH D1 (P 2 SKELTTAIL P 0 SKELTSCELL I 2 PRIORITY I 1 ELEMENT I 0 SKETCH) L@HdBH HA BH HAHHIZBJ JAJAJ(73Q SK.ELEMENT.PRIORITY 40Q SK.ELEMENT.PRIORITY 30Q TCONC 20Q SK.ELEMENT.PRIORITY) NIL () SK.ELTS.BY.PRIORITY D1 (I 1 GELTB I 0 GELTA) @ A (7 SK.ELEMENT.PRIORITY 3 SK.ELEMENT.PRIORITY) NIL () SK.ORDER.ELEMENTS D1 (I 0 GSKETCHELEMENTS) @g (6 SORT) (3 SK.ELTS.BY.PRIORITY) () SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH D1 (P 2 SKELTTAIL P 0 PRIORITY I 1 LOCALELEMENT I 0 LOCALSKETCHELTS) AA @dH@ @A @IZHJ JAJAJ(60Q SK.ELEMENT.PRIORITY 35Q TCONC 25Q SK.ELEMENT.PRIORITY 4 SK.ELEMENT.PRIORITY) NIL () SK.ADD.ELEMENTS D1 (P 0 ELT I 1 SKW I 0 ELEMENTS) @ dH HA h(24Q SK.ADD.ELEMENT 16Q SK.SET.ELEMENT.PRIORITY 3 SK.ORDER.ELEMENTS) NIL () SK.CHECK.WHENADDEDFN D1 (P 2 RESULT P 1 ADDFN P 0 SKETCH I 1 GELT I 0 VIEWER) +@ !Hg YA@AlIZddgh J(45Q GLOBALELEMENTP 15Q GETSKETCHPROP 3 INSURE.SKETCH) (36Q DON'T 12Q WHENADDEDFN) () SK.APPLY.MENU.COMMAND D1 (I 1 SKETCHW I 0 COMMAND) 5@d1d`A Ak@Addi3 gAhh (62Q EVAL 57Q \APPEND2 16Q SKETCHW.ADD.INSTANCE) (46Q QUOTE 10Q SKETCHTYPETYPE#) () SK.DELETE.ELEMENT1 D1 (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(100Q SK.ERASE.AND.DELETE.ITEM 67Q SK.LOCAL.ELT.FROM.GLOBALPART 53Q SK.CHECK.IMAGEOBJ.WHENDELETEDFN 34Q ALL.SKETCH.VIEWERS 30Q SK.ERASE.AND.DELETE.ITEM 23Q SK.LOCAL.ELT.FROM.GLOBALPART 13Q REMOVE.ELEMENT.FROM.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SK.MARK.DIRTY D1 (P 0 SKW I 0 SKETCH) &@ dHg iHgi h(34Q PUTWINDOWPROP 21Q GETWINDOWUSERPROP 3 ALL.SKETCH.VIEWERS) (30Q SKETCHCHANGED 16Q SKETCHCHANGED) () SK.MARK.UNDIRTY D1 (P 0 SKW I 0 SKETCH) @ dHgg h(24Q PUTWINDOWPROP 3 ALL.SKETCH.VIEWERS) (21Q OLD 16Q SKETCHCHANGED) () SK.MENU.AND.RETURN.FIELD D1 (P 0 ITEMS I 0 ELEMENTTYPE) O@ HdDH `dHdi dodg dgjdndhdI (114Q MENU 23Q EVAL 3 CHANGEABLEFIELDITEMS) (65Q DEFAULTMENUHELDFN 56Q CLRPROMPT 27Q MENUTYPE#) ( 47Q "Choose which property to change") SKETCH.SET.BRUSH.SHAPE D1 (P 1 NOWBRUSH P 0 NEWSHAPE I 0 W) +@g H@g HIII(27Q GETWINDOWUSERPROP 11Q GETWINDOWUSERPROP 2 PAINTW.READBRUSHSHAPE) (24Q SKETCHCONTEXT 6 SKETCHCONTEXT) () SKETCH.SET.BRUSH.SIZE D1 (I 0 W) @g  @ (20Q SK.SET.DEFAULT.BRUSH.SIZE 14Q READBRUSHSIZE 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) () SKETCHW.CLOSEFN D1 (P 0 PROCINFO I 0 SKW) s@g XY@g @ gQ @ . H .X H @g @ @g @gg h@o g(153Q SK.CONFIRM.DESTRUCTION 141Q WINDOWADDPROP 127Q DEL.PROCESS 124Q PUTWINDOWPROP 115Q REMOVE.SKETCH.VIEWER 111Q GETWINDOWUSERPROP 101Q TTY.PROCESS 74Q PROCESSP 66Q \INSUREWINDOW 56Q TTY.PROCESSP 51Q \INSUREWINDOW 44Q TTY.PROCESSP 41Q THIS.PROCESS 30Q UPDATE.IMAGE.IN.DOCUMENT 23Q GETWINDOWUSERPROP 11Q GETWINDOWUSERPROP) (160Q DON'T 136Q SKETCHW.REOPENFN 133Q OPENFN 121Q PROCESS 106Q SKETCH 33Q DON'T 20Q SKETCHCHANGED 6 DOCUMENTINFO) ( 150Q "unsaved changes ... press LEFT to close anyway") SK.CONFIRM.DESTRUCTION D1 (I 1 MSG I 0 VIEWER) 6@g -@g ih @o Aoi@ @ i(62Q CLOSEPROMPTWINDOW 54Q MOUSECONFIRM 51Q GETPROMPTWINDOW 35Q STATUSPRINT 17Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (14Q SKETCHCHANGED 3 DONTQUERYCHANGES) ( 44Q "unsaved changes ... press LEFT to do operation anyway" 32Q " ") SKETCHW.OUTFN D1 (L (0 SKW)) hNIL NIL () SKETCHW.REOPENFN D1 (I 0 SKW) /@g @ @gg@ddi3 g@hh (54Q PUTWINDOWPROP 51Q ADD.PROCESS 12Q ADD.SKETCH.VIEWER 6 GETWINDOWUSERPROP) (37Q QUOTE 21Q WB.EDITOR 16Q PROCESS 3 SKETCH) () MAKE.LOCAL.SKETCH D1 (P 4 SKELT I 4 EVERYTHINGFLG I 3 STREAM I 2 SCALE I 1 SKETCHREGION I 0 SKETCH) 3@ AHIDLA LCB J KhZHXK&(36Q SK.LOCAL.FROM.GLOBAL 27Q SK.INSIDE.REGION 3 INSURE.SKETCH) NIL () MAP.SKETCHSPEC.INTO.VIEWER D1 (P 6 SKELT P 1 SPECS P 0 SKREGION I 1 SKW I 0 SKETCH) IAg Ag@@AJKYd  ^H NA L Mh\JZM&(64Q SK.LOCAL.FROM.GLOBAL 56Q SK.INSIDE.REGION 47Q PUTWINDOWPROP 43Q LAST 6 GETWINDOWUSERPROP) (15Q SKETCHSPECS 3 REGION.VIEWED) () SKETCHW.REPAINTFN D1 (I 3 NEWGRIDFLG I 2 STOPIFMOUSEDOWN I 1 REG I 0 W) /g@ n@ g@ @AB l `C @ (53Q SKED.SELECTION.FEEDBACK 47Q SKETCHW.REPAINTFN1 37Q \CLOCK0 24Q DSPSCROLL 15Q DSPRIGHTMARGIN 6 DSPOPERATION) (42Q AUTOZOOM.REPAINT.TIME 20Q OFF 2 PAINT) () SKETCHW.REPAINTFN1 D1 (I 3 NEWGRIDFLG I 2 TIMER I 1 REGION I 0 SKW) '@ Bgg@A@ @g @C (44Q SK.DISPLAY.GRID.POINTS 35Q GETWINDOWUSERPROP 26Q MAPSKETCHSPECS 22Q VIEWER.SCALE 3 LOCALSPECS.FROM.VIEWER) (32Q GRIDUP 14Q SK.DRAWFIGURE 10Q SK.DRAWFIGURE.IF) () SK.DRAWFIGURE.IF D1 (I 3 SCALE I 2 REGION I 1 STREAM I 0 SCREENELT F 0 TIMER) (@ABC P`ljP gg (44Q RETFROM 32Q TIMEREXPIRED? 14Q GETMOUSESTATE 6 SK.DRAWFIGURE) (41Q STOPPED 36Q SKETCHW.REPAINTFN1 20Q LASTMOUSEBUTTONS) () SKETCHW.SCROLLFN D1 (P 10Q 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(311Q SKETCH.ADD.AND.DISPLAY1 272Q SK.UPDATE.REGION.VIEWED 266Q SKETCHW.FIG.CHANGED 262Q SCROLLBYREPAINTFN 236Q SK.DELETE.ITEM 230Q SK.ERASE.AND.DELETE.ITEM 222Q REGIONSINTERSECTP 217Q SK.ITEM.REGION 204Q SK.LOCAL.ELT.FROM.GLOBALPART 175Q SK.INSIDE.REGION 101Q UNSCALE.REGION 74Q VIEWER.SCALE 67Q CREATEREGION 24Q SKED.CLEAR.SELECTION 15Q DSPCLIPPINGREGION 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SKETCHW.RESHAPEFN D1 (P 10Q 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(177Q SKETCH.ADD.AND.DISPLAY1 160Q SK.UPDATE.REGION.VIEWED 154Q SKETCHW.FIG.CHANGED 132Q SK.DELETE.ITEM 124Q SK.ERASE.AND.DELETE.ITEM 116Q REGIONSINTERSECTP 113Q SK.ITEM.REGION 100Q SK.LOCAL.ELT.FROM.GLOBALPART 71Q SK.INSIDE.REGION 52Q UNSCALE.REGION 45Q VIEWER.SCALE 40Q DSPCLIPPINGREGION 33Q RESHAPEBYREPAINTFN 24Q SKED.CLEAR.SELECTION 15Q DSPCLIPPINGREGION 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SK.UPDATE.EVENT.SELECTION D1 (P 2 SELITEM P 0 SELITEMS I 10Q 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(166Q SK.REMOVE.SELECTION 163Q SK.BUTTONEVENT.MARK 133Q SK.ADD.SELECTION 130Q SK.BUTTONEVENT.MARK 60Q SK.LOCAL.ITEMS.IN.REGION 54Q MAX 47Q MAX 42Q MIN 35Q MIN 25Q \FZEROP) (100Q LASTMOUSEBUTTONS 66Q LASTMOUSEBUTTONS 5 LASTMOUSEBUTTONS) () LIGHTGRAYWINDOW D1 (I 0 WINDOW) hkg@ @(10Q DSPFILL) (4 INVERT) () SK.ADD.SPACES D1 (P 3 STR I 0 STRLST) C0@1dKohKm)l KhKohXI HZYJ YH(74Q LAST) NIL ( 45Q " " 17Q "") SK.SKETCH.MENU D1 (I 0 SKW) @i (4 SK.MIDDLE.TITLEFN) NIL () SK.CHECK.IMAGEOBJ.WHENDELETEDFN D1 (P 0 GELT I 1 SKETCHW I 0 GELT) -@dg@A g@dHA h(44Q SK.CHECK.IMAGEOBJ.WHENDELETEDFN 16Q SK.APPLY.IMAGEOBJ.WHENDELETEDFN) (22Q GROUP 7 SKIMAGEOBJ) () SK.APPLY.IMAGEOBJ.WHENDELETEDFN D1 (P 1 FN P 0 IMAGEOBJ I 1 SKETCHW I 0 GELT) ! @Xg YdgHAlIh(16Q IMAGEOBJPROP) (24Q NILL 13Q WHENDELETEDFN) () SK.RETURN.TTY D1 (I 0 W) @ . i (16Q TTY.PROCESS 10Q TTY.PROCESSP 3 \INSUREWINDOW) NIL () SK.TAKE.TTY D1 (I 0 W) @ . (10Q TTY.PROCESS 3 \INSUREWINDOW) NIL () SKETCH.COMMANDMENU D1 (I 1 TITLE I 0 ITEMS) Q`d@di dg` HdIdAdg dgjdndhHdI (35Q SK.FONTNAMELIST 32Q FONTCREATE) (67Q DEFAULTMENUHELDFN 60Q CLRPROMPT 27Q BOLDFONT 21Q SKETCHW.SELECTIONFN 2 MENUTYPE#) () SKETCH.COMMANDMENU.ITEMS D1 (I 2 VIEWER I 1 ELEMENTTYPES I 0 ADDFIXITEM F 5 FILLINGMODEFLG) ooooog g B oAdi`AHIg oUoooooooooo@ooo g\dLdhJKhZYHXFK&Z(310Q \APPEND2 305Q \APPEND2 302Q \APPEND2 277Q \APPEND2 274Q \APPEND2 271Q \APPEND2 266Q \APPEND2 263Q \APPEND2 260Q \APPEND2 255Q \APPEND2 252Q \APPEND2 247Q \APPEND2 244Q \APPEND2 241Q \APPEND2 236Q \APPEND2 233Q \APPEND2 230Q \APPEND2 225Q \APPEND2 222Q \APPEND2 204Q USERNAME 111Q \DEFINEDP 47Q NCP.CardFromWindow 41Q \DEFINEDP 31Q \DEFINEDP) (341Q SKETCHTYPE 332Q SKETCHTYPE 323Q SKETCHTYPE 315Q SKETCHTYPE 106Q SK.SEL.AND.SHOW.ANNOTE 66Q SKETCH.ELEMENT.TYPE.NAMES 36Q NCP.CardFromWindow 26Q SK.SEL.AND.SHOW.ANNOTE) ( 217Q ((inspect INSPECT.SKETCH "Calls the Inspector on the figure data structures.")) 210Q "BURTON.PA" 201Q ((Fix% Menu SK.FIX.MENU "leaves up the menu of sketch operations.")) 172Q ((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.")))) 166Q ((Put SK.PUT.ON.FILE "saves this sketch on a file")) 162Q ((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.")))) 156Q (("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")))) 152Q ((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.")))) 146Q ((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.")))))) 142Q ((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.")))) 136Q ((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.")))) 132Q ((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.")))) 126Q (("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.")))) 117Q ((Link SK.ADD.ANNOTATION "Adds an annotation object.")) 55Q ((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.")))) 23Q ((Change SK.CHANGE.ELT "Changes a property of a piece or collection of pieces.")) 17Q ((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.")))) 13Q ((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 D1 (I 3 VIEWER I 2 ELEMENTTYPES I 1 ADDFIXITEM I 0 MENUTITLE) ABC @ (11Q SKETCH.COMMANDMENU 5 SKETCH.COMMANDMENU.ITEMS) NIL () SKETCHW.SELECTIONFNA0001 D1 (NAME ERRORSET F 0 SKW F 1 ITEM F 2 RESETY) .P id P P QP Poo ci(50Q STATUSPRINT 33Q SK.APPLY.MENU.COMMAND 23Q RESET.LINE.BEING.INPUT 16Q CLOSEPROMPTWINDOW 10Q OBTAIN.MONITORLOCK 3 SKETCH.MONITORLOCK) NIL ( 45Q "Sketch operation in progress. Please wait." 41Q " ") SKETCHW.SELECTIONFN D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 SKW I 1 MENU I 0 ITEM F 4 LISPXHIST F 5 RESETVARSLST) /A g T!Uog hg[ KJ(52Q ERROR! 45Q RESETRESTORE 33Q SKETCHW.SELECTIONFNA0001 11Q GETWINDOWUSERPROP 3 WFROMMENU) (41Q ERROR 30Q INTERNAL 6 MAINWINDOW) ( 25Q (SKETCHW.SELECTIONFNA0001)) SKETCH.MONITORLOCK D1 (P 0 LOCK I 0 VIEWER) !@g o @gH H(35Q PUTWINDOWPROP 22Q CREATE.MONITORLOCK 17Q GENSYM 6 GETWINDOWUSERPROP) (31Q MONITORLOCK 3 MONITORLOCK) ( 14Q "Sketch") SK.EVAL.AS.PROCESS D1 (I 1 VIEWER I 0 FORM) >7g@ddi3 g@hAddi3 gAhhgg @,(70Q ADD.PROCESS 2 THIS.PROCESS) (65Q NO 62Q RESTARTABLE 47Q QUOTE 25Q QUOTE 7 SK.EVAL.WITH.LOCK) () SK.EVAL.WITH.LOCKA0001 D1 (NAME ERRORSET F 0 VIEWER F 1 FORM F 2 RESETY) P hi Q ci(15Q EVAL 10Q OBTAIN.MONITORLOCK 3 SKETCH.MONITORLOCK) NIL () SK.EVAL.WITH.LOCK D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 VIEWER I 0 FORM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q SK.EVAL.WITH.LOCKA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (SK.EVAL.WITH.LOCKA0001)) SK.FIX.MENU D1 (P 0 MENUW I 1 DONTOPENFLG I 0 SKETCHW) c@ XY@g HgHg  l H@ /H@ggg Hgg Hggi AH h(137Q OPENW 130Q WINDOWADDPROP 114Q WINDOWADDPROP 101Q ATTACHWINDOW 60Q MEMB 55Q ATTACHEDWINDOWS 50Q PUTWINDOWPROP 42Q BITMAPWIDTH 37Q UPDATE/MENU/IMAGE 33Q GETWINDOWUSERPROP 20Q PUTWINDOWPROP 6 SK.INSURE.HAS.MENU) (124Q SK.CLEAR.POPUP.MENU 121Q CLOSEFN 111Q DETACHWINDOW 106Q CLOSEFN 75Q LOCALCLOSE 72Q TOP 67Q RIGHT 30Q MENU 24Q MINSIZE 15Q SKETCHPOPUPMENUCACHE) () SK.SET.UP.MENUS D1 (P 2 FIXIT? P 1 POPUPMENUW P 0 FIXEDMENUW I 2 MENUSPEC I 1 DONTOPENFLG I 0 SKETCHW) 0BiY`Bi iYB iYX@gH @gI J@A hBdidBBd`i  BdidBBd`i  (207Q \ILLEGAL.ARG 201Q MENUWINDOW 140Q \ILLEGAL.ARG 133Q MENUWINDOW 71Q SK.FIX.MENU 61Q PUTWINDOWPROP 51Q PUTWINDOWPROP 25Q MENUWINDOW) (171Q MENUTYPE# 124Q MENUTYPE# 55Q SKETCHPOPUPMENU 45Q SKETCHFIXEDMENU 16Q MENUTYPE#) () SK.INSURE.HAS.MENU D1 (P 0 FIXEDMENU I 0 SKETCHW) #@g @g i@g@ X H(37Q PUTWINDOWPROP 33Q SK.CREATE.STANDARD.MENU 20Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (27Q SKETCHFIXEDMENU 15Q SKETCHFIXEDMENU 3 SKETCHFIXEDMENU) () SK.CREATE.STANDARD.MENUA0001 D1 (NAME ERRORSET F 0 VIEWER F 1 MACROY) hdiP i ci(12Q MENUWINDOW 6 CREATE.SKETCHW.COMMANDMENU) NIL () SK.CREATE.STANDARD.MENU D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 VIEWER F 4 RESETVARSLST) =` 1gHhhTcYog gIcgI KJ(70Q ERROR! 63Q APPLY 40Q SK.CREATE.STANDARD.MENUA0001 5 CURSOR) (54Q CURSOR 44Q ERROR 35Q INTERNAL 13Q CURSOR 2 WAITINGCURSOR) ( 32Q (SK.CREATE.STANDARD.MENUA0001)) SK.ADD.ITEM.TO.MENU D1 (I 1 NEWITEM I 0 OLDMENU) B`@ @Ah HdIdhdhdhjdndhHdI (22Q \APPEND2 6 NCREATE2) (12Q MENU 2 MENUTYPE#) () SK.GET.VIEWER.POPUP.MENU D1 (P 0 SKETCHMENU I 0 SKETCHW) h@g _@g HH @g Xi8@g@ X )Hdi@g@ X Hg o i X@gH H(144Q PUTWINDOWPROP 132Q MENUWINDOW 126Q SK.ADD.ITEM.TO.MENU 116Q GETWINDOWUSERPROP 106Q PUTWINDOWPROP 102Q SK.CREATE.STANDARD.MENU 62Q PUTWINDOWPROP 56Q SK.CREATE.STANDARD.MENU 41Q GETWINDOWUSERPROP 30Q OPENWP 17Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (140Q SKETCHPOPUPMENUCACHE 113Q MENU 76Q SKETCHFIXEDMENU 52Q SKETCHPOPUPMENU 36Q SKETCHPOPUPMENU 14Q SKETCHFIXEDMENU 3 SKETCHPOPUPMENUCACHE) ( 123Q (Fix% Menu SK.FIX.MENU "leaves up the menu of sketch operations.")) SK.CLEAR.POPUP.MENU D1 (I 0 MENUW) @ dg h(14Q PUTWINDOWPROP 3 MAINWINDOW) (11Q SKETCHPOPUPMENUCACHE) () SKETCH.CREATE D1 (P 3 I P 1 SKETCH P 0 ARGS) geghglgjdhhd dHj@Ig Igl HkHlKJIKaKka Kl[I(133Q PUTSKETCHPROP 101Q PUTSKETCHPROP 70Q PUTSKETCHPROP 65Q CREATE.DEFAULT.SKETCH.CONTEXT 36Q LAST) (74Q VERSION 62Q SKETCHCONTEXT 17Q PRIRANGE 12Q VERSION 6 SKETCH) () GETSKETCHPROP D1 (P 1 SKETCHCONTEXT P 0 SKETCH I 1 PROPERTY I 0 SKETCH) %@ Hg'YAdgdgIAdgIgIAdgIgIAdgIgIAdgIgIgAdgIgIAgAdgIgIAdgIgIAdgHgHHA'(3 INSURE.SKETCH) (425Q NAME 413Q ELEMENTS 367Q MOVEMODE 345Q ARCDIRECTION 323Q LINEMODE 302Q BACKCOLOR 273Q FILLINGCOLOR 251Q TEXTURE 232Q TEXTBOXALIGNMENT 224Q REPLACE 176Q DRAWINGMODE 160Q USEARROWHEAD 142Q DASHING 126Q ARROWHEAD 112Q TEXTALIGNMENT 100Q FONT 63Q COLOR 50Q SIZE 35Q SHAPE 24Q BRUSH 15Q SKETCHCONTEXT) () PUTSKETCHPROP D1 (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 (672Q LISTPUT 632Q LAST 3 INSURE.SKETCH) (637Q NAME 621Q ELEMENTS 573Q MOVEMODE 547Q ARCDIRECTION 523Q LINEMODE 452Q FILLINGCOLOR 443Q BACKCOLOR 367Q TEXTURE 345Q TEXTBOXALIGNMENT 313Q DRAWINGMODE 272Q USEARROWHEAD 251Q DASHING 232Q ARROWHEAD 213Q TEXTALIGNMENT 176Q FONT 141Q COLOR 104Q SIZE 45Q SHAPE 31Q BRUSH 22Q SKETCHCONTEXT) () CREATE.DEFAULT.SKETCH.CONTEXT D1 (F 0 SK.DEFAULT.FONT F 1 SK.DEFAULT.OPERATION) >`P g ````h`h`ihdkQh(50Q SK.CREATE.DEFAULT.FILLING 16Q SK.FONT.LIST 13Q DEFAULTFONT) (45Q SK.DEFAULT.TEXTBOX.ALIGNMENT 41Q SK.DEFAULT.DASHING 32Q SK.DEFAULT.ARROW.LENGTH 27Q SK.DEFAULT.ARROW.ANGLE 24Q SK.DEFAULT.ARROW.TYPE 21Q SK.DEFAULT.TEXT.ALIGNMENT 10Q DISPLAY 2 SK.DEFAULT.BRUSH) () SK.COPY.BUTTONEVENTFN D1 (P 31Q SEL P 30Q SELITEM P 27Q SELITEM P 21Q OPERATION P 20Q MIDDLEONLYFLG P 17Q NOW P 16Q PREVMOUSEBUTTONS P 15Q RETURNVAL P 14Q SELITEMS P 13Q MOVEDMUCHFLG P 12Q ORIGY P 11Q OLDY P 10Q 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 F 32Q \LASTKEYSTATE) @ . cW4l> j7W4l) jW4l< jW4lY j8W4l$ jW4l. j#@g g@ @ `lHj HH W4l) j!W4l< jW4lY j W4l> j@ . !W4l$ jW4l. j W4l> j@ @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 (1622Q COPYINSERT 1617Q SK.BUILD.IMAGEOBJ 1606Q SK.DELETE.ELEMENT 1574Q SK.COPY.ELEMENTS 1565Q COPYINSERT 1562Q SK.BUILD.IMAGEOBJ 1544Q SK.MOVE.ELEMENTS 1527Q TTY.PROCESSP 1522Q \INSUREWINDOW 1511Q CLOSEPROMPTWINDOW 1504Q SK.TAKE.MARKS.DOWN 1472Q SK.REMOVE.SELECTION 1467Q SK.BUTTONEVENT.MARK 1436Q SK.UPDATE.EVENT.SELECTION 1272Q SK.REMOVE.SELECTION 1267Q SK.BUTTONEVENT.MARK 1244Q SK.ADD.SELECTION 1241Q SK.BUTTONEVENT.MARK 1167Q IN.SKETCH.ELT? 1154Q \FZEROP 1113Q SK.REMOVE.SELECTION 1110Q SK.BUTTONEVENT.MARK 1071Q LOCALSPECS.FROM.VIEWER 1055Q SK.ADD.SELECTION 1052Q SK.BUTTONEVENT.MARK 1033Q LOCALSPECS.FROM.VIEWER 724Q LASTMOUSEX 715Q LASTMOUSEY 706Q GETWINDOWUSERPROP 672Q SK.BUTTONEVENT.SAME.KEYS 663Q INSIDEP 650Q \INSUREWINDOW 642Q \FZEROP 612Q SK.TAKE.MARKS.DOWN 603Q SK.BUTTONEVENT.OVERP 574Q \FZEROP 567Q GETWINDOWUSERPROP 556Q SK.BUTTONEVENT.OVERP 550Q GETMOUSESTATE 507Q GETMOUSESTATE 503Q STATUSPRINT 444Q SK.PUT.MARKS.UP 436Q TOTOPW 430Q SK.HAS.SOME.HOTSPOTS 424Q SK.HOTSPOT.CACHE.FOR.OPERATION 361Q TTY.PROCESSP 354Q \INSUREWINDOW 337Q VIEWER.SCALE 331Q \GETBASEBIT 316Q \GETBASEBIT 303Q \GETBASEBIT 272Q TTY.PROCESSP 265Q \INSUREWINDOW 257Q \GETBASEBIT 244Q \GETBASEBIT 231Q \GETBASEBIT 216Q \GETBASEBIT 202Q \FZEROP 152Q SK.SEL.AND.MOVE 145Q SK.SEL.AND.MOVE.POINTS 121Q GETWINDOWUSERPROP 106Q \GETBASEBIT 74Q \GETBASEBIT 61Q \GETBASEBIT 47Q \GETBASEBIT 34Q \GETBASEBIT 21Q \GETBASEBIT 10Q TTY.PROCESSP 3 \INSUREWINDOW) (1302Q LASTMOUSEBUTTONS 1251Q LASTMOUSEBUTTONS 1220Q LASTMOUSEBUTTONS 1176Q LASTMOUSEBUTTONS 1131Q LASTMOUSEBUTTONS 1020Q LASTMOUSEBUTTONS 776Q LASTMOUSEBUTTONS 734Q LASTMOUSEBUTTONS 703Q SKETCH.SELECTIONS 660Q LASTMOUSEY 655Q LASTMOUSEX 617Q LASTMOUSEBUTTONS 564Q SKETCH.SELECTIONS 535Q LASTMOUSEBUTTONS 513Q LASTMOUSEBUTTONS 500Q DELETE 471Q COPY 465Q MOVE 413Q DELETE 400Q COPYSELECT 374Q COPY 367Q MOVE 156Q LASTMOUSEBUTTONS 137Q POINTS 116Q SKETCHCONTEXT) ( 456Q "Select elements to " 452Q " ") SK.BUTTONEVENT.MARK D1 (L (1 DELETEFLG 0 COPYFLG)) A@```NIL (16Q COPYSELECTIONMARK 12Q DELETESELECTIONMARK 6 MOVESELECTIONMARK) () SK.BUILD.IMAGEOBJA0001 D1 (L (1 B 0 A)) @bAb@A@ANIL NIL () SK.BUILD.IMAGEOBJ D1 (P 17Q GELT P 16Q LOCALSKELT P 11Q 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&_(453Q COPY 447Q SK.COPY.IMAGEOBJ 424Q SKETCH.IMAGEOBJ 421Q SK.GRIDFACTOR 415Q VIEWER.SCALE 411Q SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS 406Q VIEWER.SCALE 370Q LAST 364Q SK.SORT.GELTS.BY.PRIORITY 275Q INSURE.SKETCH 261Q LAST 255Q BUTLAST 242Q LAST 211Q SK.ADD.SPACES 144Q \NCONC2 104Q SK.TEXTBOX.TEXT.POSITION 30Q SORT) (442Q SKIMAGEOBJ 314Q PRIRANGE 307Q VERSION 303Q SKETCH 170Q SKIMAGEOBJ 111Q SKIMAGEOBJ 72Q TEXTBOX 53Q TEXT 25Q SK.BUILD.IMAGEOBJA0001) ( 247Q " ") SK.BUTTONEVENT.OVERP D1 (I 1 DELETEMODE I 0 COPYMODE F 0 \LASTKEYSTATE) tAPPl$ jPl. j Pl> jhQ@hLPl) jPl< jPlY j Pl> jh@ Pl) jPl< j PlY jh(155Q \GETBASEBIT 143Q \GETBASEBIT 131Q \GETBASEBIT 113Q \GETBASEBIT 101Q \GETBASEBIT 67Q \GETBASEBIT 55Q \GETBASEBIT 34Q \GETBASEBIT 22Q \GETBASEBIT 10Q \GETBASEBIT) NIL () SK.BUTTONEVENT.SAME.KEYS D1 (I 1 DELETEMODE I 0 COPYMODE F 0 \LASTKEYSTATE) jAHPl$ jPl. jPl> jJ@Pl) jPl< jPlY j Pl> j@Pl) jPl< j PlY j(145Q \GETBASEBIT 133Q \GETBASEBIT 121Q \GETBASEBIT 104Q \GETBASEBIT 72Q \GETBASEBIT 60Q \GETBASEBIT 46Q \GETBASEBIT 33Q \GETBASEBIT 22Q \GETBASEBIT 10Q \GETBASEBIT) NIL () SK.SEL.AND.CHANGE D1 (I 0 W) @ihg @ (14Q SK.CHANGE.THING 10Q SK.SELECT.MULTIPLE.ITEMS) (5 CHANGE) () SK.CHECK.WHENCHANGEDFN D1 (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(15Q GETSKETCHPROP 3 INSURE.SKETCH) (37Q DON'T 12Q WHENCHANGEDFN) () SK.CHECK.PRECHANGEFN D1 (P 1 PRECHANGEFN P 0 SKETCH I 2 CHANGESPEC I 1 SCRELT I 0 VIEWER) @ Hg Y @ABlI(15Q GETSKETCHPROP 3 INSURE.SKETCH) (12Q PRECHANGEFN) () SK.CHANGE.ELT D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.CHANGE) () SK.CHANGE.THING D1 (P 3 ELT P 1 READCHANGEFN P 0 FIRSTTYPE I 1 W I 0 ELTSTOCHANGE) > @Jhh[X YJZgiH A@lI@A (73Q SK.APPLY.CHANGE.COMMAND 57Q SK.CHANGEFN 32Q SK.READCHANGEFN) (45Q NILL) () SKETCH.CHANGE.ELEMENTS D1 (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&(42Q SK.DO.CHANGESPECS 32Q SK.DO.AND.RECORD.CHANGES 3 SK.VIEWER.FROM.SKETCH.ARG) NIL () SK.APPLY.SINGLE.CHANGEFN D1 (I 3 VIEWER I 2 CHANGESPEC I 1 CHANGEFN I 0 GELEMENT) @dgABC BClA(17Q SK.GROUP.CHANGEFN) (7 GROUP) () SK.DO.CHANGESPECS D1 (P 1 CHANGESPEC P 0 NEWELEMENT I 2 VIEWER I 1 CHANGESPECS I 0 ELEMENT) 0 AdH!@IB HH@HAhdh(21Q SK.DO.CHANGESPEC1) NIL () SK.VIEWER.FROM.SKETCH.ARG D1 (I 0 SKETCH) @d @ bd (23Q ALL.SKETCH.VIEWERS 14Q INSURE.SKETCH 6 WINDOWP) NIL () SK.DO.CHANGESPEC1 D1 (P 1 CHANGEASPECTFN P 0 CHANGEHOW I 2 VIEWER I 1 CHANGESPEC I 0 ELEMENT) AAdggdggdggdgg{dggodggcdggWdgdgdgdgdgAg/dg@H dggdggggYh@IHB (276Q SK.APPLY.SINGLE.CHANGEFN 222Q SK.ADD.KNOT.TO.ELEMENT) (263Q SK.CHANGE.FILLING.MODE 255Q FILLINGMODE 251Q SK.CHANGE.FILLING.COLOR 243Q FILLINGCOLOR 235Q SK.CHANGE.BRUSH.COLOR 227Q BRUSHCOLOR 212Q ADDPOINT 204Q SK.CHANGE.TEXT 174Q FAMILY&SIZE 166Q SAME 160Q SETSIZE 151Q NEWFONT 142Q TEXT 134Q SK.CHANGE.ARC.DIRECTION 126Q DIRECTION 120Q SK.CHANGE.ANGLE 112Q ANGLE 104Q SK.CHANGE.DASHING 76Q DASHING 70Q SK.CHANGE.FILLING 62Q FILLING 53Q SK.CHANGE.ARROWHEAD 45Q ARROW 36Q SK.CHANGE.BRUSH.SHAPE 30Q SHAPE 21Q SK.CHANGE.BRUSH.SIZE 13Q SIZE) () SK.CHANGEFN D1 (L (0 ELEMENTTYPE)) @g gNIL (16Q SK.DEFAULT.CHANGEFN 7 SKETCHTYPE 3 SKETCHTYPE) () SK.READCHANGEFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () SK.DEFAULT.CHANGEFN D1 (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(200Q RECORDACCESS 174Q EVAL 165Q RECLOOK 143Q READ.FUNCTION 137Q CONCAT 134Q MKSTRING 131Q RECORDACCESS 123Q RECLOOK 105Q MKSTRING 70Q RECORDACCESS 62Q RECLOOK 40Q STATUSPRINT 12Q SK.MENU.AND.RETURN.FIELD) (170Q REPLACE 126Q FETCH 65Q FETCH) ( 111Q " value. Current value is " 101Q "Enter new " 35Q "That element doesn't have any changeable parts." 22Q "str") CHANGEABLEFIELDITEMS D1 (L (0 ELEMENTTYPE)) @gNIL (3 CHANGEABLEFIELDITEMS) () SK.APPLY.CHANGE.COMMAND D1 (P 5 ELTCHANGE P 4 SCRELT I 3 SKW I 2 SCRELTS I 1 COMMAND I 0 CHANGEFN) 3ABQH IC @ALC ]J KhZHXK&(32Q SK.APPLY.CHANGE.COMMAND1 20Q SK.DO.AND.RECORD.CHANGES) NIL () SK.DO.AND.RECORD.CHANGES D1 (I 4 DONTHISTORYFLG I 3 DONTDISPLAYFLG I 2 DONTUPDATEPRIORITYFLG I 1 VIEWER I 0 LSTOFCHANGESPECS F 0 LSTOFCHANGESPEC) $@!B@ @ c@ABC Dg@A i(40Q SK.ADD.HISTEVENT 26Q SK.UPDATE.ELEMENTS 15Q SORT.CHANGESPECS.BY.OLD.PRIORITY 10Q SORT.CHANGESPECS.BY.NEW.PRIORITY) (33Q CHANGE) () SK.APPLY.CHANGE.COMMAND1 D1 (P 1 CHANGES P 0 FNRESULT I 3 VIEWER I 2 SCRELT I 1 COMMAND I 0 CHANGEFN) B CBA XdgHbBhCAl@hYCIIII I(74Q SK.CHECK.WHENCHANGEDFN 10Q SK.CHECK.PRECHANGEFN) (15Q DON'T) () SK.ELEMENTS.CHANGEFN D1 (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(314Q SK.APPLY.SINGLE.CHANGEFN 225Q SK.ADD.KNOT.TO.ELEMENT) (270Q SK.CHANGE.FILLING.MODE 262Q FILLINGMODE 256Q SK.CHANGE.FILLING.COLOR 250Q FILLINGCOLOR 242Q SK.CHANGE.BRUSH.COLOR 234Q BRUSHCOLOR 213Q ADDPOINT 205Q SK.CHANGE.TEXT 175Q FAMILY&SIZE 167Q SAME 161Q SETSIZE 152Q NEWFONT 143Q TEXT 135Q SK.CHANGE.ARC.DIRECTION 127Q DIRECTION 121Q SK.CHANGE.ANGLE 113Q ANGLE 105Q SK.CHANGE.DASHING 77Q DASHING 70Q SK.CHANGE.FILLING 62Q FILLING 53Q SK.CHANGE.ARROWHEAD 45Q ARROW 36Q SK.CHANGE.BRUSH.SHAPE 30Q SHAPE 21Q SK.CHANGE.BRUSH.SIZE 13Q SIZE) () READ.POINT.TO.ADD D1 (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(101Q SK.MAP.INPUT.PT.TO.GLOBAL 74Q GLOBAL.KNOT.FROM.LOCAL 64Q CLOSEPROMPTWINDOW 57Q SK.READ.POINT.WITH.FEEDBACK 42Q STATUSPRINT 30Q CLOSEPROMPTWINDOW 22Q SK.SELECT.ITEM 12Q STATUSPRINT) (53Q SKETCH.USE.POSITION.PAD) ( 37Q "Indicate where the new point should be." 7 "Select the point that the new point should follow.") GLOBAL.KNOT.FROM.LOCAL D1 (I 1 SCRELT I 0 LOCALKNOT) ,Ag A"IHhJ@KIH(7 GETSKETCHELEMENTPROP) (4 DATA) () SK.ADD.KNOT.TO.ELEMENT D1 (P 1 NEWKNOTS P 0 OLDKNOTS I 1 PTS I 0 GELTWITHKNOTS) N@g !0HddAAhh[L!K]\MY@I @JgIHh \K(107Q LAST 65Q SK.CHANGE.ELEMENT.KNOTS 6 GETSKETCHELEMENTPROP) (73Q DATA 3 DATA) () SK.GROUP.CHANGEFN D1 (P 0 NEWELT I 3 SKW I 2 CHANGEHOW I 1 CHANGEASPECTFN I 0 GROUPELT) (@ABC Xdh@HgH@h(11Q SK.GROUP.CHANGEFN1) (23Q DATA) () SK.GROUP.CHANGEFN1 D1 (P 16Q NEWSUBELT P 15Q 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&_(216Q SK.COPY.GLOBAL.ELEMENT 203Q SK.UPDATE.GROUP.AFTER.CHANGE 41Q SK.GROUP.CHANGEFN1) (145Q GROUP 31Q GROUP) () ADD.ELEMENT.TO.SKETCH D1 (P 1 ELTPRI P 0 REALSKETCH I 1 SKETCH I 0 GELT) .A @g I@H H@ A@I H h(52Q SK.MARK.DIRTY 45Q SK.ADD.PRIORITY.ELEMENT.TO.SKETCH 36Q TCONC 27Q SK.SET.ELEMENT.PRIORITY 24Q SK.POP.NEXT.PRIORITY 12Q \GETSKETCHELEMENTPROP1 3 INSURE.SKETCH) (7 PRI) () ADD.SKETCH.VIEWER D1 (P 0 VIEWERS I 1 VIEWER I 0 SKETCH) %@ XAHHAh @Ah`h(24Q \NCONC2 6 ALL.SKETCH.VIEWERS) (41Q ALL.SKETCHES 35Q ALL.SKETCHES) () REMOVE.SKETCH.VIEWER D1 (P 0 VIEWERS I 1 VIEWER I 0 SKETCH) @ XAH H` h(27Q REMOVE 16Q DREMOVE 6 VIEWER.BUCKET) (32Q ALL.SKETCHES 24Q ALL.SKETCHES) () ALL.SKETCH.VIEWERS D1 (I 0 SKETCH) @ (3 VIEWER.BUCKET) NIL () SKETCH.ALL.VIEWERS D1 (I 0 SKETCH) @ (6 ALL.SKETCH.VIEWERS 3 INSURE.SKETCH) NIL () VIEWER.BUCKET D1 (I 0 SKETCH) @`NIL (3 ALL.SKETCHES) () ELT.INSIDE.REGION? D1 (I 1 WORLDREG I 0 GLOBALPART) @ @AlH(6 SK.INSIDEFN) NIL () ELT.INSIDE.SKWP D1 (I 1 SKETCHW I 0 GLOBALPART) @A (7 ELT.INSIDE.REGION? 4 SKETCH.REGION.VIEWED) NIL () SCALE.FROM.SKW D1 (I 0 WINDOW) @g (6 GETWINDOWUSERPROP) (3 SCALE) () SK.ADDELT.TO.WINDOW D1 (P 0 CACHE I 1 SKETCHW I 0 PELT) )@&Ag @ A H@H A@H @(45Q SK.SET.HOTSPOT.CACHE 42Q SK.ADD.HOTSPOTS.TO.CACHE1 33Q SK.ADD.HOTSPOTS.TO.CACHE1 21Q SK.HOTSPOT.CACHE 15Q SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH 11Q GETWINDOWUSERPROP) (6 SKETCHSPECS) () SK.CALC.REGION.VIEWED D1 (I 1 SCALE I 0 WINDOW) h@ A (10Q UNSCALE.REGION 4 DSPCLIPPINGREGION) NIL () SK.DRAWFIGURE D1 (P 0 GLOBALPART I 3 SCALE I 2 REGION I 1 STREAM I 0 SCREENELT) &C3C@XCH@ABdA @(42Q SK.DRAWFIGURE1 37Q DSPCLIPPINGREGION) NIL () SK.DRAWFIGURE1 D1 (I 2 REGION I 1 SKW I 0 ELT) @ @ABlH(7 SK.DRAWFN) NIL () SK.LOCAL.FROM.GLOBAL D1 (P 2 ACTIVEREGION P 1 SCRELT I 2 SCALE I 1 SKSTREAM I 0 GELT) ?@ @B3A AlHI@g ZIJB3A I(72Q SK.SCALE.REGION 67Q VIEWER.SCALE 47Q GETSKETCHELEMENTPROP 23Q VIEWER.SCALE 6 SK.EXPANDFN) (44Q ACTIVEREGION) () SKETCH.REGION.VIEWED D1 (P 0 NEWVIEW I 1 NEWREGION I 0 SKETCHW) 9@g A/A @A Adg@ @ X@H A (65Q \ILLEGAL.ARG 60Q SK.MOVE.TO.VIEW 51Q SKETCH.VIEW.FROM.NAME 44Q SKETCH.HOME 26Q SKETCH.GLOBAL.REGION.ZOOM 20Q REGIONP 6 GETWINDOWUSERPROP) (35Q HOME 3 REGION.VIEWED) () SKETCH.VIEW.FROM.NAME D1 (I 1 SKETCHW I 0 VIEWNAME) "A g Hh@IIHX(11Q GETSKETCHPROP 3 INSURE.SKETCH) (6 VIEWS) () SK.UPDATE.REGION.VIEWED D1 (I 0 SKW) @g@d (16Q PUTWINDOWPROP 13Q SK.CALC.REGION.VIEWED 10Q VIEWER.SCALE) (3 REGION.VIEWED) () SKETCH.ADD.AND.DISPLAY D1 (I 2 DONTCLEARCURSOR I 1 SKETCHW I 0 GELT) @g@hA @AB (22Q SK.ADD.ELEMENT 14Q SK.ADD.HISTEVENT) (5 ADD) () SKETCH.ADD.AND.DISPLAY1 D1 (I 3 NODISPLAYFLG I 2 SCALE I 1 SKETCHW I 0 GELT) @C@A @A AhBA (33Q SK.DRAWFIGURE 30Q VIEWER.SCALE 17Q SK.ADD.ITEM 11Q SK.ADD.ITEM) NIL () SK.ADD.ITEM D1 (I 1 SKETCHW I 0 GELT) @A A (10Q SK.ADDELT.TO.WINDOW 4 SK.LOCAL.FROM.GLOBAL) NIL () SKETCHW.ADD.INSTANCE D1 (P 0 ELT I 1 SKW I 0 TYPE) @A HdA H(16Q SKETCH.ADD.AND.DISPLAY 4 SK.INPUT) NIL () SK.SEL.AND.DELETE D1 (I 0 W) @ihg @ (14Q SK.DELETE.ELEMENT 10Q SK.SELECT.MULTIPLE.ITEMS) (5 DELETE) () SK.ERASE.AND.DELETE.ITEM D1 (I 2 NODISPLAYFLG I 1 SKW I 0 SELELT) @B@A @A (17Q SK.DELETE.ITEM 11Q SK.ERASE.ELT) NIL () REMOVE.ELEMENT.FROM.SKETCH D1 (P 2 ELT P 0 SKETCHDATA I 2 INSIDEGROUPFLG I 1 SKETCH I 0 GELT) 3A H@ A iBHIZ @J A JJ(53Q SK.MARK.DIRTY 46Q DELFROMGROUPELT 21Q SK.MARK.DIRTY 14Q DELFROMTCONC 3 INSURE.SKETCH) NIL () SK.DELETE.ELEMENT D1 (I 2 ELTSFORHISTORY I 1 SKETCHW I 0 ELTSTODEL) (A @!0@dIHhZH&JAB (45Q SK.DELETE.ELEMENT2 3 SKED.CLEAR.SELECTION) NIL () SK.DELETE.ELEMENT2 D1 (P 1 GELT P 0 DELETEDELTS I 2 ELTSFORHISTORY I 1 SKETCHW I 0 GELTSTODEL) 3A@ XdhBggBHA HdIA H(52Q SK.DELETE.ELEMENT1 35Q SK.ADD.HISTEVENT 7 SK.CHECK.WHENDELETEDFN) (25Q DELETE 20Q DON'T) () SK.DELETE.KNOT D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.DELETE.KNOT) () SK.SEL.AND.DELETE.KNOT D1 (P 4 KNOTELTS P 3 SCRELT I 0 W) \0@ 3dKo Kg hdIHhZH&JL@o h@hL L@ h(130Q SK.DELETE.ELEMENT.KNOT 123Q SK.SELECT.ITEM 113Q STATUSPRINT 46Q SK.ELEMENT.PROTECTED? 31Q MEMB 6 LOCALSPECS.FROM.VIEWER) (43Q CHANGE) ( 110Q "There are no curve or wire elements to delete points from." 26Q (WIRE CLOSEDWIRE OPENCURVE CLOSEDCURVE)) SK.DELETE.ELEMENT.KNOT D1 (P 11Q GLOBALPART P 10Q 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 (324Q SK.DELETE.ELEMENT 314Q SK.ADD.HISTEVENT 303Q SK.UPDATE.ELEMENTS 252Q SK.CHECK.WHENCHANGEDFN 232Q SK.CHANGE.ELEMENT.KNOTS 221Q REMOVE 155Q SK.CHECK.WHENPOINTDELETEDFN 115Q GETSKETCHELEMENTPROP 72Q MEMBER 27Q POSITIONP 14Q POSITIONP 3 SKED.CLEAR.SELECTION) (306Q CHANGE 263Q DATA 244Q DATA 112Q DATA) () SK.CHECK.WHENDELETEDFN D1 (P 2 DELETEFN P 1 RESULT P 0 SKETCH I 1 GELTS I 0 VIEWER) )@ !Hg ZA@AlJYddghI(15Q GETSKETCHPROP 3 INSURE.SKETCH) (36Q DON'T 12Q WHENDELETEDFN) () SK.CHECK.PREEDITFN D1 (P 1 PREEDITFN P 0 SKETCH I 1 OLDELT I 0 VIEWER) !@ Hg Yi@AlIgh(15Q GETSKETCHPROP 3 INSURE.SKETCH) (33Q DON'T 12Q PREEDITFN) () SK.CHECK.END.INITIAL.EDIT D1 (I 1 NEWELT I 0 VIEWER) @AghA (17Q SK.CHECK.WHENCHANGEDFN) (4 DATA) () SK.CHECK.WHENPOINTDELETEDFN D1 (P 2 PRECHANGEFN P 1 RESULT P 0 SKETCH I 2 CONTROLPOINT I 1 SCRELT I 0 VIEWER) -@ !Hg ZA@AhgBhlJdgh(15Q GETSKETCHPROP 3 INSURE.SKETCH) (46Q DON'T 31Q DELETEPOINT 12Q PRECHANGEFN) () SK.ERASE.ELT D1 (I 2 REGION I 1 WINDOW I 0 ELT) gA @ABA gA (27Q DSPOPERATION 20Q SK.DRAWFIGURE 15Q VIEWER.SCALE 6 DSPOPERATION) (23Q PAINT 2 ERASE) () SK.DELETE.ELT D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.DELETE) () SK.DELETE.ITEM D1 (I 1 SKETCHW I 0 ELT) @Ag @ @A @(25Q SK.REMOVE.HOTSPOTS.FROM.CACHE1 22Q SK.HOTSPOT.CACHE 15Q DELFROMTCONC 11Q GETWINDOWUSERPROP) (6 SKETCHSPECS) () DELFROMTCONC D1 (I 1 ELEMENT I 0 TCONCCELL) `Ad@@k @h@h@di@!@HYi@@IIhI@HYAIIdiI(16Q EQLENGTH) NIL () SK.COPY.ELT D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.COPY) () SK.SEL.AND.COPY D1 (I 0 W) @ihg @ (14Q SK.COPY.ELEMENTS 10Q SK.SELECT.MULTIPLE.ITEMS) (5 COPY) () SK.COPY.ELEMENTS D1 (P 12Q COPYPLACEDYETFLG P 11Q COPYARGS P 10Q 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 F 13Q \LASTKEYSTATE) @@ A _g _A@ _lOMdgh A@Od _M @hA X@@g AHgoKI KI A \IA LJLJA@Od _M Wl) jWl< jWlY ji_OA hAo h(333Q STATUSPRINT 321Q CLOSEPROMPTWINDOW 301Q \GETBASEBIT 267Q \GETBASEBIT 254Q \GETBASEBIT 244Q SK.ADD.COPY.OF.ELEMENTS 236Q SK.GLOBAL.FROM.LOCAL.ELEMENTS 207Q CLOSEPROMPTWINDOW 200Q SK.MAP.INPUT.PT.TO.GLOBAL 174Q GET.BITMAP.POSITION 170Q FIXR 160Q FIXR 135Q GETSKETCHELEMENTPROP 112Q SK.FIGUREIMAGE 107Q DSPCLIPPINGREGION 100Q SK.ADD.COPY.OF.ELEMENTS 72Q SK.GLOBAL.FROM.LOCAL.ELEMENTS 56Q POSITIONP 31Q SK.GLOBAL.FROM.LOCAL.ELEMENTS 21Q GETSKETCHPROP 11Q INSURE.SKETCH) (144Q PAINT 132Q POSITION 47Q DON'T 16Q PRECOPYFN) ( 330Q "Position was outside the window. Copy not placed." 150Q "move the figure into place and press the left button.") SK.ADD.COPY.OF.ELEMENTS D1 (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(133Q SK.ADD.HISTEVENT 123Q SK.ADD.ELEMENTS 115Q SK.SORT.GELTS.BY.PRIORITY 112Q MAPCOLLECTSKETCHSPECS 65Q GLOBALELEMENTP 43Q POSITIONP 15Q GETSKETCHPROP 6 INSURE.SKETCH) (126Q COPY 105Q SK.COPY.ITEM 35Q DON'T 12Q WHENCOPIEDFN) () SK.GLOBAL.FROM.LOCAL.ELEMENTS D1 (L (0 SCRELTS)) 0@dIHhZH&JNIL NIL () SK.COPY.ITEM D1 (P 0 OLDGLOBAL I 2 W I 1 GLOBALDELTAPOS I 0 SELELT) @HdgBi XA (30Q SK.TRANSLATE.GLOBALPART 23Q SK.COPY.IMAGEOBJ) (14Q SKIMAGEOBJ) () SK.INSERT.SKETCH D1 (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(323Q STATUSPRINT 305Q SK.ADD.HISTEVENT 275Q SK.ADD.ELEMENTS 267Q MAPCOLLECTSKETCHSPECS 263Q SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 237Q CLOSEPROMPTWINDOW 226Q GET.BITMAP.POSITION 163Q SK.FIGUREIMAGE 153Q MAKE.LOCAL.SKETCH 137Q SK.SCALE.REGION 123Q LAST 117Q SK.TRANSFORM.GLOBAL.ELEMENTS 16Q VIEWER.SCALE) (300Q COPY 244Q SK.COPY.ITEM 204Q PAINT 111Q SK.SCALE.POSITION.INTO.VIEWER.EXACT 36Q PRIRANGE 31Q VERSION 25Q SKETCH) ( 320Q "Position was outside the window. Copy not placed." 314Q " " 210Q "move the figure into place and press the left button.") SK.MOVE.ELT D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.MOVE) () SK.MOVE.ELT.OR.PT D1 (I 0 W) g@ddi3 g@hih@ (35Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.MOVE) () SK.APPLY.DEFAULT.MOVE D1 (I 0 W) .@g dg@ g@ @ (53Q SK.MOVE.ELT.OR.PT 46Q SK.MOVE.ELT 34Q SK.MOVE.POINTS 6 GETWINDOWUSERPROP) (40Q ELEMENTS 25Q POINTS 3 SKETCHCONTEXT) () SK.SEL.AND.MOVE D1 (I 1 PTFLG I 0 W) !Ag@hdg @Ahhg @ (36Q SK.MOVE.ELEMENTS 32Q SK.SELECT.MULTIPLE.ITEMS 16Q SK.SELECT.ITEM) (27Q MOVE 13Q MOVE 3 ONLY) () SK.MOVE.ELEMENTSA0001 D1 (NAME ERRORSET F 0 IMAGEBM F 1 IMAGEPOSX F 2 IMAGEPOSY F 3 SKW F 4 FIRSTHOTSPOT F 5 NEWPOS) (PQRgS SPgoQTRT c i(40Q GET.BITMAP.POSITION 12Q SK.SHOW.FIG.FROM.INFO) (20Q PAINT 5 ERASE) ( 24Q "Move image to its new position.") SK.MOVE.ELEMENTS D1 (P 27Q GDELTAPOS P 26Q X P 25Q MOVEFN P 24Q CHANGES P 23Q DELTAPOS P 22Q IMAGEBM P 21Q IMAGEPOSY P 20Q IMAGEPOSX P 17Q LOWLFT P 16Q NEWPOS P 15Q FIRSTHOTSPOT P 14Q FIGINFO P 13Q PT P 12Q SCRELT P 10Q 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 33Q OTHERCONTROLPOINTMARK) A @h@ @@  @b@A Hd O hYh_g OO_@I ZIhA A _g \AI@ _lLMdg| ZJd OAW6 @A Ahdddd` Jd OAW6 Kd6@K@A Og \AOI@ MlLNdg NI@MA A g _*A@ lO*_.O.dg p@hA _@_O_$O__ O_"OA oi ;O$O O"gA A OOOO_&A _.0@7OO$O O"gA Ao hd_0O2 O0h_4O0&_2O4O.Ai A h(1017Q CLOSEPROMPTWINDOW 1013Q SKETCH.MOVE.ELEMENTS 744Q STATUSPRINT 733Q SK.SHOW.FIG.FROM.INFO 700Q SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 675Q VIEWER.SCALE 647Q ERROR! 643Q CLOSEPROMPTWINDOW 636Q SK.SHOW.FIG.FROM.INFO 616Q SK.MOVE.ELEMENTSA0001 605Q CURSORPOSITION 536Q SK.FIGUREIMAGE 533Q DSPCLIPPINGREGION 523Q POSITIONP 474Q SK.MAKE.ELEMENTS.MOVE.ARG 464Q GETSKETCHPROP 456Q INSURE.SKETCH 446Q SK.MOVE.THING 434Q POSITIONP 410Q SK.MAKE.ELEMENT.MOVE.ARG 373Q GETSKETCHPROP 362Q SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 357Q VIEWER.SCALE 322Q MARKPOINT 302Q SK.READ.POINT.WITH.FEEDBACK 264Q CURSORPOSITION 252Q MARKPOINT 231Q POSITIONP 204Q SK.MAKE.ELEMENT.MOVE.ARG 174Q GETSKETCHPROP 164Q INSURE.SKETCH 157Q SK.MOVE.ELEMENTS 146Q REMOVE 123Q SK.ELEMENT.PROTECTED? 61Q SK.ELTS.FROM.HOTSPOT 56Q SK.HOTSPOT.CACHE 35Q POSITIONP 20Q POSITIONP 3 SKED.CLEAR.SELECTION) (726Q PAINT 631Q PAINT 513Q DON'T 461Q PREMOVEFN 424Q DON'T 370Q WHENMOVEDFN 276Q SKETCH.USE.POSITION.PAD 221Q DON'T 171Q PREMOVEFN 120Q MOVE) ( 741Q "Position was outside the window, copy not placed." 612Q (SK.MOVE.ELEMENTSA0001)) SKETCH.MOVE.ELEMENTS D1 (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&_(225Q SK.ADD.HISTEVENT 200Q POSITIONP 103Q GETSKETCHPROP 52Q MAPGLOBALSKETCHSPECS 42Q SK.SORT.GELTS.BY.PRIORITY 30Q SK.VIEWER.FROM.SKETCH.ARG 22Q INSURE.SKETCH 13Q \ILLEGAL.ARG 6 POSITIONP) (171Q DON'T 100Q WHENMOVEDFN 61Q MOVE 45Q SK.TRANSLATE.ELEMENT) () SKETCH.COPY.ELEMENTS D1 (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&_(222Q SK.ADD.HISTEVENT 151Q SKETCH.ADD.ELEMENT 143Q SK.SET.ELEMENT.PRIORITY 125Q POSITIONP 76Q GETSKETCHPROP 61Q MAPGLOBALSKETCHSPECS 42Q SK.VIEWER.FROM.SKETCH.ARG 34Q INSURE.SKETCH 25Q \ILLEGAL.ARG 20Q POSITIONP 12Q CREATEPOSITION) (167Q COPY 116Q DON'T 73Q WHENCOPIEDFN 54Q \SKETCH.COPY.ELEMENT) () \SKETCH.COPY.ELEMENT D1 (I 2 W I 1 GLOBALDELTAPOS I 0 GLOBALELEMENT) @dgBi A (22Q SK.TRANSLATE.GLOBALPART 16Q SK.COPY.IMAGEOBJ) (7 SKIMAGEOBJ) () SK.TRANSLATE.ELEMENT D1 (P 0 NEWGLOBAL I 2 W I 1 GLOBALDELTAPOS I 0 GELT) @A XB@HBid H(25Q SK.UPDATE.ELEMENT 7 SK.TRANSLATE.GLOBALPART) NIL () SK.COPY.GLOBAL.ELEMENT D1 (I 0 GLOBALELT) @jd i (11Q SK.TRANSLATE.GLOBALPART 5 CREATEPOSITION) NIL () SK.MAKE.ELEMENT.MOVE.ARG D1 (L (1 SELPOS 0 SCRELT)) $@kH hh@AIIkԹHXNIL NIL () SK.MAKE.ELEMENTS.MOVE.ARG D1 (L (0 SCRELTS)) i0@dIHhZH&JNIL NIL () SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG D1 (P 13Q PT P 12Q 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&(43Q MEMBER) NIL () SK.SHOW.FIG.FROM.INFO D1 (I 4 WINDOW I 3 OPERATION I 2 YOFFSET I 1 XOFFSET I 0 IMAGEBM) @jdDABhdgC (17Q BITBLT) (12Q INPUT) () SK.MOVE.THING D1 (P 1 NEWGLOBAL P 0 OLDGLOBAL I 3 SKW I 2 GDELTAPOS I 1 LOCALPT I 0 SKETCHELT) ( AhB@C Y@XIC gHIBhhC I(44Q SK.ADD.HISTEVENT 24Q SK.UPDATE.ELEMENT 13Q SK.TRANSLATE.POINTS) (27Q MOVE) () UPDATE.ELEMENT.IN.SKETCH D1 (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(131Q SK.MARK.DIRTY 124Q SK.ADD.PRIORITY.ELEMENT.TO.SKETCH 121Q SK.ELEMENT.PRIORITY 112Q REMOVE.ELEMENT.FROM.SKETCH 71Q SK.SET.ELEMENT.PRIORITY 66Q SK.ELEMENT.PRIORITY 25Q SK.ELEMENT.PRIORITY 21Q SK.ELEMENT.PRIORITY 3 INSURE.SKETCH) NIL () SK.UPDATE.ELEMENT D1 (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(67Q SK.UPDATE.ELEMENT1 40Q ALL.SKETCH.VIEWERS 33Q SK.UPDATE.ELEMENT1 17Q UPDATE.ELEMENT.IN.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SK.UPDATE.ELEMENTS D1 (P 0 CHANGEEVENT I 3 DONTDISPLAYFLG I 2 DONTUPDATEPRIORITYFLG I 1 WINDOW I 0 CHANGEEVENTS) @dHHAhBC h(24Q SK.UPDATE.ELEMENT) NIL () SK.UPDATE.ELEMENT1 D1 (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(211Q MEMB 206Q SKETCH.ELEMENTS.OF.SKETCH 177Q SK.DELETE.ITEM 154Q SK.UPDATEFN 144Q SKETCH.ADD.AND.DISPLAY1 135Q ELT.INSIDE.SKWP 127Q SK.ERASE.AND.DELETE.ITEM 115Q MEMB 74Q SKETCH.ADD.AND.DISPLAY1 66Q DSPFILL 47Q SK.DELETE.ITEM 34Q SKETCH.ELEMENT.TYPE 27Q SK.ADD.ITEM 21Q SK.DELETE.ITEM 7 SK.LOCAL.ELT.FROM.GLOBALPART) (62Q REPLACE 37Q SKIMAGEOBJ) ( 112Q (TEXT TEXTBOX)) SK.MOVE.ELEMENT.POINT D1 (I 0 W) #g@ddi3 g@hoh@ (40Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.MOVE) ( 30Q (QUOTE ONLY)) SK.MOVE.POINTS D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.MOVE.POINTS) () SK.SEL.AND.MOVE.POINTS D1 (I 0 W) @ @ (7 SK.DO.MOVE.ELEMENT.POINTS 3 SK.SELECT.MULTIPLE.POINTS) NIL () SK.DO.MOVE.ELEMENT.POINTSA0001 D1 (NAME ERRORSET P 0 PT F 1 SKW F 2 IMAGEBM F 3 IMAGEPOSX F 4 IMAGEPOSY F 5 FIRSTHOTSPOT F 6 NONMOVEDHOTSPOTS F 7 OTHERCONTROLPOINTMARK F 10Q NEWPOS) ;RSTgQ VdHQW QRgoSUTU ci(63Q GET.BITMAP.POSITION 31Q MARKPOINT 12Q SK.SHOW.FIG.FROM.INFO) (43Q PAINT 5 ERASE) ( 47Q "Move image to its new position.") SK.DO.MOVE.ELEMENT.POINTS D1 (P 26Q PT P 25Q ELT P 21Q GDELTAPOS P 20Q SKETCH P 17Q MOVEARGS P 16Q X P 15Q MOVEFN P 14Q CHANGES P 13Q NEWGLOBALS P 12Q DELTAPOS P 11Q IMAGEBM P 10Q 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 36Q OTHERCONTROLPOINTMARK) A @dA  A _ g _AH@ _lO_"O"dgm @H @H&d_* kd_$O& O$h_(O$&_&O(HhJ@ J @ l @KK_N_N_LA oi 1OOOgA IdO,AW< A IAMOOOgA IdO,AW< Ao hdO,AW< MLMLA _"O g _AOH O"lO_Odg< O_"HgO"A@ _gHORO0_8O.O2A A h_:O8O:O8h_6O4O6h_4_2O0_0O._.O6&_4(651Q CLOSEPROMPTWINDOW 645Q SK.ADD.HISTEVENT 604Q MAPCOLLECTSKETCHSPECS 562Q POSITIONP 533Q SK.MAKE.ELEMENTS.MOVE.ARG 516Q GETSKETCHPROP 503Q SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 500Q VIEWER.SCALE 454Q MARKPOINT 435Q STATUSPRINT 420Q MARKPOINT 400Q SK.SHOW.FIG.FROM.INFO 353Q ERROR! 347Q CLOSEPROMPTWINDOW 336Q MARKPOINT 316Q SK.SHOW.FIG.FROM.INFO 276Q SK.DO.MOVE.ELEMENT.POINTSA0001 265Q CURSORPOSITION 231Q SK.FIGUREIMAGE 226Q INCREASEREGION 221Q REGION.CONTAINING.PTS 214Q SK.UNIONREGIONS 211Q SK.LOCAL.REGION.OF.LOCAL.ELEMENTS 205Q REGION.CONTAINING.PTS 133Q LENGTH 113Q SK.HOTSPOTS.NOT.ON.LIST 102Q POSITIONP 51Q SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG 37Q GETSKETCHPROP 27Q INSURE.SKETCH 15Q SK.ELTS.CONTAINING.PTS 3 SKED.CLEAR.SELECTION) (611Q MOVE 574Q SK.MOVE.ITEM.POINTS 554Q DON'T 513Q WHENMOVEDFN 373Q PAINT 311Q PAINT 72Q DON'T 34Q PREMOVEFN) ( 432Q "Position was outside the window, copy not placed." 272Q (SK.DO.MOVE.ELEMENT.POINTSA0001)) SK.MOVE.ITEM.POINTS D1 (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(65Q SK.UPDATE.ELEMENT 53Q SK.TRANSLATE.POINTS 40Q SK.TRANSLATE.GLOBALPART 30Q LENGTH 24Q LENGTH 12Q INTERSECTION) NIL () SK.TRANSLATEPTSFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () SK.TRANSLATE.POINTS D1 (P 1 NEWGLOBAL I 3 W I 2 SKETCHELT I 1 GLOBALDELTA I 0 SELPTS) $Bd  B@AClHIB I(40Q SK.COPY.ELEMENT.PROPERTY.LIST 12Q SK.TRANSLATEPTSFN) NIL () SK.SELECT.MULTIPLE.POINTS D1 (P 22Q SEL P 21Q SELPT P 20Q ELT P 14Q MOUSEINSIDE? P 13Q PREVMOUSEBUTTONS P 12Q SELPTS P 11Q ORIGY P 10Q 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 F 23Q \LASTKEYSTATE) @h@ @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_OW&l) jW&l< j_O*H@ @ i_OdO @ }H@ @ mh_@g _dO @ L@g _dO$@ @J O(1073Q SK.TAKE.MARKS.DOWN 1061Q SK.REMOVE.PT.SELECTION 1043Q GETWINDOWUSERPROP 1024Q SK.REMOVE.PT.SELECTION 1006Q GETWINDOWUSERPROP 767Q INSIDEP 764Q LASTMOUSEY 760Q LASTMOUSEX 743Q SK.ADD.PT.SELECTION 717Q INSIDEP 714Q LASTMOUSEY 710Q LASTMOUSEX 673Q \GETBASEBIT 661Q \GETBASEBIT 637Q INSIDEP 621Q LASTMOUSEX 612Q LASTMOUSEY 600Q \FZEROP 550Q GETMOUSESTATE 543Q \FZEROP 514Q GETMOUSESTATE 475Q SK.REMOVE.PT.SELECTION 441Q SK.ADD.PT.SELECTION 402Q SK.CONTROL.POINTS.IN.REGION 376Q MAX 367Q MAX 362Q MIN 353Q MIN 327Q SK.REMOVE.PT.SELECTION 310Q SK.ADD.PT.SELECTION 262Q IN.SKETCH.ELT? 246Q LASTMOUSEY 241Q LASTMOUSEX 207Q SK.REMOVE.PT.SELECTION 171Q GETWINDOWUSERPROP 154Q INSIDEP 135Q SK.ADD.PT.SELECTION 120Q SK.TAKE.MARKS.DOWN 107Q INSIDEP 104Q LASTMOUSEY 100Q LASTMOUSEX 71Q \FZEROP 42Q GETMOUSESTATE 36Q SK.PUT.MARKS.UP 30Q TOTOPW 22Q SK.HAS.SOME.HOTSPOTS 16Q SK.HOTSPOT.CACHE.FOR.OPERATION 4 DSPCLIPPINGREGION) (1040Q SKETCH.SELECTIONS 1003Q SKETCH.SELECTIONS 554Q LASTMOUSEBUTTONS 520Q LASTMOUSEBUTTONS 411Q LASTMOUSEBUTTONS 272Q LASTMOUSEBUTTONS 232Q LASTMOUSEBUTTONS 224Q LASTMOUSEBUTTONS 166Q SKETCH.SELECTIONS 46Q LASTMOUSEBUTTONS 13Q MOVE) () SK.CONTROL.POINTS.IN.REGION D1 (P 10Q 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_(130Q SK.ADD.POINT) NIL () SK.ADD.PT.SELECTION D1 (I 2 MARKBM I 1 WINDOW I 0 PT) @Ag @AB Ag@ h(31Q WINDOWADDPROP 21Q MARKPOINT 12Q MEMBER 7 GETWINDOWUSERPROP) (25Q SKETCH.SELECTIONS 4 SKETCH.SELECTIONS) () SK.REMOVE.PT.SELECTION D1 (I 2 MARKBM I 1 WINDOW I 0 PT) '@Ag @AB Ag@Ag (44Q PUTWINDOWPROP 41Q REMOVE 36Q GETWINDOWUSERPROP 22Q MARKPOINT 12Q MEMBER 7 GETWINDOWUSERPROP) (33Q SKETCH.SELECTIONS 26Q SKETCH.SELECTIONS 4 SKETCH.SELECTIONS) () SK.ADD.POINT D1 (L (2 Y 1 X 0 PTLST)) +@Hh@YAIBIiHXAB@NIL NIL () SK.ELTS.CONTAINING.PTS D1 (P 3 ELTS P 2 POS P 1 HOTSPOTCACHE I 1 SKW I 0 PTLST) "@A "HK ZI K HX(32Q UNION 26Q SK.ELTS.FROM.HOTSPOT 17Q REVERSE 4 SK.HOTSPOT.CACHE) NIL () SK.HOTSPOTS.NOT.ON.LIST D1 (P 3 HOTSPOT P 2 OTHERHOTSPOTS P 1 ELT I 1 ELTS I 0 PTLST) ,A1HJYd[@ KJ KJHX(34Q MEMBER 26Q MEMBER) NIL () SK.SET.MOVE.MODE D1 (P 0 LOCALNEWMODE I 1 NEWMODE I 0 SKW) /AH#@g AdggA(22Q GETWINDOWUSERPROP 5 READMOVEMODE) (46Q ELEMENTS 41Q POINTS 17Q SKETCHCONTEXT) () SK.SET.MOVE.MODE.POINTS D1 (I 0 SKW) @g (6 SK.SET.MOVE.MODE) (3 POINTS) () SK.SET.MOVE.MODE.ELEMENTS D1 (I 0 SKW) @g (6 SK.SET.MOVE.MODE) (3 ELEMENTS) () SK.SET.MOVE.MODE.COMBINED D1 (I 0 SKW) @g (6 SK.SET.MOVE.MODE) (3 COMBINED) () READMOVEMODE D1 (I 0 MENUTITLE) J`@oHdIdodi dg dgjdndhHdI  (107Q \CURSOR.IN.MIDDLE.MENU) (54Q DEFAULTMENUHELDFN 45Q CLRPROMPT 2 MENUTYPE#) ( 31Q ((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")) 12Q "Top level MOVE command should apply to?") SK.ALIGN.POINTS D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.MOVE.POINTS) () SK.SEL.AND.ALIGN.POINTS D1 (I 1 W I 0 ALIGNHOW) A @A (10Q SK.DO.ALIGN.POINTS 3 SK.SELECT.MULTIPLE.POINTS) NIL () SK.ALIGN.POINTS.LEFT D1 (I 0 W) #go@ddi3 g@hh@ (40Q SK.EVAL.AS.PROCESS) (24Q QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE LEFT)) SK.ALIGN.POINTS.RIGHT D1 (I 0 W) #go@ddi3 g@hh@ (40Q SK.EVAL.AS.PROCESS) (24Q QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE RIGHT)) SK.ALIGN.POINTS.TOP D1 (I 0 W) #go@ddi3 g@hh@ (40Q SK.EVAL.AS.PROCESS) (24Q QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE TOP)) SK.ALIGN.POINTS.BOTTOM D1 (I 0 W) #go@ddi3 g@hh@ (40Q SK.EVAL.AS.PROCESS) (24Q QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE BOTTOM)) SK.EVEN.SPACE.POINTS.IN.X D1 (I 0 W) #go@ddi3 g@hh@ (40Q SK.EVAL.AS.PROCESS) (24Q QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE EVENX)) SK.EVEN.SPACE.POINTS.IN.Y D1 (I 0 W) #go@ddi3 g@hh@ (40Q SK.EVAL.AS.PROCESS) (24Q QUOTE 2 SK.SEL.AND.ALIGN.POINTS) ( 6 (QUOTE EVENY)) SK.DO.ALIGN.POINTSA0001 D1 (L (1 B 0 A)) @A@A @ANIL NIL () SK.DO.ALIGN.POINTSA0002 D1 (L (1 B 0 A)) @A@A @ANIL NIL () SK.DO.ALIGN.POINTS D1 (P 30Q SELBUCK P 25Q VALUE P 22Q SELBUCK P 10Q 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_,_*(1155Q LENGTH 1133Q \NCONC2 1130Q SK.DO.ALIGN.SETVALUE 1074Q \FZEROP 1042Q CLOSEPROMPTWINDOW 1035Q SK.ADD.HISTEVENT 1004Q SORT 737Q LAST 703Q SK.DO.ALIGN.SETVALUE 633Q LAST 577Q SK.DO.ALIGN.SETVALUE 214Q SHOULDNT 52Q SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG 46Q SK.ELTS.CONTAINING.PTS 35Q GETSKETCHPROP 27Q INSURE.SKETCH 20Q SK.GET.SELECTED.ELEMENT.STRUCTURE 3 SKED.CLEAR.SELECTION) (1027Q MOVE 1001Q SK.DO.ALIGN.POINTSA0002 775Q SK.DO.ALIGN.POINTSA0001 770Q HORIZONTAL 757Q EVENY 751Q EVENX 654Q TOP 645Q RIGHT 511Q BOTTOM 502Q LEFT 437Q VERTICAL 333Q HORIZONTAL 221Q HORIZONTAL 210Q VERTICAL 172Q EVENY 164Q HORIZONTAL 146Q EVENX 141Q VERTICAL 133Q BOTTOM 124Q TOP 117Q HORIZONTAL 111Q RIGHT 102Q LEFT 63Q DON'T 32Q PREMOVEFN) () SK.NTH.CONTROL.POINT D1 (I 1 N I 0 ELEMENT) 5Adk@g l@g Al@g @g A (61Q NTH 55Q GETSKETCHELEMENTPROP 45Q GETSKETCHELEMENTPROP 30Q GETSKETCHELEMENTPROP 14Q GETSKETCHELEMENTPROP) (52Q DATA 42Q 3RDCONTROLPT 25Q 2NDCONTROLPT 11Q POSITION) () SK.GET.SELECTED.ELEMENT.STRUCTURE D1 (P 11Q ELT P 5 POS P 1 HOTSPOTCACHE I 1 SKW I 0 SELPTS) W @A BHJ]0MI $d MO OhONh_N&_OK Lh[HXL&(44Q SK.CORRESPONDING.CONTROL.PT 27Q SK.ELTS.FROM.HOTSPOT 4 SK.HOTSPOT.CACHE) NIL () SK.CORRESPONDING.CONTROL.PT D1 (P 2 PT P 1 I I 1 SCRELEMENT I 0 SELPT) (AkHhZ@AI IkԹHX(34Q SHOULDNT 27Q SK.NTH.CONTROL.POINT) NIL () SK.CONTROL.POINT.NUMBER D1 (L (1 SCRELT 0 SELPT)) AkHh@JIIkԹHXNIL NIL () SK.DO.ALIGN.SETVALUE D1 (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(242Q \NCONC2 222Q SK.MOVE.ITEM.POINTS 200Q POSITIONP 144Q SK.CONTROL.POINT.NUMBER 117Q \FZEROP 60Q \FZEROP 15Q GETSKETCHPROP 7 INSURE.SKETCH) (170Q DON'T 73Q VERTICAL 34Q HORIZONTAL 12Q WHENMOVEDFN) () SKETCH.CREATE.GROUP D1 (I 1 CONTROLPOINT I 0 LISTOFSKETCHELEMENTS) @A @ (20Q SK.CREATE.GROUP1 15Q REGION.CENTER 12Q SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS 4 POSITIONP) NIL () SK.CREATE.GROUP1 D1 (I 1 CONTROLPT I 0 GELTS) hddhgh@Ahh (27Q SK.UPDATE.GROUP.AFTER.CHANGE) (11Q GROUP) () SK.UPDATE.GROUP.AFTER.CHANGE D1 (P 1 GROUPREGION P 0 INDGROUPELT I 0 GROUPELT) @H YHII@ @(26Q BOX.SET.SCALES 14Q SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS) NIL () SK.GROUP.ELTS D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.GROUP) () SK.SEL.AND.GROUP D1 (I 0 W) @ihg @ (14Q SK.GROUP.ELEMENTS 10Q SK.SELECT.MULTIPLE.ITEMS) (5 GROUP) () SK.GROUP.ELEMENTS D1 (P 1 LOCALGROUPELT P 0 GROUPELT I 1 SKW I 0 SCRELTS) NA @G 0@dKJh\J&L@A A XdA hgHhhA H(112Q SK.ADD.HISTEVENT 73Q SK.DO.GROUP 65Q SKETCH.CREATE.GROUP 62Q MAP.GLOBAL.PT.ONTO.GRID 56Q REGION.CENTER 53Q SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS 50Q VIEWER.SCALE 3 SKED.CLEAR.SELECTION) (101Q GROUP) () SK.UNGROUP.ELT D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.UNGROUP) () SK.SEL.AND.UNGROUP D1 (P 3 SCRELT I 0 W) P@i0@ -dKg Kg hdIHhZH&J @o h @ (115Q SK.UNGROUP.ELEMENT 111Q SK.SELECT.MULTIPLE.ITEMS 104Q STATUSPRINT 42Q SK.ELEMENT.PROTECTED? 10Q LOCALSPECS.FROM.VIEWER) (37Q UNGROUP 27Q GROUP) ( 101Q "There are no grouped elements to ungroup.") SK.UNGROUP.ELEMENT D1 (P 12Q 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&_(120Q SK.DO.UNGROUP 107Q SK.ADD.HISTEVENT) (102Q UNGROUP 32Q GROUP) () SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS D1 (P 1 SCRELT P 0 GROUPREGION I 1 SCALE I 0 SCRELTS) '@dHI XHA I (43Q SK.UNIONREGIONS 40Q SK.ITEM.REGION 33Q UNSCALE.REGION 20Q SK.ITEM.REGION) NIL () SK.LOCAL.REGION.OF.LOCAL.ELEMENTS D1 (P 2 GROUPREGION P 1 SCRELT I 1 SCALE I 0 SCRELTS) #@!HJJ I HXI (37Q SK.UNIONREGIONS 34Q SK.ITEM.REGION 22Q SK.ITEM.REGION) NIL () SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS D1 (P 4 GELT P 3 GROUPREGION I 0 GELTS) Ml2@ &g0@d IHhZH&J  @dK L KL (111Q SK.UNIONREGIONS 106Q SK.ELEMENT.GLOBAL.REGION 73Q SK.ELEMENT.GLOBAL.REGION 53Q APPLY 26Q SK.ELEMENT.GLOBAL.REGION 5 LENGTH) (13Q SK.UNIONREGIONS) () SK.UNIONREGIONS D1 (L (0 REGIONS)) v eHjh@YdZdI[I\dI]Hl__OdOJLKJMLhaYdJZI^KNIdL\I^MNOk_NIL NIL () SKETCH.REGION.OF.SKETCH D1 (I 0 SKETCH) @  (10Q SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS 3 INSURE.SKETCH) NIL () SK.FLASHREGION D1 (I 2 TEXTURE I 1 WINDOW I 0 REGION) @BgA n @BgA (27Q DSPFILL 16Q DISMISS 10Q DSPFILL) (23Q INVERT 4 INVERT) () INIT.GROUP.ELEMENT D1 NIL ;g 2ghogggggggghgghg h(66Q CREATE.SKETCH.ELEMENT.TYPE 5 SKETCH.ELEMENT.TYPEP) (62Q GROUP.GLOBALREGIONFN 56Q GROUP.TRANSFORMFN 53Q GROUP.READCHANGEFN 47Q GROUP.TRANSLATEFN 44Q GROUP.REGIONFN 41Q GROUP.INSIDEFN 36Q TEXTBOX.INPUTFN 33Q SK.ELEMENTS.CHANGEFN 30Q OBSOLETE 25Q GROUP.EXPANDFN 22Q GROUP.DRAWFN 12Q GROUP 2 GROUP) ( 17Q "groups a collection of elements as a single element.") GROUP.DRAWFN D1 (P 0 ELT I 3 OPERATION I 2 REGION I 1 WINDOW I 0 GROUPELT) '@dH HABClIh(24Q SK.DRAWFN) NIL () GROUP.EXPANDFN D1 (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@(53Q SK.LOCAL.FROM.GLOBAL 26Q SK.SCALE.POSITION.INTO.VIEWER 14Q SCALE.REGION.OUT) NIL () GROUP.INSIDEFN D1 (I 1 WREG I 0 GROUPELT) @A (10Q REGIONSINTERSECTP) NIL () GROUP.REGIONFN D1 (L (0 GROUPSCRELT)) @NIL NIL () GROUP.GLOBALREGIONFN D1 (L (0 GGROUPELT)) @NIL NIL () GROUP.TRANSLATEFN D1 (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(105Q PTPLUS 52Q SK.TRANSLATE.GLOBALPART 25Q \APPEND2 17Q REL.MOVE.REGION) (30Q GROUP) () GROUP.TRANSFORMFN D1 (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 (161Q BOX.SET.SCALES 146Q SK.TRANSFORM.POINT 112Q SK.TRANSFORM.ELEMENT 57Q SK.TRANSFORM.REGION 40Q GROUP.TRANSLATEFN 35Q PTDIFFERENCE 31Q SK.TRANSFORM.POINT) (66Q GROUP 3 SK.PUT.ON.GRID) () GROUP.READCHANGEFN D1 (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(270Q READ.COLOR.CHANGE 251Q READ.COLOR.CHANGE 230Q READ.FILLING.CHANGE 216Q READ.DASHING.CHANGE 201Q READ.ARROW.CHANGE 166Q READBRUSHSHAPE 151Q READSIZECHANGE 131Q TEXT.READCHANGEFN 113Q \CURSOR.IN.MIDDLE.MENU 36Q \APPEND2 21Q SKETCHINCOLORP) (255Q FILLINGCOLOR 237Q BRUSHCOLOR 223Q FILLING 210Q DASHING 173Q ARROW 160Q SHAPE 140Q SIZE 120Q TEXT 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 5 MENUTYPE#) ( 264Q "Change filling color how?" 246Q "Change line color how?" 146Q "Change size how?" 33Q ((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.")) 27Q (("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.")) 13Q "Change which part?") REGION.CENTER D1 (L (0 REGION)) @@l@@lNIL NIL () REMOVE.LAST D1 (L (0 LST)) @d HYhIh@INIL NIL () SK.MOVE.GROUP.CONTROL.PT D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.MOVE.CONTROL.PT) () SK.SEL.AND.MOVE.CONTROL.PT D1 (P 3 SCRELT I 0 W) P@i0@ -dKg Kg hdIHhZH&J @o h @ (115Q SK.MOVE.GROUP.ELEMENT.CONTROL.POINT 111Q SK.SELECT.ITEM 104Q STATUSPRINT 42Q SK.ELEMENT.PROTECTED? 10Q LOCALSPECS.FROM.VIEWER) (37Q CHANGE 27Q GROUP) ( 101Q "There are no grouped elements.") SK.MOVE.GROUP.ELEMENT.CONTROL.POINT D1 (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(173Q SK.ADD.HISTEVENT 145Q SK.FLASHREGION 130Q SK.ADD.ELEMENT 117Q SK.DELETE.ELEMENT1 111Q SK.SET.ELEMENT.PRIORITY 106Q SK.ELEMENT.PRIORITY 100Q SKETCH.CREATE.GROUP 66Q SK.CHECK.WHENCHANGEDFN 50Q SK.READ.NEW.GROUP.CONTROL.PT 36Q GETSKETCHELEMENTPROP 20Q SK.CHECK.PRECHANGEFN) (155Q POSITION 150Q CHANGE 142Q GRAYSHADE 60Q POSITION 33Q POSITION 23Q DON'T 15Q POSITION) () SK.READ.NEW.GROUP.CONTROL.PT D1 (P 0 PT I 1 LOCALGROUPREGION I 0 VIEWER) ZAAAAkg@n @oo @hdddd` XAAAAkg@n Hd@ (127Q SK.MAP.INPUT.PT.TO.GLOBAL 120Q SK.DRAWBOX 65Q SK.READ.POINT.WITH.FEEDBACK 50Q STATUSPRINT 34Q SK.DRAWBOX) (110Q INVERT 61Q SKETCH.USE.POSITION.PAD 24Q INVERT) ( 45Q "Indicate position of the new control point." 41Q " ") SK.DO.GROUP D1 (P 2 GELT P 1 OKEDGELTS P 0 LOCALELT I 1 SKW I 0 GROUPELT) J A@ Yh@I @ IdJAi @Aidd XdA` H(106Q SK.FLASHREGION 71Q SK.ADD.ELEMENT 53Q SK.DELETE.ELEMENT1 36Q SK.UPDATE.GROUP.AFTER.CHANGE 31Q SK.ORDER.ELEMENTS 14Q SK.CHECK.WHENGROUPEDFN) (103Q GRAYSHADE) () SK.CHECK.WHENGROUPEDFN D1 (P 1 X P 0 GROUPFN I 1 ELEMENTS I 0 VIEWER) ) @ g X@AlHIdgh IA(42Q SKETCH.LIST.OF.ELEMENTSP 14Q GETSKETCHPROP 6 INSURE.SKETCH) (33Q DON'T 11Q WHENGROUPEDFN) () SK.DO.UNGROUP D1 (P 0 GELT I 1 SKW I 0 GROUPELT) >A@ h@Ai @dHAidd @A A` @(72Q SK.FLASHREGION 63Q SCALE.REGION.OUT 60Q VIEWER.SCALE 42Q SK.ADD.ELEMENT 15Q SK.DELETE.ELEMENT1 4 SK.CHECK.WHENUNGROUPEDFN) (67Q GRAYSHADE) () SK.CHECK.WHENUNGROUPEDFN D1 (P 0 UNGROUPFN I 1 GROUPELT I 0 VIEWER) !@ g Xh@AlHgh(14Q GETSKETCHPROP 6 INSURE.SKETCH) (33Q DON'T 11Q WHENUNGROUPEDFN) () SK.GROUP.UNDO D1 (P 0 GRP I 1 SKW I 0 EVENTARGS) @dHA i(14Q SK.DO.UNGROUP) NIL () SK.UNGROUP.UNDO D1 (P 0 GRP I 1 SKW I 0 EVENTARGS) @dHA i(14Q SK.DO.GROUP) NIL () SK.FREEZE.ELTS D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.FREEZE) () SK.SEL.AND.FREEZE D1 (I 0 W) @ihg @ (14Q SK.FREEZE.ELEMENTS 10Q SK.SELECT.MULTIPLE.ITEMS) (5 FROZEN) () SK.FREEZE.ELEMENTS D1 (P 1 GELT P 0 GELTS I 1 SKW I 0 SCRELTS) 0 0@dKJh\J&LXdA gHA h(54Q SK.ADD.HISTEVENT 44Q SK.DO.FREEZE) (47Q FREEZE) () SK.UNFREEZE.ELT D1 (I 0 W) g@ddi3 g@hh@ (33Q SK.EVAL.AS.PROCESS) (20Q QUOTE 2 SK.SEL.AND.UNFREEZE) () SK.SEL.AND.UNFREEZE D1 (P 4 SCRELT I 0 W) V@i@@ 3dLg [gK gKidIHhZH&J @o h @ (123Q SK.UNFREEZE.ELEMENTS 117Q SK.SELECT.MULTIPLE.ITEMS 112Q STATUSPRINT 27Q GETSKETCHELEMENTPROP 10Q LOCALSPECS.FROM.VIEWER) (45Q FROZEN 33Q FROZEN 24Q PROTECTION) ( 107Q "There are no frozen elements to unprotect.") SK.UNFREEZE.ELEMENTS D1 (P 1 GELT P 0 GELTS I 1 SKW I 0 SCRELTS) 0 0@dKJh\J&LXdA gHA h(54Q SK.ADD.HISTEVENT 44Q SK.DO.UNFREEZE) (47Q UNFREEZE) () SK.FREEZE.UNDO D1 (I 1 SKW I 0 EVENTARGS) @A (4 SK.DO.UNFREEZE) NIL () SK.UNFREEZE.UNDO D1 (I 1 SKW I 0 EVENTARGS) @A (4 SK.DO.FREEZE) NIL () SK.DO.FREEZE D1 (P 0 GELT I 1 SKW I 0 GELTS) @dHgg @(21Q ADDSKETCHELEMENTPROP) (16Q FROZEN 13Q PROTECTION) () SK.DO.UNFREEZE D1 (P 0 GELT I 1 SKW I 0 GELTS) @dHgg @(21Q REMOVESKETCHELEMENTPROP) (16Q FROZEN 13Q PROTECTION) () SKETCH.ELEMENTS.OF.SKETCH D1 (I 0 SKETCH) @i (4 INSURE.SKETCH) NIL () SKETCH.LIST.OF.ELEMENTS D1 (P 4 ELT I 2 INSIDEGROUPSFLG I 1 PREDICATE I 0 SKETCH) )@ AHI\kALJ KhZHXK&(3 SKETCH.ELEMENTS.OF.SKETCH) NIL () SKETCH.ADD.ELEMENT D1 (P 2 SKW P 0 SKSTRUC I 2 NODISPLAYFLG I 1 SKETCH I 0 ELEMENT) GAd @H @o @H H IH@J @JhB IY(77Q SKETCH.ADD.AND.DISPLAY1 67Q ELT.INSIDE.SKETCHWP 47Q ALL.SKETCH.VIEWERS 43Q ADD.ELEMENT.TO.SKETCH 35Q ERROR 24Q GLOBALELEMENTP 11Q INSURE.SKETCH 5 SKETCH.CREATE) NIL ( 32Q "is not a sketch element.") SKETCH.DELETE.ELEMENT D1 (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[(111Q SK.ERASE.AND.DELETE.ITEM 100Q SK.LOCAL.ELT.FROM.GLOBALPART 67Q SK.CHECK.IMAGEOBJ.WHENDELETEDFN 52Q ALL.SKETCH.VIEWERS 45Q PRIN1 32Q TERPRI 14Q REMOVE.ELEMENT.FROM.SKETCH 3 INSURE.SKETCH) (42Q PROMPTWINDOW 27Q PROMPTWINDOW) ( 37Q "member of group deleted but group not redrawn.") DELFROMGROUPELT D1 (P 3 ELT P 1 SUBELTS P 0 INDVGROUPELT I 1 GROUPELT I 0 ELTTODEL) CAg'AHY@I H@I iIJh@K KiJZ(66Q DELFROMGROUPELT 42Q REMOVE 31Q MEMBER) (6 GROUP) () SKETCH.ELEMENT.TYPE D1 (L (0 ELEMENT)) @NIL NIL () SKETCH.ELEMENT.CHANGED D1 (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(105Q SK.ELEMENT.CHANGED1 61Q ALL.SKETCH.VIEWERS 54Q SK.ELEMENT.CHANGED1 44Q SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT 30Q SK.MARK.DIRTY 23Q ERROR 12Q GLOBALELEMENTP 3 INSURE.SKETCH) NIL ( 20Q " is not a sketch element.") SK.ELEMENT.CHANGED1 D1 (P 0 LOCALELT I 2 SKETCHW I 1 OLDREGION I 0 SKIMAGEOBJELT) ,@B X!@ gHB AjgB @B (51Q SKETCH.ADD.AND.DISPLAY1 43Q DSPFILL 31Q SK.DELETE.ITEM 16Q SKETCH.ELEMENT.TYPE 7 SK.LOCAL.ELT.FROM.GLOBALPART) (37Q REPLACE 21Q SKIMAGEOBJ) () SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT D1 (P 3 SCALE P 2 REGION P 1 IMOBJSIZE P 0 INDVSKIMOBJELT I 1 VIEWER I 0 SKIMOBJELT) A@1HA YHZH[HJJIKIK HII@(54Q CREATEREGION 14Q IMAGEBOXSIZE) NIL () INSURE.SKETCH D1 (P 3 X P 2 ELT P 0 SK? I 1 NOERRORFLG I 0 SK) @dddg #@g Ah@o @g &@ g Aho@ @d`1g HAhHgHo@ J;@l3@Ii&@ @K@KKZ hIYA@o h (350Q SK.CHECK.SKETCH.VERSION 343Q ERROR 320Q GLOBALELEMENTP 274Q SKIO.UPDATE.FROM.OLD.FORM 232Q ERROR 164Q IMAGEOBJPROP 142Q ERROR 113Q GETWINDOWUSERPROP 105Q \SKSTRM.WINDOW.FROM.STREAM 77Q IMAGESTREAMTYPEP 65Q ERROR 36Q GETWINDOWUSERPROP 25Q WINDOWP) (215Q SKETCH 161Q OBJECTDATUM 153Q IMAGEOBJTYPE# 110Q SKETCH 74Q SKETCH 33Q SKETCH 15Q SKETCH) ( 340Q "not a SKETCH" 226Q "not a sketch image object" 136Q "sketch stream window doesn't have SKETCH property" 62Q "doesn't have a SKETCH property.") LOCALSPECS.FROM.VIEWER D1 (I 0 SKW) @g (6 GETWINDOWUSERPROP) (3 SKETCHSPECS) () SK.LOCAL.ELT.FROM.GLOBALPART D1 (I 1 SKW I 0 GLOBALPART) A Hhd@HX(3 LOCALSPECS.FROM.VIEWER) NIL () SKETCH.FROM.VIEWER D1 (I 0 SKETCHW) @g (6 GETWINDOWUSERPROP) (3 SKETCH) () INSPECT.SKETCH D1 (P 0 SPECS I 0 SKW) @ Hd h(14Q INSPECT/TOP/LEVEL/LIST 3 LOCALSPECS.FROM.VIEWER) NIL () ELT.INSIDE.SKETCHWP D1 (I 1 SKW I 0 GELT) @Ag (12Q SK.INSIDE.REGION 7 GETWINDOWUSERPROP) (4 REGION.VIEWED) () SK.INSIDE.REGION D1 (I 1 REGION I 0 GELT) @ @AlH(6 SK.INSIDEFN) NIL () MAPSKETCHSPECS D1 (P 0 FIGSPEC I 4 DATUM3 I 3 DATUM2 I 2 DATUM I 1 SPECFN I 0 SKSPECS) 5@d1 @BCDlA@o@ dHABCD h(54Q MAPSKETCHSPECS 35Q ERROR 6 SCREENELEMENTP) NIL ( 31Q "unknown figure specification") MAPCOLLECTSKETCHSPECS D1 (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@ (102Q ERROR 50Q MAPCOLLECTSKETCHSPECS 6 SCREENELEMENTP) NIL ( 76Q "unknown figure specification") MAPSKETCHSPECSUNTIL D1 (P 2 VALUE P 1 FIGSPEC I 3 DATUM2 I 2 DATUM I 1 SPECFN I 0 SKETCHSPECS) <@d( @BClA@ o@ !HhYABC ZHX(62Q MAPSKETCHSPECSUNTIL 40Q ERROR 12Q SKETCH.ELEMENT.NAMEP) NIL ( 34Q "unknown figure specification") MAPGLOBALSKETCHSPECS D1 (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@ (100Q ERROR 46Q MAPGLOBALSKETCHSPECS 6 GLOBALELEMENTP) NIL ( 74Q "unknown global sketch element") MAPGLOBALSKETCHELEMENTS D1 (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@ (123Q ERROR 71Q MAPGLOBALSKETCHELEMENTS 6 GLOBALELEMENTP) (20Q GROUP) ( 117Q "unknown global sketch element") SK.ADD.SELECTION D1 (I 3 FIRSTFLG I 2 MARKBM I 1 WINDOW I 0 ITEM/POS) @Ag @AB Ag@C h(32Q WINDOWADDPROP 21Q SK.SELECT.ELT 12Q MEMBER 7 GETWINDOWUSERPROP) (25Q SKETCH.SELECTIONS 4 SKETCH.SELECTIONS) () SK.COPY.INSERTFN D1 (P 5 DATUM P 4 IMOBJ P 2 EXTENDSELECTION P 1 SELECTION P 0 IMAGEOBJYET I 1 SKW I 0 IMAGEOBJ F 6 SKETCHIMAGEFNS) 0@!KHAgI AgJ A hKhKKLL LV0HiAg Ag Lg AMMM HiAg Ag AggLA ]h MA `Lg ]QMgHLAlM=(263Q IMAGEOBJPROP 250Q SK.INSERT.SKETCH 245Q VIEWER.SCALE 233Q SKETCH.CREATE 225Q SK.ELEMENT.FROM.IMAGEOBJ 210Q GETWINDOWUSERPROP 200Q GETWINDOWUSERPROP 160Q SK.INSERT.SKETCH 142Q IMAGEOBJPROP 132Q GETWINDOWUSERPROP 122Q GETWINDOWUSERPROP 71Q BKSYSBUF 43Q SKED.SELECTION.FEEDBACK 36Q PUTWINDOWPROP 25Q PUTWINDOWPROP) (274Q NILL 260Q WHENINSERTEDFN 220Q ELEMENTS 215Q DUMMYNAME 205Q EXTENDSELECTION 175Q SELECTION 137Q OBJECTDATUM 127Q EXTENDSELECTION 117Q SELECTION 100Q IMAGEOBJ 32Q EXTENDSELECTION 21Q SELECTION) () SCREENELEMENTP D1 (P 0 X I 0 ELT?) @@@Xd @(26Q SKETCH.ELEMENT.NAMEP) NIL () SK.ITEM.REGION D1 (P 0 REGIONFN I 0 SCRELT) @ Hdgh@kH(7 SK.REGIONFN) (20Q NILL) () SK.ELEMENT.GLOBAL.REGION D1 (P 0 REGIONFN I 0 GELT) @ Hdgh@kH(6 SK.GLOBAL.REGIONFN) (17Q NILL) () SK.LOCAL.ITEMS.IN.REGION D1 (P 10Q 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_(121Q UNION) NIL () SK.REGIONFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () SK.GLOBAL.REGIONFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () SK.REMOVE.SELECTION D1 (I 2 MARKBM I 1 WINDOW I 0 ITEM/POS) @Ag Ag@ @AB (32Q SK.DESELECT.ELT 24Q WINDOWDELPROP 12Q MEMBER 7 GETWINDOWUSERPROP) (20Q SKETCH.SELECTIONS 4 SKETCH.SELECTIONS) () SK.SELECT.MULTIPLE.ITEMS D1 (P 32Q SELITEM P 31Q SEL P 27Q ELT P 15Q MOUSEINSIDE? P 14Q PREVMOUSEBUTTONS P 13Q OUTOFFIRSTPICK P 12Q ORIGY P 11Q OLDY P 10Q 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 33Q \LASTKEYSTATE F 34Q 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_ KlKl W8`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__@ _@ _OgHOO i_BMW6l) jW6l< j^O)H@ @ i_BdO.@ xH@ @ hh_@g bdO.@ G@g bOBdO2@ @g @J B(1761Q SK.TAKE.MARKS.DOWN 1753Q PUTWINDOWPROP 1736Q SK.REMOVE.SELECTION 1712Q GETWINDOWUSERPROP 1673Q SK.REMOVE.SELECTION 1655Q GETWINDOWUSERPROP 1636Q INSIDEP 1633Q LASTMOUSEY 1627Q LASTMOUSEX 1612Q SK.ADD.SELECTION 1567Q INSIDEP 1564Q LASTMOUSEY 1560Q LASTMOUSEX 1543Q \GETBASEBIT 1531Q \GETBASEBIT 1506Q INSIDEP 1465Q LASTMOUSEX 1456Q LASTMOUSEY 1442Q \FZEROP 1412Q GETMOUSESTATE 1403Q TIMEREXPIRED? 1371Q SK.ADD.SELECTION 1353Q REMOVE 1343Q SCREENELEMENTP 1334Q SK.ADD.SELECTION 1327Q IN.SKETCH.ELT? 1321Q SK.REMOVE.SELECTION 1312Q POSITIONP 1250Q LASTMOUSEY 1215Q LASTMOUSEX 1204Q \FZEROP 1153Q GETMOUSESTATE 1144Q \CLOCK0 1106Q SK.REMOVE.SELECTION 1050Q SK.ADD.SELECTION 1017Q SK.ADD.SELECTION 1010Q IN.SKETCH.ELT? 765Q SK.REMOVE.SELECTION 756Q POSITIONP 746Q SK.LOCAL.ITEMS.IN.REGION 742Q MAX 733Q MAX 725Q MIN 716Q MIN 703Q \FZEROP 533Q SK.REMOVE.SELECTION 505Q SK.REMOVE.SELECTION 476Q POSITIONP 464Q SK.ADD.SELECTION 435Q IN.SKETCH.ELT? 430Q GETWINDOWUSERPROP 362Q GETWINDOWUSERPROP 346Q LASTMOUSEY 341Q LASTMOUSEX 305Q SK.REMOVE.SELECTION 267Q GETWINDOWUSERPROP 252Q INSIDEP 232Q SK.ADD.SELECTION 215Q SK.TAKE.MARKS.DOWN 173Q \FZEROP 141Q GETMOUSESTATE 130Q INSIDEP 125Q LASTMOUSEY 121Q LASTMOUSEX 112Q \FZEROP 63Q GETMOUSESTATE 57Q SK.PUT.MARKS.UP 51Q TOTOPW 44Q SK.ADD.HOTSPOTS.TO.CACHE 35Q SK.HAS.SOME.HOTSPOTS 31Q SK.HOTSPOT.CACHE.FOR.OPERATION 21Q LOCALSPECS.FROM.VIEWER 4 DSPCLIPPINGREGION) (1750Q SKETCH.SELECTIONS 1707Q SKETCH.SELECTIONS 1652Q SKETCH.SELECTIONS 1416Q LASTMOUSEBUTTONS 1276Q LASTMOUSEBUTTONS 1157Q LASTMOUSEBUTTONS 1062Q LASTMOUSEBUTTONS 1023Q LASTMOUSEBUTTONS 771Q LASTMOUSEBUTTONS 656Q LASTMOUSEBUTTONS 445Q LASTMOUSEBUTTONS 425Q SKETCH.SELECTIONS 411Q LASTMOUSEBUTTONS 357Q SKETCH.SELECTIONS 332Q LASTMOUSEBUTTONS 322Q LASTMOUSEBUTTONS 264Q SKETCH.SELECTIONS 145Q LASTMOUSEBUTTONS 67Q LASTMOUSEBUTTONS) () SKETCH.GET.ELEMENTS D1 (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(217Q SK.SELECT.MULTIPLE.ITEMS 203Q SK.SELECT.ITEM 167Q \ILLEGAL.ARG 32Q \ILLEGAL.ARG 25Q SK.LOCAL.ELT.FROM.GLOBALPART 17Q GLOBALELEMENTP) (153Q FROZEN 141Q COPYSELECT 132Q UNGROUP 123Q GROUP 114Q CHANGE 105Q DELETE 76Q COPY 67Q MOVE) () SK.PUT.MARKS.UP D1 (I 1 HOTSPOTCACHE I 0 SKETCHW) @g @A @gi h(24Q PUTWINDOWPROP 14Q SK.SHOWMARKS 6 GETWINDOWUSERPROP) (20Q MARKS.UP 3 MARKS.UP) () SK.TAKE.MARKS.DOWN D1 (I 1 HOTSPOTCACHE I 0 SKETCHW) @g @A @g (24Q PUTWINDOWPROP 15Q SK.SHOWMARKS 6 GETWINDOWUSERPROP) (21Q MARKS.UP 3 MARKS.UP) () SK.TRANSLATE.GLOBALPART D1 (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 (111Q PUTSKETCHELEMENTPROP 106Q REL.MOVE.REGION 67Q GETSKETCHELEMENTPROP 53Q GETSKETCHELEMENTPROP 44Q SK.COPY.ELEMENT.PROPERTY.LIST 6 SK.TRANSLATEFN) (76Q ACTIVEREGION 64Q ACTIVEREGION 50Q ACTIVEREGION 20Q NILL) () SK.TRANSLATE.ITEM D1 (P 1 OLDGLOBAL P 0 NEWGLOBAL I 2 W I 1 GLOBALDELTAPOS I 0 SELELT)  @YA X IHBi H(23Q SK.UPDATE.ELEMENT 11Q SK.TRANSLATE.GLOBALPART) NIL () SK.TRANSLATEFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () TRANSLATE.SKETCH D1 (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 (136Q LAST 110Q SK.TRANSLATE.GLOBALPART 7 MINUS 3 MINUS) (27Q PRIRANGE 22Q VERSION 16Q SKETCH) () SK.INPUT.SCALE D1 (P 0 SK I 0 SKW) @@g H @o hH Hoo(50Q SK.UPDATE.SKETCHCONTEXT 24Q ERROR 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) ( 75Q 1.0 70Q 1.0 21Q "arg not sketch window") SK.UPDATE.SKETCHCONTEXT D1 (P 0 NEWSK I 0 SKETCHCONTEXT) #H @ j@H@ k @(37Q \NCONC2 34Q NTH 27Q LENGTH 15Q LENGTH 11Q LENGTH 2 CREATE.DEFAULT.SKETCH.CONTEXT) NIL () SK.SET.INPUT.SCALE D1 (I 0 W) o@ o hddid @ (33Q SK.SET.INPUT.SCALE.VALUE 27Q RNUMBER 16Q CONCAT 7 SK.INPUT.SCALE) NIL ( 13Q ". Enter new input scale. A larger scale will make new lines and text larger." 3 "Input scale is now ") SK.SET.INPUT.SCALE.CURRENT D1 (I 0 W) @ @ (7 SK.SET.INPUT.SCALE.VALUE 3 VIEWER.SCALE) NIL () SK.SET.INPUT.SCALE.VALUE D1 (I 1 SKW I 0 NEWINPUTSCALE) 1@3,@j @@ hAg @ (54Q ABS 35Q GETWINDOWUSERPROP 22Q \FZEROP) (32Q SKETCHCONTEXT) () SK.SET.FEEDBACK.MODE D1 (I 0 VALUE) U@do <`dodi dg dgjdndhHdI  b@dgh(102Q \CURSOR.IN.MIDDLE.MENU 10Q MEMB) (122Q SKETCH.VERBOSE.FEEDBACK 113Q POINTS 47Q DEFAULTMENUHELDFN 40Q CLRPROMPT 16Q MENUTYPE#) ( 24Q (("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 D1 NIL g (5 SK.SET.FEEDBACK.MODE) (2 POINTS) () SK.SET.FEEDBACK.VERBOSE D1 NIL i (3 SK.SET.FEEDBACK.MODE) NIL () SK.SET.FEEDBACK.ALWAYS D1 NIL g (5 SK.SET.FEEDBACK.MODE) (2 ALWAYS) () SKETCH.TITLE D1 (I 0 SKW) @ (3 INSURE.SKETCH) NIL () SK.SHRINK.ICONCREATE D1 (P 1 ICONTITLE P 0 ICON I 0 W F 2 TEDIT.ICON.FONT F 3 SKETCH.TITLED.ICON.TEMPLATE) q@g @g H,I@ TIRH@g@ oY IhdH 2@g@ oY @gSIRgRg hi  h(155Q PUTWINDOWPROP 152Q TITLEDICONW 144Q DEFAULTFONT 117Q PUTWINDOWPROP 105Q SKETCH.TITLE 73Q ICONTITLE 63Q PUTWINDOWPROP 51Q SKETCH.TITLE 30Q SKETCH.TITLE 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (141Q DISPLAY 132Q NOBIND 124Q ICON 101Q SKETCH.ICON.TITLE 45Q SKETCH.ICON.TITLE 12Q SKETCH.ICON.TITLE 3 ICON) ( 113Q "" 57Q "") READBRUSHSHAPE D1 NIL A`di dododg dgjdndhHdI  (76Q \CURSOR.IN.MIDDLE.MENU) (43Q DEFAULTMENUHELDFN 34Q CLRPROMPT 2 MENUTYPE#) ( 25Q (ROUND SQUARE VERTICAL HORIZONTAL DIAGONAL) 15Q "pick a shape") READ.FUNCTION D1 (P 2 LST P 1 OLDTTYDS P 0 PROMPTWIN I 1 W I 0 PRMPT) =Al !H Y@dH H oH h i ZI J(70Q CLOSEW 65Q TTYDISPLAYSTREAM 57Q READLINE 54Q READ 50Q TTY.PROCESS 43Q PRIN1 32Q TERPRI 25Q PRIN1 14Q TTYDISPLAYSTREAM 5 GETPROMPTWINDOW) NIL ( 37Q ">> ") READBRUSHSIZE D1 (P 0 N I 0 NOWSIZE) /@o@o ohddiddd HjhHd (54Q ABS 35Q RNUMBER 15Q CONCAT) NIL ( 22Q "Enter new brush size." 12Q ". Enter new brush size." 5 "Current size is ") READANGLE D1 NIL ohddihi djh(15Q RNUMBER) NIL ( 3 "Enter arc angle in degrees.") READARCDIRECTION D1 (I 0 MENUTITLE) J`@oHdIdodi dg dgjdndhHdI  (107Q \CURSOR.IN.MIDDLE.MENU) (54Q DEFAULTMENUHELDFN 45Q CLRPROMPT 2 MENUTYPE#) ( 31Q (("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.")) 12Q "Which way should the arc go?") SK.CHANGE.DASHING D1 (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(1262Q DISPLAY.POSITION.READER.TOTAL 1256Q PUTMENUPROP 1144Q PUTMENUPROP 1127Q GETMENUPROP 1114Q \READNUMBER.FLASHAREA 1077Q NCHARS 1074Q ABS 1070Q GETMENUPROP 1056Q PUTMENUPROP 1045Q GETMENUPROP 1020Q PUTMENUPROP 1007Q PUTMENUPROP 765Q PUTMENUPROP 755Q PUTMENUPROP 744Q PUTMENUPROP 722Q PUTWINDOWPROP 701Q PUTWINDOWPROP 655Q PUTWINDOWPROP 630Q PUTMENUPROP 610Q PUTMENUPROP 577Q PUTMENUPROP 565Q GETMENUPROP 552Q GETMENUPROP 514Q PUTMENUPROP 473Q PUTMENUPROP 463Q PUTMENUPROP 453Q PUTMENUPROP 412Q PROMPTPRINT 401Q \FZEROP 344Q GETMENUPROP 332Q GETMENUPROP 321Q PUTMENUPROP 277Q GETMENUPROP 217Q MINUS 202Q MKATOM 174Q SUBSTRING 165Q STRPOS 150Q MKSTRING 143Q PUTMENUPROP 121Q PUTMENUPROP 75Q GETMENUPROP 61Q PUTMENUPROP 50Q GETMENUPROP 15Q GETMENUPROP 3 WFROMMENU) (1136Q DECIMALPOWER 1124Q DECIMALPOWER 1065Q MAXDIGITS 1052Q DIGITYET 1042Q DIGITYET 1014Q DIGITYET 1004Q DECIMALPOWER 775Q ce 762Q TOPOFSTACK 751Q DIGITYET 741Q DECIMALPOWER 731Q C 717Q ABORT 714Q FINISHEDFLG 706Q abort 676Q STOP 673Q FINISHEDFLG 664Q quit 651Q FINISHEDFLG 643Q enter 635Q FLOATP 624Q DECIMALPOWER 604Q DECIMALPOWER 573Q DIGITYET 562Q DIGITYET 547Q DECIMALPOWER 537Q %. 524Q % 505Q = 500Q OPERATION 470Q DECIMALPOWER 460Q DIGITYET 447Q TOPOFSTACK 431Q - 417Q 354Q 341Q TOPOFSTACK 327Q OPERATION 312Q = 305Q OPERATION 274Q DIGITYET 262Q = 253Q + 244Q - 235Q 226Q 211Q 134Q DECIMALPOWER 116Q DECIMALPOWER 72Q DECIMALPOWER 55Q DIGITYET 45Q DIGITYET 35Q bs 26Q 22Q TOTAL 12Q TOTAL) ( 1172Q .1 1153Q 1.0 615Q 0.0 407Q "Can't divide by zero" 161Q ".") POSITIONPAD.HELDFN D1 (I 2 BUTTON I 1 MENU I 0 ITEM) @dgogo@dgogo@dgoygon@dgo`goU@dgoGgo<@dgo.go#@g@dgogoo (275Q PROMPTPRINT) (257Q % 244Q 235Q bs 221Q %. 205Q 170Q abort 154Q quit 137Q 123Q 106Q - 72Q + 54Q = 37Q C 21Q ce 4 enter) ( 272Q "Will put this digit on the right of the total." 265Q "doesn't do anything." 253Q "Will erase the last digit entered." 227Q "will enter a decimal point." 214Q " will change the sign of the total" 176Q "will abort this sketch operation." 163Q "Will stop prompting you for points." 145Q "Will read another number and divides the current total by it" 132Q "Will read another number to be multiplied by the current total" 114Q "Will read another number to be subtracted to the current total" 101Q "Will read another number to be added to the current total" 62Q "performs the previously specified operation between the memory and the current total" 46Q "Will clear the stack and set the total to 0" 27Q "Will reset the total to 0" 13Q "Indicates that you are through entering the position.") \POSITION.PAD.ADD.DIGIT.MENU D1 (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 @(76Q WINDOWPROP 70Q PUTMENUPROP 57Q PUTMENUPROP 47Q PUTMENUPROP 23Q CHECK/MENU/IMAGE 12Q ADDMENU) (63Q MAXDIGITS 53Q TOTAL 26Q BITMAP 16Q TOTALREG) () \POSITION.READER.NUMBERPAD D1 (I 1 WIDTH I 0 DIGITFONT) s `dodldi d@dgdgdldg jdndhdI Xd @ lH Adll(130Q FONTHEIGHT) (141Q MENU 117Q MENU 66Q CLRPROMPT 51Q POSITION.PAD.READER.HANDLER 42Q POSITIONPAD.HELDFN 5 MENUTYPE#) ( 13Q ( ce C 1 2 3 4 5 6 - 7 10Q 11Q + 0 %. =)) SK.DRAWFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () SK.TRANSFORMFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () SK.EXPANDFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () SK.INPUT D1 (I 1 SKETCHW I 0 ELEMENTTYPE) @ AkHNIL (3 SKETCHTYPE) () SK.INSIDEFN D1 (P 0 SKTYPE I 0 ELEMENTTYPE) @gX @o (22Q ERROR) (30Q SKETCHTYPE 6 SKETCHTYPE) ( 17Q "Unknown sketch type. If you can load the file containing it, do so and type 'RETURN'. Otherwise, type '^'.") SK.UPDATEFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () SK.CHECK.SKETCH.VERSION D1 (P 0 PLIST I 0 SKETCH) 7@g'l@@ @X@glh@gl (63Q LISTPUT 23Q SK.INSURE.RECORD.LENGTH) (56Q VERSION 43Q VERSION 6 VERSION) () SK.INSURE.RECORD.LENGTH D1 (P 4 NFIELDS P 3 TYPE P 2 INDPART P 1 ELT I 0 SKETCHELTS) V@AHhYZ[ \&K '`KgKh \hh JLK KgJ HX(116Q SK.INSURE.RECORD.LENGTH 100Q SK.INSURE.HAS.LENGTH 66Q \NCONC2 55Q LENGTH 52Q EVAL 32Q RECLOOK 23Q SK.RECORD.LENGTH) (105Q GROUP 71Q SKETCH.RECORD.LENGTHS 43Q CREATE 37Q SKETCH.RECORD.LENGTHS) () SK.INSURE.HAS.LENGTH D1 (I 2 TYPE I 1 N I 0 LIST) M@A 2@B gBh @ k A@ k2IHJ K Lh[IkYL&(66Q \NCONC2 47Q LENGTH 40Q NTH 33Q LENGTH 27Q EVAL 13Q RECLOOK 4 EQLENGTH) (20Q CREATE) () SK.RECORD.LENGTH D1 (I 0 SKETCHRECORDTYPE) @`NIL (3 SKETCH.RECORD.LENGTHS) () SK.SET.RECORD.LENGTHS D1 NIL rgdhdddkhh hgdhdddh hgdhddh hgdhdddddddddh hgdhddddh hgdhddddddh hgdhdddddh hgdhddddddh hgdhdddddh hgdhddddddh hgdhdddddddddh hgdhddddddddh hgdhddddddh hgdhdddh hh(532Q LENGTH 506Q LENGTH 454Q LENGTH 416Q LENGTH 356Q LENGTH 324Q LENGTH 274Q LENGTH 242Q LENGTH 212Q LENGTH 160Q LENGTH 132Q LENGTH 72Q LENGTH 50Q LENGTH 24Q LENGTH) (557Q SKETCH.RECORD.LENGTHS 514Q BITMAPELT 462Q CIRCLE 424Q ELLIPSE 364Q ARC 332Q OPENCURVE 302Q CLOSEDCURVE 250Q WIRE 220Q CLOSEDWIRE 166Q TEXT 140Q BOX 100Q TEXTBOX 56Q GROUP 32Q SKIMAGEOBJ 2 MAP) () (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 DASHINGP 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)) (* call LOAD? explicitly because it will get new versions if they exist.) (P ( for FILE in (QUOTE (SKETCHOPS SKETCHELEMENTS SKETCHEDIT SKETCHOBJ SKETCHBMELT)) do (LOAD? ( PACKFILENAME (LIST (QUOTE BODY) FILE (QUOTE EXTENSION) COMPILE.EXT))))) (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) (READVARS 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) (READVARS SK.SELECTEDMARK SK.LOCATEMARK COPYSELECTIONMARK MOVESELECTIONMARK DELETESELECTIONMARK OTHERCONTROLPOINTMARK) ({ (READBITMAP) (7 7 "ON@@" "ON@@" "ON@@" "ON@@" "ON@@" "ON@@" "ON@@") } { (READBITMAP) (11 11 "OON@" "OON@" "L@F@" "L@F@" "L@F@" "L@F@" "L@F@" "L@F@" "L@F@" "OON@" "OON@") } { (READBITMAP) (11 11 "@@@@" "EED@" "BJH@" "EED@" "BJH@" "EED@" "BJH@" "EED@" "BJH@" "EED@" "@@@@") } { (READBITMAP) (19 19 "OL@@@@@@" "N@@@@@@@" "O@@@@@@@" "KH@@@@@@" "I@@@@@@@" "H@@@@@@@" "@CH@@@@@" "@CL@@@@@" "@CN@@@@@" "@AO@@@@@" "@@OH@@@@" "@@GH@@@@" "@@CH@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@") } { (READBITMAP) (13 13 "L@AH" "H@@H" "@@@@" "AHL@" "AML@" "@OH@" "@G@@" "@OH@" "AML@" "AHL@" "@@@@" "H@@H" "L@AH") } { (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) (for FILE in (QUOTE (SKETCHOPS SKETCHELEMENTS SKETCHEDIT SKETCHOBJ SKETCHBMELT)) do (LOAD? ( PACKFILENAME (LIST (QUOTE BODY) FILE (QUOTE EXTENSION) COMPILE.EXT)))) (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)) NIL