(FILECREATED "29-Aug-85 19:23:08" ("compiled on " {PHYLUM}SKETCH.;167) "19-Mar-85 14:34:17" recompiled changes: SKETCHW.CREATE MYGETPROMPTWINDOW CREATE.SKETCHW.COMMANDMENU READBRUSHSIZE SKETCHW.SCROLLFN SK.SKETCH.MENU SK.RETURN.TTY SK.TAKE.TTY ADD.GLOBAL.DISPLAY in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "29-Aug-85 19:20:25" {PHYLUM}SKETCH.;167 372724 changes to: (FNS SKETCHW.SCROLLFN SK.SKETCH.MENU SKETCHW.CREATE CREATE.SKETCHW.COMMANDMENU SK.RETURN.TTY SK.TAKE.TTY READBRUSHSIZE MYGETPROMPTWINDOW ADD.GLOBAL.DISPLAY) (VARS SKETCHCOMS) previous date: "27-Aug-85 15:00:28" {PHYLUM}SKETCH.;164) (COND ((GETD (QUOTE SKETCHW.CREATE)) (PRINT "There is already a version of SKETCH in this SYSOUT. If you want to use a newer version, you must start with a new SYSOUT." T) (ERROR!))) DRAW.LOCAL.SKETCH D1 (I 3 SCALE I 2 STREAMREGION I 1 STREAM I 0 LOCALSPECS) #@gABCdd A A (40Q MAPSKETCHSPECS 34Q WINDOW.SCALE 26Q WINDOWP) (3 SK.DRAWFIGURE) () 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) @@d l@g@g@ @dddg`A@g A JbDddJbFddJb J?@dl3Li&@ @N@NN] hL\@ [B BgCK B B ``l d CK hi XEdiE B B H nH HgK HgDdd!A AhH A` Y HgKg Kg A jAIH jAIH H KH H HgFdd H HgFi Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg HggHddidd gHhhgigggg Z Hgi Hggi H KH H H (1267Q LEASTPOWEROF2GT 1262Q SKETCHW.REPAINTFN 1256Q ADD.SKETCH.VIEWER 1251Q OPENW 1245Q WINDOWADDPROP 1232Q PUTWINDOWPROP 1222Q PUTWINDOWPROP 1216Q ADD.PROCESS 1124Q PUTWINDOWPROP 1112Q PUTWINDOWPROP 1100Q PUTWINDOWPROP 1066Q WINDOWADDPROP 1054Q WINDOWADDPROP 1042Q WINDOWADDPROP 1030Q WINDOWADDPROP 1016Q WINDOWADDPROP 1004Q WINDOWADDPROP 772Q PUTWINDOWPROP 760Q PUTWINDOWPROP 746Q PUTWINDOWPROP 734Q PUTWINDOWPROP 722Q PUTWINDOWPROP 710Q PUTWINDOWPROP 676Q PUTWINDOWPROP 663Q PUTWINDOWPROP 660Q SK.DEFAULT.GRIDFACTOR 627Q SK.CREATE.HOTSPOT.CACHE 623Q MAP.SKETCHSPEC.INTO.VIEWER 616Q SK.UPDATE.REGION.VIEWED 611Q WYOFFSET 575Q WXOFFSET 561Q REGIONP 555Q PUTWINDOWPROP 552Q PUTSKETCHPROP 547Q CREATE.DEFAULT.SKETCH.CONTEXT 536Q GETSKETCHPROP 523Q PUTWINDOWPROP 517Q \ILLEGAL.ARG 477Q DSPCLIPPINGREGION 464Q REGIONP 437Q PUTWINDOWPROP 427Q DSPRIGHTMARGIN 417Q SHAPEW 412Q WINDOWP 405Q REGIONP 400Q SK.FIX.MENU 367Q CREATEW 362Q SK.WINDOW.TITLE 353Q CREATEREGION 335Q REGIONP 325Q PUTWINDOWPROP 322Q SK.WINDOW.TITLE 305Q WINDOWP 300Q \ILLEGAL.ARG 263Q GLOBALELEMENTP 237Q SKIO.UPDATE.FROM.OLD.FORM 120Q REGIONP 113Q IMAGEOBJPROP 47Q PUTPROP 44Q SKETCH.CREATE 10Q SKETCH.CREATE) (1241Q SKETCHW.CLOSEFN 1236Q CLOSEFN 1226Q SCROLLEXTENTUSE 1212Q SK.TTYEXITFN 1207Q TTYEXITFN 1204Q SK.TTYENTRYFN 1201Q TTYENTRYFN 1175Q RESTARTABLE 1163Q QUOTE 1133Q WB.EDITOR 1130Q PROCESS 1121Q NILL 1116Q PAGEFULLFN 1107Q SKETCHW.HARDCOPYFN 1104Q HARDCOPYFN 1075Q SKETCHW.SCROLLFN 1072Q SCROLLFN 1063Q SK.TAKE.TTY 1060Q EXPANDFN 1051Q SK.RETURN.TTY 1046Q SHRINKFN 1037Q SK.SHRINK.ICONCREATE 1034Q SHRINKFN 1025Q SK.UPDATE.REGION.VIEWED 1022Q RESHAPEFN 1013Q SKETCHW.FIG.CHANGED 1010Q RESHAPEFN 1001Q RESHAPEBYREPAINTFN 776Q RESHAPEFN 767Q SKETCHW.REPAINTFN 764Q REPAINTFN 755Q SKETCHW.OUTFN 752Q CURSOROUTFN 743Q WB.BUTTON.HANDLER 740Q RIGHTBUTTONFN 731Q SK.COPY.INSERTFN 726Q COPYINSERTFN 717Q SK.COPY.BUTTONEVENTFN 714Q COPYBUTTONEVENTFN 705Q WB.BUTTON.HANDLER 702Q BUTTONEVENTFN 667Q USEGRID 633Q GRIDFACTOR 544Q SKETCHCONTEXT 533Q SKETCHCONTEXT 527Q SKETCHCONTEXT 513Q INITIAL.SCALE 443Q SCALE 433Q SKETCH 345Q LASTMOUSEY 342Q LASTMOUSEX 313Q TITLE 110Q OBJECTDATUM 101Q IMAGEOBJTYPE# 70Q SKETCH 40Q SKETCH 25Q SKETCH) () 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 0 SLIDENAME) $@ o bhndn hdio @(40Q SKETCHW.CREATE 25Q GETBOXREGION 11Q GENSYM) NIL ( 34Q 16.0 6 "SLIDE") EDITSKETCH D1 (I 0 SLIDENAME) @ o bhdddio @(30Q SKETCHW.CREATE 11Q GENSYM) NIL ( 24Q 16.0 6 "SLIDE") SK.FIX.MENU D1 (P 0 MENUW I 2 MENU? I 1 DONTOPENFLG I 0 SKETCHW) lB`Bi @gH @i @ XHgHg  l H@ #H@ggg Hgg AH h(150Q OPENW 141Q WINDOWADDPROP 126Q ATTACHWINDOW 105Q MEMB 102Q ATTACHEDWINDOWS 75Q PUTWINDOWPROP 67Q BITMAPWIDTH 64Q UPDATE/MENU/IMAGE 60Q GETWINDOWUSERPROP 43Q SK.INSURE.HAS.MENU 36Q SK.INSURE.HAS.MENU 30Q PUTWINDOWPROP 17Q MENUWINDOW) (136Q DETACHWINDOW 133Q CLOSEFN 122Q LOCALCLOSE 117Q TOP 114Q RIGHT 55Q MENU 51Q MINSIZE 24Q SKETCHFIXEDMENU 7 MENUTYPE#) () SK.PUT.ON.FILE D1 (P 4 SKW P 3 TEXTSTREAM P 2 NEWNAME P 1 NOWNAME P 0 SKETCH I 0 SKETCHW) @ 1HY@ooI hI ZhIJ'HJH dLgoJ ohddg@g g@ h [@ Kk KJ J J H J(221Q SK.MARK.UNDIRTY 214Q CLOSEF 207Q OPENP 203Q TEDIT.PUT 176Q TEDIT.INSERT.OBJECT 171Q SKETCHIMAGEOBJ.FROM.VIEWER 164Q OPENTEXTSTREAM 153Q GETPROMPTWINDOW 144Q GETWINDOWUSERPROP 116Q PUTWINDOWPROP 113Q CONCAT 70Q ALL.SKETCH.VIEWERS 45Q MKATOM 42Q PROMPT.GETINPUT 33Q STRPOS 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) (147Q PROMPTWINDOW 141Q TEDIT.PUTFN 135Q PUTFN 103Q TITLE) ( 127Q "" 107Q "Viewer onto " 27Q " " 23Q "File to PUT to: ") SK.GET.FROM.FILE D1 (P 15Q SKPROP P 14Q SKW P 13Q DEFAULTS P 12Q READSKETCH P 11Q SCALE P 10Q SKREG P 7 OBJ P 5 DIRTYSTATUS P 4 IMAGEOBJ P 3 TEXTSTREAM P 2 NEWNAME P 1 NOWNAME P 0 SKETCH I 0 SKETCHW) @ aHY@o Zdo @ h@o Jhddg@ h [d \J J L @Jo hLg OOO OOOg@Jo IJ$HJH d OgH Hdi]gO Og _aHPOHg D`dodi dodldg dgjdndhdN iHgO O@ O;d Odg,gHgOg Hg HOOO O@ MH @o h(640Q STATUSPRINT 627Q SK.MARK.UNDIRTY 620Q SK.CHANGE.GRID 577Q PUTSKETCHPROP 574Q GETSKETCHPROP 561Q UNION 556Q GETSKETCHPROP 547Q GETSKETCHPROP 501Q SK.ADD.ELEMENTS.TO.SKETCH 470Q PUTSKETCHPROP 454Q MENU 350Q GETSKETCHPROP 326Q GETSKETCHPROP 315Q PUTSKETCHPROP 267Q PUTWINDOWPROP 264Q SK.WINDOW.TITLE 244Q ALL.SKETCH.VIEWERS 222Q STATUSPRINT 145Q IMAGEOBJPROP 134Q STATUSPRINT 122Q IMAGEOBJP 115Q CLOSEF 110Q OPENP 100Q OPENTEXTSTREAM 71Q GETPROMPTWINDOW 56Q STATUSPRINT 44Q CLOSEPROMPTWINDOW 37Q MEMB 26Q MKATOM 23Q PROMPT.GETINPUT 3 SKETCH.FROM.VIEWER) (553Q VIEWS 544Q VIEWS 537Q VIEWS 530Q VIEWS 522Q SKETCHCONTEXT 463Q SKETCHCONTEXT 425Q DEFAULTMENUHELDFN 416Q CLRPROMPT 356Q MENUTYPE# 345Q SKETCHCONTEXT 323Q SKETCHCONTEXT 310Q SKETCHCONTEXT 260Q TITLE 207Q SKETCH 142Q OBJECTDATUM 65Q PROMPTWINDOW) ( 635Q " done." 401Q "Use the defaults from the retrieved sketch?" 364Q ((Yes T "Will use the defaults of the retrieved sketch.") (No NIL "Will not change the defaults.")) 217Q " is not a sketch file." 131Q " is not a sketch file." 53Q " ..." 34Q (NIL %]) 20Q "File to GET: ") SK.ADD.ELEMENTS.TO.SKETCH D1 (P 0 ELT I 1 SKW I 0 ELTS) @dHA h(13Q SK.ADD.ELEMENT) NIL () STATUSPRINT D1 (P 4 X P 2 WIN P 1 BEG P 0 NEXPS F 5 TtyDisplayStream) peHj>k@ l@l @ *l@ @ Z`HILdK!h @ilU U aJ Lk\(147Q PRIN1 140Q GETPROMPTWINDOW 132Q HASTTYWINDOWP 127Q THIS.PROCESS 110Q GETPROMPTWINDOW 61Q OPENWP 56Q PROCESS.TTY 51Q HASTTYWINDOWP 40Q PROCESSP 32Q MYGETPROMPTWINDOW 20Q WINDOWP) (67Q PROMPTWINDOW) () CLEARPROMPTWINDOW D1 (P 0 PWIN I 0 W) #@ @hdi Xd H h(40Q CLRPROMPT 33Q CLEARW 25Q OPENWP 17Q GETPROMPTWINDOW 3 WINDOWP) NIL () CLOSEPROMPTWINDOW D1 (P 0 PROMPTW I 0 WINDOW) @hdi Hd H h(27Q CLOSEW 22Q CLEARW 11Q OPENWP 6 GETPROMPTWINDOW) NIL () MYGETPROMPTWINDOW D1 (P 0 PROMPTW I 3 DONTCREATE I 2 FONT I 1 NLINES I 0 MAINW) (gk lBg C Hdgg H(44Q WINDOWADDPROP 25Q GETPROMPTWINDOW 21Q DEFAULTFONT 6 ARG) (41Q DETACHWINDOW 36Q CLOSEFN 16Q DISPLAY 2 NEXPS) () PROMPT.GETINPUT D1 (P 0 PROMPTWIN I 3 DELIMITER.LIST I 2 DEFAULTSTRING I 1 PROMPTSTRING I 0 WINDOW) /@ `XABhHhdCo  X (52Q FRESHLINE 46Q GETPROMPTWINDOW 40Q CLEARW 34Q PROMPTFORWORD) (10Q PROMPTWINDOW) ( 30Q (15Q 12Q 11Q 33Q)) SK.INSURE.HAS.MENU D1 (P 0 OPMENUW I 1 POPUPFLG I 0 SKETCHW) ,@Agg dA i @AggH H(50Q WINDOWPROP 27Q MENUWINDOW 23Q CREATE.SKETCHW.COMMANDMENU 14Q WINDOWPROP) (44Q SKETCHFIXEDMENU 40Q SKETCHPOPUPMENU 11Q SKETCHFIXEDMENU 5 SKETCHPOPUPMENU) () CREATE.SKETCHW.COMMANDMENU D1 (I 2 ELEMENTTYPES I 1 ADDFIXITEM I 0 MENUTITLE F 5 ALLOWSKETCHPUTFLG) o`oooog oB`AH Ig og og ooooooUoUoAooo HdIdi dg` HdId@dg dgjdndhHdI d ` gg k g\dLdhJKhZYHXK&Z(467Q MAX 462Q BITMAPHEIGHT 443Q FONTHEIGHT 440Q FONTCREATE 337Q FONTNAMELIST 334Q FONTCREATE 300Q \APPEND2 275Q \APPEND2 272Q \APPEND2 267Q \APPEND2 264Q \APPEND2 261Q \APPEND2 256Q \APPEND2 253Q \APPEND2 250Q \APPEND2 245Q \APPEND2 242Q \APPEND2 237Q \APPEND2 234Q \APPEND2 231Q \APPEND2 226Q \APPEND2 223Q \APPEND2 220Q \APPEND2 202Q USERNAME 120Q \DEFINEDP 104Q \DEFINEDP 70Q \DEFINEDP 31Q \DEFINEDP) (522Q SKETCHTYPE 513Q SKETCHTYPE 504Q SKETCHTYPE 476Q SKETCHTYPE 455Q SKETCHTYPE 451Q SKETCHTYPE 446Q ARC 435Q BOLDFONT 425Q MENU 371Q DEFAULTMENUHELDFN 362Q CLRPROMPT 331Q BOLDFONT 323Q SKETCHW.SELECTIONFN 115Q GROUP.DRAWFN 101Q GROUP.DRAWFN 65Q SK.SEL.AND.SHOW.ANNOTE 45Q SKETCH.ELEMENT.TYPE.NAMES 26Q SK.SEL.AND.SHOW.ANNOTE 2 MENUTYPE#) ( 215Q ((inspect INSPECT.SKETCH "Calls the Inspector on the figure data structures.")) 206Q "BURTON.PA" 177Q ((Fix% Menu SK.FIX.MENU "leaves up the menu of sketch operations.")) 170Q ((Get SK.GET.FROM.FILE "gets a sketch from a file.")) 161Q ((Put SK.PUT.ON.FILE "saves this sketch on a file")) 152Q ((HardCopy HARDCOPYIMAGEW "sends a copy of the current window contents on the default printer." (SUBITEMS ("To a file" HARDCOPYIMAGEW.TOFILE "Puts image on a file; prompts for filename and format") ("To a printer" 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.")))) 146Q (("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 it" SK.FRAME.IT "moves so that the entire sketch just fits in the window") ("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")))) 142Q ((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.")))) 136Q ((Defaults SKETCH.SET.BRUSH.SIZE "Sets the characteristics of the default brush." (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 "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")))))) 132Q ((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.")))) 126Q ((UnGroup SK.UNGROUP.ELT "replaces a group element by its constituents.")) 112Q ((Group SK.GROUP.ELTS "groups a collection of elements into a single unit.")) 76Q ((Link SK.ADD.ANNOTATION "Adds an annotation object.")) 37Q ((Annotate 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.")) 17Q ((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.")))) 13Q ((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.") ("Move onto grid" SK.PUT.ELTS.ON.GRID "Moves control points to nearest grid point.") ("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")))))) 7 ((Delete SK.DELETE.ELT "Deletes one or more elements from the sketch."))) GETSKETCHWREGION D1 (I 0 SKETCHWINDOW) @ @ (12Q UNSCALE.REGION 7 SKETCHW.SCALE 3 GETWREGION) NIL () 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 (I 0 NOWSIZE) "@o@o ohddi djh(32Q RNUMBER 15Q CONCAT) NIL ( 22Q "Enter new brush size." 12Q ". Enter new brush size." 5 "Current size is ") READANGLE D1 NIL ohddi djh(13Q RNUMBER) NIL ( 3 "Enter arc angle in degrees.") READARCDIRECTION D1 (I 0 MENUTITLE) J`@oHdIdodi dg dgjdndhHdI  (107Q 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.ADD.ELEMENT D1 (P 3 SKW P 1 ADDEDELT P 0 SKETCH I 3 GROUPFLG I 2 DONTCLEARCURSOR I 1 SKETCHW I 0 GELT) F@,A BA @H @Ad C YH JI[A@K @KC JZ(76Q SKETCH.ADD.AND.DISPLAY1 67Q ELT.INSIDE.SKETCHWP 44Q ALL.SKETCH.VIEWERS 37Q SKETCH.ADD.AND.DISPLAY1 33Q SCALE.FROM.SKW 25Q ADD.ELEMENT.TO.SKETCH 17Q SKED.CLEAR.SELECTION 6 SKETCH.FROM.VIEWER) NIL () SK.APPLY.MENU.COMMAND D1 (I 1 SKETCHW I 0 COMMAND) ?@d;d`A Ak@Addidd gAhh (74Q EVAL 71Q \APPEND2 16Q SKETCHW.ADD.INSTANCE) (60Q 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.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) @ dHgi h(21Q PUTWINDOWPROP 3 ALL.SKETCH.VIEWERS) (15Q 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") SK.SCALE.POSITION.INTO.VIEWER D1 (I 1 SCALE I 0 POS) @A @A (15Q FIXR 6 FIXR) NIL () 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 (I 0 SKW) r@g @g @@ g6g@g )@g i@o oi@ @ @g @ @g @gg h(156Q WINDOWADDPROP 144Q DEL.PROCESS 141Q PUTWINDOWPROP 132Q REMOVE.SKETCH.VIEWER 126Q GETWINDOWUSERPROP 116Q CLOSEPROMPTWINDOW 110Q MOUSECONFIRM 105Q GETPROMPTWINDOW 73Q STATUSPRINT 57Q GETWINDOWUSERPROP 46Q GETWINDOWUSERPROP 25Q UPDATE.IMAGE.IN.DOCUMENT 17Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (153Q SKETCHW.REOPENFN 150Q OPENFN 136Q PROCESS 123Q SKETCH 54Q SKETCHCHANGED 43Q DONTQUERYCHANGES 36Q DON'T 30Q DON'T 14Q SKETCHCHANGED 3 DOCUMENTINFO) ( 100Q "unsaved changes ... press LEFT to close anyway" 70Q " ") SKETCHW.OUTFN D1 (L (0 SKW)) hNIL NIL () SKETCHW.REOPENFN D1 (I 0 SKW) 9@g @ @gg@ddidd g@hh (66Q PUTWINDOWPROP 63Q ADD.PROCESS 12Q ADD.SKETCH.VIEWER 6 GETWINDOWUSERPROP) (51Q 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 2 STOPIFMOUSEDOWN I 1 REG I 0 W) .g@ n@ g@ @AB l ` @ (52Q SKED.SELECTION.FEEDBACK 46Q SKETCHW.REPAINTFN1 37Q \CLOCK0 24Q DSPSCROLL 15Q DSPRIGHTMARGIN 6 DSPOPERATION) (42Q AUTOZOOM.REPAINT.TIME 20Q OFF 2 PAINT) () SKETCHW.REPAINTFN1 D1 (I 2 TIMER I 1 REGION I 0 SKW) &@ Bgg@A@ @g @ (43Q SK.DISPLAY.GRID.POINTS 35Q GETWINDOWUSERPROP 26Q MAPSKETCHSPECS 22Q WINDOW.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"`ljPg gg (50Q RETFROM 36Q TIMEREXPIRED? 14Q GETMOUSESTATE 6 SK.DRAWFIGURE) (45Q STOPPED 42Q SKETCHW.REPAINTFN1 33Q MILLISECONDS 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 WINDOW.SCALE 67Q CREATEREGION 24Q SKED.CLEAR.SELECTION 15Q DSPCLIPPINGREGION 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SKETCHW.SELECTIONFN D1 (P 1 PROMPTW P 0 SKW I 1 MENU I 0 ITEM) A g H H @H (33Q SK.APPLY.MENU.COMMAND 24Q RESET.LINE.BEING.INPUT 20Q CLOSEPROMPTWINDOW 11Q GETWINDOWUSERPROP 3 WFROMMENU) (6 MAINWINDOW) () 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.WHENDELETEDFN D1 (P 0 GELT I 1 SKETCHW I 0 GELT) -@dg@A g@dHA h(44Q SK.CHECK.WHENDELETEDFN 16Q SK.APPLY.WHENDELETEDFN) (22Q GROUP 7 SKIMAGEOBJ) () SK.APPLY.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.CREATE D1 (P 3 I P 1 SKETCH P 0 ARGS) IegHj@hhd Ig HkHlKJIKaKka Kl[I(75Q PUTSKETCHPROP 43Q PUTSKETCHPROP 40Q CREATE.DEFAULT.SKETCH.CONTEXT 24Q LAST) (35Q SKETCHCONTEXT 6 SKETCH) () GETSKETCHPROP D1 (P 0 SKETCHCONTEXT I 1 PROPERTY I 0 SKETCH)  @g AdgHgHAdgHgHAdgHgHAdgHgHAdgHgHAdgHgAdgHgHAdgHgHAdg@g@@A (406Q LISTGET 11Q LISTGET) (367Q NAME 355Q ELEMENTS 331Q MOVEMODE 307Q ARCDIRECTION 265Q LINEMODE 244Q BACKCOLOR 235Q FILLINGCOLOR 213Q TEXTURE 173Q TEXTBOXALIGNMENT 155Q USEARROWHEAD 137Q DASHING 123Q ARROWHEAD 107Q TEXTALIGNMENT 75Q FONT 60Q COLOR 45Q SIZE 32Q SHAPE 21Q BRUSH 6 SKETCHCONTEXT) () PUTSKETCHPROP D1 (P 1 SKETCHCONTEXT P 0 PLIST I 2 VALUE I 1 PROPERTY I 0 SKETCH) @@g "AdgIBmgIBIIIPAdgIdBII1gIdIBIAdgIBgIBAdgIBgIBAdgIBgIBAdg"IIBJJgAdgII[BKcgIBQAdgIB;gIB'Adg@Bg@BH @ABhBAB (617Q LISTPUT 15Q LISTGET) (564Q NAME 550Q ELEMENTS 522Q MOVEMODE 476Q ARCDIRECTION 452Q LINEMODE 407Q FILLINGCOLOR 400Q BACKCOLOR 332Q TEXTURE 307Q TEXTBOXALIGNMENT 266Q USEARROWHEAD 245Q DASHING 226Q ARROWHEAD 207Q TEXTALIGNMENT 172Q FONT 135Q COLOR 100Q SIZE 41Q SHAPE 25Q BRUSH 12Q SKETCHCONTEXT) () CREATE.DEFAULT.SKETCH.CONTEXT D1 (F 0 SK.DEFAULT.FONT F 1 SK.DEFAULT.TEXTURE) 4`P g ```h`Q`hihdh(16Q SK.FONT.LIST 13Q DEFAULTFONT) (37Q SK.DEFAULT.BACKCOLOR 33Q SK.DEFAULT.TEXTBOX.ALIGNMENT 27Q SK.DEFAULT.DASHING 24Q SK.DEFAULT.ARROWHEAD 21Q SK.DEFAULT.TEXT.ALIGNMENT 10Q DISPLAY 2 SK.DEFAULT.BRUSH) () SK.COPY.BUTTONEVENTFN D1 (P 30Q SEL P 27Q SELITEM P 26Q SELITEM 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 SCALE P 3 HOTSPOTCACHE P 2 DELETEMODE P 1 COPYMODE I 0 WINDOW) @ . l`lj?`l@j`lj`dl@j;`nj`lj#@g g@ @ `lHj HH `l@j&`lj`dl@j `lj@ . %`nj`lj `lj@ @  KxIJs@ @K @ooIJggJg `l_"j,O"!`lk_ IJ @g E IJ @K h`l_$j3O$O$ '@ `` IJ h_@g v@ _@ _O`OO_OjiOeOah_`llh_ O *`lk @ dO,@IJ @ dO.@IJ h_`l_&j[O&O& OKOO _F`llh_ O `dlkO@IJ `ljO@IJ h_`_ZOMOAOOh6NO_(jO(O(jO(lOO_*jO*O*jO*li_KNOOOL@IJ OO_>dO0@IJ @K @ O:@ . 0I#JO@ IO O@i O@ JO@ O@O (1574Q COPYINSERT 1571Q SK.BUILD.IMAGEOBJ 1560Q SK.DELETE.ELEMENT 1546Q SK.COPY.ELEMENTS 1537Q COPYINSERT 1534Q SK.BUILD.IMAGEOBJ 1516Q SK.MOVE.ELEMENTS 1501Q TTY.PROCESSP 1474Q \INSUREWINDOW 1463Q CLOSEPROMPTWINDOW 1456Q SK.TAKE.MARKS.DOWN 1444Q SK.REMOVE.SELECTION 1441Q SK.BUTTONEVENT.MARK 1410Q SK.UPDATE.EVENT.SELECTION 1244Q SK.REMOVE.SELECTION 1241Q SK.BUTTONEVENT.MARK 1216Q SK.ADD.SELECTION 1213Q SK.BUTTONEVENT.MARK 1141Q IN.SKETCH.ELT? 1126Q \FZEROP 1065Q SK.REMOVE.SELECTION 1062Q SK.BUTTONEVENT.MARK 1043Q LOCALSPECS.FROM.VIEWER 1027Q SK.ADD.SELECTION 1024Q SK.BUTTONEVENT.MARK 1005Q LOCALSPECS.FROM.VIEWER 676Q LASTMOUSEX 667Q LASTMOUSEY 660Q GETWINDOWUSERPROP 644Q SK.BUTTONEVENT.SAME.KEYS 635Q INSIDEP 622Q \INSUREWINDOW 614Q \FZEROP 564Q SK.TAKE.MARKS.DOWN 555Q SK.BUTTONEVENT.OVERP 546Q \FZEROP 541Q GETWINDOWUSERPROP 530Q SK.BUTTONEVENT.OVERP 522Q GETMOUSESTATE 461Q GETMOUSESTATE 455Q STATUSPRINT 416Q SK.PUT.MARKS.UP 410Q TOTOPW 366Q WINDOW.SCALE 362Q SK.HOTSPOT.CACHE 311Q TTY.PROCESSP 304Q \INSUREWINDOW 213Q \FZEROP 163Q SK.SEL.AND.MOVE 156Q SK.SEL.AND.MOVE.POINTS 132Q GETWINDOWUSERPROP 10Q TTY.PROCESSP 3 \INSUREWINDOW) (1254Q LASTMOUSEBUTTONS 1223Q LASTMOUSEBUTTONS 1172Q LASTMOUSEBUTTONS 1150Q LASTMOUSEBUTTONS 1103Q LASTMOUSEBUTTONS 772Q LASTMOUSEBUTTONS 750Q LASTMOUSEBUTTONS 706Q LASTMOUSEBUTTONS 655Q SKETCH.SELECTIONS 632Q LASTMOUSEY 627Q LASTMOUSEX 571Q LASTMOUSEBUTTONS 536Q SKETCH.SELECTIONS 507Q LASTMOUSEBUTTONS 465Q LASTMOUSEBUTTONS 452Q DELETE 443Q COPY 437Q MOVE 347Q \EM.KBDAD3 333Q \EM.KBDAD2 316Q \EM.KBDAD2 271Q \EM.KBDAD3 253Q \EM.KBDAD4 237Q \EM.KBDAD3 223Q \EM.KBDAD2 167Q LASTMOUSEBUTTONS 150Q POINTS 127Q SKETCHCONTEXT 112Q \EM.KBDAD2 76Q \EM.KBDAD2 60Q \EM.KBDAD4 45Q \EM.KBDAD3 31Q \EM.KBDAD2 15Q \EM.KBDAD3) ( 430Q "Select elements to " 424Q " ") 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 16Q GELT P 15Q LOCALSKELT P 10Q TEXTELT P 4 TEXTELTS P 3 GELT P 2 LOCALSKELT I 2 CHARSONLYFLG I 1 SKW I 0 SCRELTS) B}@1HILg 0LQIJ[dgK[gK[ Khh HXdO ]NM_^O  ^MA HhH@QO Od @A A A __dg _OOh__O_O&_(313Q COPY 307Q SK.COPY.IMAGEOBJ 264Q SKETCH.IMAGEOBJ 261Q SK.GRIDFACTOR 255Q WINDOW.SCALE 251Q SK.GLOBAL.REGION.OF.ELEMENTS 246Q WINDOW.SCALE 236Q LAST 201Q INSURE.SKETCH 170Q LAST 164Q BUTLAST 136Q SK.ADD.SPACES 111Q \NCONC2 100Q SK.TEXTBOX.TEXT.POSITION 26Q SORT) (302Q SKIMAGEOBJ 66Q TEXTBOX 51Q TEXT 23Q SK.BUILD.IMAGEOBJA0001) () SK.BUTTONEVENT.OVERP D1 (L (1 DELETEMODE 0 COPYMODE)) Aa`nj`lj `ljhc@h^`l@j&`lj`dl@j `ljh@(`l@j`lj`dl@jhNIL (177Q \EM.KBDAD4 163Q \EM.KBDAD3 147Q \EM.KBDAD2 127Q \EM.KBDAD3 111Q \EM.KBDAD4 75Q \EM.KBDAD3 61Q \EM.KBDAD2 36Q \EM.KBDAD3 22Q \EM.KBDAD2 5 \EM.KBDAD2) () SK.BUTTONEVENT.SAME.KEYS D1 (L (1 DELETEMODE 0 COPYMODE)) AY`nj`lj`lj4@`l@j&`lj`dl@j `lj@`l@j`lj`dl@jNIL (167Q \EM.KBDAD4 153Q \EM.KBDAD3 137Q \EM.KBDAD2 120Q \EM.KBDAD3 102Q \EM.KBDAD4 66Q \EM.KBDAD3 52Q \EM.KBDAD2 35Q \EM.KBDAD3 22Q \EM.KBDAD2 5 \EM.KBDAD2) () SK.SEL.AND.CHANGE D1 (I 0 W) @i @ (10Q SK.CHANGE.THING 4 SK.SELECT.MULTIPLE.ITEMS) NIL () SK.CHANGE.ELT D1 (I 0 W) g@h (11Q EVAL.AS.PROCESS) (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) () 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.SEL.AND.MAKE D1 (I 1 W I 0 CHANGECOMMAND) g@A A (13Q SK.APPLY.CHANGE.COMMAND 7 SK.SELECT.MULTIPLE.ITEMS) (2 SK.ELEMENTS.CHANGEFN) () SK.APPLY.CHANGE.COMMAND D1 (P 1 CHANGES P 0 NEWGLOBALS I 3 SKW I 2 SCRELTS I 1 COMMAND I 0 CHANGEFN) \ A3 BCAl@X%BHRK_JLYC gIC H_OOOhMNh]KJN&(62Q SK.ADD.HISTEVENT 51Q SK.UPDATE.ELEMENTS) (55Q CHANGE) () SK.ELEMENTS.CHANGEFN D1 (P 7 GELT P 6 SCRELT P 1 CHANGEASPECTFN P 0 CHANGEHOW I 2 HOW I 1 SKW I 0 SCRELTS) BBdggdggzdggndggbdggVdggJdgg>dgdgdgdgdgBgdggggYh@QJK^_dgIHA HAlIL Mh\JZM&(272Q SK.GROUP.CHANGEFN) (262Q GROUP 230Q SK.CHANGE.FILLING.COLOR 222Q FILLINGCOLOR 216Q SK.CHANGE.BRUSH.COLOR 210Q BRUSHCOLOR 202Q SK.CHANGE.TEXT 172Q FAMILY&SIZE 164Q SAME 156Q SETSIZE 147Q NEWFONT 140Q TEXT 132Q SK.CHANGE.ARC.DIRECTION 124Q DIRECTION 116Q SK.CHANGE.ANGLE 110Q ANGLE 102Q SK.CHANGE.DASHING 74Q DASHING 66Q SK.CHANGE.FILLING 60Q FILLING 52Q SK.CHANGE.ARROWHEAD 44Q ARROW 36Q SK.CHANGE.BRUSH.SHAPE 30Q SHAPE 21Q SK.CHANGE.BRUSH.SIZE 13Q SIZE) () SK.GROUP.CHANGEFN D1 (P 4 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) @A0H0d\dgABC BClAZiJNMh_M&OYKhIHB N_M'OZ@g@J@@hO_OOh__NMO&_(40Q SK.GROUP.CHANGEFN) (142Q GROUP 30Q GROUP) () ADD.ELEMENT.TO.SKETCH D1 (P 0 REALSKETCH I 1 SKETCH I 0 GELT) A H@ H h(20Q SK.MARK.DIRTY 14Q TCONC 3 INSURE.SKETCH) NIL () 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 () VIEWER.BUCKET D1 (I 0 SKETCH) @` (6 FASSOC) (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 SK.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 TCONC 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) .CddC@XCH@ABdA @(52Q SK.DRAWFIGURE1 47Q DSPCLIPPINGREGION) NIL () SK.DRAWFIGURE1 D1 (I 2 REGION I 1 SKW I 0 ELT) @ @ABlH(7 SK.DRAWFN) NIL () SK.LOCAL.FROM.GLOBAL D1 (I 2 SCALE I 1 SKSTREAM I 0 GELT) $@ @BddA AlH(33Q SKETCHW.SCALE 6 SK.EXPANDFN) NIL () SK.REGION.VIEWED D1 (I 0 SKETCHW) @g (6 GETWINDOWUSERPROP) (3 REGION.VIEWED) () SK.UPDATE.REGION.VIEWED D1 (I 0 SKW) @g@d (16Q PUTWINDOWPROP 13Q SK.CALC.REGION.VIEWED 10Q WINDOW.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 WINDOW.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) @i @ (10Q SK.DELETE.ELEMENT 4 SK.SELECT.MULTIPLE.ITEMS) NIL () 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) ;A @H H@ A iBHIZ @J A JJ(63Q SK.MARK.DIRTY 56Q DELFROMGROUPELT 31Q SK.MARK.DIRTY 24Q DELFROMTCONC 15Q MEMB 3 INSURE.SKETCH) NIL () SK.DELETE.ELEMENT D1 (P 4 GELT P 0 OLDGELTS I 1 SKETCHW I 0 ELTSTODEL) A@hA g0@dJIh[I&KXA HdLA H(70Q SK.DELETE.ELEMENT1 54Q SK.ADD.HISTEVENT 12Q SKED.CLEAR.SELECTION) (15Q DELETE) () SK.ERASE.ELT D1 (I 2 REGION I 1 WINDOW I 0 ELT) gA @ABA gA (27Q DSPOPERATION 20Q SK.DRAWFIGURE 15Q SCALE.FROM.SKW 6 DSPOPERATION) (23Q PAINT 2 ERASE) () SK.DELETE.ELT D1 (I 0 W) g@h (11Q EVAL.AS.PROCESS) (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) bA@@k @h@hE@d=A@"@HY)@@IIhI@HYAIId@I(14Q EQLENGTH) NIL () SK.COPY.ELT D1 (I 0 W) g@h (11Q EVAL.AS.PROCESS) (2 SK.SEL.AND.COPY) () SK.SEL.AND.COPY D1 (I 0 W) @i @ (10Q SK.COPY.ELEMENTS 4 SK.SELECT.MULTIPLE.ITEMS) NIL () SK.COPY.ELEMENTS D1 (P 5 NEWELTS P 4 DELTAPOS P 3 NEWPOS P 2 LOWLFT P 1 FIRSTHOTSPOT P 0 FIGINFO I 1 SKW I 0 SCRELTS) o@dahA @BHZAHgoJI JI [+@gKIKIA A ]gMA hAo h(153Q STATUSPRINT 141Q SK.ADD.HISTEVENT 130Q MAPCOLLECTSKETCHSPECS 124Q SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 121Q WINDOW.SCALE 75Q CLRPROMPT 65Q GET.BITMAP.POSITION 61Q FIXR 51Q FIXR 13Q SK.FIGUREIMAGE 10Q DSPCLIPPINGREGION) (134Q COPY 102Q SK.COPY.ITEM 35Q PAINT) ( 150Q "Position was outside the window. Copy not placed." 41Q "move the figure into place and press the left button.") SK.COPY.ITEM D1 (P 1 NEWGLOBAL P 0 OLDGLOBAL I 2 W I 1 GLOBALDELTAPOS I 0 SELELT) #@HdgBi XA YdB I(37Q SK.ADD.ELEMENT 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) ApC@ ].AAAAgCM d bBCM bABM@i XdSB YHZI[@IgoKJKJ \(HgLJLJM @ ^gN@ h@oo h(251Q STATUSPRINT 233Q SK.ADD.HISTEVENT 222Q MAPCOLLECTSKETCHSPECS 216Q SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 172Q CLRPROMPT 162Q GET.BITMAP.POSITION 117Q SK.FIGUREIMAGE 107Q MAKE.LOCAL.SKETCH 73Q SCALE.REGION 57Q LAST 53Q SK.TRANSFORM.GLOBAL.ELEMENTS 16Q WINDOW.SCALE) (226Q COPY 177Q SK.COPY.ITEM 140Q PAINT 45Q SCALE.POSITION) ( 246Q "Position was outside the window. Copy not placed." 242Q " " 144Q "move the figure into place and press the left button.") SK.MOVE.ELT D1 (I 0 W) g@h (11Q EVAL.AS.PROCESS) (2 SK.SEL.AND.MOVE) () SK.MOVE.ELT.OR.PT D1 (I 0 W) g@ih (13Q EVAL.AS.PROCESS) (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@ @Ah @ (25Q SK.MOVE.ELEMENTS 21Q SK.SELECT.MULTIPLE.ITEMS 11Q SK.SELECT.ITEM) (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 15Q CHANGES P 14Q NEWGLOBALS P 13Q DELTAPOS P 12Q IMAGEBM P 11Q IMAGEPOSY P 10Q IMAGEPOSX P 7 LOWLFT P 6 NEWPOS P 5 FIRSTHOTSPOT P 4 FIGINFO P 3 PT P 2 NEWPOS P 1 OTHERHOTSPOTS P 0 SKETCHELT I 1 SKW I 0 SCRELTS F 25Q OTHERCONTROLPOINTMARK) aA @h@ @di b@b]A @ !H@H YHhA dKAW* @A A ZIdKAW* @JHA @hA @ L_L_d_O_MA oi JOOOgA A NMNM_@gOA A _g@ORO 'NOOOgA Ao h_&OO A A h_(O&O(O&h_$O"O$h_"_ O_O_O$&_"(447Q CLOSEPROMPTWINDOW 443Q SK.ADD.HISTEVENT 421Q STATUSPRINT 410Q SK.SHOW.FIG.FROM.INFO 345Q MAPCOLLECTSKETCHSPECS 341Q SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 336Q WINDOW.SCALE 306Q ERROR! 302Q CLOSEPROMPTWINDOW 275Q SK.SHOW.FIG.FROM.INFO 255Q SK.MOVE.ELEMENTSA0001 245Q CURSORPOSITION 206Q SK.FIGUREIMAGE 203Q DSPCLIPPINGREGION 174Q SK.MOVE.THING 160Q MARKPOINT 141Q GETSKWPOSITION 135Q CURSORPOSITION 123Q MARKPOINT 106Q SK.MOVE.ELEMENTS 74Q REMOVE 53Q IN.SKETCH.ELT? 47Q SK.HOTSPOT.CACHE 33Q POSITIONP 20Q POSITIONP 3 SKED.CLEAR.SELECTION) (403Q PAINT 352Q MOVE 330Q SK.TRANSLATE.ITEM 270Q PAINT) ( 416Q "Position was outside the window, copy not placed." 251Q (SK.MOVE.ELEMENTSA0001)) 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 2 GDELTAPOS P 1 NEWGLOBAL P 0 OLDGLOBAL I 3 W I 2 SKETCHELT I 1 NEWPOSSPEC I 0 SELPOS F 3 SKW) CA@B=0A@A@S Z@hJBC YBXIC gHIhhC I(77Q SK.ADD.HISTEVENT 61Q SK.UPDATE.ELEMENT 50Q SK.TRANSLATE.POINTS 36Q SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 33Q WINDOW.SCALE) (64Q MOVE) () UPDATE.ELEMENT.IN.SKETCH D1 (P 0 SKETCHSTRUCTURE I 4 UNDOFLG I 3 SKW I 2 SKETCH I 1 NEWGELT I 0 OLDGELT) +B @AHY hB i@IAiI(30Q SK.MARK.DIRTY 3 INSURE.SKETCH) NIL () SK.UPDATE.ELEMENT D1 (P 3 SKW P 1 UPDATEDELT P 0 SKETCH I 3 REDRAWIFSAMEFLG I 2 SKETCHW I 1 NEWGLOBAL I 0 OLDGLOBAL) 9B @AHB h@ABC YH JI[B@AKC JZ(61Q SK.UPDATE.ELEMENT1 34Q ALL.SKETCH.VIEWERS 27Q SK.UPDATE.ELEMENT1 15Q UPDATE.ELEMENT.IN.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SK.UPDATE.ELEMENTS D1 (P 0 PAIR I 1 WINDOW I 0 OLDNEWPAIRS) @dHHA h(17Q SK.UPDATE.ELEMENT) NIL () SK.UPDATE.ELEMENT1 D1 (P 2 NEWLOCAL P 1 UPDATEFN P 0 LOCALELT I 3 REDRAWIFSAME I 2 SKETCHW I 1 NEWGELT I 0 OLDGELT) q0@B XZ@ gHB HjgB AB @AC)HB AB A YHABlIZHB JHB AB AB (156Q SKETCH.ADD.AND.DISPLAY1 147Q ELT.INSIDE.SKWP 141Q SK.ERASE.AND.DELETE.ITEM 132Q SK.DELETE.ITEM 110Q SK.UPDATEFN 100Q SK.ADD.ITEM 72Q SK.DELETE.ITEM 55Q SKETCH.ADD.AND.DISPLAY1 47Q DSPFILL 31Q SK.DELETE.ITEM 16Q SKETCH.ELEMENT.TYPE 7 SK.LOCAL.ELT.FROM.GLOBALPART) (43Q REPLACE 21Q SKIMAGEOBJ) () SK.MOVE.ELEMENT.POINT D1 (I 0 W) g@oh (16Q EVAL.AS.PROCESS) (2 SK.SEL.AND.MOVE) ( 7 (QUOTE ONLY)) SK.MOVE.POINTS D1 (I 0 W) g@h (11Q EVAL.AS.PROCESS) (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 21Q PT P 20Q ELT 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 31Q OTHERCONTROLPOINTMARK) zA @d;A  @H Y@H&d_  kd_O Oh_O&_OZHhJ@ JA @ l [@\K^K_N_N_LA oi 1OOOgA IdO"AW2 A IAMOOOgA IdO"AW2 Ao hdO"AW2 MLML_HgOA A@ _gHORO&_.O$O(A A h_0O.O0O.h_,O*O,h_*_(O&_&O$_$O,&_*(500Q CLOSEPROMPTWINDOW 474Q SK.ADD.HISTEVENT 433Q MAPCOLLECTSKETCHSPECS 425Q SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 422Q WINDOW.SCALE 366Q MARKPOINT 347Q STATUSPRINT 332Q MARKPOINT 312Q SK.SHOW.FIG.FROM.INFO 265Q ERROR! 261Q CLOSEPROMPTWINDOW 250Q MARKPOINT 230Q SK.SHOW.FIG.FROM.INFO 210Q SK.DO.MOVE.ELEMENT.POINTSA0001 200Q CURSORPOSITION 147Q SK.FIGUREIMAGE 144Q INCREASEREGION 137Q REGION.CONTAINING.PTS 132Q UNIONREGIONS 127Q SK.GLOBAL.REGION.OF.ELEMENTS 124Q WINDOW.SCALE 117Q REGION.CONTAINING.PTS 45Q LENGTH 25Q SK.HOTSPOTS.NOT.ON.LIST 15Q SK.ELTS.CONTAINING.PTS 3 SKED.CLEAR.SELECTION) (440Q MOVE 414Q SK.MOVE.ITEM.POINTS 305Q PAINT 223Q PAINT) ( 344Q "Position was outside the window, copy not placed." 204Q (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 (I 3 W I 2 SKETCHELT I 1 GLOBALDELTA I 0 SELPTS) Bd B@AClH(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) Eh@ @ Y3@ @ @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_O`l@j`lj_O*H@ @ i_OdO @ {H@ @ kh_@g _dO @ J@g _dO$@ @J O(1100Q SK.TAKE.MARKS.DOWN 1066Q SK.REMOVE.PT.SELECTION 1050Q GETWINDOWUSERPROP 1031Q SK.REMOVE.PT.SELECTION 1013Q GETWINDOWUSERPROP 774Q INSIDEP 771Q LASTMOUSEY 765Q LASTMOUSEX 750Q SK.ADD.PT.SELECTION 724Q INSIDEP 721Q LASTMOUSEY 715Q LASTMOUSEX 642Q INSIDEP 624Q LASTMOUSEX 615Q LASTMOUSEY 603Q \FZEROP 553Q GETMOUSESTATE 546Q \FZEROP 517Q GETMOUSESTATE 500Q SK.REMOVE.PT.SELECTION 444Q SK.ADD.PT.SELECTION 405Q SK.CONTROL.POINTS.IN.REGION 401Q MAX 372Q MAX 365Q MIN 356Q MIN 332Q SK.REMOVE.PT.SELECTION 313Q SK.ADD.PT.SELECTION 265Q IN.SKETCH.ELT? 251Q LASTMOUSEY 244Q LASTMOUSEX 212Q SK.REMOVE.PT.SELECTION 174Q GETWINDOWUSERPROP 157Q INSIDEP 140Q SK.ADD.PT.SELECTION 123Q SK.TAKE.MARKS.DOWN 112Q INSIDEP 107Q LASTMOUSEY 103Q LASTMOUSEX 74Q \FZEROP 45Q GETMOUSESTATE 41Q SK.PUT.MARKS.UP 33Q TOTOPW 26Q SK.HOTSPOT.CACHE 13Q LOCALSPECS.FROM.VIEWER 4 DSPCLIPPINGREGION) (1045Q SKETCH.SELECTIONS 1010Q SKETCH.SELECTIONS 673Q \EM.KBDAD3 660Q \EM.KBDAD2 557Q LASTMOUSEBUTTONS 523Q LASTMOUSEBUTTONS 414Q LASTMOUSEBUTTONS 275Q LASTMOUSEBUTTONS 235Q LASTMOUSEBUTTONS 227Q LASTMOUSEBUTTONS 171Q SKETCH.SELECTIONS 51Q LASTMOUSEBUTTONS) () 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 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.GROUP.ELTS D1 (I 0 W) g@h (11Q EVAL.AS.PROCESS) (2 SK.SEL.AND.GROUP) () SK.SEL.AND.GROUP D1 (I 0 W) @i @ (10Q SK.GROUP.ELEMENTS 4 SK.SELECT.MULTIPLE.ITEMS) NIL () SK.GROUP.ELEMENTS D1 (P 3 GROUPREGION P 2 GROUPELT P 1 GELTS P 0 SCALE I 1 SKW I 0 SCRELTS) u@rA 1@H [0@dMLh^L&NYdddghhddhgKIK A hhZKJ JIA gJIhA h(161Q SK.ADD.HISTEVENT 145Q SK.DO.GROUP 137Q BOX.SET.SCALES 121Q MAP.GLOBAL.PT.ONTO.GRID 115Q REGION.CENTER 16Q SK.GLOBAL.REGION.OF.ELEMENTS 6 WINDOW.SCALE) (150Q GROUP 107Q GROUP 70Q GROUP) () SK.UNGROUP.ELT D1 (I 0 W) g@h (11Q EVAL.AS.PROCESS) (2 SK.SEL.AND.UNGROUP) () SK.SEL.AND.UNGROUP D1 (I 0 W) @i @ (10Q SK.UNGROUP.ELEMENT 4 SK.SELECT.MULTIPLE.ITEMS) NIL () SK.UNGROUP.ELEMENT D1 (P 2 GELTS P 1 GROUPELT I 1 SKW I 0 SCRELTS) @@H hIddgHXdZA gIJhA h(74Q SK.ADD.HISTEVENT 60Q SK.DO.UNGROUP) (63Q UNGROUP 32Q GROUP) () SK.GLOBAL.REGION.OF.ELEMENTS D1 (P 1 SCRELT P 0 GROUPREGION I 1 SCALE I 0 SCRELTS) '@dHI XHA I (43Q UNIONREGIONS 40Q SK.ITEM.REGION 33Q UNSCALE.REGION 20Q SK.ITEM.REGION) NIL () SK.GLOBAL.REGION.OF.SKETCH D1 (P 4 SKELT P 0 SCALE I 1 SKW I 0 SKETCH) /A @@d\AH JIh[I&KH (54Q SK.GLOBAL.REGION.OF.ELEMENTS 26Q SK.LOCAL.FROM.GLOBAL 3 WINDOW.SCALE) 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 7g .ghogggggggghgg h(62Q CREATE.SKETCH.ELEMENT.TYPE 5 SKETCH.ELEMENT.TYPEP) (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(23Q SK.DRAWFN) NIL () GROUP.EXPANDFN D1 (P 5 ELEMENT P 1 LOCALREGION P 0 GROUPINDVELT I 2 STREAM I 1 SCALE I 0 GROUPELT) E@HA YHA hI@Hd]BA KJh\J&Lh@(52Q SK.LOCAL.FROM.GLOBAL 26Q SK.SCALE.POSITION.INTO.VIEWER 14Q SCALE.REGION) NIL () GROUP.INSIDEFN D1 (I 1 WREG I 0 GROUPELT) @A (10Q REGIONSINTERSECTP) NIL () GROUP.REGIONFN D1 (L (0 GROUPSCRELT)) @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 Pgo BHdg5g+Hdggo Hg oi YdHIh(253Q READ.COLOR.CHANGE 233Q READ.COLOR.CHANGE 215Q READ.DASHING.CHANGE 200Q READ.ARROW.CHANGE 166Q READBRUSHSHAPE 151Q READSIZECHANGE 131Q TEXT.READCHANGEFN 113Q MENU 36Q \APPEND2 21Q SKETCHINCOLORP) (240Q FILLINGCOLOR 222Q BRUSHCOLOR 207Q DASHING 173Q ARROW 160Q SHAPE 140Q SIZE 120Q TEXT 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 5 MENUTYPE#) ( 247Q "Change filling color how?" 230Q "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.") (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.DO.GROUP D1 (P 1 GELT P 0 LOCALELT I 2 SKW I 1 GELTS I 0 GROUPELT) +AdIBi @Bid XdB` H(47Q SK.FLASHREGION 33Q SK.ADD.ELEMENT 17Q SK.DELETE.ELEMENT1) (44Q GRAYSHADE) () SK.DO.UNGROUP D1 (P 0 GELT I 2 SKW I 1 GELTS I 0 GROUPELT) /@Bi AdHBid @B B` @(53Q SK.FLASHREGION 44Q SCALE.REGION 41Q WINDOW.SCALE 23Q SK.ADD.ELEMENT 5 SK.DELETE.ELEMENT1) (50Q GRAYSHADE) () SK.GROUP.UNDO D1 (I 1 SKW I 0 EVENTARGS) @@A (10Q SK.DO.UNGROUP) NIL () SK.UNGROUP.UNDO D1 (I 1 SKW I 0 EVENTARGS) @@A (10Q SK.DO.GROUP) NIL () SK.SEL.AND.TRANSFORM D1 (I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 W) @i AB@ (12Q SK.TRANSFORM.ELEMENTS 4 SK.SELECT.MULTIPLE.ITEMS) NIL () SK.TRANSFORM.ELEMENTS D1 (P 0 NEWGLOBALS I 3 SKW I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 SCRELTS) S@gABAB C Xg@HRJI KC H_NONhLMh\JIM&(54Q SK.ADD.HISTEVENT 22Q MAPCOLLECTSKETCHSPECS 15Q SK.TRANSFORM.SCALE.FACTOR) (26Q MOVE 6 SK.TRANSFORM.ITEM) () SK.TRANSFORM.ITEM D1 (P 1 OLDGLOBAL P 0 NEWGLOBAL I 4 W I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 SELELT)  @YABC X IHDi H(25Q SK.UPDATE.ELEMENT 13Q SK.TRANSFORM.ELEMENT) NIL () SK.TRANSFORM.ELEMENT D1 (I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) @ @ABClH(6 SK.TRANSFORMFN) NIL () SK.TRANSFORM.POINT D1 (I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 PT) @BlANIL NIL () SK.TRANSFORM.POINT.LIST D1 (P 3 PT I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 PTLST) !@@d[AB IHhZH&J(15Q SK.TRANSFORM.POINT) NIL () SK.TRANSFORM.REGION D1 (P 1 UPPERRIGHT P 0 LOWERLEFT I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 REG) I @@AB X@@@@AB YHI HI IH IH (106Q CREATEREGION 103Q ABS 73Q ABS 63Q MIN 54Q MIN 44Q SK.TRANSFORM.POINT 15Q SK.TRANSFORM.POINT) NIL () SK.PUT.ELTS.ON.GRID D1 (I 0 W) Vg@ddidd g@hggh@ Hddidd gHhh (123Q EVAL.AS.PROCESS 53Q SK.GRIDFACTOR) (106Q QUOTE 44Q SK.PUT.ON.GRID 41Q QUOTE 32Q QUOTE 2 SK.SEL.AND.TRANSFORM) () SK.TRANSFORM.GLOBAL.ELEMENTS D1 (I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 SCRELTS) @gABAB (16Q MAPGLOBALSKETCHSPECS 12Q SK.TRANSFORM.SCALE.FACTOR) (3 SK.TRANSFORM.ELEMENT) () GLOBALELEMENTP D1 (I 0 ELT?) @ @(6 SKETCH.ELEMENT.NAMEP) NIL () SK.TRANSFORM.SCALE.FACTOR D1 (P 2 XUNIT P 1 YUNIT P 0 ORG I 1 TRANSFORMDATA I 0 TRANSFORMFN) 9@goo@A o@A o@A IH JH (66Q SQRT 62Q DISTANCEBETWEEN 55Q DISTANCEBETWEEN 45Q SK.TRANSFORM.POINT 34Q SK.TRANSFORM.POINT 23Q SK.TRANSFORM.POINT) (3 SK.PUT.ON.GRID) ( 40Q (1 . 0) 27Q (0 . 1) 16Q (0 . 0) 11Q 1.0) SK.TRANSFORM.BRUSH D1 (L (1 SCALEFACTOR 0 BRUSH)) @@A@@NIL NIL () SCALE.BRUSH D1 (P 0 BRUSHSIZE I 2 NEWSCALE I 1 ORGSCALE I 0 BRUSH) 4@AB@HjHd jH kIIk@@(36Q FIXR 27Q \FZEROP) NIL () TWO.PT.TRANSFORMATION.INPUTFN D1 (P 10Q FOURTHLOCALPT P 7 THIRDLOCALPT P 6 SECONDLOCALPT P 5 FIRSTLOCALPT P 4 FOURTHPT P 3 THIRDPT P 2 SECONDPT P 1 FIRSTPT P 0 SCALE I 0 WINDOW) @ @oo @ Y@ hH ]@` @oo @ ZM@` @ hH ^@` @oo @ [M@` N@` @ hH _@` @oo @ \@ M@` N@` O@` LIJKL (314Q SK.COMPUTE.TWO.PT.TRANSFORMATION 302Q SK.MARK.POSITION 271Q SK.MARK.POSITION 261Q SK.MARK.POSITION 251Q CLOSEPROMPTWINDOW 244Q SK.GETGLOBALPOSITION 240Q STATUSPRINT 223Q SK.MARK.POSITION 212Q SCALE.POSITION 204Q CLOSEPROMPTWINDOW 177Q SK.MARK.POSITION 166Q SK.MARK.POSITION 153Q SK.GETGLOBALPOSITION 147Q STATUSPRINT 132Q SK.MARK.POSITION 122Q SCALE.POSITION 114Q CLOSEPROMPTWINDOW 107Q SK.MARK.POSITION 74Q SK.GETGLOBALPOSITION 70Q STATUSPRINT 53Q SK.MARK.POSITION 43Q SCALE.POSITION 35Q CLOSEPROMPTWINDOW 26Q SK.GETGLOBALPOSITION 22Q STATUSPRINT 3 WINDOW.SCALE) (277Q NEWFIRSTPTMARK 266Q SECONDPTMARK 256Q FIRSTPTMARK 220Q NEWFIRSTPTMARK 174Q SECONDPTMARK 163Q FIRSTPTMARK 127Q SECONDPTMARK 104Q FIRSTPTMARK 50Q FIRSTPTMARK) ( 235Q "Indicate the new position of the second point." 231Q " " 144Q "Indicate the new position of the first point." 140Q " " 65Q "Indicate the second point to move." 61Q " " 17Q "Indicate the first point to move." 13Q " ") SK.TWO.PT.TRANSFORM.ELTS D1 (I 0 W) 'g@ddidd g@hh (44Q EVAL.AS.PROCESS) (32Q QUOTE 2 SK.SEL.AND.TWO.PT.TRANSFORM) () SK.SEL.AND.TWO.PT.TRANSFORM D1 (I 0 W) @i dg@ d@ h(23Q SK.TRANSFORM.ELEMENTS 15Q TWO.PT.TRANSFORMATION.INPUTFN 4 SK.SELECT.MULTIPLE.ITEMS) (11Q SK.APPLY.AFFINE.TRANSFORM) () SK.APPLY.AFFINE.TRANSFORM D1 (L (1 AFFINETRANS 0 GPOSITION)) .A@A@AA@A@ANIL NIL () SK.COMPUTE.TWO.PT.TRANSFORMATION D1 (P 21Q LENRATIO P 20Q QLEN P 17Q PLEN P 16Q QDELTAY P 15Q QDELTAX P 14Q PDELTAY P 13Q PDELTAX P 12Q MATRIX1 P 11Q SCRATCHMATRIX P 10Q MATRIX2 P 7 QY2 P 6 QX2 P 5 QY1 P 4 QX1 P 3 PY2 P 2 PX2 P 1 PY1 P 0 PX1 I 3 Q2 I 2 Q1 I 1 P2 I 0 P1 F 22Q WINDOW) @@AABBCCJH_KI_NL_OM_OdOd _djdd W$oo hOdOd _ djddd W$o hO O_"H I _dO"dO O OOO OO hO O OLMO O Okdl Olkl Olkl Okll Oldl Olll h(411Q GETELT 376Q GETELT 364Q GETELT 352Q GETELT 340Q GETELT 326Q GETELT 315Q MATMULT333 310Q TRANSLATE3BY3 277Q MATMULT333 272Q ROTATE3BY3 263Q SK.COMPUTE.SLOPE 254Q SK.COMPUTE.SLOPE 243Q MATMULT333 236Q SCALE3BY3 223Q TRANSLATE3BY3 220Q MINUS 214Q MINUS 177Q STATUSPRINT 165Q \FZEROP 144Q SQRT 126Q STATUSPRINT 110Q \FZEROP 71Q SQRT 25Q CREATE3BY3 22Q CREATE3BY3) NIL ( 174Q "The two destination points can not be the same." 123Q "The two source points can not be the same." 117Q " ") SK.COMPUTE.SLOPE D1 (I 1 DELTAY I 0 DELTAX) 2@j@d Ajoo@jooA@ (56Q ARCTAN 14Q \FZEROP) NIL ( 50Q 180.0 43Q 0.0 32Q -90.0 25Q 90.0) SK.THREE.PT.TRANSFORM.ELTS D1 (I 0 W) 'g@ddidd g@hh (44Q EVAL.AS.PROCESS) (32Q QUOTE 2 SK.SEL.AND.THREE.PT.TRANSFORM) () SK.COMPUTE.THREE.PT.TRANSFORMATION D1 (P 25Q F P 24Q EY P 23Q DX P 22Q C P 21Q BY P 20Q AX P 17Q A&DBOTTOM P 16Q DELTAPY23 P 15Q DELTAPX12 P 14Q DELTAPY12 P 13Q QY3 P 12Q QX3 P 11Q QY2 P 10Q QX2 P 7 QY1 P 6 QX1 P 5 PY3 P 4 PX3 P 3 PY2 P 2 PX2 P 1 PY1 P 0 PX1 I 6 ERRORFLG I 5 Q3 I 4 Q2 I 3 Q1 I 2 P3 I 1 P2 I 0 P1 F 26Q WINDOW) ;@@AABBCCDDEEHJ_KM_IK_jOJLOOO_jO{OONOOOO_ OOOOOOO_&NOO OO_"OOO&OO_(NO HO"I_$OO&HO(I_*O O"O$O&O(O*h FHW,oo h RFW,oo hAB@DECib b bbbbbAB@DECib b bbbbb(371Q STATUSPRINT 346Q \FZEROP 341Q STATUSPRINT 317Q \FZEROP) NIL ( 366Q "All three source points cannot be in the same line. If you meant this, you should use the TWO PT TRANSFORM." 362Q " " 336Q "All three source points cannot be in the same line. If you meant this, you should use the TWO PT TRANSFORM." 332Q " ") SK.SEL.AND.THREE.PT.TRANSFORM D1 (I 0 W) @i dg@ d@ h(23Q SK.TRANSFORM.ELEMENTS 15Q THREE.PT.TRANSFORMATION.INPUTFN 4 SK.SELECT.MULTIPLE.ITEMS) (11Q SK.APPLY.AFFINE.TRANSFORM) () THREE.PT.TRANSFORMATION.INPUTFN D1 (P 13Q FIFTHLOCALPT P 12Q FOURTHLOCALPT P 11Q THIRDLOCALPT P 10Q SECONDLOCALPT P 7 FIRSTLOCALPT P 6 SIXTHPT P 5 FIFTHPT P 4 FOURTHPT P 3 THIRDPT P 2 SECONDPT P 1 FIRSTPT P 0 SCALE I 0 WINDOW)  @  @oo @ Y@ hH _@` @oo @ ZO@` @ hH _@` @oo @ [O@` O@` @ hH _@` @oo @ \&O@` O@` O@` @ hH _@` @oo @ ]0O@` O@` O@` O@` @ hH _@` @oo @ ^@ O@` O@` O@` O@` O@` NIJKLMN (574Q SK.COMPUTE.THREE.PT.TRANSFORMATION 557Q SK.MARK.POSITION 546Q SK.MARK.POSITION 535Q SK.MARK.POSITION 524Q SK.MARK.POSITION 513Q SK.MARK.POSITION 502Q CLOSEPROMPTWINDOW 475Q SK.GETGLOBALPOSITION 471Q STATUSPRINT 454Q SK.MARK.POSITION 443Q SCALE.POSITION 435Q CLOSEPROMPTWINDOW 430Q SK.MARK.POSITION 416Q SK.MARK.POSITION 404Q SK.MARK.POSITION 372Q SK.MARK.POSITION 356Q SK.GETGLOBALPOSITION 352Q STATUSPRINT 335Q SK.MARK.POSITION 324Q SCALE.POSITION 316Q CLOSEPROMPTWINDOW 311Q SK.MARK.POSITION 277Q SK.MARK.POSITION 265Q SK.MARK.POSITION 251Q SK.GETGLOBALPOSITION 245Q STATUSPRINT 230Q SK.MARK.POSITION 217Q SCALE.POSITION 211Q CLOSEPROMPTWINDOW 204Q SK.MARK.POSITION 172Q SK.MARK.POSITION 156Q SK.GETGLOBALPOSITION 152Q STATUSPRINT 135Q SK.MARK.POSITION 124Q SCALE.POSITION 116Q CLOSEPROMPTWINDOW 111Q SK.MARK.POSITION 75Q SK.GETGLOBALPOSITION 71Q STATUSPRINT 54Q SK.MARK.POSITION 43Q SCALE.POSITION 35Q CLOSEPROMPTWINDOW 26Q SK.GETGLOBALPOSITION 22Q STATUSPRINT 3 WINDOW.SCALE) (554Q NEWSECONDPTMARK 543Q NEWFIRSTPTMARK 532Q THIRDPTMARK 521Q SECONDPTMARK 510Q FIRSTPTMARK 451Q NEWSECONDPTMARK 425Q NEWFIRSTPTMARK 413Q THIRDPTMARK 401Q SECONDPTMARK 367Q FIRSTPTMARK 332Q NEWFIRSTPTMARK 306Q THIRDPTMARK 274Q SECONDPTMARK 262Q FIRSTPTMARK 225Q THIRDPTMARK 201Q SECONDPTMARK 167Q FIRSTPTMARK 132Q SECONDPTMARK 106Q FIRSTPTMARK 51Q FIRSTPTMARK) ( 466Q "Indicate the new position of the third point." 462Q " " 347Q "Indicate the new position of the second point." 343Q " " 242Q "Indicate the new position of the first point." 236Q " " 147Q "Indicate the third point to move." 143Q " " 66Q "Indicate the second point to move." 62Q " " 17Q "Indicate the first point to move." 13Q " ") SK.COPY.AND.TWO.PT.TRANSFORM.ELTS D1 (I 0 W) 'g@ddidd g@hh (44Q EVAL.AS.PROCESS) (32Q QUOTE 2 SK.SEL.COPY.AND.TWO.PT.TRANSFORM) () SK.SEL.COPY.AND.TWO.PT.TRANSFORM D1 (I 0 W) @i dg@ d@ h(23Q SK.COPY.AND.TRANSFORM.ELEMENTS 15Q TWO.PT.TRANSFORMATION.INPUTFN 4 SK.SELECT.MULTIPLE.ITEMS) (11Q SK.APPLY.AFFINE.TRANSFORM) () SK.COPY.AND.THREE.PT.TRANSFORM.ELTS D1 (I 0 W) 'g@ddidd g@hh (44Q EVAL.AS.PROCESS) (32Q QUOTE 2 SK.SEL.COPY.AND.THREE.PT.TRANSFORM) () SK.SEL.COPY.AND.THREE.PT.TRANSFORM D1 (I 0 W) @i dg@ d@ h(23Q SK.COPY.AND.TRANSFORM.ELEMENTS 15Q THREE.PT.TRANSFORMATION.INPUTFN 4 SK.SELECT.MULTIPLE.ITEMS) (11Q SK.APPLY.AFFINE.TRANSFORM) () SK.COPY.AND.TRANSFORM.ELEMENTS D1 (P 0 NEWGLOBALS I 3 SKW I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 SCRELTS) @gABAB C XgHC H(33Q SK.ADD.HISTEVENT 22Q MAPCOLLECTSKETCHSPECS 15Q SK.TRANSFORM.SCALE.FACTOR) (26Q COPY 6 SK.COPY.AND.TRANSFORM.ITEM) () SK.COPY.AND.TRANSFORM.ITEM D1 (P 0 NEWGLOBAL I 4 W I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 SELELT) @ABC XdD H(21Q SK.ADD.ELEMENT 12Q SK.TRANSFORM.ELEMENT) NIL () 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) <A @ @o @H H Ii@J @JB IY(64Q SKETCH.ADD.AND.DISPLAY1 55Q ELT.INSIDE.SKETCHWP 35Q ALL.SKETCH.VIEWERS 31Q ADD.ELEMENT.TO.SKETCH 23Q ERROR 12Q GLOBALELEMENTP 3 INSURE.SKETCH) NIL ( 20Q "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.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) H@ A Ao AYA BAIB H JA[BAIK JZ(100Q SK.ELEMENT.CHANGED1 54Q ALL.SKETCH.VIEWERS 47Q SK.ELEMENT.CHANGED1 37Q SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT 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 0 SKIMOBJELT) @@1H YHZH[HJJIKIK HII@(53Q CREATEREGION 13Q IMAGEBOXSIZE) NIL () INSURE.SKETCH D1 (I 1 NOERRORFLG I 0 SK) ^@dddg@ @g 2Ah-@o @g @ g Ah o@ A@o h(131Q ERROR 116Q ERROR 77Q GETWINDOWUSERPROP 71Q \SKSTRM.WINDOW.FROM.STREAM 63Q IMAGESTREAMTYPEP 53Q ERROR 34Q GETWINDOWUSERPROP 23Q WINDOWP) (74Q SKETCH 60Q SKETCH 31Q SKETCH 15Q SKETCH) ( 126Q "not a SKETCH" 112Q "sketch stream window doesn't have SKETCH property" 50Q "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 () 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") GETSKELEMENTPROP D1 (I 1 PROPERTY I 0 ELEMENT) @A (10Q LISTGET) NIL () PUTSKELEMENTPROP D1 (P 0 PLIST I 2 VALUE I 1 PROPERTY I 0 ELEMENT) )@H@@AB @ABh(30Q LISTPUT) NIL () SK.SHOWMARKS D1 (P 3 XBUCKET P 2 Y P 1 BUCKET I 1 HOTSPOTCACHE I 0 W) *A1HhYId[KJ@` HX(36Q SK.MARK.HOTSPOT) (33Q SK.LOCATEMARK) () MARKPOINT D1 (P 0 MARKWIDTH I 2 MARK I 1 WINDOW I 0 PT) /B`b BjdA@H@BHdgg (54Q BITBLT 12Q BITMAPWIDTH) (50Q INVERT 45Q INPUT 34Q BITMAP 5 SK.SELECTEDMARK) () SK.MARKHOTSPOTS D1 (P 4 PTTAIL P 1 SELECTEDELTS P 0 HOTSPOTCACHE I 2 MARK I 1 W I 0 SKETCHELT) IA Ag 2@\hL LH ZhLAB L[I KiJ(74Q MEMB 61Q MARKPOINT 44Q SK.ELTS.FROM.HOTSPOT 34Q MEMBER 12Q GETWINDOWUSERPROP 3 SK.HOTSPOT.CACHE) (7 SKETCH.SELECTIONS) () SK.MARK.SELECTION D1 (I 2 MARKBM I 1 SKW I 0 ELT) @ @AB @AB (21Q SK.MARKHOTSPOTS 12Q MARKPOINT 3 POSITIONP) NIL () SK.SELECT.ITEM D1 (P 3 OLDPOS P 2 PREVIOUS P 1 NOW P 0 HOTSPOTCACHE I 2 SELITEMS I 1 ITEMFLG I 0 WINDOW) PBA@ :@ @ @H `l\jLL `lj@H h Hh@ [Ah J@ IZ@ `ljJ@ @H JJHh@K Ah Yɰ(214Q IN.SKETCH.ELT? 206Q CURSORPOSITION 174Q SK.SHOWMARKS 166Q SK.DESELECT.ELT 147Q GETMOUSESTATE 143Q SK.SELECT.ELT 134Q SK.DESELECT.ELT 126Q IN.SKETCH.ELT? 117Q CURSORPOSITION 107Q SK.ADD.HOTSPOTS.TO.CACHE 102Q SK.SHOWMARKS 62Q \FZEROP 36Q GETMOUSESTATE 32Q SK.SHOWMARKS 24Q TOTOPW 17Q SK.HOTSPOT.CACHE 11Q LOCALSPECS.FROM.VIEWER) (153Q LASTMOUSEBUTTONS 67Q LASTMOUSEBUTTONS 42Q LASTMOUSEBUTTONS) () IN.SKETCH.ELT? D1 (P 17Q XBUCKET P 15Q YBUCKET P 13Q THISDIF P 12Q YDIF P 11Q BESTY P 10Q BESTX P 7 BESTELT P 6 PTBOTTOM P 5 PTTOP P 4 PTRIGHT P 3 PTLEFT P 2 BESTMEASURE P 1 X P 0 Y I 2 PTFLG I 1 POS I 0 CACHE) AAn Il[Il\Hl^Hl]@ OBOdO_dM񒿰NOH _OO O__dL8KO.OOI _JOOBO_O_O_O_O(201Q ABS 115Q ABS) NIL () SK.MARK.HOTSPOT D1 (P 1 HALFWIDTH P 0 MARKWIDTH I 3 MARK I 2 WINDOW I 1 Y I 0 X) !C CjdB@HYAIHdgg (36Q BITBLT 3 BITMAPWIDTH) (32Q INVERT 27Q INPUT) () SK.MARK.POSITION D1 (I 2 MARKBITMAP I 1 WINDOW I 0 PT) @@AB (10Q SK.MARK.HOTSPOT) NIL () SK.SELECT.ELT D1 (I 2 MARKBM I 1 FIGW I 0 ELT) @dAB (7 SK.MARK.SELECTION) NIL () SK.DESELECT.ELT D1 (I 2 MARKBM I 1 SKW I 0 ELT) @dAB (7 SK.MARK.SELECTION) NIL () SK.HOTSPOT.CACHE D1 (I 0 SKW) @g (6 GETWINDOWUSERPROP) (3 HOTSPOT.CACHE) () SK.SET.HOTSPOT.CACHE D1 (I 1 NEWCACHE I 0 SKW) @gA (7 PUTWINDOWPROP) (3 HOTSPOT.CACHE) () SK.CREATE.HOTSPOT.CACHE D1 (I 0 SKW) @d (12Q SK.SET.HOTSPOT.CACHE 7 SK.ADD.HOTSPOTS.TO.CACHE 4 LOCALSPECS.FROM.VIEWER) NIL () SK.ELTS.FROM.HOTSPOT D1 (P 0 TMP I 1 CACHE I 0 POSITION) @A X@H (21Q SK.FIND.CACHE.BUCKET 10Q SK.FIND.CACHE.BUCKET) NIL () SK.ADD.HOTSPOTS.TO.CACHE D1 (P 0 ELT I 1 CACHE I 0 ELTS) @dHA bA(13Q SK.ADD.HOTSPOTS.TO.CACHE1) NIL () SK.ADD.HOTSPOTS.TO.CACHE1 D1 (P 0 HOTSPOT I 1 CACHE I 0 LOCALELT) @dH@A bA(16Q SK.ADD.HOTSPOT.TO.CACHE) NIL () SK.ADD.HOTSPOT.TO.CACHE D1 (P 3 TAIL P 1 X P 0 Y I 2 CACHE I 1 ELT I 0 POSITION) @@BHIAhhhHBBdBBHIAhhBBdHIAB BJ[BHIAhhh B+KHIAK HKKHIAhhKK(155Q SK.ADD.VALUE.TO.CACHE.BUCKET 130Q \NCONC2 77Q SK.ADD.VALUE.TO.CACHE.BUCKET) NIL () SK.REMOVE.HOTSPOTS.FROM.CACHE D1 (P 0 ELT I 1 CACHE I 0 ELTS) @dHA bh(13Q SK.REMOVE.HOTSPOTS.FROM.CACHE1) NIL () SK.REMOVE.HOTSPOTS.FROM.CACHE1 D1 (P 0 HOTSPOT I 1 CACHE I 0 LOCALELT) @dH@A h(16Q SK.REMOVE.HOTSPOT.FROM.CACHE) NIL () SK.REMOVE.HOTSPOT.FROM.CACHE D1 (I 2 CACHE I 1 ELT I 0 POSITION) @A@B (13Q SK.REMOVE.VALUE.FROM.CACHE.BUCKET 10Q FASSOC) NIL () SK.REMOVE.VALUE.FROM.CACHE.BUCKET D1 (I 2 BUCKET I 1 ELT I 0 VAL) #@B dHHAHdh(5 FASSOC) NIL () SK.FIND.CACHE.BUCKET D1 (L (1 CACHE 0 VALUE)) AHYh@I@IINIL NIL () SK.ADD.VALUE.TO.CACHE.BUCKET D1 (P 1 TAIL I 2 ALIST I 1 ELT I 0 VAL) iB:@BBdBB@AhBd@Ah HYB@Ahh h'I@IAh B@II@AhIBI(116Q \NCONC2 71Q \NCONC2 45Q \NCONC2) NIL () 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 2 DATUM P 1 IMOBJ I 1 SKW I 0 IMAGEOBJ F 3 SKETCHIMAGEFNS) @!HdHhHHII ISIg AJJJ Aggh@A Zhd JA Ig ZJgIAlJ(155Q IMAGEOBJPROP 145Q SK.INSERT.SKETCH 142Q WINDOW.SCALE 126Q LAST 117Q SK.ELEMENT.FROM.IMAGEOBJ 75Q SK.INSERT.SKETCH 57Q IMAGEOBJPROP 33Q BKSYSBUF) (164Q NILL 152Q WHENINSERTEDFN 107Q DUMMYNAME 104Q SKETCH 54Q OBJECTDATUM 42Q IMAGEOBJ) () SK.FIGUREIMAGEA0001 D1 (NAME ERRORSET P 6 SCITEM P 5 LIMITDIM P 4 BOTTOM P 3 LEFT P 2 BITMAP P 1 DSPSTREAM P 0 REGION F 7 SCRITEMS F 10Q LIMITREGION F 11Q REGIONOFINTEREST F 12Q MACROY) `Wd W W WdHN XWHW HWLHW]HdMHlHMHW]HHMHlHMHkHk Z jH [I jH \I HI gI HHkldI WIH JKLhci(343Q DRAW.LOCAL.SKETCH 333Q DSPRIGHTMARGIN 312Q DSPOPERATION 302Q DSPCLIPPINGREGION 274Q DSPYOFFSET 266Q FIXR 256Q DSPXOFFSET 250Q FIXR 241Q DSPCREATE 235Q BITMAPCREATE 73Q INTERSECTREGIONS 54Q UNIONREGIONS 51Q SK.ITEM.REGION 33Q SK.ITEM.REGION 22Q SK.ITEM.REGION 14Q SCREENELEMENTP) (306Q PAINT) () SK.FIGUREIMAGE D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 2 REGIONOFINTEREST I 1 LIMITREGION I 0 SCRITEMS F 4 RESETVARSLST) =` 1gHhhTcYog gIcgI KJ(70Q ERROR! 63Q APPLY 40Q SK.FIGUREIMAGEA0001 5 CURSOR) (54Q CURSOR 44Q ERROR 35Q INTERNAL 13Q CURSOR 2 WAITINGCURSOR) ( 32Q (SK.FIGUREIMAGEA0001)) SCREENELEMENTP D1 (P 0 X I 0 ELT?) @Xd @(15Q SKETCH.ELEMENT.NAMEP) NIL () SK.ITEM.REGION D1 (P 0 REGIONFN I 0 SCRELT) @ Hdgh@kH(7 SK.REGIONFN) (20Q 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.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 33Q SELITEM P 32Q SEL P 30Q ELT P 16Q MOUSEINSIDE? P 15Q PREVMOUSEBUTTONS P 14Q SELITEMS 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 2 SELITEMS I 1 ITEMFLG I 0 WINDOW F 34Q CLICKWAITTIME) h@ Oq@ Yp@ @ @J `l_jOO H@ @ 7i_`l_ jO O OݱY @J hdO0@ HOO #h_@g _dO0@ O``_@ @ _A@g O2@JOOAh`ll @g h \.`dll!L@ _4 O4@ O2_2ljL@ OMOEOOh8NO_"jO"O"jO"lOO_$jO$O$jO$li_`l_&jO&O& JNO OO NO OO _eL "L@ `dllJL \L@ `llOdO6@ `ljOdO6@ OO_KlKl W8`l_(jO(O( {lN@ _*jO*O*jO*alO@ _,jO,O,jO,F`llFL L@ JL \@ -L 'LdI \dO6@ Kg a`l_.j>O. O. 1h__@ _@ _ObHOO i_OG`l@j`lj_O*H@ @ i_OdO0@ tH@ @ dh_@g _dO0@ C@g _OOdO4@ @g @J O(1767Q SK.TAKE.MARKS.DOWN 1761Q PUTWINDOWPROP 1744Q SK.REMOVE.SELECTION 1717Q GETWINDOWUSERPROP 1700Q SK.REMOVE.SELECTION 1662Q GETWINDOWUSERPROP 1643Q INSIDEP 1640Q LASTMOUSEY 1634Q LASTMOUSEX 1617Q SK.ADD.SELECTION 1573Q INSIDEP 1570Q LASTMOUSEY 1564Q LASTMOUSEX 1507Q INSIDEP 1466Q LASTMOUSEX 1457Q LASTMOUSEY 1443Q \FZEROP 1413Q GETMOUSESTATE 1404Q TIMEREXPIRED? 1367Q SK.ADD.SELECTION 1351Q REMOVE 1341Q SCREENELEMENTP 1332Q SK.ADD.SELECTION 1325Q IN.SKETCH.ELT? 1317Q SK.REMOVE.SELECTION 1310Q POSITIONP 1246Q LASTMOUSEY 1213Q LASTMOUSEX 1202Q \FZEROP 1151Q GETMOUSESTATE 1142Q \CLOCK0 1104Q SK.REMOVE.SELECTION 1045Q SK.ADD.SELECTION 1013Q SK.ADD.SELECTION 1004Q IN.SKETCH.ELT? 761Q SK.REMOVE.SELECTION 752Q POSITIONP 742Q SK.LOCAL.ITEMS.IN.REGION 736Q MAX 727Q MAX 721Q MIN 712Q MIN 677Q \FZEROP 527Q SK.REMOVE.SELECTION 501Q SK.REMOVE.SELECTION 472Q POSITIONP 460Q SK.ADD.SELECTION 431Q IN.SKETCH.ELT? 424Q GETWINDOWUSERPROP 356Q GETWINDOWUSERPROP 342Q LASTMOUSEY 335Q LASTMOUSEX 301Q SK.REMOVE.SELECTION 263Q GETWINDOWUSERPROP 246Q INSIDEP 226Q SK.ADD.SELECTION 211Q SK.TAKE.MARKS.DOWN 201Q SK.ADD.HOTSPOTS.TO.CACHE 160Q \FZEROP 126Q GETMOUSESTATE 115Q INSIDEP 112Q LASTMOUSEY 106Q LASTMOUSEX 77Q \FZEROP 50Q GETMOUSESTATE 44Q SK.PUT.MARKS.UP 36Q TOTOPW 31Q SK.HOTSPOT.CACHE 22Q LOCALSPECS.FROM.VIEWER 4 DSPCLIPPINGREGION) (1756Q SKETCH.SELECTIONS 1714Q SKETCH.SELECTIONS 1657Q SKETCH.SELECTIONS 1542Q \EM.KBDAD3 1527Q \EM.KBDAD2 1417Q LASTMOUSEBUTTONS 1401Q MILLISECONDS 1274Q LASTMOUSEBUTTONS 1155Q LASTMOUSEBUTTONS 1057Q LASTMOUSEBUTTONS 1017Q LASTMOUSEBUTTONS 765Q LASTMOUSEBUTTONS 652Q LASTMOUSEBUTTONS 441Q LASTMOUSEBUTTONS 421Q SKETCH.SELECTIONS 405Q LASTMOUSEBUTTONS 353Q SKETCH.SELECTIONS 326Q LASTMOUSEBUTTONS 316Q LASTMOUSEBUTTONS 260Q SKETCH.SELECTIONS 132Q LASTMOUSEBUTTONS 54Q LASTMOUSEBUTTONS) () 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 2 OLDGLOBAL P 1 NEWGLOBAL P 0 TRANSLATEFN I 2 RETURNELTIFCANTFLG I 1 DELTAPOS I 0 GLOBALELT) "@ !HHg@AlHB@(6 SK.TRANSLATEFN) (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 4 GELT P 0 DELTAPOS I 2 NEWYORG I 1 NEWXORG I 0 SKETCH) CA B @@@@@d\Hi JIh[I&Kd (76Q LAST 50Q SK.TRANSLATE.GLOBALPART 7 MINUS 3 MINUS) 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 () SKETCHW.SCALE D1 (I 0 WIN) @g (6 GETWINDOWUSERPROP) (3 SCALE) () SKETCH.ZOOM D1 (P 0 NEWREG I 0 SKW) 5o @g@ld XHh@ @o @H h(61Q SKETCH.DO.ZOOM 53Q STATUSPRINT 42Q REGIONSINTERSECTP 37Q DSPCLIPPINGREGION 31Q CLRPROMPT 25Q GETWREGION 11Q PROMPTPRINT) (15Q SAME.ASPECT.RATIO) ( 50Q "Specified region was entirely outside the window. Not changed." 6 "Specify the part of this figure that will be seen after the zoom. It can be either larger or smaller than the present window size.") SAME.ASPECT.RATIO D1 (P 5 WID P 4 YFIX P 3 XMOVE P 2 XFIX P 1 YMOVE P 0 REG I 2 WIN I 1 MOVEPT I 0 FIXPT) 4A@hB A@A@HILH ]JdKMفMI(44Q ABS 10Q DSPCLIPPINGREGION) NIL () SKETCH.DO.ZOOM D1 (P 2 NEWSCALE P 1 OLDREG P 0 OLDSCALE I 1 NEWREGION I 0 SKETCHW) I@ h@ HAIZ@gJ AHJ @ AHJ @ @H @ h(105Q SK.UPDATE.AFTER.SCALE.CHANGE 101Q SK.UPDATE.GRIDFACTOR 74Q ABSWYOFFSET 70Q FIXR 56Q ABSWXOFFSET 52Q FIXR 41Q PUTWINDOWPROP 10Q DSPCLIPPINGREGION 3 WINDOW.SCALE) (35Q SCALE) () SKETCH.NEW.VIEW D1 (I 0 SKW) @ hdd@ i@ gi (32Q PUTWINDOWPROP 23Q SKETCHW.CREATE 17Q SK.GRIDFACTOR 12Q WINDOW.SCALE 3 SKETCH.FROM.VIEWER) (26Q DONTQUERYCHANGES) () ZOOM.UPDATE.ELT D1 (P 0 CACHE I 1 SKW I 0 ELT) A @H @dA @H @(31Q SK.ADD.HOTSPOTS.TO.CACHE1 22Q SK.LOCAL.FROM.GLOBAL 13Q SK.REMOVE.HOTSPOTS.FROM.CACHE1 3 SK.HOTSPOT.CACHE) NIL () SK.UPDATE.AFTER.SCALE.CHANGE D1 (P 4 GELT P 3 LOCALELT P 2 INNEW? P 1 NEWREGION P 0 SKETCH I 1 STOPIFMOUSEDOWN I 0 SKETCHW) [@ 1@ @ @ YH,dLI L@ [JK@ K@ JL@ hdg@ @hA h(127Q SKETCHW.REPAINTFN 121Q DSPFILL 102Q SK.ADD.ITEM 72Q SK.DELETE.ITEM 64Q ZOOM.UPDATE.ELT 53Q SK.LOCAL.ELT.FROM.GLOBALPART 45Q SK.INSIDE.REGION 27Q SK.REGION.VIEWED 23Q SK.UPDATE.REGION.VIEWED 17Q SKED.CLEAR.SELECTION 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) (115Q REPLACE) () SKETCH.AUTOZOOMA0001 D1 (NAME ERRORSET P 12Q DISPLAYSTOPPED P 11Q HGHT P 10Q WID P 7 BTM P 6 LFT P 5 SCALE P 4 PTY P 3 PTX P 2 NEWSKETCHREG P 1 SKETCHREG P 0 WINDOWREG F 14Q SKW F 15Q MACROY F 16Q AUTOZOOMCURSOR)  W  Wo `l_j4OO (H`` OgWJi W hci`ljW W ]ֻW MּW YI_I_I_`dlj'KdN`L`LOO`O` ,kj%KdN`LdO`O`O` hZ&`lj`` WJi _W (423Q CURSOR 413Q SKETCH.GLOBAL.REGION.ZOOM 403Q CURSOR 351Q CREATEREGION 277Q CREATEREGION 171Q SK.REGION.VIEWED 161Q LASTMOUSEY 151Q WINDOW.SCALE 144Q LASTMOUSEX 117Q CLOSEPROMPTWINDOW 111Q SKETCH.GLOBAL.REGION.ZOOM 71Q INSIDE? 55Q \FZEROP 26Q GETMOUSESTATE 22Q STATUSPRINT 4 \INSUREWINDOW) (400Q ZOOMOUTCURSOR 374Q ZOOMINCURSOR 363Q LASTMOUSEBUTTONS 345Q AUTOZOOM.FACTOR 337Q AUTOZOOM.FACTOR 330Q AUTOZOOM.FACTOR 316Q AUTOZOOM.FACTOR 273Q AUTOZOOM.FACTOR 265Q AUTOZOOM.FACTOR 252Q AUTOZOOM.FACTOR 244Q AUTOZOOM.FACTOR 224Q LASTMOUSEBUTTONS 130Q LASTMOUSEBUTTONS 100Q STOPPED 66Q LASTMOUSEY 63Q LASTMOUSEX 32Q LASTMOUSEBUTTONS) ( 17Q "left button zooms in; middle zooms out.") SKETCH.AUTOZOOM D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 SKW F 4 RESETVARSLST F 5 AUTOZOOMCURSOR) ;U 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q SKETCH.AUTOZOOMA0001 3 CURSOR) (52Q CURSOR 42Q ERROR 33Q INTERNAL 11Q CURSOR) ( 30Q (SKETCH.AUTOZOOMA0001)) SKETCH.GLOBAL.REGION.ZOOM D1 (P 3 HEIGHTSCALE P 2 WIDTHSCALE P 1 WINDOWREG P 0 OLDSCALE I 2 STOPIFMOUSEDOWN I 1 NEWREGION I 0 SKETCHW) @ h@ "@ AI[AIZ4@gK AK @ AIKAlK @ 4@gJ AJ @ AIJAlJ @ @H @B (227Q SK.UPDATE.AFTER.SCALE.CHANGE 222Q SK.UPDATE.GRIDFACTOR 214Q ABSWYOFFSET 210Q FIXR 156Q ABSWXOFFSET 152Q FIXR 142Q PUTWINDOWPROP 130Q ABSWXOFFSET 124Q FIXR 75Q ABSWYOFFSET 71Q FIXR 60Q PUTWINDOWPROP 17Q SKED.CLEAR.SELECTION 10Q DSPCLIPPINGREGION 3 WINDOW.SCALE) (136Q SCALE 54Q SCALE) () SKETCH.HOME D1 (I 0 SKW) $@go h@ @ h@ @ @ h(40Q SK.UPDATE.AFTER.SCALE.CHANGE 34Q WYOFFSET 30Q WYOFFSET 23Q WXOFFSET 17Q WXOFFSET 12Q PUTWINDOWPROP) (3 SCALE) ( 7 1.0) SK.FRAME.IT D1 (P 0 SKETCH I 0 SKW) @ H@o @H@ h(34Q SKETCH.GLOBAL.REGION.ZOOM 31Q SK.GLOBAL.REGION.OF.SKETCH 22Q STATUSPRINT 3 INSURE.SKETCH) NIL ( 17Q "There is nothing in this sketch.") SK.MOVE.TO.VIEW D1 (P 3 SKREGHEIGHT P 2 SKREGWIDTH P 1 OLDSCALE P 0 NEWSCALE I 1 VIEW I 0 SKW) gA@g "@gH h@ @ jA@g lHH@ h@ @ jA@g lHH@ @I @ h(143Q SK.UPDATE.AFTER.SCALE.CHANGE 137Q SK.UPDATE.GRIDFACTOR 132Q WYOFFSET 115Q GETWINDOWPROP 100Q WYOFFSET 74Q WYOFFSET 67Q WXOFFSET 52Q GETWINDOWPROP 35Q WXOFFSET 31Q WXOFFSET 24Q PUTWINDOWPROP 11Q GETWINDOWUSERPROP) (112Q HEIGHT 47Q WIDTH 20Q SCALE 6 SCALE) () SK.NAME.CURRENT.VIEW D1 (P 1 NAME P 0 SKETCH I 0 SKW) D@ @o I/HgHg I@ @ hh @o h(100Q STATUSPRINT 67Q PUTSKETCHPROP 64Q \APPEND2 53Q REGION.CENTER 50Q SK.REGION.VIEWED 44Q WINDOW.SCALE 37Q GETSKETCHPROP 16Q MKATOM 13Q PROMPT.GETINPUT 3 INSURE.SKETCH) (34Q VIEWS 30Q VIEWS) ( 75Q " ... done." 10Q "Name for this view: ") SK.RESTORE.VIEW D1 (P 4 VIEW I 0 SKW) `o@@ g 7d[Kddidd gKhohIHhZH&JHdIdodi dg dgjdndhHdI  Ldg@ @L h(245Q SK.MOVE.TO.VIEW 235Q SKETCH.HOME 216Q MENU 24Q GETSKETCHPROP 16Q INSURE.SKETCH) (226Q HOME 163Q DEFAULTMENUHELDFN 154Q CLRPROMPT 62Q QUOTE 21Q VIEWS 2 MENUTYPE#) ( 140Q "Which view?" 72Q "returns the view to this location." 7 (Home (QUOTE HOME) "returns to the origin at the original scale")) SK.FORGET.VIEW D1 (P 2 ONETOFORGET P 1 VIEWS P 0 SKETCH I 0 SKW) @ QHg Yd@o h`0I;d[Kddidd gKhohONh_N&_OdLdodi dg dgjdndhdM Zd|HgJI @oJo \(273Q STATUSPRINT 254Q PUTSKETCHPROP 251Q REMOVE 230Q MENU 30Q STATUSPRINT 15Q GETSKETCHPROP 3 INSURE.SKETCH) (244Q VIEWS 201Q DEFAULTMENUHELDFN 172Q CLRPROMPT 100Q QUOTE 35Q MENUTYPE# 12Q VIEWS) ( 270Q " forgotten." 262Q "View " 156Q "Which view?" 110Q "removes this view." 25Q "There are no saved views. They are created with the 'Save view' command.") SK.SET.GRID D1 (I 0 SKETCHW) @g @ @ (20Q SK.TURN.GRID.ON 13Q SK.TURN.GRID.OFF 6 GETWINDOWUSERPROP) (3 USEGRID) () SK.DISPLAY.GRID D1 (I 0 SKETCHW) @g @i @gi @ (31Q SK.DISPLAY.GRID.POINTS 25Q PUTWINDOWPROP 14Q SK.TURN.GRID.ON 6 GETWINDOWUSERPROP) (21Q GRIDUP 3 USEGRID) () SK.DISPLAY.GRID.POINTS D1 (I 1 NEWFLG I 0 SKETCHW) @ @A (10Q SK.SHOW.GRID 3 SK.GRIDFACTOR) NIL () SK.REMOVE.GRID.POINTS D1 (I 0 SKETCHW) @g@g @ (22Q PUTWINDOWPROP 16Q REDISPLAYW 12Q PUTWINDOWPROP) (7 GRIDUP 3 GRIDUP) () SK.TAKE.DOWN.GRID D1 (I 0 SKETCHW) @g @ (14Q SK.REMOVE.GRID.POINTS 6 PUTWINDOWPROP) (3 GRIDUP) () SK.SHOW.GRID D1 (P 15Q Y P 12Q X P 10Q SKREGLIMIT P 7 SKREGLEFT P 6 GRIDLEFT P 5 WLEFT P 4 WWIDTH P 3 HORIZPATTERN P 2 WREG P 1 REGION P 0 SCALE I 2 NEWFLG I 1 SKW I 0 GRID) CA A o@HABooo@HoA aJJLk I_@ OI_N O(Oj>OO 2jOOOOO KOOH jk O@__II_I@ O(OjFOO :jOOOOO &KjdAMOH Lkgg O@__@HAg Ag l#ABooo@H o h(477Q STATUSPRINT 474Q CONCAT 465Q FIXR 431Q MIN 426Q GETWINDOWPROP 417Q GETWINDOWPROP 367Q BITBLT 353Q FIXR 335Q FGTP 311Q \FZEROP 262Q NEAREST.ON.GRID 223Q BITMAPBIT 216Q FIXR 201Q FGTP 155Q \FZEROP 113Q NEAREST.ON.GRID 102Q BITMAPCREATE 62Q DSPCLIPPINGREGION 7 SK.REGION.VIEWED 3 WINDOW.SCALE) (423Q WIDTH 414Q HEIGHT 363Q PAINT 360Q INPUT) ( 471Q " screen points." 457Q " grid has a position every " 453Q "Current" 446Q "New" 53Q " screen points." 44Q " grid has a position every " 40Q "Current" 33Q "New" 16Q 3.0) SK.GRIDFACTOR D1 (I 1 GRIDSIZE I 0 SKETCHW) %Addd@gA A @g (42Q GETWINDOWUSERPROP 33Q \ILLEGAL.ARG 25Q PUTWINDOWPROP) (37Q GRIDFACTOR 21Q GRIDFACTOR) () SK.TURN.GRID.ON D1 (I 1 QUIETFLG I 0 SKETCHW) @gi A @o (24Q STATUSPRINT 7 PUTWINDOWPROP) (3 USEGRID) ( 21Q "The grid was already in use.") SK.TURN.GRID.OFF D1 (I 0 SKETCHW) @g @ @o (24Q STATUSPRINT 13Q SK.TAKE.DOWN.GRID 6 PUTWINDOWPROP) (3 USEGRID) ( 21Q "The grid was not is use.") SK.MAKE.GRID.LARGER D1 (I 0 SKETCHW) @ o@ (14Q SK.CHANGE.GRID 3 SK.GRIDFACTOR) NIL ( 7 2.0) SK.MAKE.GRID.SMALLER D1 (I 0 SKETCHW) @ o@ (14Q SK.CHANGE.GRID 3 SK.GRIDFACTOR) NIL ( 7 .5) SK.CHANGE.GRID D1 (I 1 SKETCHW I 0 NEWGRID) 'Ai Ag A A@ Ag Ai (44Q SK.DISPLAY.GRID.POINTS 35Q GETWINDOWUSERPROP 26Q SK.GRIDFACTOR 20Q SK.REMOVE.GRID.POINTS 13Q GETWINDOWUSERPROP 4 SK.TURN.GRID.ON) (32Q GRIDUP 10Q GRIDUP) () GRID.FACTOR1 D1 (I 2 NPTS I 1 HEIGHTONSCREEN I 0 REALHEIGHT) B@A (7 LEASTPOWEROF2GT) NIL () LEASTPOWEROF2GT D1 (P 0 LOG2 I 0 FLOATP) ?@ oHo!HdjoHj oHk oHj (74Q EXPT 61Q EXPT 46Q EXPT 3 LOG) (32Q FLOATP) ( 66Q 2.0 53Q 2.0 40Q 2.0 20Q 0.0 7 .6931472) GREATESTPOWEROF2LT D1 (P 0 LOG2 I 0 FLOATP) >@ oHooHj HdjoHj oHk (73Q EXPT 60Q EXPT 34Q EXPT 3 LOG) (44Q FLOATP) ( 65Q 2.0 52Q 2.0 26Q 2.0 20Q 0.0 7 .6931472) SK.DEFAULT.GRIDFACTOR D1 (I 0 SKETCHW F 0 DEFAULTGRIDSIZE) @ @g P (22Q GRID.FACTOR1 16Q GETWINDOWPROP 3 SK.REGION.VIEWED) (13Q HEIGHT) () SK.PUT.ON.GRID D1 (I 1 GRID I 0 GPOSITION) @A @A (13Q NEAREST.ON.GRID 5 NEAREST.ON.GRID) NIL () MAP.WINDOW.ONTO.GRID D1 (I 2 GRID I 1 SCALE I 0 X) @AB A (13Q FIXR 6 NEAREST.ON.GRID) NIL () MAP.SCREEN.ONTO.GRID D1 (I 3 WOFFSET I 2 GRID I 1 SCALE I 0 X) BBjBo @@CAB C(30Q MAP.WINDOW.ONTO.GRID 15Q EQP) NIL ( 12Q 0.0) MAP.GLOBAL.PT.ONTO.GRID D1 (I 1 SKW I 0 PT) Ag @A @(17Q SK.PUT.ON.GRID 14Q SK.GRIDFACTOR 6 GETWINDOWUSERPROP) (3 USEGRID) () MAP.GLOBAL.REGION.ONTO.GRID D1 (P 3 NEWBOTTOM P 2 NEWLEFT P 1 HALFGRID P 0 GRID I 1 SKW I 0 GREGION) UAg KA 1HoY@IH Z@IH [@@kIH J@@kIH K @(120Q CREATEREGION 113Q NEAREST.ON.GRID 70Q NEAREST.ON.GRID 50Q NEAREST.ON.GRID 36Q NEAREST.ON.GRID 14Q SK.GRIDFACTOR 6 GETWINDOWUSERPROP) (3 USEGRID) ( 24Q 2.0) MAP.WINDOW.POINT.ONTO.GLOBAL.GRID D1 (I 2 GRID I 1 SCALE I 0 PT) @AB @AB (15Q MAP.WINDOW.ONTO.GLOBAL.GRID 6 MAP.WINDOW.ONTO.GLOBAL.GRID) NIL () MAP.WINDOW.ONTO.GLOBAL.GRID D1 (I 2 GRID I 1 SCALE I 0 X) @AB (6 NEAREST.ON.GRID) NIL () SK.UPDATE.GRIDFACTOR D1 (P 1 X P 0 OLDGRID I 1 OLDSCALE I 0 SKW F 3 DEFAULTMAXGRIDSIZE) +@ !@d @g SHAdJJ h(47Q SK.GRIDFACTOR 44Q GRID.FACTOR1 26Q GETWINDOWPROP 13Q SK.REGION.VIEWED 3 SK.GRIDFACTOR) (23Q HEIGHT) () SK.MAP.FROM.WINDOW.TO.GLOBAL.GRID D1 (I 1 SKETCHW I 0 POSITION) Ag @A A @A (34Q UNSCALE.POSITION 31Q WINDOW.SCALE 23Q MAP.WINDOW.POINT.ONTO.GLOBAL.GRID 20Q SK.GRIDFACTOR 14Q WINDOW.SCALE 6 GETWINDOWUSERPROP) (3 USEGRID) () SK.MAP.INPUT.PT.TO.GLOBAL D1 (I 1 SKETCHW I 0 POSSPEC) @dA A A (32Q SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 27Q WINDOW.SCALE 20Q MAP.WINDOW.POINT.ONTO.GLOBAL.GRID 15Q SK.GRIDFACTOR 11Q WINDOW.SCALE) NIL () SK.MAP.FROM.WINDOW.TO.NEAREST.GRID D1 (P 0 GRID I 1 SCALE I 0 POSITION) A @AH @AH (26Q NEAREST.ON.GRID 16Q NEAREST.ON.GRID 3 GREATESTPOWEROF2LT) NIL () SKETCH.TITLE D1 (I 0 SKW) @ (6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SK.SHRINK.ICONCREATE D1 (P 1 ICONTITLE P 0 ICON I 0 W F 2 SKETCH.TITLED.ICON.TEMPLATE F 3 TEDIT.ICON.FONT) [@g @g II@ ?IH8H@g@ Y IhdH @g@ Y @gRIShi  h(127Q PUTWINDOWPROP 124Q TITLEDICONW 106Q PUTWINDOWPROP 102Q SKETCH.TITLE 70Q ICONTITLE 60Q PUTWINDOWPROP 54Q SKETCH.TITLE 27Q SKETCH.TITLE 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (113Q ICON 76Q SKETCH.ICON.TITLE 50Q SKETCH.ICON.TITLE 12Q SKETCH.ICON.TITLE 3 ICON) () SK.ADD.HISTEVENT D1 (P 0 HISTLST I 2 SKETCHW I 1 EVENTARGS I 0 EVENTTYPE) +Bg Bg@Ahh`H HH  h(47Q PUTWINDOWPROP 43Q REMOVE.LAST 33Q LENGTH 6 GETWINDOWUSERPROP) (27Q SKETCH.#.UNDO.ITEMS 15Q SKETCHHISTORY 3 SKETCHHISTORY) () SK.SEL.AND.UNDOA0005 D1 (I 2 BUTTON I 1 MENU I 0 ITEM) o (6 PROMPTPRINT) NIL ( 3 "Will undo this event.") SK.SEL.AND.UNDO D1 (P 10Q EVENT P 2 UNDOFN P 1 EVENT P 0 HISTLST I 0 SKW) @g AH@o h`0H dO OhNMh_M&OdKdgdodgdg jdndhdL Yd"d@o h Z@o hI@IlJIigI@ Jg@o (313Q STATUSPRINT 271Q SK.ADD.HISTEVENT 235Q STATUSPRINT 222Q SKEVENTTYPEFNS 214Q STATUSPRINT 172Q MENU 51Q SK.UNDO.NAME 23Q STATUSPRINT 6 GETWINDOWUSERPROP) (300Q SK.UNDO.UNDO 264Q UNDO 143Q CLRPROMPT 134Q SK.SEL.AND.UNDOA0005 115Q CADR 30Q MENUTYPE# 3 SKETCHHISTORY) ( 310Q "Element subsequently modified, can't undo" 232Q "Can't undo that event." 211Q "That event has already been undone." 125Q "Select event to undo" 20Q "Nothing to undo.") SK.UNDO.LAST D1 (P 4 HISTEVENT P 2 UNDOFN P 1 EVENT P 0 HISTLST I 0 SKW) @g !H @o hK=hY@oo h@IlJ<@I o IigI@ \gLL ZLK[Jg@o (204Q STATUSPRINT 152Q SKEVENTTYPEFNS 126Q SK.ADD.HISTEVENT 107Q STATUSPRINT 100Q SK.UNDO.NAME 56Q STATUSPRINT 24Q STATUSPRINT 6 GETWINDOWUSERPROP) (171Q SK.UNDO.UNDO 136Q UNDO 121Q UNDO 3 SKETCHHISTORY) ( 201Q "Element subsequently modified, can't undo" 104Q " event undone." 53Q "All event have been undone. Use the '?UNDO' subcommand to undo an UNDO command." 47Q " " 21Q "Nothing to undo.") SK.UNDO.NAME D1 (I 0 HISTEVENT) @ @kH(4 SKEVENTTYPEFNS) NIL () SKEVENTTYPEFNS D1 (L (0 EVENTTYPE)) @gNIL (3 EVENTFNS) () SK.TYPE.OF.FIRST.ARG D1 (P 1 TYPE P 0 ARGS I 1 NOMARKUNDOFLG I 0 HISTEVENT) B@@A@ooIoHoIgIgHH (77Q CONCAT 74Q SK.LABEL.FROM.TYPE) (57Q CHANGE 51Q MOVE) ( 43Q "a group" 34Q " " 27Q " " 22Q "*") SK.DELETE.UNDO D1 (P 1 GELT P 0 CHANGED? I 1 SKW I 0 EVENTARGS)  @dYA iH(13Q SK.ADD.ELEMENT) NIL () SK.ADD.UNDO D1 (P 1 GELT P 0 CHANGED? I 1 SKW I 0 EVENTARGS)  @dYA iH(13Q SK.DELETE.ELEMENT1) NIL () SK.CHANGE.UNDO D1 (P 1 PAIR P 0 CHANGED? I 1 SKW I 0 EVENTARGS)  @dYIA iH(17Q SK.UPDATE.ELEMENT) NIL () SK.CHANGE.REDO D1 (P 1 PAIR P 0 CHANGE I 1 SKW I 0 EVENTARGS) )@dIIA iHAo h(45Q STATUSPRINT 23Q SK.UPDATE.ELEMENT) NIL ( 42Q "That sketch element has been changed by something else, can't redo.") SK.UNDO.UNDO D1 (P 0 REDOFN I 2 THISEVENT I 1 SKW I 0 UNDONEEVENT) 2@ X@AlH@hAgB Ao h(56Q STATUSPRINT 45Q WINDOWDELPROP 7 SKEVENTTYPEFNS) (41Q SKETCHHISTORY) ( 53Q "Can't undo that event.") SK.UNDO.MENULABEL D1 (I 0 UNDOEVENT) o@i (15Q CONCAT 12Q SK.TYPE.OF.FIRST.ARG) NIL ( 3 "undo") SK.LABEL.FROM.TYPE D1 (L (0 SKELEMENTTYPE)) @dgggg@dggNIL (35Q POLYGON 30Q CLOSEDWIRE 22Q CURVE 15Q OPENCURVE 11Q LINE 4 WIRE) () SKETCHW.HARDCOPYFN D1 (P 11Q SKETCHX P 10Q PAGETOSKETCHFACTOR P 7 PAGEBOTTOMSPACE P 6 PAGELEFTSPACE P 5 SKETCHREGIONINPAGECOORDS P 4 SCALE P 3 SKETCHREGION P 2 PAGEREGION P 1 VIEWREGION P 0 SKETCH I 1 OPENIMAGESTREAM I 0 SKETCHW) @ h@ hA @ @ U HhLhA _KO ]JMl^JMl_HJN^MO JO_MO _dNOOOKK OAi _dANOMM A(251Q DRAW.LOCAL.SKETCH 246Q CREATEREGION 223Q MAKE.LOCAL.SKETCH 213Q CREATEREGION 163Q TRANSLATE.SKETCH 160Q MINUS 136Q MINUS 61Q SCALE.REGION 50Q DSPSCALE 42Q SPAWN.MOUSE 30Q WINDOW.SCALE 24Q SK.REGION.VIEWED 20Q DSPCLIPPINGREGION 13Q DSPCLIPPINGREGION 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) NIL () \SK.LIST.PAGE.IMAGE D1 (P 7 LOCALSKELT P 2 SKETCHX P 1 ELTSINREGION P 0 SCALEDSKETCHREGION I 5 SKETCHTOWINDOWFACTOR I 4 REGIONONPAGE I 3 PAGETOSKETCHFACTOR I 2 LOCALSKELTS I 1 REGIONINSKETCH I 0 OPENIMAGESTREAM) yAE !BAKFLY@ghhId ADCADC ZjdAA C@i Z@D h_HO OM Nh]K[N&(140Q REGIONSINTERSECTP 135Q SK.ITEM.REGION 121Q DRAW.LOCAL.SKETCH 113Q MAKE.LOCAL.SKETCH 104Q CREATEREGION 65Q TRANSLATE.SKETCH 40Q LAST 4 SCALE.REGION) (27Q SKETCH) () SK.LIST.IMAGE D1 (P 33Q PGCOL P 32Q PGLEFT P 27Q PGROW P 26Q PGN P 25Q PGBOTTOM P 23Q SKELT P 17Q PAGEWIDTHINSKETCHCOORDS P 16Q PAGEHEIGHTINSKETCHCOORDS P 15Q PAGETOSKETCHFACTOR P 14Q BOTTOMEND P 13Q RIGHTEND P 12Q BOTTOMSTART P 11Q LEFTSTART P 10Q SKETCHREGIONINPAGECOORDS P 7 SKETCHLOCALELTS P 6 SKETCHREGION P 5 PAGEOVERLAPMARGIN P 4 OPENIMAGESTREAM P 3 PAGEREGION P 2 SCALE P 1 VIEWREGION P 0 SKETCH I 3 DONTLISTFLG I 2 IMAGETYPE I 1 FILE I 0 SKETCHW) w@ h@ @ HhAB \hL [@H d_&@J _ O" O h_$O &_"O$_dJ ^JhL _NO _dKSdKEKOl_KOl_LNOOOOOO J L l$ֽKKKMKM [O_KO_NO _jOO OOl_NO_NO _jOO OOl_NNkOO_NO_NNk_@OOkOOOOkOOo OOjkO0+O0jO0O0 jO0OO*O*OO.kL OOkO8%O8jbO8O8 VjO8OO4O4OEO6kL LO4O*OO OOKJ @O,k_,o O4O_8_4O6k_6O*O _0_*O.k_.BL _@o O(1162Q STATUSPRINT 1150Q CLOSEF 1123Q MINUS 1067Q STATUSPRINT 1050Q \SK.LIST.PAGE.IMAGE 1036Q CREATEREGION 1021Q DSPNEWPAGE 765Q \FZEROP 730Q DSPNEWPAGE 670Q \FZEROP 630Q STATUSPRINT 500Q \FZEROP 460Q REMAINDER 422Q \FZEROP 402Q REMAINDER 344Q CREATEREGION 313Q DSPSCALE 303Q \SK.LIST.PAGE.IMAGE 276Q CREATEREGION 150Q SCALE.REGION 137Q DSPSCALE 130Q SK.GLOBAL.REGION.OF.ELEMENTS 66Q SK.LOCAL.FROM.GLOBAL 44Q DSPCLIPPINGREGION 36Q OPENIMAGESTREAM 31Q SPAWN.MOUSE 17Q WINDOW.SCALE 13Q DSPCLIPPINGREGION 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) NIL ( 1157Q "...done." 1064Q "," 625Q " pgs...") SK.LIST.IMAGE.ON.FILE D1 (I 0 SKETCHW) &@g@ g   (43Q SK.LIST.IMAGE 40Q DEFAULTPRINTINGIMAGETYPE 35Q PACKFILENAME 30Q UNPACKFILENAME 15Q INSURE.SKETCH 12Q SKETCH.FROM.VIEWER 6 DEFAULTPRINTINGIMAGETYPE) (25Q Sketch 3 EXTENSION) () DO.TRANSLATE.IPSTREAM D1 (I 2 Y I 1 X I 0 IPSTREAM) @ @AB @ (15Q CONCATT.IP 11Q TRANSLATE.IP 3 SHOW.IP) NIL () SK.SET.HARDCOPY.MODEA0001 D1 (NAME ERRORSET F 0 SKETCHW F 1 IMAGETYPE F 2 MACROY) Q P PQ P ci(22Q SK.UPDATE.AFTER.HARDCOPY 15Q MAKEHARDCOPYSTREAM 7 DSPFONT 3 DEFAULTFONT) NIL () SK.SET.HARDCOPY.MODE D1 (P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE P 1 NOWTYPE P 0 IMAGETYPEX I 1 IMAGETYPE I 0 SKETCHW F 6 RESETVARSLST) hA@g @ YCHI>` 1gJhhVc [og gKc gK ML@oAo (145Q STATUSPRINT 125Q ERROR! 120Q APPLY 75Q SK.SET.HARDCOPY.MODEA0001 42Q CURSOR 24Q HARDCOPYSTREAMTYPE 17Q IMAGESTREAMTYPEP 5 PRINTERTYPE) (111Q CURSOR 101Q ERROR 72Q INTERNAL 50Q CURSOR 37Q WAITINGCURSOR 14Q HARDCOPY) ( 142Q " output spacing." 135Q "The display is already showing " 67Q (SK.SET.HARDCOPY.MODEA0001)) SK.UNSET.HARDCOPY.MODE D1 (I 0 SKETCHW) @g g @ @ (26Q SK.UPDATE.AFTER.HARDCOPY 22Q UNMAKEHARDCOPYSTREAM 14Q IMAGESTREAMTYPEP 6 GETSTREAM) (11Q HARDCOPY 3 OUTPUT) () SK.UPDATE.AFTER.HARDCOPYA0001 D1 (I 2 SCALE I 1 SKW I 0 SKELT) @o @A (22Q ZOOM.UPDATE.ELT 13Q MEMB) NIL ( 10Q (TEXT TEXTBOX)) SK.UPDATE.AFTER.HARDCOPY D1 (I 0 SKETCHW) @ g@d @ (22Q REDISPLAYW 16Q MAPSKETCHSPECS 13Q SKETCHW.SCALE 3 LOCALSPECS.FROM.VIEWER) (6 SK.UPDATE.AFTER.HARDCOPYA0001) () DEFAULTPRINTINGIMAGETYPE D1 (F 0 DEFAULTPRINTINGHOST) PP g ddh(16Q PRINTERPROP 10Q PRINTERTYPE) (13Q CANPRINT) () SHOW.GLOBAL.COORDS D1 (I 2 W I 1 YCOORD I 0 XCOORD) B @dj BAdj 9o@B oB oB B oAB oB oB o@B oB oB B oAB oB oB (202Q PRIN1 172Q PRIN1 162Q PRINTNUM 151Q TERPRI 145Q PRIN1 135Q PRIN1 125Q PRINTNUM 113Q PRIN1 103Q PRIN1 73Q PRINTNUM 62Q TERPRI 56Q PRIN1 46Q PRIN1 36Q PRINTNUM 23Q EQP 12Q EQP 3 DSPRESET) NIL ( 176Q " " 166Q " y" 155Q (FLOAT 10Q 2) 141Q " " 131Q " x" 120Q (FLOAT 10Q 2) 107Q " " 77Q " y" 66Q (FLOAT 6 0) 52Q " " 42Q " x" 31Q (FLOAT 6 0)) LOCATOR.CLOSEFN D1 (I 0 GCOORDW) @ (3 DETACHWINDOW) NIL () SKETCHW.FROM.LOCATOR D1 (P 1 W I 0 GCOORDW) Hh@I IHX(25Q MEMB 22Q ATTACHEDWINDOWS 2 ACTIVEWINDOWS) NIL () SKETCHW.UPDATE.LOCATORS D1 (P 1 LOCATOR I 0 W) :h@ @ @ @ HhgI $ I@ HX(62Q LOCATOR.UPDATE 54Q MEMB 47Q \INSUREWINDOW 25Q ATTACHEDWINDOWS 17Q INSIDEP 14Q LASTMOUSEY 10Q LASTMOUSEX 4 DSPCLIPPINGREGION) (43Q LOCATOR.CLOSEFN) () LOCATOR.UPDATE D1 (I 1 SKW I 0 LOCATORW) 1@g dg@A dg@A g@A (56Q SHOULDNT 52Q UPDATE.LATLON.LOCATOR 37Q UPDATE.GLOBAL.GRIDDED.COORD.LOCATOR 22Q UPDATE.GLOBALCOORD.LOCATOR 6 GETWINDOWUSERPROP) (43Q LATLON 27Q GLOBALGRIDDEDCOORD 12Q GLOBALCOORD 3 LOCATORTYPE) () UPDATE.GLOBAL.LOCATOR D1 (I 0 SKETCHW) (`@ @ `@ @ h(43Q SKETCHW.UPDATE.LOCATORS 32Q LASTMOUSEY 17Q LASTMOUSEY 6 LASTMOUSEX) (35Q SKETCHW.LASTCURSORPTY 26Q SKETCHW.LASTCURSORPTY 22Q SKETCHW.LASTCURSORPTY 11Q SKETCHW.LASTCURSORPTX 2 SKETCHW.LASTCURSORPTX) () UPDATE.GLOBALCOORD.LOCATOR D1 (P 0 SCALE I 1 W I 0 GCOORDW) $@A XA H A H @ h(40Q SHOW.GLOBAL.COORDS 34Q UNSCALE 30Q LASTMOUSEY 24Q UNSCALE 20Q LASTMOUSEX 11Q WINDOW.SCALE) NIL () ADD.GLOBAL.DISPLAY D1 (P 0 LOCATOR I 1 TYPE I 0 SKW) K` Agoo H@ggg HgAggg @gg H(107Q PUTWINDOWPROP 75Q PUTWINDOWPROP 51Q ATTACHWINDOW 27Q CREATE.GLOBAL.DISPLAYER 5 FONTCREATE) (104Q SKETCHW.UPDATE.LOCATORS 101Q CURSORMOVEDFN 72Q GLOBALCOORD 66Q GLOBALGRIDDEDCOORD 61Q GRID 55Q LOCATORTYPE 45Q LOCALCLOSE 42Q RIGHT 37Q BOTTOM 11Q GRID 2 BOLDFONT) ( 24Q "cursor location in sketch" 17Q "cursor grid location") ADD.GLOBAL.GRIDDED.DISPLAY D1 (I 0 SKW) @g (6 ADD.GLOBAL.DISPLAY) (3 GRID) () CREATE.GLOBAL.DISPLAYER D1 (P 0 GCOORDW I 1 TITLE I 0 FONT) @jdo@ @ li Aohi @H H Hgg H(74Q PUTWINDOWPROP 62Q DSPRESET 56Q DSPFONT 46Q CREATEW 32Q CREATEREGION 27Q HEIGHTIFWINDOW 20Q FONTHEIGHT 14Q WIDTHIFWINDOW 11Q STRINGWIDTH) (71Q LOCATOR.CLOSEFN 66Q CLOSEFN) ( 41Q "Real Coordinates" 5 "11111111.1111 ") UPDATE.GLOBAL.GRIDDED.COORD.LOCATOR D1 (P 3 YGRID P 2 XGRID P 1 GRID P 0 SCALE I 1 W I 0 GCOORDW) }@hA XAg QA !A HI A HI Z@g K@g @gJ @gK JK@ A H A H @ h(171Q SHOW.GLOBAL.COORDS 165Q UNSCALE 161Q LASTMOUSEY 155Q UNSCALE 151Q LASTMOUSEX 141Q SHOW.GLOBAL.COORDS 132Q PUTWINDOWPROP 121Q PUTWINDOWPROP 107Q EQP 104Q GETWINDOWUSERPROP 73Q EQP 70Q GETWINDOWUSERPROP 60Q MAP.WINDOW.ONTO.GLOBAL.GRID 53Q LASTMOUSEX 46Q MAP.WINDOW.ONTO.GLOBAL.GRID 41Q LASTMOUSEY 32Q SK.GRIDFACTOR 24Q GETWINDOWUSERPROP 12Q WINDOW.SCALE) (126Q YCOORD 115Q XCOORD 101Q YCOORD 65Q XCOORD 21Q USEGRID) () READBRUSHSHAPE D1 NIL A`di dododg dgjdndhHdI  (76Q MENU) (43Q DEFAULTMENUHELDFN 34Q CLRPROMPT 2 MENUTYPE#) ( 25Q (ROUND SQUARE VERTICAL HORIZONTAL DIAGONAL) 15Q "pick a shape") 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) `@Zo @Adgh oA JdgIygImJdgI]gIKJdgIAU 1gHhhTcYog gIcgI KJ(71Q ERROR! 64Q APPLY 41Q GETSKWPOSITIONA0001 6 CURSOR) (55Q CURSOR 45Q ERROR 36Q INTERNAL 14Q CURSOR) ( 33Q (GETSKWPOSITIONA0001)) NEAREST.HOT.SPOT D1 (P 6 XBUCKET P 5 YBUCKET P 4 THISDIF P 3 YDIF P 2 BESTY P 1 BESTX P 0 BESTMEASURE I 2 Y I 1 X I 0 CACHE) En'Q@4d]B M"dNKNA ԼHLLNMIdJ(46Q ABS 21Q ABS) NIL () GETWREGION D1 (P 0 REG I 4 MINHEIGHT I 3 MINWIDTH I 2 NEWREGIONFNDATA I 1 NEWREGIONFN I 0 W) +CDhAB Hh@ Hh@ HH (50Q CREATEREGION 33Q DSPYOFFSET 22Q DSPXOFFSET 10Q GETREGION) NIL () GET.BITMAP.POSITION D1 (P 2 HEIGHT P 1 WIDTH P 0 BUFFER.BITMAP I 5 YOFFSET I 4 XOFFSET I 3 MSG I 2 OPERATION I 1 BITMAP I 0 WINDOW) /0A YA ZIJ X@oC @AHIJBgDE (54Q SK.TRACK.BITMAP1 33Q STATUSPRINT 21Q BITMAPCREATE 13Q BITMAPHEIGHT 6 BITMAPWIDTH) (46Q PAINT) ( 27Q " ") SK.TRACK.BITMAP1 D1 (P 15Q NEARPOS P 14Q ONGRID? P 13Q GRID.BOTTOM P 12Q GRID.LEFT P 11Q NEW.BOTTOM P 10Q NEW.LEFT P 7 BOTTOM P 6 LEFT P 5 DOWN P 4 HOTSPOTCACHE P 3 SCALE P 2 GRID P 1 USEGRID P 0 DSP I 7 YOFFSET I 6 XOFFSET I 5 OPERATION I 4 HEIGHT I 3 WIDTH I 2 BUFFER.BITMAP I 1 BITMAP I 0 W) @ @g @ @ @ Fjb Gjb@ M`l_jOO `l_jOO iH _H _ONOO@ OO_L'`dkj LOO _h_O_O%`ljIhI_OKJ _OKJ _OOOODOBjdHOFOGCDgg O_O_HOFOGBjdCDgg AjdHOFOGCDgE BjdHOFOGCDgg hH NFOGCD OOOh(567Q INTERSECTREGIONS 564Q CREATEREGION 547Q DSPCLIPPINGREGION 541Q BITBLT 504Q BITBLT 454Q BITBLT 410Q BITBLT 331Q MAP.WINDOW.ONTO.GRID 317Q MAP.WINDOW.ONTO.GRID 244Q NEAREST.HOT.SPOT 205Q SKETCHW.UPDATE.LOCATORS 162Q LASTMOUSEY 153Q LASTMOUSEX 144Q \FZEROP 116Q GETMOUSESTATE 107Q \FZEROP 54Q TOTOPW 30Q SK.HOTSPOT.CACHE 24Q WINDOW.SCALE 20Q SK.GRIDFACTOR 14Q GETWINDOWUSERPROP 3 \INSUREWINDOW) (535Q REPLACE 532Q INPUT 477Q INPUT 450Q REPLACE 445Q INPUT 404Q REPLACE 401Q INPUT 271Q LASTMOUSEBUTTONS 224Q LASTMOUSEBUTTONS 122Q LASTMOUSEBUTTONS 62Q LASTMOUSEBUTTONS 11Q USEGRID) () 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 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () SK.UPDATEFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) () DRAWDASHEDLINE D1 (P 13Q COSINE P 12Q SINE P 11Q LINELENGTH P 10Q NEWY P 7 NEWX P 6 DASHLST P 5 DASHCNT P 4 DASHTAIL P 3 LENGTHDRAWN P 2 OPPOSITE P 1 ADJACENT P 0 DASHON I 10Q DASHING I 7 COLOR I 6 STREAM I 5 OPERATION I 4 WIDTH I 3 Y2 I 2 X2 I 1 Y1 I 0 X1)  Fg F@ABChhDG iB@CAj IdJd j_0GdD_O Oh_O&_O^d\JO_IO_KLOH@ABCDEFG BCF hLLKMԻ@OM_AOM_H@AOODEFG OOF HhObObLN(301Q RELMOVETO 270Q DRAWLINE 211Q MOVETO 202Q DRAWLINE 60Q SQRT 32Q \DRAWCURVE.DISPLAY 6 IMAGESTREAMTYPEP) (3 DISPLAY) () (PRETTYCOMPRINT SKETCHCOMS) (RPAQQ SKETCHCOMS ((DECLARE: FIRST DOCOPY DONTEVAL@LOAD (P (COND ((GETD (QUOTE SKETCHW.CREATE)) (PRINT "There is already a version of SKETCH in this SYSOUT. If you want to use a newer version, you must start with a new SYSOUT." T) (ERROR!))))) (FNS DRAW.LOCAL.SKETCH SKETCHW.CREATE SKETCHW.FIG.CHANGED SK.WINDOW.TITLE EDITSLIDE EDITSKETCH SK.FIX.MENU SK.PUT.ON.FILE SK.GET.FROM.FILE SK.ADD.ELEMENTS.TO.SKETCH STATUSPRINT CLEARPROMPTWINDOW CLOSEPROMPTWINDOW MYGETPROMPTWINDOW PROMPT.GETINPUT SK.INSURE.HAS.MENU CREATE.SKETCHW.COMMANDMENU GETSKETCHWREGION READ.FUNCTION READBRUSHSIZE READANGLE READARCDIRECTION SK.ADD.ELEMENT SK.APPLY.MENU.COMMAND SK.DELETE.ELEMENT1 SK.MARK.DIRTY SK.MARK.UNDIRTY SK.MENU.AND.RETURN.FIELD SK.SCALE.POSITION.INTO.VIEWER SKETCH.SET.BRUSH.SHAPE SKETCH.SET.BRUSH.SIZE SKETCHW.CLOSEFN SKETCHW.OUTFN SKETCHW.REOPENFN MAKE.LOCAL.SKETCH MAP.SKETCHSPEC.INTO.VIEWER SKETCHW.REPAINTFN SKETCHW.REPAINTFN1 SK.DRAWFIGURE.IF SKETCHW.SCROLLFN SKETCHW.SELECTIONFN SK.UPDATE.EVENT.SELECTION LIGHTGRAYWINDOW SK.ADD.SPACES SK.SKETCH.MENU SK.CHECK.WHENDELETEDFN SK.APPLY.WHENDELETEDFN SK.RETURN.TTY SK.TAKE.TTY) (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.)) (* functions for changing elements.) (FNS SK.SEL.AND.CHANGE SK.CHANGE.ELT SK.CHANGE.THING SK.CHANGEFN SK.READCHANGEFN SK.DEFAULT.CHANGEFN CHANGEABLEFIELDITEMS SK.SEL.AND.MAKE SK.APPLY.CHANGE.COMMAND SK.ELEMENTS.CHANGEFN SK.GROUP.CHANGEFN) (* fns for adding elements) (FNS ADD.ELEMENT.TO.SKETCH ADD.SKETCH.VIEWER REMOVE.SKETCH.VIEWER ALL.SKETCH.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 SK.REGION.VIEWED 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.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.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 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)) (COMS (* stuff for supporting the GROUP sketch element.) (FNS SK.GROUP.ELTS SK.SEL.AND.GROUP SK.GROUP.ELEMENTS SK.UNGROUP.ELT SK.SEL.AND.UNGROUP SK.UNGROUP.ELEMENT SK.GLOBAL.REGION.OF.ELEMENTS SK.GLOBAL.REGION.OF.SKETCH SK.FLASHREGION) (FNS INIT.GROUP.ELEMENT GROUP.DRAWFN GROUP.EXPANDFN GROUP.INSIDEFN GROUP.REGIONFN GROUP.TRANSLATEFN GROUP.TRANSFORMFN GROUP.READCHANGEFN) (FNS REGION.CENTER REMOVE.LAST) (RECORDS GROUP LOCALGROUP) (COMS (* history and undo stuff for groups) (FNS SK.DO.GROUP SK.DO.UNGROUP SK.GROUP.UNDO SK.UNGROUP.UNDO) (IFPROP EVENTFNS GROUP UNGROUP))) (COMS (* fns to implement transformations on the elements) (FNS SK.SEL.AND.TRANSFORM SK.TRANSFORM.ELEMENTS SK.TRANSFORM.ITEM SK.TRANSFORM.ELEMENT SK.TRANSFORM.POINT SK.TRANSFORM.POINT.LIST SK.TRANSFORM.REGION SK.PUT.ELTS.ON.GRID SK.TRANSFORM.GLOBAL.ELEMENTS GLOBALELEMENTP SK.TRANSFORM.SCALE.FACTOR SK.TRANSFORM.BRUSH SCALE.BRUSH) (FNS TWO.PT.TRANSFORMATION.INPUTFN SK.TWO.PT.TRANSFORM.ELTS SK.SEL.AND.TWO.PT.TRANSFORM SK.APPLY.AFFINE.TRANSFORM SK.COMPUTE.TWO.PT.TRANSFORMATION SK.COMPUTE.SLOPE SK.THREE.PT.TRANSFORM.ELTS SK.COMPUTE.THREE.PT.TRANSFORMATION SK.SEL.AND.THREE.PT.TRANSFORM THREE.PT.TRANSFORMATION.INPUTFN) ( FNS SK.COPY.AND.TWO.PT.TRANSFORM.ELTS SK.SEL.COPY.AND.TWO.PT.TRANSFORM SK.COPY.AND.THREE.PT.TRANSFORM.ELTS SK.SEL.COPY.AND.THREE.PT.TRANSFORM SK.COPY.AND.TRANSFORM.ELEMENTS SK.COPY.AND.TRANSFORM.ITEM) (DECLARE: DONTCOPY (RECORDS AFFINETRANSFORMATION)) (UGLYVARS FIRSTPTMARK SECONDPTMARK THIRDPTMARK NEWFIRSTPTMARK NEWSECONDPTMARK) (GLOBALVARS FIRSTPTMARK SECONDPTMARK THIRDPTMARK NEWFIRSTPTMARK NEWSECONDPTMARK) (FILES MATRIXUSE)) (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) (FNS MAPSKETCHSPECS MAPCOLLECTSKETCHSPECS MAPSKETCHSPECSUNTIL MAPGLOBALSKETCHSPECS MAPGLOBALSKETCHELEMENTS GETSKELEMENTPROP PUTSKELEMENTPROP) (COMS (* functions for marking) (FNS SK.SHOWMARKS MARKPOINT SK.MARKHOTSPOTS SK.MARK.SELECTION) (UGLYVARS POINTMARK SPOTMARKER) (GLOBALVARS POINTMARK SPOTMARKER) ( CURSORS POINTREADINGCURSOR) (* hit detection functions.) (FNS SK.SELECT.ITEM IN.SKETCH.ELT? SK.MARK.HOTSPOT SK.MARK.POSITION SK.SELECT.ELT SK.DESELECT.ELT) (CONSTANTS (SK.POINT.WIDTH 4)) (* fns to support caching of hotspots.) (FNS SK.HOTSPOT.CACHE SK.SET.HOTSPOT.CACHE SK.CREATE.HOTSPOT.CACHE SK.ELTS.FROM.HOTSPOT SK.ADD.HOTSPOTS.TO.CACHE SK.ADD.HOTSPOTS.TO.CACHE1 SK.ADD.HOTSPOT.TO.CACHE SK.REMOVE.HOTSPOTS.FROM.CACHE SK.REMOVE.HOTSPOTS.FROM.CACHE1 SK.REMOVE.HOTSPOT.FROM.CACHE SK.REMOVE.VALUE.FROM.CACHE.BUCKET SK.FIND.CACHE.BUCKET SK.ADD.VALUE.TO.CACHE.BUCKET)) (COMS (* multiple selection and copy select functions) (FNS SK.ADD.SELECTION SK.COPY.INSERTFN SK.FIGUREIMAGE SCREENELEMENTP SK.ITEM.REGION SK.LOCAL.ITEMS.IN.REGION SK.REGIONFN SK.REMOVE.SELECTION SK.SELECT.MULTIPLE.ITEMS 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))) (INITVARS (ALLOW.MULTIPLE.SELECTION.FLG T)) (* functions for determining what is inside of a window.) (FNS ELT.INSIDE.SKETCHWP SK.INSIDE.REGION) (COMS (* functions for zooming) (FNS SKETCHW.SCALE SKETCH.ZOOM SAME.ASPECT.RATIO SKETCH.DO.ZOOM SKETCH.NEW.VIEW ZOOM.UPDATE.ELT SK.UPDATE.AFTER.SCALE.CHANGE SKETCH.AUTOZOOM SKETCH.GLOBAL.REGION.ZOOM) (INITVARS (AUTOZOOM.FACTOR .8) (AUTOZOOM.REPAINT.TIME 3000)) (UGLYVARS AUTOZOOMCURSOR ZOOMINCURSOR ZOOMOUTCURSOR) (GLOBALVARS AUTOZOOM.FACTOR AUTOZOOM.REPAINT.TIME ZOOMINCURSOR ZOOMOUTCURSOR)) (COMS (* fns for changing the view) (FNS SKETCH.HOME SK.FRAME.IT SK.MOVE.TO.VIEW SK.NAME.CURRENT.VIEW SK.RESTORE.VIEW SK.FORGET.VIEW) ( DECLARE: DONTCOPY (RECORDS SKETCHVIEW))) (COMS (* grid stuff) (FNS SK.SET.GRID SK.DISPLAY.GRID SK.DISPLAY.GRID.POINTS SK.REMOVE.GRID.POINTS SK.TAKE.DOWN.GRID SK.SHOW.GRID SK.GRIDFACTOR SK.TURN.GRID.ON SK.TURN.GRID.OFF SK.MAKE.GRID.LARGER SK.MAKE.GRID.SMALLER SK.CHANGE.GRID GRID.FACTOR1 LEASTPOWEROF2GT GREATESTPOWEROF2LT SK.DEFAULT.GRIDFACTOR SK.PUT.ON.GRID MAP.WINDOW.ONTO.GRID MAP.SCREEN.ONTO.GRID MAP.GLOBAL.PT.ONTO.GRID MAP.GLOBAL.REGION.ONTO.GRID MAP.WINDOW.POINT.ONTO.GLOBAL.GRID MAP.WINDOW.ONTO.GLOBAL.GRID SK.UPDATE.GRIDFACTOR SK.MAP.FROM.WINDOW.TO.GLOBAL.GRID SK.MAP.INPUT.PT.TO.GLOBAL SK.MAP.FROM.WINDOW.TO.NEAREST.GRID) ( INITVARS (DEFAULTGRIDSIZE 8) (DEFAULTMINGRIDSIZE 4) (DEFAULTMAXGRIDSIZE 32))) (COMS (* sketch icon support) (FNS SKETCH.TITLE SK.SHRINK.ICONCREATE) (UGLYVARS SKETCH.TITLED.ICON.TEMPLATE)) (COMS (* history and undo stuff) (FNS SK.ADD.HISTEVENT SK.SEL.AND.UNDO SK.UNDO.LAST SK.UNDO.NAME SKEVENTTYPEFNS SK.TYPE.OF.FIRST.ARG) (FNS SK.DELETE.UNDO SK.ADD.UNDO) (FNS SK.CHANGE.UNDO SK.CHANGE.REDO) (FNS SK.UNDO.UNDO SK.UNDO.MENULABEL SK.LABEL.FROM.TYPE) (DECLARE: DONTCOPY (RECORDS SKHISTEVENT SKEVENTTYPE )) (INITVARS (SKETCH.#.UNDO.ITEMS 30)) (GLOBALVARS SKETCH.#.UNDO.ITEMS) (IFPROP EVENTFNS ADD DELETE CHANGE UNDO MOVE COPY ZOOM ANNOTATE LINK)) (COMS (* functions for hardcopying) (FNS SKETCHW.HARDCOPYFN \SK.LIST.PAGE.IMAGE SK.LIST.IMAGE SK.LIST.IMAGE.ON.FILE DO.TRANSLATE.IPSTREAM SK.SET.HARDCOPY.MODE SK.UNSET.HARDCOPY.MODE SK.UPDATE.AFTER.HARDCOPY DEFAULTPRINTINGIMAGETYPE) (CONSTANTS MICASPERPT IMICASPERPT PTSPERMICA)) (COMS (* functions for displaying the global coordinate space values.) (FNS SHOW.GLOBAL.COORDS LOCATOR.CLOSEFN SKETCHW.FROM.LOCATOR SKETCHW.UPDATE.LOCATORS LOCATOR.UPDATE UPDATE.GLOBAL.LOCATOR UPDATE.GLOBALCOORD.LOCATOR ADD.GLOBAL.DISPLAY ADD.GLOBAL.GRIDDED.DISPLAY CREATE.GLOBAL.DISPLAYER UPDATE.GLOBAL.GRIDDED.COORD.LOCATOR) (VARS (SKETCHW.LASTCURSORPTX 0) ( SKETCHW.LASTCURSORY 0)) (GLOBALVARS SKETCHW.LASTCURSORPTX SKETCHW.LASTCURSORPTY)) (COMS (* fns for reading in various values) (FNS READBRUSHSHAPE) (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 (* fns for reading colors) (FNS DISPLAYREADCOLORHLSLEVELS DISPLAYREADCOLORLEVEL DRAWREADCOLORBOX READ.CHANGE.COLOR READCOLOR1 READCOLORCOMMANDMENUSELECTEDFN READCOLOR2) (FNS CREATE.CNS.MENU) (VARS COLORMENUHEIGHT COLORMENUWIDTH) (DECLARE: DOEVAL@COMPILE EVAL@LOAD DONTCOPY (FILES (LOADCOMP) LLCOLOR))) (FNS SCALE.POSITION.INTO.SKETCHW UNSCALE UNSCALE.REGION) (COMS (* stuff for reading input positions) (FNS SK.GETGLOBALPOSITION GETSKWPOSITION NEAREST.HOT.SPOT GETWREGION GET.BITMAP.POSITION SK.TRACK.BITMAP1) (RECORDS INPUTPT)) (INITVARS (ALL.SKETCHES) (INITIAL.SCALE 1.0) (SKETCH.ELEMENT.TYPES) ( SKETCH.ELEMENT.TYPE.NAMES) (DEFAULT.VISIBLE.SCALE.FACTOR 10.0) (MINIMUM.VISIBLE.SCALE.FACTOR 4.0) ( ALLOWSKETCHPUTFLG T)) (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."))) (VARS (BackgroundMenu)) (FILES SKETCHELEMENTS GRAPHZOOM SKETCHEDIT SKETCHOBJ TEDIT) (P (INIT.GROUP.ELEMENT)) (COMS (* patch to dashed line drawing that can be removed after J release) (FNS DRAWDASHEDLINE)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA) (NLAML) (LAMA SKETCH.CREATE STATUSPRINT))))) (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) 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)) (READVARS FIRSTPTMARK SECONDPTMARK THIRDPTMARK NEWFIRSTPTMARK NEWSECONDPTMARK) ({ (READBITMAP) (25 25 "AOCNB@@@" "AA@HF@@@" "AA@HB@@@" "AN@HB@@@" "A@@HB@@@" "A@@HB@@@" "A@@HOH@@" "@@@@@@@@" "@@@@@@@@" "@@@H@@@@" "@@@H@@@@" "@@@H@@@@" "@@GO@@@@" "@@@H@@@@" "@@@H@@@@" "@@@H@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@") } { (READBITMAP) (25 25 "AOCNG@@@" "AA@HHH@@" "AA@HAH@@" "AN@HG@@@" "A@@HL@@@" "A@@HH@@@" "A@@HOH@@" "@@@@@@@@" "@@@@@@@@" "@@@H@@@@" "@@@H@@@@" "@@@H@@@@" "@@GO@@@@" "@@@H@@@@" "@@@H@@@@" "@@@H@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@") } { (READBITMAP) (25 25 "AOCNG@@@" "AA@HHH@@" "AA@HAH@@" "AN@HF@@@" "A@@HAH@@" "A@@HHH@@" "A@@HG@@@" "@@@@@@@@" "@@@@@@@@" "@@@H@@@@" "@@@H@@@@" "@@@H@@@@" "@@GO@@@@" "@@@H@@@@" "@@@H@@@@" "@@@H@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@") } { (READBITMAP) (25 25 "AAGJB@@@" "AIDBJ@@@" "AEDBJ@@@" "AEGBJ@@@" "ACDBJ@@@" "ACDBJ@@@" "AAGID@@@" "@@@@@@@@" "@@@@@@@@" "@@@H@@@@" "@@@H@@@@" "@@@H@@@@" "@@GO@@@@" "@@@H@@@@" "@@@H@@@@" "@@@H@@@@" "@@@@@@@@" "@@@@@@@@" "AOCNB@@@" "AA@HF@@@" "AA@HB@@@" "AN@HB@@@" "A@@HB@@@" "A@@HB@@@" "A@@HOH@@") } { (READBITMAP) (25 25 "AAGJB@@@" "AIDBJ@@@" "AEDBJ@@@" "AEGBJ@@@" "ACDBJ@@@" "ACDBJ@@@" "AAGID@@@" "@@@@@@@@" "@@@@@@@@" "@@@H@@@@" "@@@H@@@@" "@@@H@@@@" "@@GO@@@@" "@@@H@@@@" "@@@H@@@@" "@@@H@@@@" "@@@@@@@@" "@@@@@@@@" "AOCNCH@@" "AA@HDD@@" "AA@H@D@@" "AN@HAH@@" "A@@HF@@@" "A@@HD@@@" "A@@HGL@@") }) (FILESLOAD MATRIXUSE) (READVARS POINTMARK SPOTMARKER) ({ (READBITMAP) (7 7 "HB@@" "DD@@" "BH@@" "A@@@" "BH@@" "DD@@" "HB@@") } { (READBITMAP) (17 18 "@@@@@@@@" "@@@@@@@@" "@@L@@@@@" "@@L@@@@@" "@@L@@@@@" "@@L@@@@@" "@@@@@@@@" "ANMN@@@@" "ANMN@@@@" "@@@@@@@@" "@@L@@@@@" "@@L@@@@@" "@@L@@@@@" "@@L@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@") }) (RPAQ POINTREADINGCURSOR (CURSORCREATE (READBITMAP) 7 7)) (16 16 "@@@@" "@GL@" "ALG@" "C@AH" "F@@L" "D@@D" "L@@F" "H@@B" "HA@B" "H@@B" "L@@F" "D@@D" "F@@L" "C@AH" "ALG@" "@GL@") (RPAQQ SK.POINT.WIDTH 4) (CONSTANTS (SK.POINT.WIDTH 4)) (RPAQQ SK.NO.MOVE.DISTANCE 4) (CONSTANTS (SK.NO.MOVE.DISTANCE 4)) (RPAQ? ALLOW.MULTIPLE.SELECTION.FLG T) (RPAQ? AUTOZOOM.FACTOR .8) (RPAQ? AUTOZOOM.REPAINT.TIME 3000) (READVARS AUTOZOOMCURSOR ZOOMINCURSOR ZOOMOUTCURSOR) (({ (READBITMAP) (16 16 "O@@O" "N@@G" "O@@O" "KJEM" "ANGH" "@NG@" "AOOH" "@BD@" "@BD@" "COOH" "@NG@" "ANGH" "KJEM" "OB@O" "N@@G" "O@@O") } 7 . 8) ({ (READBITMAP) (16 16 "OLCO" "O@@O" "O@@O" "OHAO" "ILCI" "HNGA" "@GN@" "@BD@" "@BD@" "@GN@" "HNGA" "ILCI" "OHAO" "O@@O" "O@@O" "OLCO") } 7 . 8) ({ (READBITMAP ) (16 16 "L@@C" "NBDG" "GBDN" "CNGL" "ANGH" "ANGH" "GOON" "@BD@" "@BD@" "GOON" "ANGH" "ANGH" "CNGL" "GBDN" "NBDG" "L@@C") } 7 . 8)) (RPAQ? DEFAULTGRIDSIZE 8) (RPAQ? DEFAULTMINGRIDSIZE 4) (RPAQ? DEFAULTMAXGRIDSIZE 32) (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? SKETCH.#.UNDO.ITEMS 30) (PUTPROPS ADD EVENTFNS (SK.ADD.UNDO SK.TYPE.OF.FIRST.ARG SK.DELETE.UNDO)) (PUTPROPS DELETE EVENTFNS (SK.DELETE.UNDO SK.TYPE.OF.FIRST.ARG SK.ADD.UNDO)) (PUTPROPS CHANGE EVENTFNS (SK.CHANGE.UNDO SK.TYPE.OF.FIRST.ARG SK.CHANGE.REDO)) (PUTPROPS UNDO EVENTFNS (SK.UNDO.UNDO SK.UNDO.MENULABEL SHOULDNT)) (PUTPROPS MOVE EVENTFNS (SK.CHANGE.UNDO SK.TYPE.OF.FIRST.ARG SK.CHANGE.REDO)) (PUTPROPS COPY EVENTFNS (SK.ADD.UNDO SK.TYPE.OF.FIRST.ARG SK.DELETE.UNDO)) (RPAQQ MICASPERPT 35.27778) (RPAQQ IMICASPERPT 35) (RPAQQ PTSPERMICA .02834646) (CONSTANTS MICASPERPT IMICASPERPT PTSPERMICA) (RPAQQ SKETCHW.LASTCURSORPTX 0) (RPAQQ SKETCHW.LASTCURSORY 0) (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) (RPAQQ COLORMENUHEIGHT 320) (RPAQQ COLORMENUWIDTH 360) (RECORD INPUTPT (INPUT.ONGRID? INPUT.POSITION) (TYPE? (AND (LISTP DATUM) (OR (NULL (CAR DATUM)) (EQ ( CAR DATUM) T)) (LISTP (CDR DATUM)) (POSITIONP (CADR DATUM)) (NULL (CDDR DATUM))))) (RPAQ? ALL.SKETCHES) (RPAQ? INITIAL.SCALE 1.0) (RPAQ? SKETCH.ELEMENT.TYPES) (RPAQ? SKETCH.ELEMENT.TYPE.NAMES) (RPAQ? DEFAULT.VISIBLE.SCALE.FACTOR 10.0) (RPAQ? MINIMUM.VISIBLE.SCALE.FACTOR 4.0) (RPAQ? ALLOWSKETCHPUTFLG T) (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)) (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))) ( QUOTE 28)) (ADDTOVAR BackgroundMenuCommands (Sketch (QUOTE (SKETCHW.CREATE NIL NIL (GETREGION) NIL NIL T T)) "Opens a sketch window for use.")) (RPAQQ BackgroundMenu NIL) (FILESLOAD SKETCHELEMENTS GRAPHZOOM SKETCHEDIT SKETCHOBJ TEDIT) (INIT.GROUP.ELEMENT) (PUTPROPS SKETCH COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL