From 1cae2998edc5203e956ca903a9a89869b1b46f6d Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Tue, 24 Aug 2021 16:23:22 -0700 Subject: [PATCH] Patch sketch code for Masterscope errors --- library/SKETCHEDIT | 68 ++++--- library/SKETCHEDIT.LCOM | Bin 26308 -> 26242 bytes library/SKETCHELEMENTS | 348 ++++++++++++++++++------------------ library/SKETCHELEMENTS.LCOM | Bin 147399 -> 147345 bytes 4 files changed, 209 insertions(+), 207 deletions(-) diff --git a/library/SKETCHEDIT b/library/SKETCHEDIT index 50a17ce8a..b01e27f97 100644 --- a/library/SKETCHEDIT +++ b/library/SKETCHEDIT @@ -1,11 +1,9 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "14-Mar-2021 20:37:50"  -{DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;2 108832 +(FILECREATED "21-Aug-2021 20:50:04" {DSK}larry>medley>library>SKETCHEDIT.;2 108762 - changes to%: (VARS SKETCHEDITCOMS) + changes to%: (FNS SHOW.FEEDBACK.BOX) - previous date%: "12-Jun-90 14:48:37" -{DSK}kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;1) + previous date%: "14-Mar-2021 20:37:50" {DSK}larry>medley>library>SKETCHEDIT.;1) (* ; " @@ -379,21 +377,21 @@ Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation. NIL NIL 'INPUT 'INVERT]) (SHOW.FEEDBACK.BOX - [LAMBDA (P1 P2 WINDOW) (* rrb "30-APR-83 16:23") + [LAMBDA (P1 P2 WINDOW) (* ; "Edited 21-Aug-2021 19:08 by larry") (* draws a box between two points.) - (PROG ((X1 (fetch (POSITION XCOORD) of SELECTION P1)) - (Y1 (fetch (POSITION YCOORD) of SELECTION P1)) - (X2 (fetch (POSITION XCOORD) of SELECTION P2)) - (Y2 (fetch (POSITION YCOORD) of SELECTION P2))) + (PROG ((X1 (fetch (POSITION XCOORD) of P1)) + (Y1 (fetch (POSITION YCOORD) of P1)) + (X2 (fetch (POSITION XCOORD) of P2)) + (Y2 (fetch (POSITION YCOORD) of P2))) (BITBLT NIL NIL NIL WINDOW (IMIN X1 X2) (IMIN Y1 Y2) (ABS (IDIFFERENCE X1 X2)) (ABS (IDIFFERENCE Y1 Y2)) 'TEXTURE 'INVERT NEW.TEXT.FEEDBACK.SHADE) (* put cursor where the center would - be.) + be.) (SHOW.FEEDBACK NEW.TEXT.FEEDBACK.CURSOR (IQUOTIENT (IPLUS X1 X2) - 2) + 2) (IQUOTIENT (IPLUS Y1 Y2) 2) WINDOW]) @@ -1919,7 +1917,7 @@ Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation. (WINDOWPROP SKW 'INPUTLINE NIL]) ) - (* Was MODERNIZE loaded before?) + (* Was MODERNIZE loaded before?) (CL:WHEN (GETD 'MODERNWINDOW.SETUP) (MODERNWINDOW.SETUP 'WB.BUTTON.HANDLER)) @@ -1957,26 +1955,26 @@ Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation. ) (PUTPROPS SKETCHEDIT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1990 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2534 39670 (BUTLAST 2544 . 2892) (CHAR.BEGIN 2894 . 4819) (CLOSEST.CHAR 4821 . 9044) ( -CLOSEST.LINE 9046 . 9608) (FLASHW 9610 . 9767) (HILITE.LINE 9769 . 10588) (HILITE.TEXT 10590 . 12238) -(IN.TEXT.EXTEND 12240 . 15513) (INIMAGEOBJ 15515 . 16020) (INTEXT 16022 . 16519) (NEW.TEXT.EXTEND -16521 . 18740) (NEW.TEXT.SELECTIONP 18742 . 18922) (NTHCHARWIDTH 18924 . 19181) (NTHLOCALREGION 19183 - . 19421) (ONCHAR 19423 . 19818) (SHOW.EXTENDED.SELECTION.FEEDBACK 19820 . 20755) (SHOW.FEEDBACK 20757 - . 21247) (SHOW.FEEDBACK.BOX 21249 . 22331) (SELECTION.POSITION 22333 . 23125) (SKED.CLEAR.SELECTION -23127 . 23650) (SKETCH.CLEANUP 23652 . 25566) (SK.ENTER.EDIT.CHANGE 25568 . 27113) ( -SKED.REMOVE.OTHER.SELECTIONS 27115 . 27542) (SKED.EXTEND.SELECTION 27544 . 29009) (SKED.MOVE.SELECTION - 29011 . 34172) (CREATE.TEXT.SELECTION 34174 . 34690) (SKED.SELECTION.FEEDBACK 34692 . 36348) ( -SKED.SET.EXTENDSELECTION 36350 . 36667) (SKED.SET.SELECTION 36669 . 37069) (LINE.BEGIN 37071 . 37625) -(SELECTION.GREATERP 37627 . 38422) (SK.WORD.BREAK.CLASS 38424 . 39264) (SK.GETSYNTAX 39266 . 39668)) ( -40512 86246 (WB.EDITOR 40522 . 41847) (SK.TTYENTRYFN 41849 . 42127) (SK.TTYEXITFN 42129 . 42398) ( -SKED.INSERT 42400 . 42828) (\SKED.INSERT 42830 . 63952) (FIRST.N.ELEMENTS 63954 . 64221) ( -SKED.CREATE.NEW.TEXTBOX 64223 . 70752) (SKED.CHARACTERPOSITION 70754 . 71541) (SKED.LINE.AND.CHAR# -71543 . 73174) (\SKED.DELETE.WORD.FROM.STRING 73176 . 74215) (\SKED.INSERT.CHARS.TO.STR 74217 . 82628) - (JOINCHARS 82630 . 83017) (STRINGFROMCHARACTERS 83019 . 83344) (GETALLCHARS 83346 . 83687) ( -CLEANUP.EDIT 83689 . 84141) (SKED.NEW.TEXTELT 84143 . 86244)) (86281 107289 ( -MAP.SCREEN.POSITION.ONTO.GRID 86291 . 87740) (NEAREST.ON.GRID 87742 . 88286) (SK.MIDDLE.TITLEFN 88288 - . 90231) (WB.BUTTON.HANDLER 90233 . 98055) (WB.ADD.NEW.POINT 98057 . 101386) (WB.DRAWLINE 101388 . -105622) (WB.RUBBERBAND.POSITION 105624 . 106541) (SK.RUBBERBAND.FEEDBACKFN 106543 . 107047) ( -RESET.LINE.BEING.INPUT 107049 . 107287)) (107471 108712 (NEAREST.EXISTING.POSITION 107481 . 107683) ( -WB.NEARPT 107685 . 108570) (LASTMOUSEPOSITION 108572 . 108710))))) + (FILEMAP (NIL (2492 39600 (BUTLAST 2502 . 2850) (CHAR.BEGIN 2852 . 4777) (CLOSEST.CHAR 4779 . 9002) ( +CLOSEST.LINE 9004 . 9566) (FLASHW 9568 . 9725) (HILITE.LINE 9727 . 10546) (HILITE.TEXT 10548 . 12196) +(IN.TEXT.EXTEND 12198 . 15471) (INIMAGEOBJ 15473 . 15978) (INTEXT 15980 . 16477) (NEW.TEXT.EXTEND +16479 . 18698) (NEW.TEXT.SELECTIONP 18700 . 18880) (NTHCHARWIDTH 18882 . 19139) (NTHLOCALREGION 19141 + . 19379) (ONCHAR 19381 . 19776) (SHOW.EXTENDED.SELECTION.FEEDBACK 19778 . 20713) (SHOW.FEEDBACK 20715 + . 21205) (SHOW.FEEDBACK.BOX 21207 . 22261) (SELECTION.POSITION 22263 . 23055) (SKED.CLEAR.SELECTION +23057 . 23580) (SKETCH.CLEANUP 23582 . 25496) (SK.ENTER.EDIT.CHANGE 25498 . 27043) ( +SKED.REMOVE.OTHER.SELECTIONS 27045 . 27472) (SKED.EXTEND.SELECTION 27474 . 28939) (SKED.MOVE.SELECTION + 28941 . 34102) (CREATE.TEXT.SELECTION 34104 . 34620) (SKED.SELECTION.FEEDBACK 34622 . 36278) ( +SKED.SET.EXTENDSELECTION 36280 . 36597) (SKED.SET.SELECTION 36599 . 36999) (LINE.BEGIN 37001 . 37555) +(SELECTION.GREATERP 37557 . 38352) (SK.WORD.BREAK.CLASS 38354 . 39194) (SK.GETSYNTAX 39196 . 39598)) ( +40442 86176 (WB.EDITOR 40452 . 41777) (SK.TTYENTRYFN 41779 . 42057) (SK.TTYEXITFN 42059 . 42328) ( +SKED.INSERT 42330 . 42758) (\SKED.INSERT 42760 . 63882) (FIRST.N.ELEMENTS 63884 . 64151) ( +SKED.CREATE.NEW.TEXTBOX 64153 . 70682) (SKED.CHARACTERPOSITION 70684 . 71471) (SKED.LINE.AND.CHAR# +71473 . 73104) (\SKED.DELETE.WORD.FROM.STRING 73106 . 74145) (\SKED.INSERT.CHARS.TO.STR 74147 . 82558) + (JOINCHARS 82560 . 82947) (STRINGFROMCHARACTERS 82949 . 83274) (GETALLCHARS 83276 . 83617) ( +CLEANUP.EDIT 83619 . 84071) (SKED.NEW.TEXTELT 84073 . 86174)) (86211 107219 ( +MAP.SCREEN.POSITION.ONTO.GRID 86221 . 87670) (NEAREST.ON.GRID 87672 . 88216) (SK.MIDDLE.TITLEFN 88218 + . 90161) (WB.BUTTON.HANDLER 90163 . 97985) (WB.ADD.NEW.POINT 97987 . 101316) (WB.DRAWLINE 101318 . +105552) (WB.RUBBERBAND.POSITION 105554 . 106471) (SK.RUBBERBAND.FEEDBACKFN 106473 . 106977) ( +RESET.LINE.BEING.INPUT 106979 . 107217)) (107401 108642 (NEAREST.EXISTING.POSITION 107411 . 107613) ( +WB.NEARPT 107615 . 108500) (LASTMOUSEPOSITION 108502 . 108640))))) STOP diff --git a/library/SKETCHEDIT.LCOM b/library/SKETCHEDIT.LCOM index 4161d1eb33beba675568075d1554a3cd81478f8a..52bf4a1168137e8b48804d0477da67cf709198f4 100644 GIT binary patch delta 1367 zcmb`HNo*5W7{_I2fxHkUB{a=ayDvjbW+ZGp<0WBA5#A;?b{5q`L%~kGW&sihCx9qI z0aPIlEJ3dYsUioOa*II4s@jUExui%ajVe_tJ%EsqxFB(;R8jSm_W#^~(n8fseE7|` zz3=MimF?|qZiTK0qZ2u3L&vV@s|qDLmd_p?&K(&qDng+kJFT6`{L3SAwBghQN?te2 zR7Jdd^oS>_Q`O&2SkM?Skitdd4Fev|()tnuVV&y^g5Rz?0Jg0E4T<`SN}g{a2aSkL zZTPTQ)xb)sMi4$+bp=_rzS;*ys&n96wbw{Q_GPKWq?#TCKC1Z`{Ig~noPOi`QX;n5 z*^louvQr!FO+=JPG=Rg?L)~4rp6+Of8-EL2+!(_WvG!LCYS=W#2i<@35%^WzEFTe< z%!Si$xwyQq>*X>eo|-;~bKZQ7*WRHfrqPL_RRD9%I=IlhAEd%(JTBY<=fh2fvzv9k zsm<_9kjXeFi6Dw6M11UiZ%FU-^hl!Yrm~w@ zgkAVqgw;mmMP%&^x-#QGJF>QH>*Q(?ugY4pNN`1r2WpBt_i06=)goxV7eYNjn$OUJRFK_{xVhj^T#8H;m)iTP>TwBF6w-zH z;%qLPp@lpZC^;U~qm})KO4)@{|D0LOnfd-$A#LXR=d+nycDdK->7SV`J5HbKUJ+#F z&z7>HDsI)KphapS`$yC4Tg8QvU8VU#`PgiJhR$M0yw-`*&|)q}_2p7wu}n9%ayp#? z&6s6q`nwTsL8@&n{BL{v?|bRoLuHrO+pEy@F*84tEzxoTqQ%3$F`W`Usu_W>7K|8y z;keE|vb67090wQkj@MjNcB^hL4)gzZK>og0g#_BFx@cL;> z#}*4=%}sOQn@w+k51M{P;?~w?o`3MnTpeOVEk|orJK5Eid4%_pbI7uMY9<`1j;N5-_yt4g6F!9`%psg)#C89)h4WEh;86I+u4C@hY{H|=ZZ5&k( z+kU`=+t07@31?rp3zl|#h7f(x;F1iHt|8XS3_#QP-n{|aa9z$q^3p8tKY7>I&v0Tb*Fx{=m{=TTdItnKAXtb=G) z8+UyW+N!DWOSpt;C3>4@xyE8V*$DHdejo9w@eS^vx_aaif9-x<4z8HJt?CN%Ivq)BL)9Z5>R_bgmFV6pxGe5d{4a zBkmiKM7fX3eZ(#d;IRuEjo8!3<{9+KjDPINe#!K#Y!vZVS(_FKKM~`Dn%d3-p_medley3.5>library>SKETCHELEMENTS.;2 553808 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(FILECREATED "21-Aug-2021 20:49:42" {DSK}larry>medley>library>SKETCHELEMENTS.;2 554230 - changes to%: (FNS ADD.KNOWN.SKETCH.FONT SK.PICK.FONT SK.CHOOSE.TEXT.FONT) + changes to%: (FNS \SK.PUT.ARROWHEADS) - previous date%: "21-Jan-93 12:00:34" {DSK}medley3.5>library>SKETCHELEMENTS.;1) + previous date%: "31-Dec-2000 10:58:28" {DSK}larry>medley>library>SKETCHELEMENTS.;1) (* ; " -Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT SKETCHELEMENTSCOMS) (RPAQQ SKETCHELEMENTSCOMS - ( (* ; - "contains the functions need to implement the sketch basic element types") + ( (* ; + "contains the functions need to implement the sketch basic element types") (FNS INIT.SKETCH.ELEMENTS CREATE.SKETCH.ELEMENT.TYPE SKETCH.ELEMENT.TYPEP SKETCH.ELEMENT.NAMEP \CURSOR.IN.MIDDLE.MENU) - (COMS (* ; "color and filling stuff") + (COMS (* ; "color and filling stuff") (FNS SKETCHINCOLORP READ.COLOR.CHANGE) (INITVARS (SKETCHINCOLORFLG) (FILLPOLYGONFLG T) @@ -27,7 +27,7 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co (GLOBALVARS SKETCHINCOLORFLG SK.DEFAULT.BACKCOLOR) (RECORDS SKFILLING) - (* ;; "fns included until system is fixed so that it is ok to call DSPCOLOR in a system without color loaded. Should be removed after J release.") + (* ;; "fns included until system is fixed so that it is ok to call DSPCOLOR in a system without color loaded. Should be removed after J release.") (FNS SK.CREATE.DEFAULT.FILLING SKFILLINGP SK.INSURE.FILLING SK.INSURE.COLOR) (FNS SK.TRANSLATE.MODE SK.CHANGE.FILLING.MODE READ.FILLING.MODE)) @@ -42,10 +42,10 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co (UGLYVARS CIRCLEICON) (CURSORS CIRCLE.CENTER CIRCLE.EDGE) (INITVARS [SK.DEFAULT.BRUSH (CONS 'ROUND (CONS 1 (CONS 'BLACK NIL] - (* ; - "Original was (create BRUSH BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1 BRUSHCOLOR _ 'BLACK).") - (* ; - "Changed by yabu.fx, for SUNLOADUP without DWIM.") + (* ; + "Original was (create BRUSH BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1 BRUSHCOLOR _ 'BLACK).") + (* ; + "Changed by yabu.fx, for SUNLOADUP without DWIM.") (SK.DEFAULT.DASHING) (SK.DEFAULT.TEXTURE)) (GLOBALVARS SK.DEFAULT.BRUSH SK.DEFAULT.DASHING SK.DEFAULT.TEXTURE)) @@ -112,8 +112,8 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co SK.ARROWHEAD.TYPES) (INITVARS (SK.ARROW.END.MENU) (SK.ARROW.EDIT.MENU))) - (COMS (* ; - "stuff to support the text element type.") + (COMS (* ; + "stuff to support the text element type.") (FNS SKETCH.CREATE.TEXT TEXT.CHANGEFN TEXT.READCHANGEFN \SK.READ.FONT.SIZE1 SK.TEXT.ELT.WITH.SAME.FIELDS SK.READFONTFAMILY CLOSE.PROMPT.WINDOW TEXT.DRAWFN TEXT.DRAWFN1 TEXT.INSIDEFN TEXT.EXPANDFN SK.TEXT.LINE.REGIONS @@ -141,8 +141,8 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co (VARS (SKETCH.TERMTABLE (CREATE.SKETCH.TERMTABLE))) (GLOBALVARS SKETCH.TERMTABLE SK.DEFAULT.TEXT.ALIGNMENT INDICATE.TEXT.SHADE \FONTSONFILE SK.HORIZONTAL.STYLES SK.VERTICAL.STYLES)) - (COMS (* ; - "stuff for supporting the TEXTBOX sketch element.") + (COMS (* ; + "stuff for supporting the TEXTBOX sketch element.") (FNS SKETCH.CREATE.TEXTBOX SK.COMPUTE.TEXTBOX.REGION.FOR.STRING SK.BREAK.INTO.LINES SK.BRUSH.SIZE SK.TEXTBOX.CREATE SK.TEXTBOX.CREATE1 SK.UPDATE.TEXTBOX.AFTER.CHANGE SK.TEXTBOX.POSITION.IN.BOX TEXTBOX.CHANGEFN TEXTBOX.DRAWFN @@ -152,14 +152,14 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co TEXTBOX.TRANSFORMFN TEXTBOX.UPDATEFN TEXTBOX.READCHANGEFN SK.TEXTBOX.TEXT.POSITION SK.TEXTBOX.FROM.TEXT ADD.EOLS) (DECLARE%: DONTCOPY (RECORDS LOCALTEXTBOX TEXTBOX)) - (COMS (* ; - "stuff to handle default alignment for text boxes") + (COMS (* ; + "stuff to handle default alignment for text boxes") (FNS SK.SET.TEXTBOX.VERT.ALIGN SK.SET.TEXTBOX.HORIZ.ALIGN) (VARS TEXTBOXICON) [INITVARS (SK.DEFAULT.TEXTBOX.ALIGNMENT '(CENTER CENTER] (GLOBALVARS SK.DEFAULT.TEXTBOX.ALIGNMENT))) - (COMS (* ; - "functions to implement the box sketch element.") + (COMS (* ; + "functions to implement the box sketch element.") (FNS SKETCH.CREATE.BOX SK.BOX.DRAWFN BOX.DRAWFN1 KNOTS.OF.REGION SK.DRAWAREABOX SK.DRAWBOX SK.BOX.EXPANDFN SK.BOX.GETREGIONFN BOX.SET.SCALES SK.BOX.INPUTFN SK.BOX.CREATE SK.UPDATE.BOX.AFTER.CHANGE SK.BOX.INSIDEFN SK.BOX.REGIONFN @@ -169,8 +169,8 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co EXPANDREGION REGION.FROM.COORDINATES) (DECLARE%: DONTCOPY (RECORDS BOX LOCALBOX)) (UGLYVARS BOXICON)) - (COMS (* ; - "fns for the arc sketch element type") + (COMS (* ; + "fns for the arc sketch element type") (FNS SKETCH.CREATE.ARC ARC.DRAWFN ARC.EXPANDFN ARC.INPUTFN SK.INVERT.CIRCLE SK.READ.ARC.ANGLE.POINT SK.SHOW.ARC ARC.CREATE SK.UPDATE.ARC.AFTER.CHANGE ARC.MOVEFN ARC.TRANSLATEPTS ARC.INSIDEFN ARC.REGIONFN ARC.GLOBALREGIONFN @@ -184,8 +184,8 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co (DECLARE%: DONTCOPY (RECORDS ARC LOCALARC)) (CURSORS ARC.RADIUS.CURSOR ARC.ANGLE.CURSOR CW.ARC.ANGLE.CURSOR CW.ARC.RADIUS.CURSOR) (UGLYVARS ARCICON)) - (COMS (* ; - "property getting and setting stuff") + (COMS (* ; + "property getting and setting stuff") (FNS GETSKETCHELEMENTPROP \SK.GET.ARC.ANGLEPT \GETSKETCHELEMENTPROP1 \SK.GET.BRUSH \SK.GET.FILLING \SK.GET.ARROWHEADS \SK.GET.FONT \SK.GET.JUSTIFICATION \SK.GET.DIRECTION \SK.GET.DASHING PUTSKETCHELEMENTPROP \SK.PUT.FILLING @@ -8843,21 +8843,25 @@ No more font sizes found."))) T]) (\SK.PUT.ARROWHEADS - [LAMBDA (GELT NEWVALUE) (* rrb "26-Jun-86 16:45") - - (* sets the arrowhead field from a global sketch element instance.) - + [LAMBDA (GELT NEWVALUE) (* ; "Edited 21-Aug-2021 20:01 by larry") + (* sets the arrowhead field from a + global sketch element instance.) (SELECTQ (fetch (GLOBALPART GTYPE) of GELT) - (WIRE (replace (WIRE WIREARROWHEADS) of (fetch (GLOBALPART INDIVIDUALGLOBALPART) of GELT - with (SK.INSURE.ARROWHEADS NEWVALUE))) - (SET.WIRE.ARROWHEAD.POINTS (fetch (GLOBALPART INDIVIDUALGLOBALPART) of GELT))) - (OPENCURVE (replace (OPENCURVE CURVEARROWHEADS) of (fetch (GLOBALPART INDIVIDUALGLOBALPART) - of GELT with (SK.INSURE.ARROWHEADS - NEWVALUE))) + (WIRE (replace (WIRE WIREARROWHEADS) of (fetch (GLOBALPART INDIVIDUALGLOBALPART) + of GELT) with ( + SK.INSURE.ARROWHEADS + NEWVALUE)) + (SET.WIRE.ARROWHEAD.POINTS (fetch (GLOBALPART INDIVIDUALGLOBALPART) + of GELT))) + (OPENCURVE (replace (OPENCURVE CURVEARROWHEADS) of (fetch (GLOBALPART + INDIVIDUALGLOBALPART + ) of GELT) + with (SK.INSURE.ARROWHEADS NEWVALUE)) (SET.OPENCURVE.ARROWHEAD.POINTS (fetch (GLOBALPART INDIVIDUALGLOBALPART) - of GELT))) - (ARC (replace (ARC ARCARROWHEADS) of (fetch (GLOBALPART INDIVIDUALGLOBALPART) of GELT - with (SK.INSURE.ARROWHEADS NEWVALUE))) + of GELT))) + (ARC (replace (ARC ARCARROWHEADS) of (fetch (GLOBALPART INDIVIDUALGLOBALPART) + of GELT) with (SK.INSURE.ARROWHEADS + NEWVALUE)) (SET.ARC.ARROWHEAD.POINTS (fetch (GLOBALPART INDIVIDUALGLOBALPART) of GELT))) (LISTPUT (fetch (GLOBALPART SKELEMENTPROPLIST) of GELT) 'ARROWHEADS NEWVALUE)) @@ -9278,139 +9282,139 @@ No more font sizes found."))) (fetch (REGION TOP) of REGION]) ) (PUTPROPS SKETCHELEMENTS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1991 1992 1993 -2000)) +2000 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (14396 24810 (INIT.SKETCH.ELEMENTS 14406 . 21969) (CREATE.SKETCH.ELEMENT.TYPE 21971 . -23497) (SKETCH.ELEMENT.TYPEP 23499 . 23887) (SKETCH.ELEMENT.NAMEP 23889 . 24152) ( -\CURSOR.IN.MIDDLE.MENU 24154 . 24808)) (24851 25528 (SKETCHINCOLORP 24861 . 25181) (READ.COLOR.CHANGE -25183 . 25526)) (26037 28816 (SK.CREATE.DEFAULT.FILLING 26047 . 26348) (SKFILLINGP 26350 . 26983) ( -SK.INSURE.FILLING 26985 . 28413) (SK.INSURE.COLOR 28415 . 28814)) (28817 34427 (SK.TRANSLATE.MODE -28827 . 29609) (SK.CHANGE.FILLING.MODE 29611 . 33194) (READ.FILLING.MODE 33196 . 34425)) (34428 65102 -(SKETCH.CREATE.CIRCLE 34438 . 35250) (CIRCLE.EXPANDFN 35252 . 38624) (CIRCLE.DRAWFN 38626 . 41627) ( -\CIRCLE.DRAWFN1 41629 . 44224) (CIRCLE.INPUTFN 44226 . 46075) (SK.UPDATE.CIRCLE.AFTER.CHANGE 46077 . -46436) (SK.READ.CIRCLE.POINT 46438 . 46909) (SK.SHOW.CIRCLE 46911 . 47557) (CIRCLE.INSIDEFN 47559 . -47824) (CIRCLE.REGIONFN 47826 . 49507) (CIRCLE.GLOBALREGIONFN 49509 . 51027) (CIRCLE.TRANSLATE 51029 - . 52890) (CIRCLE.READCHANGEFN 52892 . 57508) (CIRCLE.TRANSFORMFN 57510 . 59363) (CIRCLE.TRANSLATEPTS -59365 . 60979) (SK.CIRCLE.CREATE 60981 . 61824) (SET.CIRCLE.SCALE 61826 . 62592) (SK.BRUSH.READCHANGE -62594 . 65100)) (65103 65832 (SK.INSURE.BRUSH 65113 . 65507) (SK.INSURE.DASHING 65509 . 65830)) (67084 - 96578 (SKETCH.CREATE.ELLIPSE 67094 . 67693) (ELLIPSE.EXPANDFN 67695 . 71307) (ELLIPSE.DRAWFN 71309 . -75486) (ELLIPSE.INPUTFN 75488 . 77928) (SK.READ.ELLIPSE.MAJOR.PT 77930 . 78509) ( -SK.SHOW.ELLIPSE.MAJOR.RADIUS 78511 . 79266) (SK.READ.ELLIPSE.MINOR.PT 79268 . 79961) ( -SK.SHOW.ELLIPSE.MINOR.RADIUS 79963 . 80795) (ELLIPSE.INSIDEFN 80797 . 81067) (ELLIPSE.CREATE 81069 . -82444) (SK.UPDATE.ELLIPSE.AFTER.CHANGE 82446 . 82814) (ELLIPSE.REGIONFN 82816 . 85016) ( -ELLIPSE.GLOBALREGIONFN 85018 . 86831) (ELLIPSE.TRANSLATEFN 86833 . 89379) (ELLIPSE.TRANSFORMFN 89381 - . 90658) (ELLIPSE.TRANSLATEPTS 90660 . 92701) (MARK.SPOT 92703 . 93954) (DISTANCEBETWEEN 93956 . -94551) (SK.DISTANCE.TO 94553 . 94938) (SQUARE 94940 . 94982) (COMPUTE.ELLIPSE.ORIENTATION 94984 . -95703) (SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 95705 . 96576)) (97703 138759 (SKETCH.CREATE.OPEN.CURVE -97713 . 98266) (OPENCURVE.INPUTFN 98268 . 99136) (SK.CURVE.CREATE 99138 . 100883) (MAXXEXTENT 100885 - . 101744) (MAXYEXTENT 101746 . 102606) (KNOT.SET.SCALE.FIELD 102608 . 103410) (OPENCURVE.DRAWFN -103412 . 104543) (OPENCURVE.EXPANDFN 104545 . 107860) (OPENCURVE.READCHANGEFN 107862 . 111064) ( -OPENCURVE.TRANSFORMFN 111066 . 113564) (OPENCURVE.TRANSLATEFN 113566 . 113988) ( -OPENCURVE.TRANSLATEPTSFN 113990 . 115371) (SKETCH.CREATE.CLOSED.CURVE 115373 . 115879) ( -CLOSEDCURVE.DRAWFN 115881 . 116665) (CLOSEDCURVE.EXPANDFN 116667 . 119780) (CLOSEDCURVE.REGIONFN -119782 . 120579) (CLOSEDCURVE.GLOBALREGIONFN 120581 . 122014) (READ.LIST.OF.POINTS 122016 . 123995) ( -CLOSEDCURVE.INPUTFN 123997 . 124642) (CLOSEDCURVE.READCHANGEFN 124644 . 127539) ( -CLOSEDCURVE.TRANSFORMFN 127541 . 129341) (CLOSEDCURVE.TRANSLATEPTSFN 129343 . 130688) (INVISIBLEPARTP -130690 . 131043) (SHOWSKETCHPOINT 131045 . 131350) (SHOWSKETCHXY 131352 . 131870) (KNOTS.REGIONFN -131872 . 132773) (OPENWIRE.GLOBALREGIONFN 132775 . 133639) (CURVE.REGIONFN 133641 . 134582) ( -OPENCURVE.GLOBALREGIONFN 134584 . 135991) (KNOTS.TRANSLATEFN 135993 . 137036) (REGION.CONTAINING.PTS -137038 . 138757)) (138760 161036 (CHANGE.ELTS.BRUSH.SIZE 138770 . 139380) (CHANGE.ELTS.BRUSH 139382 . -139899) (CHANGE.ELTS.BRUSH.SHAPE 139901 . 140302) (SK.CHANGE.BRUSH.SHAPE 140304 . 143816) ( -SK.CHANGE.BRUSH.COLOR 143818 . 148264) (SK.CHANGE.BRUSH.SIZE 148266 . 153224) (SK.CHANGE.ANGLE 153226 - . 156206) (SK.CHANGE.ARC.DIRECTION 156208 . 158587) (SK.SET.DEFAULT.BRUSH.SIZE 158589 . 159288) ( -READSIZECHANGE 159290 . 161034)) (161037 162656 (SK.CHANGE.ELEMENT.KNOTS 161047 . 162654)) (162657 -163304 (SK.INSURE.POINT.LIST 162667 . 163120) (SK.INSURE.POSITION 163122 . 163302)) (164684 197007 ( -SKETCH.CREATE.WIRE 164694 . 165184) (CLOSEDWIRE.EXPANDFN 165186 . 167874) (KNOTS.INSIDEFN 167876 . -168597) (OPEN.WIRE.DRAWFN 168599 . 169191) (WIRE.EXPANDFN 169193 . 172440) ( -SK.UPDATE.WIRE.ELT.AFTER.CHANGE 172442 . 172963) (OPENWIRE.READCHANGEFN 172965 . 175458) ( -OPENWIRE.TRANSFORMFN 175460 . 177583) (OPENWIRE.TRANSLATEFN 177585 . 178009) (OPENWIRE.TRANSLATEPTSFN -178011 . 179290) (WIRE.INPUTFN 179292 . 180923) (SK.READ.WIRE.POINTS 180925 . 181456) ( -SK.READ.POINTS.WITH.FEEDBACK 181458 . 184225) (OPENWIRE.FEEDBACKFN 184227 . 184981) ( -CLOSEDWIRE.FEEDBACKFN 184983 . 186339) (CLOSEDWIRE.REGIONFN 186341 . 187326) ( -CLOSEDWIRE.GLOBALREGIONFN 187328 . 188380) (SK.WIRE.CREATE 188382 . 190145) (WIRE.ADD.POINT.TO.END -190147 . 191063) (READ.ARROW.CHANGE 191065 . 196541) (CHANGE.ELTS.ARROWHEADS 196543 . 197005)) (197008 - 208014 (SKETCH.CREATE.CLOSED.WIRE 197018 . 197579) (CLOSED.WIRE.INPUTFN 197581 . 197936) ( -CLOSED.WIRE.DRAWFN 197938 . 199983) (CLOSEDWIRE.READCHANGEFN 199985 . 204890) (CLOSEDWIRE.TRANSFORMFN -204892 . 206686) (CLOSEDWIRE.TRANSLATEPTSFN 206688 . 208012)) (208015 260721 (SK.EXPAND.ARROWHEADS -208025 . 208375) (SK.COMPUTE.ARC.ARROWHEAD.POINTS 208377 . 209758) (ARC.ARROWHEAD.POINTS 209760 . -210983) (SET.ARC.ARROWHEAD.POINTS 210985 . 211966) (SET.OPENCURVE.ARROWHEAD.POINTS 211968 . 212869) ( -SK.COMPUTE.CURVE.ARROWHEAD.POINTS 212871 . 214141) (SET.WIRE.ARROWHEAD.POINTS 214143 . 214896) ( -SK.COMPUTE.WIRE.ARROWHEAD.POINTS 214898 . 216163) (SK.EXPAND.ARROWHEAD 216165 . 217348) (CHANGED.ARROW - 217350 . 220522) (SK.CHANGE.ARROWHEAD 220524 . 220977) (SK.CHANGE.ARROWHEAD1 220979 . 226234) ( -SK.CREATE.ARROWHEAD 226236 . 226756) (SK.ARROWHEAD.CREATE 226758 . 228332) (SK.ARROWHEAD.END.TEST -228334 . 229258) (READ.ARROWHEAD.END 229260 . 231285) (ARROW.HEAD.POSITIONS 231287 . 233127) ( -ARROWHEAD.POINTS.LIST 233129 . 237101) (CURVE.ARROWHEAD.POINTS 237103 . 237966) (LEFT.MOST.IS.BEGINP -237968 . 238849) (WIRE.ARROWHEAD.POINTS 238851 . 240377) (DRAWARROWHEADS 240379 . 242749) ( -\SK.DRAW.TRIANGLE.ARROWHEAD 242751 . 244411) (\SK.ENDPT.OF.ARROW 244413 . 246670) ( -\SK.ADJUST.FOR.ARROWHEADS 246672 . 249177) (SK.SET.ARROWHEAD.LENGTH 249179 . 250323) ( -SK.SET.ARROWHEAD.ANGLE 250325 . 251421) (SK.SET.ARROWHEAD.TYPE 251423 . 254712) (SK.SET.LINE.ARROWHEAD - 254714 . 257127) (SK.UPDATE.ARROWHEAD.FORMAT 257129 . 259239) (SK.SET.LINE.LENGTH.MODE 259241 . -260719)) (260722 262523 (SK.INSURE.ARROWHEADS 260732 . 261914) (SK.ARROWHEADP 261916 . 262521)) ( -265327 327653 (SKETCH.CREATE.TEXT 265337 . 265851) (TEXT.CHANGEFN 265853 . 266245) (TEXT.READCHANGEFN -266247 . 274318) (\SK.READ.FONT.SIZE1 274320 . 276216) (SK.TEXT.ELT.WITH.SAME.FIELDS 276218 . 277858) -(SK.READFONTFAMILY 277860 . 279406) (CLOSE.PROMPT.WINDOW 279408 . 279832) (TEXT.DRAWFN 279834 . 280555 -) (TEXT.DRAWFN1 280557 . 284059) (TEXT.INSIDEFN 284061 . 284450) (TEXT.EXPANDFN 284452 . 286577) ( -SK.TEXT.LINE.REGIONS 286579 . 288453) (TEXT.UPDATE.GLOBAL.REGIONS 288455 . 289687) (REL.MOVE.REGION -289689 . 290226) (LTEXT.LINE.REGIONS 290228 . 293646) (TEXT.INPUTFN 293648 . 294158) (READ.TEXT 294160 - . 294908) (TEXT.POSITION.AND.CREATE 294910 . 297221) (CREATE.TEXT.ELEMENT 297223 . 298041) ( -SK.UPDATE.TEXT.AFTER.CHANGE 298043 . 298445) (SK.TEXT.FROM.TEXTBOX 298447 . 302253) ( -TEXT.SET.GLOBAL.REGIONS 302255 . 303548) (TEXT.REGIONFN 303550 . 304320) (TEXT.GLOBALREGIONFN 304322 - . 305010) (TEXT.TRANSLATEFN 305012 . 306327) (TEXT.TRANSFORMFN 306329 . 307452) (TEXT.TRANSLATEPTSFN -307454 . 307971) (TEXT.UPDATEFN 307973 . 312629) (SK.CHANGE.TEXT 312631 . 325719) (TEXT.SET.SCALES -325721 . 326689) (BREAK.AT.CARRIAGE.RETURNS 326691 . 327651)) (327654 346178 (ADD.KNOWN.SKETCH.FONT -327664 . 328655) (SK.PICK.FONT 328657 . 334189) (SK.CHOOSE.TEXT.FONT 334191 . 338139) (SK.NEXTSIZEFONT - 338141 . 339408) (SK.DECREASING.FONT.LIST 339410 . 341283) (SK.GUESS.FONTSAVAILABLE 341285 . 346176)) - (346605 360748 (SK.SET.FONT 346615 . 348182) (SK.SET.TEXT.FONT 348184 . 349186) (SK.SET.TEXT.SIZE -349188 . 349875) (SK.SET.TEXT.HORIZ.ALIGN 349877 . 351451) (SK.READFONTSIZE 351453 . 353683) ( -SK.COLLECT.FONT.SIZES 353685 . 356603) (SK.SET.TEXT.VERT.ALIGN 356605 . 358647) (SK.SET.TEXT.LOOKS -358649 . 360106) (SK.SET.DEFAULT.TEXT.FACE 360108 . 360746)) (360749 361335 (CREATE.SKETCH.TERMTABLE -360759 . 361333)) (361336 363102 (SK.FONT.LIST 361346 . 361672) (SK.INSURE.FONT 361674 . 362196) ( -SK.INSURE.STYLE 362198 . 362716) (SK.INSURE.TEXT 362718 . 363100)) (363672 420965 ( -SKETCH.CREATE.TEXTBOX 363682 . 365324) (SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 365326 . 367403) ( -SK.BREAK.INTO.LINES 367405 . 378591) (SK.BRUSH.SIZE 378593 . 378974) (SK.TEXTBOX.CREATE 378976 . -379773) (SK.TEXTBOX.CREATE1 379775 . 380839) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 380841 . 381381) ( -SK.TEXTBOX.POSITION.IN.BOX 381383 . 383294) (TEXTBOX.CHANGEFN 383296 . 383770) (TEXTBOX.DRAWFN 383772 - . 385808) (SK.TEXTURE.AROUND.REGIONS 385810 . 391883) (ALL.EMPTY.REGIONS 391885 . 392375) ( -TEXTBOX.EXPANDFN 392377 . 399533) (TEXTBOX.INPUTFN 399535 . 401148) (TEXTBOX.INSIDEFN 401150 . 401563) - (TEXTBOX.REGIONFN 401565 . 402419) (TEXTBOX.GLOBALREGIONFN 402421 . 402749) ( -TEXTBOX.SET.GLOBAL.REGIONS 402751 . 404082) (TEXTBOX.TRANSLATEFN 404084 . 405925) ( -TEXTBOX.TRANSLATEPTSFN 405927 . 408710) (TEXTBOX.TRANSFORMFN 408712 . 410380) (TEXTBOX.UPDATEFN 410382 - . 412275) (TEXTBOX.READCHANGEFN 412277 . 417166) (SK.TEXTBOX.TEXT.POSITION 417168 . 417589) ( -SK.TEXTBOX.FROM.TEXT 417591 . 420196) (ADD.EOLS 420198 . 420963)) (421533 425034 ( -SK.SET.TEXTBOX.VERT.ALIGN 421543 . 423423) (SK.SET.TEXTBOX.HORIZ.ALIGN 423425 . 425032)) (425417 -469892 (SKETCH.CREATE.BOX 425427 . 425910) (SK.BOX.DRAWFN 425912 . 427071) (BOX.DRAWFN1 427073 . -429912) (KNOTS.OF.REGION 429914 . 431148) (SK.DRAWAREABOX 431150 . 437751) (SK.DRAWBOX 437753 . 438942 -) (SK.BOX.EXPANDFN 438944 . 442692) (SK.BOX.GETREGIONFN 442694 . 443880) (BOX.SET.SCALES 443882 . -445122) (SK.BOX.INPUTFN 445124 . 447057) (SK.BOX.CREATE 447059 . 447760) (SK.UPDATE.BOX.AFTER.CHANGE -447762 . 448273) (SK.BOX.INSIDEFN 448275 . 448665) (SK.BOX.REGIONFN 448667 . 449380) ( -SK.BOX.GLOBALREGIONFN 449382 . 450120) (SK.BOX.READCHANGEFN 450122 . 453843) (SK.CHANGE.FILLING 453845 - . 457793) (SK.CHANGE.FILLING.COLOR 457795 . 461451) (SK.BOX.TRANSLATEFN 461453 . 462632) ( -SK.BOX.TRANSFORMFN 462634 . 463579) (SK.BOX.TRANSLATEPTSFN 463581 . 465949) (UNSCALE.REGION.TO.GRID -465951 . 466876) (INCREASEREGION 466878 . 467469) (INSUREREGIONSIZE 467471 . 468642) (EXPANDREGION -468644 . 469524) (REGION.FROM.COORDINATES 469526 . 469890)) (470432 496787 (SKETCH.CREATE.ARC 470442 - . 471251) (ARC.DRAWFN 471253 . 472980) (ARC.EXPANDFN 472982 . 475315) (ARC.INPUTFN 475317 . 479535) ( -SK.INVERT.CIRCLE 479537 . 480397) (SK.READ.ARC.ANGLE.POINT 480399 . 480906) (SK.SHOW.ARC 480908 . -481518) (ARC.CREATE 481520 . 482875) (SK.UPDATE.ARC.AFTER.CHANGE 482877 . 483217) (ARC.MOVEFN 483219 - . 484802) (ARC.TRANSLATEPTS 484804 . 486689) (ARC.INSIDEFN 486691 . 486941) (ARC.REGIONFN 486943 . -488079) (ARC.GLOBALREGIONFN 488081 . 489803) (ARC.TRANSLATE 489805 . 490787) (ARC.TRANSFORMFN 490789 - . 493739) (ARC.READCHANGEFN 493741 . 496785)) (496788 505867 (SK.COMPUTE.ARC.ANGLE.PT 496798 . 497724 -) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 497726 . 498719) (SK.COMPUTE.ARC.PTS 498721 . 502293) ( -SK.SET.ARC.DIRECTION 502295 . 502869) (SK.SET.ARC.DIRECTION.CW 502871 . 503045) ( -SK.SET.ARC.DIRECTION.CCW 503047 . 503320) (SK.COMPUTE.SLOPE.OF.LINE 503322 . 503814) ( -SK.CREATE.ARC.USING 503816 . 505053) (SET.ARC.SCALES 505055 . 505865)) (505868 506313 ( -SK.INSURE.DIRECTION 505878 . 506311)) (507715 553096 (GETSKETCHELEMENTPROP 507725 . 509033) ( -\SK.GET.ARC.ANGLEPT 509035 . 509596) (\GETSKETCHELEMENTPROP1 509598 . 509852) (\SK.GET.BRUSH 509854 . -510778) (\SK.GET.FILLING 510780 . 511878) (\SK.GET.ARROWHEADS 511880 . 512659) (\SK.GET.FONT 512661 . -513141) (\SK.GET.JUSTIFICATION 513143 . 513667) (\SK.GET.DIRECTION 513669 . 514146) (\SK.GET.DASHING -514148 . 515167) (PUTSKETCHELEMENTPROP 515169 . 517438) (\SK.PUT.FILLING 517440 . 518710) ( -ADDSKETCHELEMENTPROP 518712 . 519517) (REMOVESKETCHELEMENTPROP 519519 . 520308) (\SK.PUT.FONT 520310 - . 521124) (\SK.PUT.JUSTIFICATION 521126 . 522137) (\SK.PUT.DIRECTION 522139 . 522746) ( -\SK.PUT.DASHING 522748 . 524083) (\SK.PUT.BRUSH 524085 . 526004) (\SK.PUT.ARROWHEADS 526006 . 527494) -(SK.COPY.ELEMENT.PROPERTY.LIST 527496 . 528072) (SKETCH.UPDATE 528074 . 528804) (SKETCH.UPDATE1 528806 - . 530094) (\SKELT.GET.SCALE 530096 . 531084) (\SKELT.PUT.SCALE 531086 . 532393) (\SKELT.PUT.DATA -532395 . 534192) (SK.REPLACE.TEXT.IN.ELEMENT 534194 . 535147) (\SKELT.GET.DATA 535149 . 536216) ( -\SK.GET.1STCONTROLPT 536218 . 537730) (\SK.PUT.1STCONTROLPT 537732 . 543205) (\SK.GET.2NDCONTROLPT -543207 . 544122) (\SK.PUT.2NDCONTROLPT 544124 . 548312) (\SK.GET.3RDCONTROLPT 548314 . 549192) ( -\SK.PUT.3RDCONTROLPT 549194 . 553094)) (553097 553678 (LOWERLEFTCORNER 553107 . 553353) ( -UPPERRIGHTCORNER 553355 . 553676))))) + (FILEMAP (NIL (14335 24749 (INIT.SKETCH.ELEMENTS 14345 . 21908) (CREATE.SKETCH.ELEMENT.TYPE 21910 . +23436) (SKETCH.ELEMENT.TYPEP 23438 . 23826) (SKETCH.ELEMENT.NAMEP 23828 . 24091) ( +\CURSOR.IN.MIDDLE.MENU 24093 . 24747)) (24790 25467 (SKETCHINCOLORP 24800 . 25120) (READ.COLOR.CHANGE +25122 . 25465)) (25976 28755 (SK.CREATE.DEFAULT.FILLING 25986 . 26287) (SKFILLINGP 26289 . 26922) ( +SK.INSURE.FILLING 26924 . 28352) (SK.INSURE.COLOR 28354 . 28753)) (28756 34366 (SK.TRANSLATE.MODE +28766 . 29548) (SK.CHANGE.FILLING.MODE 29550 . 33133) (READ.FILLING.MODE 33135 . 34364)) (34367 65041 +(SKETCH.CREATE.CIRCLE 34377 . 35189) (CIRCLE.EXPANDFN 35191 . 38563) (CIRCLE.DRAWFN 38565 . 41566) ( +\CIRCLE.DRAWFN1 41568 . 44163) (CIRCLE.INPUTFN 44165 . 46014) (SK.UPDATE.CIRCLE.AFTER.CHANGE 46016 . +46375) (SK.READ.CIRCLE.POINT 46377 . 46848) (SK.SHOW.CIRCLE 46850 . 47496) (CIRCLE.INSIDEFN 47498 . +47763) (CIRCLE.REGIONFN 47765 . 49446) (CIRCLE.GLOBALREGIONFN 49448 . 50966) (CIRCLE.TRANSLATE 50968 + . 52829) (CIRCLE.READCHANGEFN 52831 . 57447) (CIRCLE.TRANSFORMFN 57449 . 59302) (CIRCLE.TRANSLATEPTS +59304 . 60918) (SK.CIRCLE.CREATE 60920 . 61763) (SET.CIRCLE.SCALE 61765 . 62531) (SK.BRUSH.READCHANGE +62533 . 65039)) (65042 65771 (SK.INSURE.BRUSH 65052 . 65446) (SK.INSURE.DASHING 65448 . 65769)) (67023 + 96517 (SKETCH.CREATE.ELLIPSE 67033 . 67632) (ELLIPSE.EXPANDFN 67634 . 71246) (ELLIPSE.DRAWFN 71248 . +75425) (ELLIPSE.INPUTFN 75427 . 77867) (SK.READ.ELLIPSE.MAJOR.PT 77869 . 78448) ( +SK.SHOW.ELLIPSE.MAJOR.RADIUS 78450 . 79205) (SK.READ.ELLIPSE.MINOR.PT 79207 . 79900) ( +SK.SHOW.ELLIPSE.MINOR.RADIUS 79902 . 80734) (ELLIPSE.INSIDEFN 80736 . 81006) (ELLIPSE.CREATE 81008 . +82383) (SK.UPDATE.ELLIPSE.AFTER.CHANGE 82385 . 82753) (ELLIPSE.REGIONFN 82755 . 84955) ( +ELLIPSE.GLOBALREGIONFN 84957 . 86770) (ELLIPSE.TRANSLATEFN 86772 . 89318) (ELLIPSE.TRANSFORMFN 89320 + . 90597) (ELLIPSE.TRANSLATEPTS 90599 . 92640) (MARK.SPOT 92642 . 93893) (DISTANCEBETWEEN 93895 . +94490) (SK.DISTANCE.TO 94492 . 94877) (SQUARE 94879 . 94921) (COMPUTE.ELLIPSE.ORIENTATION 94923 . +95642) (SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 95644 . 96515)) (97642 138698 (SKETCH.CREATE.OPEN.CURVE +97652 . 98205) (OPENCURVE.INPUTFN 98207 . 99075) (SK.CURVE.CREATE 99077 . 100822) (MAXXEXTENT 100824 + . 101683) (MAXYEXTENT 101685 . 102545) (KNOT.SET.SCALE.FIELD 102547 . 103349) (OPENCURVE.DRAWFN +103351 . 104482) (OPENCURVE.EXPANDFN 104484 . 107799) (OPENCURVE.READCHANGEFN 107801 . 111003) ( +OPENCURVE.TRANSFORMFN 111005 . 113503) (OPENCURVE.TRANSLATEFN 113505 . 113927) ( +OPENCURVE.TRANSLATEPTSFN 113929 . 115310) (SKETCH.CREATE.CLOSED.CURVE 115312 . 115818) ( +CLOSEDCURVE.DRAWFN 115820 . 116604) (CLOSEDCURVE.EXPANDFN 116606 . 119719) (CLOSEDCURVE.REGIONFN +119721 . 120518) (CLOSEDCURVE.GLOBALREGIONFN 120520 . 121953) (READ.LIST.OF.POINTS 121955 . 123934) ( +CLOSEDCURVE.INPUTFN 123936 . 124581) (CLOSEDCURVE.READCHANGEFN 124583 . 127478) ( +CLOSEDCURVE.TRANSFORMFN 127480 . 129280) (CLOSEDCURVE.TRANSLATEPTSFN 129282 . 130627) (INVISIBLEPARTP +130629 . 130982) (SHOWSKETCHPOINT 130984 . 131289) (SHOWSKETCHXY 131291 . 131809) (KNOTS.REGIONFN +131811 . 132712) (OPENWIRE.GLOBALREGIONFN 132714 . 133578) (CURVE.REGIONFN 133580 . 134521) ( +OPENCURVE.GLOBALREGIONFN 134523 . 135930) (KNOTS.TRANSLATEFN 135932 . 136975) (REGION.CONTAINING.PTS +136977 . 138696)) (138699 160975 (CHANGE.ELTS.BRUSH.SIZE 138709 . 139319) (CHANGE.ELTS.BRUSH 139321 . +139838) (CHANGE.ELTS.BRUSH.SHAPE 139840 . 140241) (SK.CHANGE.BRUSH.SHAPE 140243 . 143755) ( +SK.CHANGE.BRUSH.COLOR 143757 . 148203) (SK.CHANGE.BRUSH.SIZE 148205 . 153163) (SK.CHANGE.ANGLE 153165 + . 156145) (SK.CHANGE.ARC.DIRECTION 156147 . 158526) (SK.SET.DEFAULT.BRUSH.SIZE 158528 . 159227) ( +READSIZECHANGE 159229 . 160973)) (160976 162595 (SK.CHANGE.ELEMENT.KNOTS 160986 . 162593)) (162596 +163243 (SK.INSURE.POINT.LIST 162606 . 163059) (SK.INSURE.POSITION 163061 . 163241)) (164623 196946 ( +SKETCH.CREATE.WIRE 164633 . 165123) (CLOSEDWIRE.EXPANDFN 165125 . 167813) (KNOTS.INSIDEFN 167815 . +168536) (OPEN.WIRE.DRAWFN 168538 . 169130) (WIRE.EXPANDFN 169132 . 172379) ( +SK.UPDATE.WIRE.ELT.AFTER.CHANGE 172381 . 172902) (OPENWIRE.READCHANGEFN 172904 . 175397) ( +OPENWIRE.TRANSFORMFN 175399 . 177522) (OPENWIRE.TRANSLATEFN 177524 . 177948) (OPENWIRE.TRANSLATEPTSFN +177950 . 179229) (WIRE.INPUTFN 179231 . 180862) (SK.READ.WIRE.POINTS 180864 . 181395) ( +SK.READ.POINTS.WITH.FEEDBACK 181397 . 184164) (OPENWIRE.FEEDBACKFN 184166 . 184920) ( +CLOSEDWIRE.FEEDBACKFN 184922 . 186278) (CLOSEDWIRE.REGIONFN 186280 . 187265) ( +CLOSEDWIRE.GLOBALREGIONFN 187267 . 188319) (SK.WIRE.CREATE 188321 . 190084) (WIRE.ADD.POINT.TO.END +190086 . 191002) (READ.ARROW.CHANGE 191004 . 196480) (CHANGE.ELTS.ARROWHEADS 196482 . 196944)) (196947 + 207953 (SKETCH.CREATE.CLOSED.WIRE 196957 . 197518) (CLOSED.WIRE.INPUTFN 197520 . 197875) ( +CLOSED.WIRE.DRAWFN 197877 . 199922) (CLOSEDWIRE.READCHANGEFN 199924 . 204829) (CLOSEDWIRE.TRANSFORMFN +204831 . 206625) (CLOSEDWIRE.TRANSLATEPTSFN 206627 . 207951)) (207954 260660 (SK.EXPAND.ARROWHEADS +207964 . 208314) (SK.COMPUTE.ARC.ARROWHEAD.POINTS 208316 . 209697) (ARC.ARROWHEAD.POINTS 209699 . +210922) (SET.ARC.ARROWHEAD.POINTS 210924 . 211905) (SET.OPENCURVE.ARROWHEAD.POINTS 211907 . 212808) ( +SK.COMPUTE.CURVE.ARROWHEAD.POINTS 212810 . 214080) (SET.WIRE.ARROWHEAD.POINTS 214082 . 214835) ( +SK.COMPUTE.WIRE.ARROWHEAD.POINTS 214837 . 216102) (SK.EXPAND.ARROWHEAD 216104 . 217287) (CHANGED.ARROW + 217289 . 220461) (SK.CHANGE.ARROWHEAD 220463 . 220916) (SK.CHANGE.ARROWHEAD1 220918 . 226173) ( +SK.CREATE.ARROWHEAD 226175 . 226695) (SK.ARROWHEAD.CREATE 226697 . 228271) (SK.ARROWHEAD.END.TEST +228273 . 229197) (READ.ARROWHEAD.END 229199 . 231224) (ARROW.HEAD.POSITIONS 231226 . 233066) ( +ARROWHEAD.POINTS.LIST 233068 . 237040) (CURVE.ARROWHEAD.POINTS 237042 . 237905) (LEFT.MOST.IS.BEGINP +237907 . 238788) (WIRE.ARROWHEAD.POINTS 238790 . 240316) (DRAWARROWHEADS 240318 . 242688) ( +\SK.DRAW.TRIANGLE.ARROWHEAD 242690 . 244350) (\SK.ENDPT.OF.ARROW 244352 . 246609) ( +\SK.ADJUST.FOR.ARROWHEADS 246611 . 249116) (SK.SET.ARROWHEAD.LENGTH 249118 . 250262) ( +SK.SET.ARROWHEAD.ANGLE 250264 . 251360) (SK.SET.ARROWHEAD.TYPE 251362 . 254651) (SK.SET.LINE.ARROWHEAD + 254653 . 257066) (SK.UPDATE.ARROWHEAD.FORMAT 257068 . 259178) (SK.SET.LINE.LENGTH.MODE 259180 . +260658)) (260661 262462 (SK.INSURE.ARROWHEADS 260671 . 261853) (SK.ARROWHEADP 261855 . 262460)) ( +265266 327592 (SKETCH.CREATE.TEXT 265276 . 265790) (TEXT.CHANGEFN 265792 . 266184) (TEXT.READCHANGEFN +266186 . 274257) (\SK.READ.FONT.SIZE1 274259 . 276155) (SK.TEXT.ELT.WITH.SAME.FIELDS 276157 . 277797) +(SK.READFONTFAMILY 277799 . 279345) (CLOSE.PROMPT.WINDOW 279347 . 279771) (TEXT.DRAWFN 279773 . 280494 +) (TEXT.DRAWFN1 280496 . 283998) (TEXT.INSIDEFN 284000 . 284389) (TEXT.EXPANDFN 284391 . 286516) ( +SK.TEXT.LINE.REGIONS 286518 . 288392) (TEXT.UPDATE.GLOBAL.REGIONS 288394 . 289626) (REL.MOVE.REGION +289628 . 290165) (LTEXT.LINE.REGIONS 290167 . 293585) (TEXT.INPUTFN 293587 . 294097) (READ.TEXT 294099 + . 294847) (TEXT.POSITION.AND.CREATE 294849 . 297160) (CREATE.TEXT.ELEMENT 297162 . 297980) ( +SK.UPDATE.TEXT.AFTER.CHANGE 297982 . 298384) (SK.TEXT.FROM.TEXTBOX 298386 . 302192) ( +TEXT.SET.GLOBAL.REGIONS 302194 . 303487) (TEXT.REGIONFN 303489 . 304259) (TEXT.GLOBALREGIONFN 304261 + . 304949) (TEXT.TRANSLATEFN 304951 . 306266) (TEXT.TRANSFORMFN 306268 . 307391) (TEXT.TRANSLATEPTSFN +307393 . 307910) (TEXT.UPDATEFN 307912 . 312568) (SK.CHANGE.TEXT 312570 . 325658) (TEXT.SET.SCALES +325660 . 326628) (BREAK.AT.CARRIAGE.RETURNS 326630 . 327590)) (327593 346117 (ADD.KNOWN.SKETCH.FONT +327603 . 328594) (SK.PICK.FONT 328596 . 334128) (SK.CHOOSE.TEXT.FONT 334130 . 338078) (SK.NEXTSIZEFONT + 338080 . 339347) (SK.DECREASING.FONT.LIST 339349 . 341222) (SK.GUESS.FONTSAVAILABLE 341224 . 346115)) + (346544 360687 (SK.SET.FONT 346554 . 348121) (SK.SET.TEXT.FONT 348123 . 349125) (SK.SET.TEXT.SIZE +349127 . 349814) (SK.SET.TEXT.HORIZ.ALIGN 349816 . 351390) (SK.READFONTSIZE 351392 . 353622) ( +SK.COLLECT.FONT.SIZES 353624 . 356542) (SK.SET.TEXT.VERT.ALIGN 356544 . 358586) (SK.SET.TEXT.LOOKS +358588 . 360045) (SK.SET.DEFAULT.TEXT.FACE 360047 . 360685)) (360688 361274 (CREATE.SKETCH.TERMTABLE +360698 . 361272)) (361275 363041 (SK.FONT.LIST 361285 . 361611) (SK.INSURE.FONT 361613 . 362135) ( +SK.INSURE.STYLE 362137 . 362655) (SK.INSURE.TEXT 362657 . 363039)) (363611 420904 ( +SKETCH.CREATE.TEXTBOX 363621 . 365263) (SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 365265 . 367342) ( +SK.BREAK.INTO.LINES 367344 . 378530) (SK.BRUSH.SIZE 378532 . 378913) (SK.TEXTBOX.CREATE 378915 . +379712) (SK.TEXTBOX.CREATE1 379714 . 380778) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 380780 . 381320) ( +SK.TEXTBOX.POSITION.IN.BOX 381322 . 383233) (TEXTBOX.CHANGEFN 383235 . 383709) (TEXTBOX.DRAWFN 383711 + . 385747) (SK.TEXTURE.AROUND.REGIONS 385749 . 391822) (ALL.EMPTY.REGIONS 391824 . 392314) ( +TEXTBOX.EXPANDFN 392316 . 399472) (TEXTBOX.INPUTFN 399474 . 401087) (TEXTBOX.INSIDEFN 401089 . 401502) + (TEXTBOX.REGIONFN 401504 . 402358) (TEXTBOX.GLOBALREGIONFN 402360 . 402688) ( +TEXTBOX.SET.GLOBAL.REGIONS 402690 . 404021) (TEXTBOX.TRANSLATEFN 404023 . 405864) ( +TEXTBOX.TRANSLATEPTSFN 405866 . 408649) (TEXTBOX.TRANSFORMFN 408651 . 410319) (TEXTBOX.UPDATEFN 410321 + . 412214) (TEXTBOX.READCHANGEFN 412216 . 417105) (SK.TEXTBOX.TEXT.POSITION 417107 . 417528) ( +SK.TEXTBOX.FROM.TEXT 417530 . 420135) (ADD.EOLS 420137 . 420902)) (421472 424973 ( +SK.SET.TEXTBOX.VERT.ALIGN 421482 . 423362) (SK.SET.TEXTBOX.HORIZ.ALIGN 423364 . 424971)) (425356 +469831 (SKETCH.CREATE.BOX 425366 . 425849) (SK.BOX.DRAWFN 425851 . 427010) (BOX.DRAWFN1 427012 . +429851) (KNOTS.OF.REGION 429853 . 431087) (SK.DRAWAREABOX 431089 . 437690) (SK.DRAWBOX 437692 . 438881 +) (SK.BOX.EXPANDFN 438883 . 442631) (SK.BOX.GETREGIONFN 442633 . 443819) (BOX.SET.SCALES 443821 . +445061) (SK.BOX.INPUTFN 445063 . 446996) (SK.BOX.CREATE 446998 . 447699) (SK.UPDATE.BOX.AFTER.CHANGE +447701 . 448212) (SK.BOX.INSIDEFN 448214 . 448604) (SK.BOX.REGIONFN 448606 . 449319) ( +SK.BOX.GLOBALREGIONFN 449321 . 450059) (SK.BOX.READCHANGEFN 450061 . 453782) (SK.CHANGE.FILLING 453784 + . 457732) (SK.CHANGE.FILLING.COLOR 457734 . 461390) (SK.BOX.TRANSLATEFN 461392 . 462571) ( +SK.BOX.TRANSFORMFN 462573 . 463518) (SK.BOX.TRANSLATEPTSFN 463520 . 465888) (UNSCALE.REGION.TO.GRID +465890 . 466815) (INCREASEREGION 466817 . 467408) (INSUREREGIONSIZE 467410 . 468581) (EXPANDREGION +468583 . 469463) (REGION.FROM.COORDINATES 469465 . 469829)) (470371 496726 (SKETCH.CREATE.ARC 470381 + . 471190) (ARC.DRAWFN 471192 . 472919) (ARC.EXPANDFN 472921 . 475254) (ARC.INPUTFN 475256 . 479474) ( +SK.INVERT.CIRCLE 479476 . 480336) (SK.READ.ARC.ANGLE.POINT 480338 . 480845) (SK.SHOW.ARC 480847 . +481457) (ARC.CREATE 481459 . 482814) (SK.UPDATE.ARC.AFTER.CHANGE 482816 . 483156) (ARC.MOVEFN 483158 + . 484741) (ARC.TRANSLATEPTS 484743 . 486628) (ARC.INSIDEFN 486630 . 486880) (ARC.REGIONFN 486882 . +488018) (ARC.GLOBALREGIONFN 488020 . 489742) (ARC.TRANSLATE 489744 . 490726) (ARC.TRANSFORMFN 490728 + . 493678) (ARC.READCHANGEFN 493680 . 496724)) (496727 505806 (SK.COMPUTE.ARC.ANGLE.PT 496737 . 497663 +) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 497665 . 498658) (SK.COMPUTE.ARC.PTS 498660 . 502232) ( +SK.SET.ARC.DIRECTION 502234 . 502808) (SK.SET.ARC.DIRECTION.CW 502810 . 502984) ( +SK.SET.ARC.DIRECTION.CCW 502986 . 503259) (SK.COMPUTE.SLOPE.OF.LINE 503261 . 503753) ( +SK.CREATE.ARC.USING 503755 . 504992) (SET.ARC.SCALES 504994 . 505804)) (505807 506252 ( +SK.INSURE.DIRECTION 505817 . 506250)) (507654 553513 (GETSKETCHELEMENTPROP 507664 . 508972) ( +\SK.GET.ARC.ANGLEPT 508974 . 509535) (\GETSKETCHELEMENTPROP1 509537 . 509791) (\SK.GET.BRUSH 509793 . +510717) (\SK.GET.FILLING 510719 . 511817) (\SK.GET.ARROWHEADS 511819 . 512598) (\SK.GET.FONT 512600 . +513080) (\SK.GET.JUSTIFICATION 513082 . 513606) (\SK.GET.DIRECTION 513608 . 514085) (\SK.GET.DASHING +514087 . 515106) (PUTSKETCHELEMENTPROP 515108 . 517377) (\SK.PUT.FILLING 517379 . 518649) ( +ADDSKETCHELEMENTPROP 518651 . 519456) (REMOVESKETCHELEMENTPROP 519458 . 520247) (\SK.PUT.FONT 520249 + . 521063) (\SK.PUT.JUSTIFICATION 521065 . 522076) (\SK.PUT.DIRECTION 522078 . 522685) ( +\SK.PUT.DASHING 522687 . 524022) (\SK.PUT.BRUSH 524024 . 525943) (\SK.PUT.ARROWHEADS 525945 . 527911) +(SK.COPY.ELEMENT.PROPERTY.LIST 527913 . 528489) (SKETCH.UPDATE 528491 . 529221) (SKETCH.UPDATE1 529223 + . 530511) (\SKELT.GET.SCALE 530513 . 531501) (\SKELT.PUT.SCALE 531503 . 532810) (\SKELT.PUT.DATA +532812 . 534609) (SK.REPLACE.TEXT.IN.ELEMENT 534611 . 535564) (\SKELT.GET.DATA 535566 . 536633) ( +\SK.GET.1STCONTROLPT 536635 . 538147) (\SK.PUT.1STCONTROLPT 538149 . 543622) (\SK.GET.2NDCONTROLPT +543624 . 544539) (\SK.PUT.2NDCONTROLPT 544541 . 548729) (\SK.GET.3RDCONTROLPT 548731 . 549609) ( +\SK.PUT.3RDCONTROLPT 549611 . 553511)) (553514 554095 (LOWERLEFTCORNER 553524 . 553770) ( +UPPERRIGHTCORNER 553772 . 554093))))) STOP diff --git a/library/SKETCHELEMENTS.LCOM b/library/SKETCHELEMENTS.LCOM index f06b4ffc35bded847ec051f7016256fb64525ecb..b6cb512856c3a445cbb447dabff2d0c43fbc2d9f 100644 GIT binary patch delta 7356 zcmb_hd3aPswtrQDkle6^>?@asK(`^GJFJN;-RX3vLpt4Akwpg(LO=`&0fY$30B$3L zEO(?t7#Dn?vSZJ9QBeeOL)m;PhzN#}H%1%*dGmeG{ryh$lI}tL-uu4Sf7Gc{XFql7 zROROFUt-q&64T#U;&7IE9C^+%wYIj*prD1J++D*l_ z8i#5zn-nAQ+N&M5T1Sa$D6r(&7Bu7)m;!UxNUqQQfU3M_{Ig`))qb#X~e`8^}A^LF%|vuIewTD=*lpzI!%|X9ZWqwmmk!o~$YRJKac$3=PQh(R1rUmn)M>$2Bhoz<}H&Bg4 zq-9!6N|~puHovCaQEPYQJKT;6ho`niEh-tI_-^Gp6PV&tlFx9aXctpgVVsvX9^?CI zZ(>}RUX1ah^rp_(3)L)|O*~nfoG}TDuVmCgGCp%S15%bX4dc$NSFtoZyKfZ0>OP~O z(|5G*OlZnk1;y({)+L3y!jZL^Z$&o`=DbO zKO1y{Rwf&LADf#yW4d=*xwdZDS!ih*u0WY~_lUh12NqHY&69I|7Ym2O4J~UFEo>hJ z|9m}07m?YqW8%oOakicW8thL+amA?ZcNGXVpLf#6lpcpf57(0*?sknM-O*zy8Sjr> zfTiMc3PID|V}bCBIizu}ClNp#JIH!#zuX<8?evn*P<22$qDVR+=_iT!GVK&juKG)#mjh!fIU789=hVoqByqEG! z!M48sik7v&2<*N3DorfdhFS4l6z0ymS}>{$DJ_>5F2{JaHC20f(es!MY27dJzhnI5 zZi;)uV)CtK3BuAYFL@E;)_Vl3j=r~%g4(hC3sit_?L!X|NPA=kdGz}=TgjsV>)@&H z^L0aME%{LuKpQTWVSGtU!I=Ko&m^;9BA9*iAD3I%zOfa^v`t4yLH-j{fvkCAzCWmk zv{jqivApn^$1%QFKTo^=-&cYme#=Y5{odA-9eMf*>t~<)flQv>zB^ViR;p&z;VIGD zwi~s5J9cAz=FSxuWs*^?z87}Il9v6uuK?M(#~cmh+>6gZ<&i%yi`KItR@<+?hQ-DE zs=#q{UnQ~ADR930_uwgLeZ38|Ne8ee(il zd)|5_fZz8v9jZNV)oU-m;{j{zyQ9GBD?PG;VtDU;9mtBKCgfb(dGa1;awyO^S zv3xs>keS!k0r}xtjsno<=SRTz=pOc?e|K&cUowU&)37q)~r4#u*DKnoRiKh*07;@BEMQQ3_h1<3Bs=3;eCcXo-Gm&7wP2)(!$ zD<|eh5?B|6A=W3eHvlH4kQM!S3j2zvFQ+ltEsm!%v?c*y5)Wjs>6l;2U}J`sbHHTIOQZ>GcC+8MSjA*-RsmZ63Csa9b5?CzxBy1_6pm;}{x) zh`xnw26+A!_85r8;~CX~sGY!2b)xG;hGVb4F_E1n(M`9pMuN%|R*Z;5#dI0xs_Cqa zDbF_5GZJl{f$$VPs)21~QHrrlJGm!WTXQW&9GS^}4?_7Y)n$!m%>Dr3rj_hC(Z;M|KA_iDF$cPUUZ_De;KP4n%>;jV6h#BJ z3c*$YAhK7ny81C@AS*9C&Tz+ynH!lGVBbbI9w2@b`yD{@CJLB3j99dUCFya0W}njW zpPg;gdu(PIR7Sa5SRo~>{yEYkL!R+G+rX3;w;@enSiYUnjVxB}fIFzw9Sr?dEZWKb z0`|Fey@h)h!=<3>yVz62KYkBR9$?xF?7s+h{|h@qyWGA{`u!|AEvb9{Wiq1MUtt3Y zZQjqUK=>$~hcz}N4R3jNd(wwe;waFl%sP~!b3(xR5lbh5sUNdz0ClG*GI9A7yBh#k@4W!+ zr^%e|`GoZYt3K}x`;4+*bxu~DnDaSvigV}LYOrE{7yzU+-QDJI1rlkzAPYlM#Hqi@ zb0-NKzhHHw_3B0TG`UBMV#k*(K}>FA(QaGpzu}j9z{;7N?YU)o1Fc+nA(PfPe%G-K z333D&f-EAw9qp%ZsH#o5k|gG~Gegucvme>s&a$EkBqfoX6w%hsayuzT%zA#s`oOJ% zuh?XGx$Y}8DxjZUVqXJ&=WBloWF*FKz=FkxF0*=y_mK8EE;(Ye+4YfA>Ah z*AM@b(eN_=53z6w})13{lT{IVAUTemg*76rTdHAd0&I4n^@l0(d*|8Q`wWP7y~t z@e-``>MYsjb>`zhuq7mlbDen^2*zlsW~CqW9>`r?)PT)VUHBw$Z0N#~B=KDr@<2?E zA=Too7*Ztie?;>b8OujPX?(9lu_~53Fs&-f6qjSU4ICDQPXJh{@ELJRg>C!<$M{-MkBHt89Ip^@wFiZzP1%?( z8hY~KSb4H1M|0BVc1;z@@svj`<4skpi0Ap3u3eukPQ>$3n3~_|BL?;2!yr=CizkTI zUc3hLqrGHOn|CLP!URqiWNU)7`$+=F5fh^mr87?@%FO*};b}rmlDj`ANm7<&@Fa0D ziF-OLmJ#`8(WLTpt>S7oF*%v%LBXnIUJGy`nNI_7rbw_YMF!O=Rch^#!ZO7-Sv*Fp zPUSL%RQC z4NDc?Ou3tDGo|dcOli9!i=#b>?O8I~xNM2d%9c{cvSqorm*e19^p@I1Z<+ry_p$W# zDs82>SLK=F7M0U8;VD(B=6$5YKua^oB3)vTs@n{b=IYBQf>yPkWr)}M zN((XlWLmGh!%{?JKN;=Q{dlrC(T~bf*uFp(Zpz`+nD@% z;6#^s>|VFG+UYLEU-ER+$Ef)5;I8z#CzN_USXOHz2xXqq3NOB9_z9xI#4};!4nKI% zBoFlaCYh%`!+7td_Ofcb+fiosdQ2vKLohBj;*&;6aanDJtghn7R%Zv|v6glqZma#*kW#3N;ET`@p*zBA$RE=^CIufkL|iU!Nm5Lz zv8v8n>rg#qZj(A(9c}_?T`q4<{uh#EsGpWPkb5(OiLEKmN9JsG?%MnkTa62;g!I)S zp4_>v+JPx0OuRafcVBwrM1^~4^Ll04WY+8mlhP&;N(`kUt!MttiJ3 zp&>$dgw>9{3MT5lJU;IRiRzlq7v3mQ8$d%L#Sh|%05TJfL0tWfOdtsQ$v~{KV8Re8 z6G^dw;te4vvQQ@MKth?g4hgUg$T8TEm{2aQUc0*kv3q5u!jOnF^S(=|c>Q%4G+s)! z{fOP;4ss*Cb~owuQ=B%NE95W=*&TArW3@X&2uj!4;l0&a8j`WQop!|8FJRT{vC?Vs zXGRtUA;AqgY35BxvCYEq+!u8gJ~Wu{Z5CdD`DYeh^ecHEqFP4C04buN_CVtOroux9 zhuo6@#ZL+%k`zKh0ZP4)0%a*>62IbrAyhhkA**2&$>taG%S5OnAA*L65JJM8lY}5e z609O+C{Oe6r!){r4QMQvqyXXy*XRnjl zGDB=PG8FDYc#t8tZxkd629?^v5qWlk6l+Ns+rQK|o!?-PR_Ze$#7gZXJjkWLLIQt; zP`J8?ii~i94tCH`q}!4JJArd9@7Zy->Y6-fwO8a1;{$)?Ob4%Dzlng8GK~QnHorYT z#cnO_=wMFlawuju>bL`ePzZ6_Tv7+JfnI92hcyCQc^HBg8@$@r4-ZsjskM}n;x8Sq zi^{`~*eWVIy0G2lEen~02<6_-27c<7egw0Q41=dM#D-ny=*4tdz>(a5)lylM0R-*d z??NcW^1URyNj#hWhWp2GJ^=kQX#_6>m^*@}ic3j6)<4e;ENOGDMn}_A8UhDL@H8xc zI)bO;lb`?fCGZAL?c&F(ge{gO^)47}8BG5X@-u|JBAi|iUT5+Np;@otyFek&fWAK# z@>E4J+Db}ly{G_jegfWpN~Y}hrwaK9u=FhA7J%X+z9UNUtH9q${(HCLX0H53tx!hs zle>cSbnHq5LYo=7pZ@O%ULX-d5xOG~>5TLzc)|4?$@?Lep(FWSH+pRx9LX1eCGgsC zkK&6uurs50>y6~(lh#&k|E>4z;Oj2Q&|~ud<#AgTcw+dEMR_irYfdH}vVn9R|L7zG@ zj=)um0TfXOmk|V8y{M?TjVlm7Q4tXY(I+Yj&(WFjjWWMey(AfAzW06a^&fTaug+5E zoH}*tcK7-Vz2CUd+iWg#xhuV{9CxM1l~d_;`?SGzE=O5|W1PpOWmI|_Ty>tx`kIXO zQL)uoCNqmUA<*C|(=zgHIb|)=bMmZKt7fy6Sgj@2ybR5pF}-#E!fWQW%+OjFXc^iK zW%X4n#w=`WozpVCeeC>}8S`4M&$krl-%w(1UX}?G#W{|JZ9y|dC01KWKFqYWgw0H! zJ#E3PmTQNWNG(xhHrH2KoE1J_z01=(tXD!JuEU^}3bPq`1O9}D+#@o0&t)L*k$XcWY9nwtgt#B$iQDoKqic?wI!nT$r z*R(FaRyi@WM9avt<&2-UAg4HAv*mHV@<(Qv{!N0ClT4M~$_7h)m8-#7VR3m})h=&C zy;f3IWb&tr9noa+AB;UJ$fQ4(a0kYs#Ab}^6JN(TA!!`OO-ZenVcRsTCewR}SUod& z5@v5qZiMOw$%O>aKXp3Bw$v9eWgR@E2S`JDDUA9z3>gjq{|lK(IZY5zd%l=PNyx*3!hrRhKy8>hWhz~HnQ<>#%hKi4$N!LZRxe;jO_e@j)G^o|S=g67yrO6~#`8r8(Z8zrH}FtD zHHPC|SPIwuhf7P?kpWjkveU_qflNj?@9zP(^wkx48_M5g6@lGWtZTeaD5@yN-EeV|nO9;M6lo-@8hOf}eDuWN$OsXwtS zRv*-|0{ZJ(Ossg{%u^Uw&w3W)@r`5r*Uir6=?AabgK_tcBz?)8BarsZ9mvz$9+~BT zV_r{A-@6O)Fyp__dW^Hpi;ms*ynd?P479GLR-e51F+4>q;b7aAv~i}bIf?p(B~M}E zsq5BY+`S`4uUfhTPk&#!H;CW9p10z@Wk`d5)eY=b!g7QwTW3?O{?_tsn3%glV&NVu z=ObGGqBW;c5&ovzZe?=(j+yM6Yu$GC_M7zx!vDt&1w8lhT^fk~k9$^QTq&nwJRyH! zosAPYkm614th00T^#JBAZ!`G*-f0+D6({)T-#0lJra$(9Vayxz;3kagTCUZ{KeQH4 z8=Euye|tzWYu)xk7=3e__2(Y`0@k)Y@;|)vy?=TFWA)=FFy`#I3FGb^C@KGSJNvNK z>L<tTV752l#fj3KG z!r$-ho7nkv?-~FV`?I*j+73+t=r}Z!*C>4NQ`JE7G`T2FMEk9W)gH(XHnDo%k?pMh z(a{ev?*8~ujFXOi0!HyCydVCFC!S#=Q74fP|J^4~Gw3*7=6~_CC|2({t*U(R7xR#Q z|JpNad-UdVwrO6UzHNW9UVN5q#eX}DZH+x=W%btcw*dTjeiVb8?>7MK`+jI&kS~7z zJ>>3QO#cAKH+Qt$L9`dn!=P2)^+=3?Pj_gINL7wSFXh<^qGQuiGp9osc%v<`< zb%4M0q5s4R#?6tm4phdPXg|njCR&8q#{Tp*3p=6+du&7uqAC`ykERGjA}7Vss~~Cd zynu06JblI7Rf)u%K;D%^XkJXRWK}ZF!1JzT_JMa;ew0EeIN6d)C)}1k49rQGM^@4BaK;wQ~`I4T_v=ErJZBQ&0gO= zme8L$@Kod6SZZOHo5s;Ji0m0hXIXT68U2x|$4y+mvZ}?b22&+z;Li3p(yqd-#I5}vB3b}3uog~x4BU^}73uYoxlkw(E;ugVe z<$l0{*H9avanl^)%Tiu7pMDQ`c0TPy=qMG3{A3ZW=*6XyuPWu*Hu?)2nB7iOK>pmW z3Z`N)jfbATn3~w!S4+sv)V7qK235P4w~TNIjAP4)?^YvbIVIx2OUoLn0bI3)He*^Q z-%Q&8k)Nm8AI_73tp370bcLTlZogd_8o8DZ@@&sL2&dNAa|gN53XESiz#gdYE?UTR z-`%Jdhz*i-Q)fhT;_+HC&ev?I^wu;sxV`Gd0WpqLG0xjaeR=ikHo<+9%-KvnkQJM$ z8RUb_bQMU!7LGsEiDHe8E%Y(B2E#_hCjk~R2H%yr9WT>i77EI zJWA#4V)>tlFLPPG9oaD~$L2 zbd>jf=N@_i)AOFih665mj+ZieKTjhV7VITE$hR+0vvFWArLhHoDa`Y{L~}v*yrlfZ z^<=EsM+3pZt)3>Ie3^Dac-kuzhph0GYdrWG-=`$j8}P?0FeXBsCLo}pA>D`pTYvP^RO8OrWyGUMs}Gn9_-{(6S4MhYf;g{B60|JU>l z;2q!KaE5#}&Ypz~W~;xW7EZhWyxPk9{+lv*`sMGDV$exH&?YYFAO9ApCSZ$E`xEVD zo&G$B}$CaE&Jo7eUNfz!ywV5+mFS|3xjwqIW}5ctuH(iFQ1AQUf>=v%E6Wx75K|G zktjcp5!F3;f8?`;LX%CgtauN;LCMErmCoN|1^3CiIMD#|aGZ)XGG39^copJX@yebx zK}r5LL7{UAO2L(=(mExN66A}Cq7pWGCny)9RYp2e)vj0uiy89J5{i`%4;Hm@;2NB@L1}8y z$!WqX@4K0j<-JKFQg)_! zQrVuNVlWL66XC@>e}&zfhNy-14^c;D_Y*Wkj?EO@q-!%pjMOug!yjiV#i$rDSWX?P zDr?J7rTE2A(I8Bdb=#sCSu;#2t{GwDW<;7M!_9J6gC)OC z)|!#QJI$gn!ep+ianxR+?|wE$o-~X2!r(;cTWz%uKZbb9wFdkypd>k1OgS1o4VG~Z zXO+|E@ztU6{QC(q!M^!o*V}MC>Zl&-FXSnO{|-Nfa%O%TQ%%Y)`~0>e*cgi!$n&x*LiKDufe5xD?M3S zp;nj$)`V=q7xkhsA_nA>Y}HM2Mu?=8Ur7)D6w_Gef?5soFu;YM32N$Hl}?{GD+}!@ zoRF?LaQJ*GJt{j+#KY-PfD^#!QGg$KLID=xj9d)5iFGp&G#yMxw^cj$B$SZK9C7U> z5^^X<;G01xAwV&*%_649U6ejs0q2hsA^Ya4J0ToDT<4E+->%A`3*aJ990xeQFhB`~ z<97mt{+IDvMb(*qC{T-E7Qb%=#zN3Iy6>NHSgp~cI2?Er9kJt66#8Rbq7 z8xC;X4o5}UVU(#S?3UN=bcX>d(;arpX?K^0b(|iz6LE&O#cSuY63C1y1qPvQxyLG6 z|8-leS`p_t$tDW0El4-69^JHiu-s=8DLqUXW_dDSL_RKdv5yM^R5w2MtAB-cky1Bv>_f;LGs2*&bBe(nc_=@$iOOt9S_y|h zm0|^rR&=#f(RGE2u0d9G7Mh*623jEl_Dco{xlsHUDRl|5`$FAZ=;~b9?f+Gfs%k?% zcI~xxY(r-n!{v{b3{Lo*DbN`tIH+|MG4Es7odgK6E>^naLS0?x8f4h*O9jb_q1-#V z0(D?Q9D7+8v45#*KD434*txlcft`Cu*C1E@3Jdbxl)9P=*CA)Kn+trJLko3xTQRUs z@Nk>?ABQGKU44$b&L^kX#30#glt{vv4!6yK;h<|Oc|psLz$yWb(_Y@$tlZe!aHJko zZzq6K7`Po3%7)5;)7jF3ZA%fdpYMKa4dWkTonP}sIKOg8+5C} zR~cRpDxC5F2O``X0{~B~64J4khsBWm&c4eR1A1uadM{VC7*N7(7IY!hHrE!4VaVf? zh2nCMqlKavKd=SfZRFNimE%!GB0KzQlzu)z-dH4hC5NQ&2IQ!#^G&e0yk!>r`_PDn zdw-Eqe7;De!RW_DA|2%CA`u@lBhx;^i{J8OC01K362PBRENmcKibYXSOp_@o0^fIK zM2UF3uPOY}g}2XOKTnIqj~5reLvWJtQCUa$omuY&_?`*hHUDQ2G#$)(w}q55%AZiy z-ybb95!X+n1%K}kzChhFMl8P6t3p(%Sb8bm)>6SglmxA)mx}7KqA#X!I$~Dk^P6Sx z6R5-RJKq1xJ7?f^BUoQu%N1)Pt9ikF0O~AW0Iv725