(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Aug-2022 09:58:04" ("compiled on " {DSK}larry>medley>library>SKETCH.;2) " 4-Aug-2022 07:48:40" brecompiled exprs%: SKETCH.COMMANDMENU.ITEMS in "Welcome to Fuller sysout 4-Aug-2022 ..." dated " 4-Aug-2022 07:52:56") (FILECREATED " 4-Aug-2022 09:58:03" {DSK}larry>medley>library>SKETCH.;2 491064 :CHANGES-TO (FNS SKETCH.COMMANDMENU.ITEMS) :PREVIOUS-DATE " 1-Feb-2022 09:17:12" {DSK}larry>medley>library>SKETCH.;1) (PROG ((NOTECARDSFLG (GETPROP (QUOTE NOTECARDS) (QUOTE FILEDATES))) (SKETCHFLG (AND (BOUNDP (QUOTE ALL.SKETCHES)) ALL.SKETCHES)) TEDITFLG) (* ;; "current knows about SKETCH TEDIT and NOTECARDS. Everyone else loses.") (MAP.PROCESSES (FUNCTION ( LAMBDA (PROC PROCNAME PROCFORM) (AND (EQ (CAR PROCFORM) (QUOTE \TEDIT2)) (SETQ TEDITFLG T))))) (COND ( (AND (BOUNDP (QUOTE ALL.SKETCHES)) (OR SKETCHFLG NOTECARDSFLG TEDITFLG)) (ERROR (CONCAT "Please close" (COND (SKETCHFLG " all open Sketch windows,") (T "")) (COND (NOTECARDSFLG (CONCAT (COND (SKETCHFLG " and") (T "")) " any open notefiles,")) (T "")) (COND (TEDITFLG (CONCAT (COND ((OR SKETCHFLG NOTECARDSFLG) " and") (T "")) " any TEDIT windows that have sketches in them,")) (T "")) " then type 'RETURN'. To abort loading the new version of Sketch, type '^'."))))) SKETCH :D8 (P 2 READSKETCH P 1 SCREENREG P 0 SKIMAGEOBJ I 1 WINDOW I 0 SKETCH) @dd3@@ aHH YHZdHALI  lռLdKKIi `lվNdMMhddo JHiH @hAhdid (163 SKETCHW.CREATE 153 GETREGION 142 SKETCHW.CREATE 121 GETBOXREGION 89 HEIGHTIFWINDOW 66 BITMAPWIDTH 61 SCREENBITMAP 56 WIDTHIFWINDOW 36 SK.SCALE.REGION 21 SK.GET.IMAGEOBJ.FROM.FILE) (94 SCREENHEIGHT) ( 115 "Position sketch window.") SKETCH.FROM.A.FILE :D8 (P 0 NAME) o Hd (20 SKETCH 9 PopUpWindowAndGetAtom) NIL ( 4 "Sketch file name: ") SKETCHW.CREATE :D8 (P 6 X P 5 ELT P 3 SKETCHSTRUCTURE P 2 SKPROC P 1 SCALE P 0 W I 6 INITIALGRID I 5 BRINGUPMENU I 4 INITIALSCALE I 3 TITLE I 2 SCREENREGION I 1 SKETCHREGION I 0 SKETCH) I@@d d3@@ @dddg7@g A JbD3JbF3Jb JE@d3@7@Li*@ @N@NN] hL\@ [B CBgC B,B ``ld CK hi XdB hE B B H nH HgK HgD3*A AhH A` Y HgKg Kg A jAIH jAIH H KH H HgF3hH HgFi Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg Hgg HggHddi3 gHhhgigggg Z Hgi Hggi H KH H H (836 LEASTPOWEROF2GT 829 SKETCHW.REPAINTFN 823 ADD.SKETCH.VIEWER 816 OPENW 810 WINDOWADDPROP 793 PUTWINDOWPROP 781 PUTWINDOWPROP 775 ADD.PROCESS 708 PUTWINDOWPROP 692 PUTWINDOWPROP 676 PUTWINDOWPROP 660 WINDOWADDPROP 644 PUTWINDOWPROP 628 WINDOWADDPROP 612 WINDOWADDPROP 596 PUTWINDOWPROP 580 PUTWINDOWPROP 564 PUTWINDOWPROP 548 PUTWINDOWPROP 532 PUTWINDOWPROP 516 PUTWINDOWPROP 500 PUTWINDOWPROP 485 PUTWINDOWPROP 480 SK.DEFAULT.GRIDFACTOR 459 SK.CREATE.HOTSPOT.CACHE 453 MAP.SKETCHSPEC.INTO.VIEWER 446 SK.UPDATE.REGION.VIEWED 439 WYOFFSET 425 WXOFFSET 411 REGIONP 405 PUTWINDOWPROP 400 PUTSKETCHPROP 395 CREATE.DEFAULT.SKETCH.CONTEXT 382 GETSKETCHPROP 365 PUTWINDOWPROP 359 \ILLEGAL.ARG 339 DSPCLIPPINGREGION 325 REGIONP 308 PUTWINDOWPROP 296 DSPRIGHTMARGIN 286 SHAPEW 279 WINDOWP 272 REGIONP 266 SK.SET.UP.MENUS 258 OPENWP 250 CREATEW 243 SK.WINDOW.TITLE 234 CREATEREGION 214 REGIONP 204 PUTWINDOWPROP 188 WINDOWP 181 SK.CHECK.SKETCH.VERSION 176 \ILLEGAL.ARG 161 GLOBALELEMENTP 139 SKIO.UPDATE.FROM.OLD.FORM 74 REGIONP 67 IMAGEOBJPROP 24 SKETCH.GET 10 SKETCH.CREATE) (804 SKETCHW.CLOSEFN 799 CLOSEFN 787 SCROLLEXTENTUSE 769 SK.TTYEXITFN 764 TTYEXITFN 759 SK.TTYENTRYFN 754 TTYENTRYFN 748 RESTARTABLE 736 QUOTE 719 WB.EDITOR 714 PROCESS 703 NILL 698 PAGEFULLFN 687 SKETCHW.HARDCOPYFN 682 HARDCOPYFN 671 SKETCHW.SCROLLFN 666 SCROLLFN 655 SK.TAKE.TTY 650 EXPANDFN 639 SK.SHRINK.ICONCREATE 634 ICONFN 623 SK.RETURN.TTY 618 SHRINKFN 607 SKETCHW.RESHAPEFN 602 RESHAPEFN 591 SKETCHW.REPAINTFN 586 REPAINTFN 575 SKETCHW.OUTFN 570 CURSOROUTFN 559 WB.BUTTON.HANDLER 554 RIGHTBUTTONFN 543 SK.COPY.INSERTFN 538 COPYINSERTFN 527 SK.COPY.BUTTONEVENTFN 522 COPYBUTTONEVENTFN 511 WB.BUTTON.HANDLER 506 BUTTONEVENTFN 491 USEGRID 465 GRIDFACTOR 390 SKETCHCONTEXT 377 SKETCHCONTEXT 371 SKETCHCONTEXT 353 INITIAL.SCALE 314 SCALE 302 SKETCH 226 LASTMOUSEY 221 LASTMOUSEX 198 TITLE 62 OBJECTDATUM 54 IMAGEOBJ 44 SKETCH) () SKETCH.RESET :D8 (P 1 VIEWER P 0 SKSTRUC I 0 SKETCH) @ HhhH vdI I Ig` I HI I IgI Igh Igh Igh h(135 PUTWINDOWPROP 122 PUTWINDOWPROP 109 PUTWINDOWPROP 96 PUTWINDOWPROP 91 SK.DEFAULT.GRIDFACTOR 78 SK.CREATE.HOTSPOT.CACHE 71 MAP.SKETCHSPEC.INTO.VIEWER 63 SK.UPDATE.REGION.VIEWED 56 PUTWINDOWPROP 39 DSPRESET 32 SKED.CLEAR.SELECTION 19 ALL.SKETCH.VIEWERS 5 INSURE.SKETCH) (129 SKETCHCHANGED 116 SKETCHHISTORY 103 USEGRID 85 GRIDFACTOR 51 INITIAL.SCALE 46 SCALE) () SKETCHW.FIG.CHANGED :D8 (I 0 W) @g @gg (28 PUTWINDOWPROP 10 GETWINDOWUSERPROP) (23 OLD 18 SKETCHCHANGED 5 SKETCHCHANGED) () SK.WINDOW.TITLE :D8 (I 0 SKETCH) @o@ o(18 CONCAT) NIL ( 24 "Viewer onto a sketch" 9 "Viewer onto ") EDITSLIDE :D8 (I 1 LANDSCAPE I 0 SKETCH) &@hAn ndndn hdio (35 SKETCHW.CREATE 21 GETBOXREGION) NIL ( 29 16.0) EDITSKETCH :D8 (I 0 SLIDENAME) "@ o bhdddio @(30 SKETCHW.CREATE 12 GENSYM) NIL ( 24 16.0 7 "SLIDE") SK.PUT.ON.FILE :D8 (P 4 SKW P 3 TEXTSTREAM P 2 NEWNAME P 1 NOWNAME P 0 SKETCH I 0 SKETCHW) k@ 1H Y@oI ZdA @A *Adg@ @ Y@I A @ (198 \ILLEGAL.ARG 190 \ILLEGAL.ARG 183 SK.MOVE.TO.VIEW 174 SKETCH.VIEW.FROM.NAME 166 SKETCH.HOME 148 SKETCH.GLOBAL.REGION.ZOOM 140 REGIONP 128 GETWINDOWUSERPROP 115 WINDOWP 107 ERROR 94 \ILLEGAL.ARG 71 SKETCH.VIEW.FROM.NAME 57 REGIONP 18 IMAGEOBJPROP 5 IMAGEOBJP) (157 HOME 123 REGION.VIEWED 86 HOME 42 SKETCH 13 OBJECTDATUM) ( 101 "not a sketch image object") SKETCH.VIEW.FROM.NAME :D8 (I 1 SKETCHW I 0 VIEWNAME) (A g Hh@IIHX(15 GETSKETCHPROP 5 INSURE.SKETCH) (10 VIEWS) () SK.UPDATE.REGION.VIEWED :D8 (I 0 SKW) @g@d (22 PUTWINDOWPROP 17 SK.CALC.REGION.VIEWED 12 VIEWER.SCALE) (5 REGION.VIEWED) () SKETCH.ADD.AND.DISPLAY :D8 (I 2 DONTCLEARCURSOR I 1 SKETCHW I 0 GELT) @g@hA @AB (24 SK.ADD.ELEMENT 16 SK.ADD.HISTEVENT) (7 ADD) () SKETCH.ADD.AND.DISPLAY1 :D8 (I 3 NODISPLAYFLG I 2 SCALE I 1 SKETCHW I 0 GELT) &@#C@A @A AhBA (35 SK.DRAWFIGURE 30 VIEWER.SCALE 19 SK.ADD.ITEM 11 SK.ADD.ITEM) NIL () SK.ADD.ITEM :D8 (I 1 SKETCHW I 0 GELT) @A A (12 SK.ADDELT.TO.WINDOW 6 SK.LOCAL.FROM.GLOBAL) NIL () SKETCHW.ADD.INSTANCE :D8 (P 0 ELT I 1 SKW I 0 TYPE) @A HdA H(18 SKETCH.ADD.AND.DISPLAY 6 SK.INPUT) NIL () SK.SEL.AND.DELETE :D8 (I 0 W) @ihg @ (18 SK.DELETE.ELEMENT 12 SK.SELECT.MULTIPLE.ITEMS) (7 DELETE) () SK.ERASE.AND.DELETE.ITEM :D8 (I 2 NODISPLAYFLG I 1 SKW I 0 SELELT) @B@A @A (19 SK.DELETE.ITEM 11 SK.ERASE.ELT) NIL () REMOVE.ELEMENT.FROM.SKETCH :D8 (P 2 ELT P 0 SKETCHDATA I 2 INSIDEGROUPFLG I 1 SKETCH I 0 GELT) =A H@ A iBHIZ@J A JJ(53 SK.MARK.DIRTY 46 DELFROMGROUPELT 23 SK.MARK.DIRTY 16 DELFROMTCONC 5 INSURE.SKETCH) NIL () SK.DELETE.ELEMENT :D8 (I 2 ELTSFORHISTORY I 1 SKETCHW I 0 ELTSTODEL) ,A @#0@dIHhZH&JAB (41 SK.DELETE.ELEMENT2 5 SKED.CLEAR.SELECTION) NIL () SK.DELETE.ELEMENT2 :D8 (P 1 GELT P 0 DELETEDELTS I 2 ELTSFORHISTORY I 1 SKETCHW I 0 GELTSTODEL) =A@ XdhBggBHA HdIA H(52 SK.DELETE.ELEMENT1 37 SK.ADD.HISTEVENT 9 SK.CHECK.WHENDELETEDFN) (27 DELETE 20 DON'T) () SK.DELETE.KNOT :D8 (I 0 W) %g@ddi3 g@hh@ (34 SK.EVAL.AS.PROCESS) (21 QUOTE 4 SK.SEL.AND.DELETE.KNOT) () SK.SEL.AND.DELETE.KNOT :D8 (P 4 KNOTELTS P 3 SCRELT I 0 W) l0@ :dKo Kg hdIHhZH&JL@o h@hL L@ h(104 SK.DELETE.ELEMENT.KNOT 97 SK.SELECT.ITEM 87 STATUSPRINT 47 SK.ELEMENT.PROTECTED? 30 MEMB 8 LOCALSPECS.FROM.VIEWER) (42 CHANGE) ( 82 "There are no curve or wire elements to delete points from." 25 (WIRE CLOSEDWIRE OPENCURVE CLOSEDCURVE)) SK.DELETE.ELEMENT.KNOT :D8 (P 9 GLOBALPART P 8 CHANGES P 7 NEWELT P 6 NEWKNOTS P 5 GLOBALKNOTS P 4 GLOBALKNOT P 3 LOCALKNOTS P 2 SCREENELT P 1 SKELT I 2 SKW I 1 SCRELTS I 0 LOCALKNOT) B @hv@ @i@ a@b[AH hq Jd@I IHX_dg ]J[" O_Oh\BJL h_O@OO_O_LM ^ION _i@RSTgU URgoSVTV chcg(46 GET.BITMAP.POSITION 19 SK.SHOW.FIG.FROM.INFO) (59 :NORMAL 27 PAINT 12 ERASE) ( 32 "Move image to its new position.") SK.MOVE.ELEMENTS :D8 (P 26 SI::*NLSETQFLAG* P 25 *PROCEED-CASES* P 24 SI::NLSETQ-VALUE P 23 GDELTAPOS P 22 X P 21 MOVEFN P 20 CHANGES P 19 DELTAPOS P 18 IMAGEBM P 17 IMAGEPOSY P 16 IMAGEPOSX P 15 LOWLFT P 14 NEWPOS P 13 FIRSTHOTSPOT P 12 FIGINFO P 11 PT P 10 SCRELT P 8 SKETCH P 7 MOVEARGS P 6 X P 5 GDELTAPOS P 4 MOVEFN P 3 NEWPOS P 2 OTHERHOTSPOTS P 1 SKETCHELT P 0 SKETCHELTS I 1 SKW I 0 SCRELTS F 30 OTHERCONTROLPOINTMARK F 31 *PROCEED-CASES*) A @h@ @H@ =@b5@A HdM O hYh_g OO_@I ZIhA A _g \AI@ _lLMdg jJd OAW< @A Ahdddd` Jd OAW< Kd@K@A Og \AO I@ MlLNdgA NI@MA A g _*A@ lO*_.O.dg @hA _@_O_$O__ O_"OA `W>O2 gO0GO$O O"gA A OOOO_&A _.0@>OO$O O"gA Ao hd_6O8 O6h_:O6&_8O:O.Ai A h(653 CLOSEPROMPTWINDOW 647 SKETCH.MOVE.ELEMENTS 606 STATUSPRINT 594 SK.SHOW.FIG.FROM.INFO 563 SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 558 VIEWER.SCALE 534 ERROR! 528 CLOSEPROMPTWINDOW 521 SK.SHOW.FIG.FROM.INFO 489 SK.MOVE.ELEMENTSA0001 467 CURSORPOSITION 426 SK.FIGUREIMAGE 421 DSPCLIPPINGREGION 409 POSITIONP 382 SK.MAKE.ELEMENTS.MOVE.ARG 372 GETSKETCHPROP 362 INSURE.SKETCH 352 SK.MOVE.THING 340 POSITIONP 316 SK.MAKE.ELEMENT.MOVE.ARG 301 GETSKETCHPROP 288 SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 283 VIEWER.SCALE 252 MARKPOINT 233 SK.READ.POINT.WITH.FEEDBACK 215 CURSORPOSITION 203 MARKPOINT 183 POSITIONP 158 SK.MAKE.ELEMENT.MOVE.ARG 148 GETSKETCHPROP 136 INSURE.SKETCH 129 SK.MOVE.ELEMENTS 118 REMOVE 97 SK.ELEMENT.PROTECTED? 59 SK.ELTS.FROM.HOTSPOT 54 SK.HOTSPOT.CACHE 35 POSITIONP 20 POSITIONP 5 SKED.CLEAR.SELECTION) (587 PAINT 514 PAINT 495 :NORMAL 476 SI::NLSETQ-PROCEED-CASE 399 DON'T 367 PREMOVEFN 330 DON'T 296 WHENMOVEDFN 227 SKETCH.USE.POSITION.PAD 173 DON'T 143 PREMOVEFN 92 MOVE) ( 601 "Position was outside the window, copy not placed.") SKETCH.MOVE.ELEMENTS :D8 (P 5 VIEWER P 4 GDELTAPOS P 3 SKETCH P 2 NEWGLOBALS P 1 MOVEFN P 0 X I 3 ADDHISTORY? I 2 SKETCHTOUPDATE I 1 DELTA I 0 ELEMENTS) pA A BB [B K+A@ gLM ZCug@JR OT[g YM0 @diN_O Oh_O&_OAlIXdgh H_O OM J_OOOLh_OOh__O_O_hO&_(175 SK.ADD.HISTEVENT 152 POSITIONP 87 GETSKETCHPROP 56 MAPGLOBALSKETCHSPECS 44 SK.SORT.GELTS.BY.PRIORITY 32 SK.VIEWER.FROM.SKETCH.ARG 24 INSURE.SKETCH 15 \ILLEGAL.ARG 8 POSITIONP) (143 DON'T 82 WHENMOVEDFN 65 MOVE 49 SK.TRANSLATE.ELEMENT) () SKETCH.COPY.ELEMENTS :D8 (P 6 ELT P 5 VIEWER P 4 GDELTAPOS P 3 SKETCH P 2 NEWGLOBALS P 1 COPYFN P 0 X I 3 ADDHISTORY? I 2 DELTA I 1 SKETCHTOUPDATE I 0 ELEMENTS) `B jd b B AA [A KB@gLM ZKHdBg YM@BlIXdgh HdNh NA C'M$g@JR O_O OM J_OOOh_OOh__O_O_O&_(177 SK.ADD.HISTEVENT 132 SKETCH.ADD.ELEMENT 124 SK.SET.ELEMENT.PRIORITY 107 POSITIONP 80 GETSKETCHPROP 63 MAPGLOBALSKETCHSPECS 44 SK.VIEWER.FROM.SKETCH.ARG 36 INSURE.SKETCH 27 \ILLEGAL.ARG 20 POSITIONP 12 CREATEPOSITION) (148 COPY 98 DON'T 75 WHENCOPIEDFN 56 \SKETCH.COPY.ELEMENT) () \SKETCH.COPY.ELEMENT :D8 (I 2 W I 1 GLOBALDELTAPOS I 0 GLOBALELEMENT) @dgB A (23 SK.TRANSLATE.GLOBALPART 17 SK.COPY.IMAGEOBJ) (9 SKIMAGEOBJ) () SK.TRANSLATE.ELEMENT :D8 (P 0 NEWGLOBAL I 2 W I 1 GLOBALDELTAPOS I 0 GELT) @A XB@HBid H(25 SK.UPDATE.ELEMENT 9 SK.TRANSLATE.GLOBALPART) NIL () SK.COPY.GLOBAL.ELEMENT :D8 (I 0 GLOBALELT) @jd i (13 SK.TRANSLATE.GLOBALPART 7 CREATEPOSITION) NIL () SK.MAKE.ELEMENT.MOVE.ARG :D8 (P 2 PT P 1 I I 1 SELPOS I 0 SCRELT) %@kH hh@ZAIIkԹHXNIL NIL () SK.MAKE.ELEMENTS.MOVE.ARG :D8 (L (0 SCRELTS)) i0@dIHhZH&JNIL NIL () SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG :D8 (P 11 PT P 10 NOTALL P 6 I P 4 SCRELT I 1 SELPTS I 0 SCRELTS) j @AHI\kR M O8i7_A i_hN_OOh__NkԾM]O&_OLJ KhZHXK&(37 MEMBER) NIL () SK.SHOW.FIG.FROM.INFO :D8 (I 4 WINDOW I 3 OPERATION I 2 YOFFSET I 1 XOFFSET I 0 IMAGEBM) @jdDABhdgC (19 BKBITBLT) (12 INPUT) () SK.MOVE.THING :D8 (P 1 NEWGLOBAL P 0 OLDGLOBAL I 3 SKW I 2 GDELTAPOS I 1 LOCALPT I 0 SKETCHELT) 0 AhB@C Y@XIC gHIBhhC I(44 SK.ADD.HISTEVENT 24 SK.UPDATE.ELEMENT 13 SK.TRANSLATE.POINTS) (29 MOVE) () UPDATE.ELEMENT.IN.SKETCH :D8 (P 3 GELTTAIL P 1 SKETCHELEMENTS P 0 SKETCHSTRUCTURE I 4 DONTUPDATEPRIORITYFLG I 3 SKW I 2 SKETCH I 1 NEWGELT I 0 OLDGELT) oB @AZD@ A 3HJ[h:h@DAK KAiK@H HAd B i(107 SK.MARK.DIRTY 100 SK.ADD.PRIORITY.ELEMENT.TO.SKETCH 95 SK.ELEMENT.PRIORITY 86 REMOVE.ELEMENT.FROM.SKETCH 67 SK.SET.ELEMENT.PRIORITY 62 SK.ELEMENT.PRIORITY 27 SK.ELEMENT.PRIORITY 21 SK.ELEMENT.PRIORITY 5 INSURE.SKETCH) NIL () SK.UPDATE.ELEMENT :D8 (P 3 SKW P 1 UPDATEDELT P 0 SKETCH I 5 DONTDISPLAYFLG I 4 DONTUPDATEPRIORITYFLG I 3 REDRAWIFSAMEFLG I 2 SKETCHW I 1 NEWGLOBAL I 0 OLDGLOBAL) IB @AHBD h@ABCE YH JI[B@AKCE JZ(65 SK.UPDATE.ELEMENT1 40 ALL.SKETCH.VIEWERS 33 SK.UPDATE.ELEMENT1 19 UPDATE.ELEMENT.IN.SKETCH 5 SKETCH.FROM.VIEWER) NIL () SK.UPDATE.ELEMENTS :D8 (P 0 CHANGEEVENT I 3 DONTDISPLAYFLG I 2 DONTUPDATEPRIORITYFLG I 1 WINDOW I 0 CHANGEEVENTS) @dHHAhBC h(22 SK.UPDATE.ELEMENT) NIL () SK.UPDATE.ELEMENT1 :D8 (P 2 NEWLOCAL P 1 UPDATEFN P 0 LOCALELT I 4 DONTDISPLAYFLG I 3 REDRAWIFSAME I 2 SKETCHW I 1 NEWGELT I 0 OLDGELT) 0@B XDHB AB @ g%HB HjgB AB @A.@o CHB AB 9AB A YHABlIZHB JAB h(174 MEMB 169 SKETCH.ELEMENTS.OF.SKETCH 160 SK.DELETE.ITEM 139 SK.UPDATEFN 129 SKETCH.ADD.AND.DISPLAY1 120 ELT.INSIDE.SKWP 112 SK.ERASE.AND.DELETE.ITEM 100 MEMB 80 SKETCH.ADD.AND.DISPLAY1 72 DSPFILL 53 SK.DELETE.ITEM 38 SKETCH.ELEMENT.TYPE 31 SK.ADD.ITEM 23 SK.DELETE.ITEM 9 SK.LOCAL.ELT.FROM.GLOBALPART) (66 REPLACE 43 SKIMAGEOBJ) ( 95 (TEXT TEXTBOX)) SK.MOVE.ELEMENT.POINT :D8 (I 0 W) +g@ddi3 g@hoh@ (40 SK.EVAL.AS.PROCESS) (21 QUOTE 4 SK.SEL.AND.MOVE) ( 30 (QUOTE ONLY)) SK.MOVE.POINTS :D8 (I 0 W) %g@ddi3 g@hh@ (34 SK.EVAL.AS.PROCESS) (21 QUOTE 4 SK.SEL.AND.MOVE.POINTS) () SK.SEL.AND.MOVE.POINTS :D8 (I 0 W) @ @ (11 SK.DO.MOVE.ELEMENT.POINTS 5 SK.SELECT.MULTIPLE.POINTS) NIL () SK.DO.MOVE.ELEMENT.POINTSA0001 :D8 (P 2 PT P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 SKW F 4 IMAGEBM F 5 IMAGEPOSX F 6 IMAGEPOSY F 7 FIRSTHOTSPOT F 8 NEWPOS F 9 NONMOVEDHOTSPOTS F 10 OTHERCONTROLPOINTMARK F 11 SI::NLSETQ-VALUE) V i@TUVgS WdJSW STgoUWVW chcg(70 GET.BITMAP.POSITION 37 MARKPOINT 19 SK.SHOW.FIG.FROM.INFO) (83 :NORMAL 49 PAINT 12 ERASE) ( 54 "Move image to its new position.") SK.DO.MOVE.ELEMENT.POINTS :D8 (P 25 PT P 24 SI::*NLSETQFLAG* P 23 *PROCEED-CASES* P 22 SI::NLSETQ-VALUE P 21 ELT P 17 GDELTAPOS P 16 SKETCH P 15 MOVEARGS P 14 X P 13 MOVEFN P 12 CHANGES P 11 NEWGLOBALS P 10 DELTAPOS P 9 IMAGEBM P 8 IMAGEPOSY P 7 IMAGEPOSX P 6 LOWLFT P 5 NEWPOS P 4 FIRSTHOTSPOT P 3 FIGINFO P 2 ONEPTELTS P 1 NONMOVEDHOTSPOTS P 0 SCRELTS I 1 SKW I 0 SCRPTS F 33 OTHERCONTROLPOINTMARK F 34 *PROCEED-CASES*) N!A @d A  A _ g _AH@ _lO_"O"dg J@H @H(d_* kd_$O& O$h_(O$&_&O(HhJ@ J @ l @KK_N_N_LA `WDO. gO,O4O8A A h_@O>O@O>h_> ") READBRUSHSIZE :D8 (P 0 N I 0 NOWSIZE) 9@o@o ohddiddd HjhHd (54 ABS 37 RNUMBER 18 CONCAT) NIL ( 24 "Enter new brush size." 13 ". Enter new brush size." 7 "Current size is ") READANGLE :D8 NIL ohddihi djh(16 RNUMBER) NIL ( 4 "Enter arc angle in degrees.") READARCDIRECTION :D8 (I 0 MENUTITLE) T`@oHdIdodi dg dgjdndhHdI  (81 \CURSOR.IN.MIDDLE.MENU) (52 DEFAULTMENUHELDFN 43 CLRPROMPT 4 |MENUTYPE#|) ( 29 (("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.")) 13 "Which way should the arc go?") SK.CHANGE.DASHING :D8 (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) p@Zo @Adgh oA JdgIgI}JdgIkgIWJdgIFgI8JdgI'gIJgIKLhJdgAgIIIKIIIIxg,gIIKIIIFJdghgIIIKIIIIIIIgbgIIIIIIIIKIInJdg7gIIKIIII/g6gIIKIIIIJdgBgIIKIIIIIg?gIIIKIIIIcJgUgIIIIIKIIII@Mh@NgKLh(924 SHOULDNT 215 SHOULDNT 58 ERROR 45 DASHINGP 17 MEMB) (939 DASHING 841 ELLIPSE 833 ELLIPSE 771 CIRCLE 763 CIRCLE 700 OPENCURVE 691 OPENCURVE 637 CLOSEDCURVE 629 CLOSEDCURVE 577 CLOSEDWIRE 568 CLOSEDWIRE 470 TEXTBOX 462 TEXTBOX 361 ARC 352 ARC 308 BOX 300 BOX 238 WIRE 229 WIRE 199 ELLIPSE 183 CIRCLE 168 OPENCURVE 152 CLOSEDCURVE 137 CLOSEDWIRE 115 TEXTBOX 99 ARC 83 BOX 66 WIRE 34 NONE) ( 52 "illegal dashing" 12 (WIRE BOX CLOSEDWIRE CLOSEDCURVE OPENCURVE CIRCLE ELLIPSE TEXTBOX ARC)) READ.AND.SAVE.NEW.DASHING :D8 (P 1 BM P 0 DASHING) @Xd Y`IiohoohdJdi dodg dgjdndhdK dg𒿰iHI Ho (142 PROMPTPRINT 130 SK.CACHE.DASHING 109 \CURSOR.IN.MIDDLE.MENU 16 SK.DASHING.LABEL 7 READ.NEW.DASHING) (115 NO 84 DEFAULTMENUHELDFN 75 CLRPROMPT 23 |MENUTYPE#|) ( 137 "Please select 'Yes' if this pattern is what you want; 'No' if it isn't." 66 "Is this pattern OK?" 45 (No (QUOTE NO) "Will ask you for another dashing pattern.") 40 (Yes T "Will accept this pattern.") 31 "Will use this as the dashing pattern.") READ.NEW.DASHING :D8 (P 3 OFF? P 2 DASHLST P 1 VAL P 0 ORIGPOS) go ``1oKggo Hhdidd YjI Ih JKh𻰻J (100 REVERSE 85 ABS 75 CLRPROMPT 63 RNUMBER 51 CONCAT 9 PROMPTPRINT) (41 ON 35 OFF 19 LASTMOUSEY 14 LASTMOUSEX) ( 46 ". Enter 0 to end the dashing." 28 "Enter the number of points " 4 "You will be prompted for a series of numbers which specify the number of points ON and OFF. Enter 0 to end the dashing pattern. Enter 'Abort' to leave the dashing unchanged.") READ.DASHING.CHANGE :D8 (P 0 DASHING) P`di do0`5dZJYddi3 gIhohNMh_M&Oo dKdg dgjdndhdL Xdg(160 READ.AND.SAVE.NEW.DASHING 145 \CURSOR.IN.MIDDLE.MENU 99 \APPEND2) (152 OTHER 120 DEFAULTMENUHELDFN 111 CLRPROMPT 56 QUOTE 30 SK.DASHING.PATTERNS 7 |MENUTYPE#|) ( 94 (("other" (QUOTE OTHER) "will prompt you for a new dashing pattern.") ("no dashing" (QUOTE NONE) "removes dashing.")) 65 "changes dashing to this pattern" 19 "New dashing pattern?") SK.CACHE.DASHING :D8 (I 1 BITMAP I 0 DASHING) ^`HEh@`AA@ @hhAA@ @hh @iHX(77 \NCONC2 66 SK.DASHING.LABEL 38 SK.DASHING.LABEL) (56 BITMAP 49 SK.DASHING.PATTERNS 28 BITMAP 20 SK.DASHING.PATTERNS 4 SK.DASHING.PATTERNS) () SK.DASHING.LABEL :D8 (P 1 BM P 0 DS I 0 DASHING) % l2k Y Xjdl2jkhHh@ I(33 DRAWLINE 16 DSPCREATE 10 BITMAPCREATE) NIL () READ.FILLING.CHANGE :D8 (P 0 FILLING) P`di do0`5dZJYddi3 gIhohNMh_M&Oo dKdkdg dgjdndhdL Xdggi H(179 READ.AND.SAVE.NEW.FILLING 165 READ.AND.SAVE.NEW.FILLING 150 \CURSOR.IN.MIDDLE.MENU 99 \APPEND2) (171 16X16 157 4X4 125 DEFAULTMENUHELDFN 116 CLRPROMPT 56 QUOTE 30 SK.FILLING.PATTERNS 7 |MENUTYPE#|) ( 94 (("4x4 shade" (QUOTE 4X4) "Allows creation of a 4 bits by 4 bits shade") ("16x16 shade" (QUOTE 16X16) "Allows creation of a 16 bits by 16 bits shade") ("No filling" (QUOTE NONE) "no filling will be used.")) 65 "changes filling to this pattern" 19 "New filling?") SK.CACHE.FILLING :D8 (I 0 FILLING) O`H6h`@ @hhg@ @hh @iHX(62 \NCONC2 51 SK.FILLING.LABEL 28 SK.FILLING.LABEL) (44 ADDED 39 SK.FILLING.PATTERNS 20 SK.FILLING.PATTERNS 4 SK.FILLING.PATTERNS) () READ.AND.SAVE.NEW.FILLING :D8 (P 0 FILLING I 0 16X16FLG) @ ld Xd H(27 SK.CACHE.FILLING 18 EDITSHADE 13 BITMAPCREATE) NIL () SK.FILLING.LABEL :D8 (P 0 BM I 0 FILLING F 1 MENUFONT) (loQ Q @H H(36 BLTSHADE 26 BITMAPCREATE 12 STRINGWIDTH) (19 FONTDESCRIPTOR) ( 6 "16x16 shade") SK.GETGLOBALPOSITION :D8 (I 1 CURSOR I 0 W) @A @ (12 SK.MAP.INPUT.PT.TO.GLOBAL 6 SK.READ.POINT.WITH.FEEDBACK) NIL () SKETCH.TRACK.ELEMENTSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 IMAGEBM F 3 IMAGEPOSX F 4 IMAGEPOSY F 5 VIEWER F 6 FIRSTHOTSPOT F 7 NOINITIALERASEFLG F 8 FEEDBACKFN F 9 PROMPTMSG F 10 NEWPOS F 11 CONSTRAINTFN F 12 CONSTRAINTDATA F 13 SI::NLSETQ-VALUE) B i@WRSTgU URgWSVTVWWW chcg(52 SKETCH.TRACK.IMAGE 22 SK.SHOW.FIG.FROM.INFO) (63 :NORMAL 30 PAINT 15 ERASE) () SKETCH.TRACK.ELEMENTS :D8 (P 15 SI::*NLSETQFLAG* P 14 *PROCEED-CASES* P 13 SI::NLSETQ-VALUE P 12 GDELTAPOS P 11 SKETCH P 10 NEWGLOBALS P 9 DELTAPOS P 8 IMAGEBM P 7 IMAGEPOSY P 6 IMAGEPOSX P 5 LOWLFT P 4 NEWPOS P 3 GLOBALHOTSPOT P 2 FIRSTHOTSPOT P 1 FIGINFO P 0 SCRELTS I 8 NOFINALPAINTFLG I 7 NOINITIALERASEFLG I 6 FEEDBACKFN I 5 CONSTRAINTDATA I 4 PROMPTMSG I 3 HOTSPOT I 2 CONSTRAINTFN I 1 VIEWER I 0 ELEMENTS F 16 *PROCEED-CASES*)   @dA XhA YC CA HZC HA [I_I]d^M_JA  `W O gO&GONOgA A hGONOgA LdK (194 PTDIFFERENCE 183 SK.SHOW.FIG.FROM.INFO 160 ERROR! 154 CLOSEPROMPTWINDOW 147 SK.SHOW.FIG.FROM.INFO 112 SKETCH.TRACK.ELEMENTSA0001 91 CURSORPOSITION 68 MAP.VIEWER.PT.INTO.GLOBAL 55 POSITIONP 42 MAP.GLOBAL.POSITION.INTO.VIEWER 34 POSITIONP 27 SK.FIGUREIMAGE 22 DSPCLIPPINGREGION 14 MAP.SKETCH.ELEMENTS.INTO.VIEWER) (176 PAINT 140 PAINT 118 :NORMAL 99 SI::NLSETQ-PROCEED-CASE) () SK.PICKOUT.WHOLE.MOVE.ELEMENTS :D8 (L (0 MOVEELTLST)) @@did3ihh@1HIdiJ KhZYHXK&ZNIL NIL () MAP.SKETCH.ELEMENTS.INTO.VIEWER :D8 (P 3 SKELT I 1 VIEWER I 0 ELEMENTS) "@@d[A IHhZH&J(14 SK.LOCAL.FROM.GLOBAL) NIL () MAP.GLOBAL.POSITION.INTO.VIEWER :D8 (I 1 VIEWER I 0 GPOS) @A (11 SK.SCALE.POSITION.INTO.VIEWER 6 VIEWER.SCALE) NIL () SKETCH.TO.VIEWER.POSITION :D8 (I 1 VIEWERSCALE I 0 POSITION) @A (11 SK.SCALE.POSITION.INTO.VIEWER 6 SK.INSURE.SCALE) NIL () SKETCH.TRACK.IMAGE :D8 (P 1 HEIGHT P 0 WIDTH I 8 FEEDBACKFN I 7 CONSTRAINTDATA I 6 CONSTRAINTFN I 5 YOFFSET I 4 XOFFSET I 3 MSG I 2 OPERATION I 1 BITMAP I 0 WINDOW) B  A XA YC@oC @AHI HIBgDEFGG (63 SK.TRACK.IMAGE1 40 BITMAPCREATE 30 STATUSPRINT 15 BITMAPHEIGHT 8 BITMAPWIDTH) (50 PAINT) ( 24 " ") SK.TRACK.IMAGE1 :D8 (P 0 READPT I 10 FEEDBACKFN I 9 CONSTRAINTDATA I 8 CONSTRAINTFN 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) 2 @ABCDEFGGGG XddH@Hhd (47 MAP.VIEWER.XY.INTO.GLOBAL 23 SK.TRACK.BITMAP1) NIL () MAP.VIEWER.XY.INTO.GLOBAL :D8 (P 1 GRID P 0 SCALE I 4 SCRATCHPT I 3 ONGRID? I 2 VIEWER I 1 Y I 0 X) 3B CB H @HI AHI D (48 SK.SET.POSITION 42 NEAREST.ON.GRID 33 NEAREST.ON.GRID 23 GREATESTPOWEROF2LT 16 SK.GRIDFACTOR 5 VIEWER.SCALE) NIL () SK.SET.POSITION :D8 (L (2 POSITION 1 Y 0 X)) B@BABNIL NIL () MAP.VIEWER.PT.INTO.GLOBAL :D8 (P 1 GRID P 0 SCALE I 2 ONGRID? I 1 VIEWER I 0 PT) 0A BA H @HI @HI (44 NEAREST.ON.GRID 34 NEAREST.ON.GRID 23 GREATESTPOWEROF2LT 16 SK.GRIDFACTOR 5 VIEWER.SCALE) NIL () VIEWER.TO.SKETCH.POSITION :D8 (I 1 VIEWERSCALE I 0 POSITION) !@Ad3 A A (30 SK.UNSCALE.POSITION.FROM.VIEWER 25 \ILLEGAL.ARG 18 VIEWER.SCALE 11 WINDOWP) NIL () SK.INSURE.SCALE :D8 (I 0 VIEWERSCALE) @d3 @ @ (24 \ILLEGAL.ARG 17 VIEWER.SCALE 10 WINDOWP) NIL () SKETCH.TO.VIEWER.REGION :D8 (P 0 SCALE I 1 VIEWERSCALE I 0 REGION) &A @H@H@H@H (35 CREATEREGION 5 SK.INSURE.SCALE) NIL () VIEWER.TO.SKETCH.REGION :D8 (I 1 VIEWERSCALE I 0 REGION) @A (11 UNSCALE.REGION 6 SK.INSURE.SCALE) NIL () SK.READ.POINT.WITH.FEEDBACKA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 16 POSITIONPAD P 15 CONSTRAINTPT P 14 NEARPOS P 13 ONGRID? P 12 LASTBUTTONSTATE P 11 MOUSEDOWN P 10 NEWY P 9 NEWX P 8 YGRID P 7 XGRID P 6 YSCREEN P 5 XSCREEN P 4 SCRATCHPT P 3 HOTSPOTCACHE P 2 SCALE P 1 GRID P 0 USEGRID I 0 SI::*CLEANUP-FORMS* F 18 WINDOW F 19 FEEDBACKFN F 20 SI::*RESETFORMS* F 21 FEEDBACKFNDATA F 22 CONSTRAINTFN F 23 NUMBERPADTOOFLG F 24 CURSOR F 25 CROSSHAIRS F 26 VIEWER F 27 W F 28 BUTTONFOREXISTINGPTS)  gW0W2 hhW(c(ggW$ W$hhdW(c(W$g W$ W$ W$ W,hdW&gc&W.gW$ _ hhdW(c(O *O`l_"j O"O" `` O"W$OO OOW$W*lW&h_O W$W&W*W, ^`NdgW.gOOW4OL W6W*lW,_ OJ _OJ _OdOOOOW$OO OOW$W*lW&W$O_O_ OOW$W*lW&O)W$OO OOW$W*lW&OOOhd(709 INSIDEP 673 INSIDEP 642 INSIDEP 607 FIXR 594 FIXR 582 POSITIONP 565 MAP.VIEWER.XY.INTO.GLOBAL 543 MAP.WINDOW.ONTO.GRID 531 MAP.WINDOW.ONTO.GRID 480 NEAREST.HOT.SPOT 415 SKETCHW.UPDATE.LOCATORS 382 LASTMOUSEY 372 LASTMOUSEX 350 INSIDEP 333 \INSUREWINDOW 301 ERROR! 268 SK.READ.POSITION.PAD.HANDLER 231 INSIDEP 214 INSIDEP 197 \INSUREWINDOW 189 \FZEROP 147 GETMOUSESTATE 127 SK.POSITION.PAD.FROM.VIEWER 90 SK.HOTSPOT.CACHE 83 VIEWER.SCALE 76 SK.GRIDFACTOR 69 GETWINDOWUSERPROP 42 DSPOPERATION 15 CURSOR) (489 LASTMOUSEBUTTONS 464 LASTMOUSEBUTTONS 456 LEFT 449 LASTMOUSEBUTTONS 441 MIDDLE 427 LASTMOUSEBUTTONS 403 LASTMOUSEBUTTONS 345 LASTMOUSEY 340 LASTMOUSEX 319 LASTMOUSEBUTTONS 308 STOP 289 MULTIPLE 278 ABORT 209 LASTMOUSEY 204 LASTMOUSEX 163 LASTMOUSEBUTTONS 120 CLOSEW 108 SHOWSKETCHXY 64 USEGRID 35 INVERT 30 DSPOPERATION 4 CURSOR) () SK.READ.POINT.WITH.FEEDBACK :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 6 NUMBERPADTOOFLG I 5 CONSTRAINTFN I 4 BUTTONFOREXISTINGPTS I 3 FEEDBACKFNDATA I 2 FEEDBACKFN I 1 CURSOR I 0 WINDOW F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 SK.READ.POINT.WITH.FEEDBACKA0001) (8 SI::RESETUNWIND) () SKETCH.GET.POSITION :D8 (P 0 READPT I 4 CONSTRAINTFN I 3 FEEDBACKFNDATA I 2 FEEDBACKFN I 1 CURSOR I 0 VIEWER) ?@ABCgD` XdddgH@Hhd (60 MAP.VIEWER.XY.INTO.GLOBAL 23 SK.READ.POINT.WITH.FEEDBACK) (35 GLOBAL 17 SKETCH.USE.POSITION.PAD 11 MIDDLE) () \CLOBBER.POSITION :D8 (I 2 OLDPT I 1 Y I 0 X) B B@BAB@A (21 CREATEPOSITION 5 POSITIONP) NIL () NEAREST.HOT.SPOT :D8 (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) In'Q@8d]B M$dNKNA ԼHLLNMIdJ(42 ABS 19 ABS) NIL () GETWREGION :D8 (P 0 REG I 4 MINHEIGHT I 3 MINWIDTH I 2 NEWREGIONFNDATA I 1 NEWREGIONFN I 0 W) 3CDhAB Hh@ Hh@ HH (48 CREATEREGION 33 DSPYOFFSET 22 DSPXOFFSET 10 GETREGION) NIL () GET.BITMAP.POSITION :D8 (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 (57 SK.TRACK.BITMAP1 36 STATUSPRINT 23 BITMAPCREATE 15 BITMAPHEIGHT 8 BITMAPWIDTH) (49 PAINT) ( 30 " ") SK.TRACK.BITMAP1 :D8 (P 16 CONSTRAINTPT P 15 CONSTRAINTPT P 14 NEARPOS P 13 ONGRID? P 12 GRID.BOTTOM P 11 GRID.LEFT P 10 NEW.BOTTOM P 9 NEW.LEFT P 8 BOTTOM P 7 LEFT P 6 DOWN P 5 SCRATCHPT P 4 HOTSPOTCACHE P 3 SCALE P 2 GRID P 1 USEGRID P 0 DSP I 10 FEEDBACKFN I 9 CONSTRAINTDATA I 8 CONSTRAINTFN 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) O @ @g @ @ @ GhdFjb Gjb@ N"`l_"jO"O" `l_$jO$O$ iH _H _OOOO@ O_O_L+`dkj$LOO _h_O_O+`ljIhI_OKJ _OKJ _G