(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Aug-2022 09:57:44" ("compiled on " {DSK}larry>medley>library>SKETCHELEMENTS.;2) " 4-Aug-2022 07:48:40" brecompiled exprs%: CREATE.SKETCH.ELEMENT.TYPE in "Welcome to Fuller sysout 4-Aug-2022 ..." dated " 4-Aug-2022 07:52:56") (FILECREATED " 4-Aug-2022 09:57:43" {DSK}larry>medley>library>SKETCHELEMENTS.;2 554099 :CHANGES-TO (FNS CREATE.SKETCH.ELEMENT.TYPE) :PREVIOUS-DATE "21-Aug-2021 20:49:42" {DSK}larry>medley>library>SKETCHELEMENTS.;1) INIT.SKETCH.ELEMENTS :D8 (F 0 CIRCLEICON F 1 ELLIPSEICON F 2 ARCICON F 3 CLOSEDWIREICON F 4 OPENCURVEICON F 5 BOXICON F 6 CLOSEDCURVEICON F 7 WIREICON F 8 TEXTBOXICON) › g ³QgPogggggggghgggg ¿g ³QgQogggggggghgggg ¿g ³QgRogggggggghgggg ¿g ³QgTogggggggghgggg ¿g ³QgVogggggggghgggg ¿g ³RgWogggggggghgggg ¿g ³QgSogggggggghgggg ¿g ³Ughoggggggggggggg ¿g ³QgUogggggggghgggg ¿g ³VgWoggggggggggggg h(918 CREATE.SKETCH.ELEMENT.TYPE 833 SKETCH.ELEMENT.TYPEP 822 CREATE.SKETCH.ELEMENT.TYPE 742 SKETCH.ELEMENT.TYPEP 731 CREATE.SKETCH.ELEMENT.TYPE 647 SKETCH.ELEMENT.TYPEP 636 CREATE.SKETCH.ELEMENT.TYPE 556 SKETCH.ELEMENT.TYPEP 545 CREATE.SKETCH.ELEMENT.TYPE 464 SKETCH.ELEMENT.TYPEP 453 CREATE.SKETCH.ELEMENT.TYPE 373 SKETCH.ELEMENT.TYPEP 362 CREATE.SKETCH.ELEMENT.TYPE 282 SKETCH.ELEMENT.TYPEP 271 CREATE.SKETCH.ELEMENT.TYPE 191 SKETCH.ELEMENT.TYPEP 180 CREATE.SKETCH.ELEMENT.TYPE 100 SKETCH.ELEMENT.TYPEP 89 CREATE.SKETCH.ELEMENT.TYPE 9 SKETCH.ELEMENT.TYPEP) (912 TEXTBOX.GLOBALREGIONFN 907 TEXTBOX.TRANSLATEPTSFN 902 TEXTBOX.TRANSFORMFN 897 TEXTBOX.READCHANGEFN 892 TEXTBOX.UPDATEFN 887 TEXTBOX.TRANSLATEFN 882 TEXTBOX.REGIONFN 877 TEXTBOX.INSIDEFN 872 TEXTBOX.INPUTFN 867 SK.ELEMENTS.CHANGEFN 862 OBSOLETE 857 TEXTBOX.EXPANDFN 852 TEXTBOX.DRAWFN 840 TEXTBOX 828 TEXTBOX 816 SK.BOX.GLOBALREGIONFN 811 SK.BOX.TRANSLATEPTSFN 806 SK.BOX.TRANSFORMFN 801 SK.BOX.READCHANGEFN 795 SK.BOX.TRANSLATEFN 790 SK.BOX.REGIONFN 785 SK.BOX.INSIDEFN 780 SK.BOX.INPUTFN 775 SK.ELEMENTS.CHANGEFN 770 OBSOLETE 765 SK.BOX.EXPANDFN 760 SK.BOX.DRAWFN 749 BOX 737 BOX 725 TEXT.GLOBALREGIONFN 720 TEXT.TRANSLATEPTSFN 715 TEXT.TRANSFORMFN 710 TEXT.READCHANGEFN 705 TEXT.UPDATEFN 700 TEXT.TRANSLATEFN 695 TEXT.REGIONFN 690 TEXT.INSIDEFN 685 TEXT.INPUTFN 680 SK.ELEMENTS.CHANGEFN 675 OBSOLETE 670 TEXT.EXPANDFN 665 TEXT.DRAWFN 654 TEXT 642 TEXT 630 CLOSEDWIRE.GLOBALREGIONFN 625 CLOSEDWIRE.TRANSLATEPTSFN 620 CLOSEDWIRE.TRANSFORMFN 615 CLOSEDWIRE.READCHANGEFN 609 KNOTS.TRANSLATEFN 604 CLOSEDWIRE.REGIONFN 599 KNOTS.INSIDEFN 594 CLOSED.WIRE.INPUTFN 589 SK.ELEMENTS.CHANGEFN 584 OBSOLETE 579 CLOSEDWIRE.EXPANDFN 574 CLOSED.WIRE.DRAWFN 563 CLOSEDWIRE 551 CLOSEDWIRE 539 OPENWIRE.GLOBALREGIONFN 534 OPENWIRE.TRANSLATEPTSFN 529 OPENWIRE.TRANSFORMFN 524 OPENCURVE.READCHANGEFN 518 OPENWIRE.TRANSLATEFN 513 KNOTS.REGIONFN 508 KNOTS.INSIDEFN 503 WIRE.INPUTFN 498 SK.ELEMENTS.CHANGEFN 493 OBSOLETE 488 WIRE.EXPANDFN 483 OPEN.WIRE.DRAWFN 471 WIRE 459 WIRE 447 CLOSEDCURVE.GLOBALREGIONFN 442 CLOSEDCURVE.TRANSLATEPTSFN 437 CLOSEDCURVE.TRANSFORMFN 432 CLOSEDCURVE.READCHANGEFN 426 KNOTS.TRANSLATEFN 421 CLOSEDCURVE.REGIONFN 416 KNOTS.INSIDEFN 411 CLOSEDCURVE.INPUTFN 406 SK.ELEMENTS.CHANGEFN 401 OBSOLETE 396 CLOSEDCURVE.EXPANDFN 391 CLOSEDCURVE.DRAWFN 380 CLOSEDCURVE 368 CLOSEDCURVE 356 OPENCURVE.GLOBALREGIONFN 351 OPENCURVE.TRANSLATEPTSFN 346 OPENCURVE.TRANSFORMFN 341 OPENCURVE.READCHANGEFN 335 OPENCURVE.TRANSLATEFN 330 CURVE.REGIONFN 325 KNOTS.INSIDEFN 320 OPENCURVE.INPUTFN 315 SK.ELEMENTS.CHANGEFN 310 OBSOLETE 305 OPENCURVE.EXPANDFN 300 OPENCURVE.DRAWFN 289 OPENCURVE 277 OPENCURVE 265 ARC.GLOBALREGIONFN 260 ARC.TRANSLATEPTS 255 ARC.TRANSFORMFN 250 ARC.READCHANGEFN 244 ARC.TRANSLATE 239 ARC.REGIONFN 234 ARC.INSIDEFN 229 ARC.INPUTFN 224 SK.ELEMENTS.CHANGEFN 219 OBSOLETE 214 ARC.EXPANDFN 209 ARC.DRAWFN 198 ARC 186 ARC 174 ELLIPSE.GLOBALREGIONFN 169 ELLIPSE.TRANSLATEPTS 164 ELLIPSE.TRANSFORMFN 159 SK.BRUSH.READCHANGE 153 ELLIPSE.TRANSLATEFN 148 ELLIPSE.REGIONFN 143 ELLIPSE.INSIDEFN 138 ELLIPSE.INPUTFN 133 SK.ELEMENTS.CHANGEFN 128 OBSOLETE 123 ELLIPSE.EXPANDFN 118 ELLIPSE.DRAWFN 107 ELLIPSE 95 ELLIPSE 83 CIRCLE.GLOBALREGIONFN 78 CIRCLE.TRANSLATEPTS 73 CIRCLE.TRANSFORMFN 68 CIRCLE.READCHANGEFN 62 CIRCLE.TRANSLATE 57 CIRCLE.REGIONFN 52 CIRCLE.INSIDEFN 47 CIRCLE.INPUTFN 42 SK.ELEMENTS.CHANGEFN 37 OBSOLETE 32 CIRCLE.EXPANDFN 27 CIRCLE.DRAWFN 16 CIRCLE 4 CIRCLE) ( 847 "Adds a box into which text can be typed." 755 "Adds a box by accepting two corners." 660 "text is added by pointing to its position and typing." 569 "Adds a closed polygon by accepting the corners." 478 "Adds a series of lines by accepting points." 386 "Adds a closed curve by accepting points that it goes though." 295 "Adds a curve by accepting points the curve goes through." 204 "Adds an arc to the figure." 113 "Adds an ellipse to the figure." 22 "Adds a circle to the figure.") CREATE.SKETCH.ELEMENT.TYPE :D8 (I 15 GLOBALREGIONFN I 14 TRANSLATEPTSFN I 13 TRANSFORMFN I 12 READCHANGEFN I 11 UPDATEFN I 10 TRANSLATEFN I 9 REGIONFN I 8 INSIDEFN I 7 INPUTFN I 6 CHANGEFN I 5 OBSOLETE I 4 EXPANDFN I 3 DRAWFN I 2 DOCSTR I 1 LABEL I 0 SKETCHTYPE) ®Eµ‚±ˆ@g`dA¿dB¿dC¿dD¿dF ¿dG¿dG¿dG¿dG¿dG¿dG¿dG¿dG¿dG¿`@d` «`@gð’±ÿtEi ¿oi ¿±ÿ](168 PRIN1 156 PRIN1 125 MEMB 102 PUTPROP) (144 OBSOLETE 137 SKETCH.ELEMENT.TYPE.NAMES 131 SKETCH.ELEMENT.TYPE.NAMES 120 SKETCH.ELEMENT.TYPE.NAMES 113 SKETCH.ELEMENT.TYPES 107 SKETCH.ELEMENT.TYPES 17 |SKETCHTYPETYPE#| 12 SKETCHTYPE) ( 162 " will never be called. CREATE.SKETCH.ELEMENT.TYPE") SKETCH.ELEMENT.TYPEP :D8 (I 0 SKETCHTYPE) @` ´ @g (23 GETPROP 10 MEMB) (18 SKETCHTYPE 5 SKETCH.ELEMENT.TYPE.NAMES) () SKETCH.ELEMENT.NAMEP :D8 (L (0 X)) @`NIL (5 SKETCH.ELEMENT.TYPE.NAMES) () \CURSOR.IN.MIDDLE.MENU :D8 (I 0 MENU) 1@`@ l×Õ`@ l×Õ (46 MENU 36 BITMAPHEIGHT 31 CHECK/MENU/IMAGE 16 BITMAPWIDTH 11 CHECK/MENU/IMAGE) (25 LASTMOUSEY 5 LASTMOUSEX) () SKETCHINCOLORP :D8 NIL `NIL (4 SKETCHINCOLORFLG) () READ.COLOR.CHANGE :D8 (I 2 CURRENTCOLOR I 1 ALLOWNONEFLG I 0 MSG) @AB(7 READCOLOR1) NIL () SK.CREATE.DEFAULT.FILLING :D8 (F 0 SK.DEFAULT.OPERATION) ``PhNIL (9 SK.DEFAULT.BACKCOLOR 4 SK.DEFAULT.TEXTURE) () SKFILLINGP :D8 (I 0 FILLING) @´@ ´ @¡@h(10 TEXTUREP) NIL () SK.INSURE.FILLING :D8 (P 0 DEFAULTFILLING I 1 SKW I 0 FILLING) e@ µ*A ²Ag „@µH Ÿ@HHH@ žH@HH@ (98 \ILLEGAL.ARG 76 \POSSIBLECOLOR 53 TEXTUREP 40 SK.CREATE.DEFAULT.FILLING 26 GETWINDOWUSERPROP 13 WINDOWP 5 SKFILLINGP) (21 SKETCHCONTEXT) () SK.INSURE.COLOR :D8 (I 0 COLOR) @dœ µ@ (15 \ILLEGAL.ARG 7 \POSSIBLECOLOR) NIL () SK.TRANSLATE.MODE :D8 (I 1 STREAM I 0 OPERATION) 4hA gð²$@dgð•ggð•gg@(6 DSPOPERATION) (47 ERASE 41 PAINT 34 ERASE 28 INVERT 21 INVERT 11 ERASE) () SK.CHANGE.FILLING.MODE :D8 (P 5 NEWELT P 4 TYPE P 3 NEWFILLING P 2 FILLING P 1 MODE P 0 GFILLEDELT I 2 SKW I 1 HOW I 0 ELTWITHFILLING) ¾p@\o ´‚±¥@XLdgð™¿d°?dgðž¿H°(gð™H°Lgð—H„ZYAIô’±FJJAJ[Ldgð²+¿gHHHHKH±ígð²agHHHHHHHHHKH±†Ldgð²4¿gHHHHKHH°Igð²`Ã’±`do¿oWoohWoohWoohWoohh HdI¿di¿dg ¿dg¿jdnÿdhHdI ¿¿d²0` Zdgð²q¿@1KµAo ¿hd³Z\^dgð”¿N°dgð•¿Nˆgð´N]µK[°¶dš¿gM°¸²ëgM°©d²ªh(218 STATUSPRINT 188 \CURSOR.IN.MIDDLE.MENU 175 READ.ARROWHEAD.END 107 \APPEND2) (303 SAME 289 SAME 264 WIRE 251 ARC 238 OPENCURVE 195 SAME 183 SK.ARROW.EDIT.MENU 166 SK.ARROW.EDIT.MENU 137 DEFAULTMENUHELDFN 128 CLRPROMPT 18 |MENUTYPE#| 9 MENU 4 SK.ARROW.EDIT.MENU) ( 213 "None of the selected elements have arrowheads." 93 "makes a solid triangular arrowhead." 88 (QUOTE SOLID) 77 "Makes the head be two sides and a base." 72 (QUOTE CLOSED) 61 "Makes the arrowhead have curved side lines." 56 (QUOTE OPENCURVE) 45 "Makes the head be the side lines only." 40 (QUOTE OPEN) 33 ((Add% Arrow (QUOTE ADD) "Adds an arrow head.") ("Remove Arrow" (QUOTE DELETE) "Removes the arrow head.") ("Same as First" (QUOTE SAME) "Makes all of the arrowheads be the same as the first one selected.") (Wider (QUOTE WIDER) "Makes the angle of the head wider.") (Narrower (QUOTE NARROWER) "Makes the angle of the head smaller.") (Larger (QUOTE LARGER) "Makes the arrow head larger.") (Smaller (QUOTE SMALLER) "Makes the arrow head smaller.")) 25 "specify change") CHANGE.ELTS.ARROWHEADS :D8 (P 3 ARROWELT I 2 SKW I 1 ELTSWITHARROWS I 0 CHANGESPEC) &@´#@A°d[@B¸IµHhZH&¹µèJ(18 SK.CHANGE.ARROWHEADS) NIL () SKETCH.CREATE.CLOSED.WIRE :D8 (I 4 SCALE I 3 FILLING I 2 DASHING I 1 BRUSH I 0 POINTS) ,@ A B iD3µohC (41 SK.WIRE.CREATE 35 SK.INSURE.FILLING 17 SK.INSURE.DASHING 11 SK.INSURE.BRUSH 5 SK.INSURE.POINT.LIST) NIL ( 28 1.0) CLOSED.WIRE.INPUTFN :D8 (I 1 PTLIST I 0 W) @Ai(7 WIRE.INPUTFN) NIL () CLOSED.WIRE.DRAWFN :D8 (P 2 VARX P 1 LOCALPART P 0 GINDVELT I 3 OPERATION I 2 REG I 1 WIN I 0 CLOSEDWIREELT) k@@IZd¤d²7I`‘J‹Jµ J AhA gð•gƒJ¿IZjð³@ABCiHJ h(103 WB.DRAWLINE 74 FILLPOLYGON 52 DSPOPERATION 44 TEXTUREOFCOLOR) (64 ERASE 57 ERASE 29 SKETCHINCOLORFLG) () CLOSEDWIRE.READCHANGEFN :D8 (P 1 HOW P 0 ASPECT I 1 SCRNELTS I 0 SKW F 4 FILLPOLYGONFLG F 5 FILLINGMODEFLG) +@`di¿do¿´oT´oU´oo ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ Xdgðž¿oi ±–gð—±‡Hdgð—¿°ugð–°gHdgð—¿°Vgð²ohAg °1Hdgðš¿A@ °$gð´oiAg Yd´HIh(287 READ.COLOR.CHANGE 280 GETSKETCHELEMENTPROP 251 READ.POINT.TO.ADD 230 GETSKETCHELEMENTPROP 201 READBRUSHSHAPE 184 READ.DASHING.CHANGE 170 READ.FILLING.MODE 152 READ.FILLING.CHANGE 137 READSIZECHANGE 116 \CURSOR.IN.MIDDLE.MENU 70 \APPEND2 65 \APPEND2 60 \APPEND2 27 SKETCHINCOLORP) (275 FILLING 258 FILLINGCOLOR 240 ADDPOINT 225 BRUSH 208 BRUSHCOLOR 193 SHAPE 177 DASHING 162 FILLINGMODE 145 FILLING 123 SIZE 91 DEFAULTMENUHELDFN 82 CLRPROMPT 7 |MENUTYPE#|) ( 266 "Change filling color how?" 216 "Change outline color how?" 131 "Change size how?" 55 ((Shape (QUOTE SHAPE) "changes the shape of the brush") (Size (QUOTE SIZE) "changes the size of the brush") (Dashing (QUOTE DASHING) "changes the dashing of the line.") ("Add point" (QUOTE ADDPOINT) "adds a point to the curve.")) 50 (("Filling mode" (QUOTE FILLINGMODE) "changes how the filling effects the figures it covers.")) 42 ((Filling (QUOTE FILLING) "allows changing of the filling texture of the box.")) 34 (("Brush color" (QUOTE BRUSHCOLOR) "changes the color of the outline") ("Filling color" (QUOTE FILLINGCOLOR) "changes the color of the filling")) 19 "Which aspect?") CLOSEDWIRE.TRANSFORMFN :D8 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) a@@@@@gHABHC HHHhH@ (94 KNOT.SET.SCALE.FIELD 50 SK.TRANSFORM.BRUSH 40 SK.TRANSFORM.POINT.LIST) (30 CLOSEDWIRE) () CLOSEDWIRE.TRANSLATEPTSFN :D8 (P 7 LATLONPT P 6 PT P 0 GKNOTELT I 3 WINDOW I 2 GDELTA I 1 SELPTS I 0 KNOTELT) j@H@RJµ…¾Iµ#KHHiHhH _¿NA ˜OB O½LµMh\»JºI¹°®M&¼°õ(79 PTPLUS 70 MEMBER 58 SK.WIRE.CREATE) NIL () SK.EXPAND.ARROWHEADS :D8 (P 3 ARROWHEAD I 1 SCALE I 0 GARROWHEADPOINTS) "@@°d[A ¸IµHhZH&¹µéJ(14 SK.EXPAND.ARROWHEAD) NIL () SK.COMPUTE.ARC.ARROWHEAD.POINTS :D8 (P 0 SPEC I 4 DIRECTION I 3 ARCANGLEPT I 2 RADPT I 1 CENTERPT I 0 ARROWSPEC) <@d²5X´ABDHHH @X´ACDhðHHH h(54 ARC.ARROWHEAD.POINTS 28 ARC.ARROWHEAD.POINTS) NIL () ARC.ARROWHEAD.POINTS :D8 (I 5 HEAD.TYPE I 4 HEAD.LENGTH I 3 HEAD.ANGLE I 2 CLOCKWISEFLG I 1 ENDPT I 0 CENTERPT) $ACDB’mÿ€kA@ÕÖB‘kmÿA@ÕÖE (33 ARROWHEAD.POINTS.LIST) NIL () SET.ARC.ARROWHEAD.POINTS :D8 (P 0 ARROWSPECS I 0 INDVDARCELT) Q@H²B@g g¿@H@@@ @ @(76 SK.COMPUTE.ARC.ARROWHEAD.POINTS 60 \SK.GET.ARC.ANGLEPT 34 SK.INSURE.HAS.LENGTH 24 SK.RECORD.LENGTH) (29 ARC 19 ARC) () SET.OPENCURVE.ARROWHEAD.POINTS :D8 (P 0 ARROWSPECS I 0 INDVOPENCURVEELT) 7@H²*@g g¿@H@ @(50 SK.COMPUTE.CURVE.ARROWHEAD.POINTS 32 SK.INSURE.HAS.LENGTH 22 SK.RECORD.LENGTH) (27 OPENCURVE 17 OPENCURVE) () SK.COMPUTE.CURVE.ARROWHEAD.POINTS :D8 (P 0 SPEC I 1 KNOTS I 0 ARROWSPEC) 8@d²1X´AiHHH @X´AhHHH h(50 CURVE.ARROWHEAD.POINTS 27 CURVE.ARROWHEAD.POINTS) NIL () SET.WIRE.ARROWHEAD.POINTS :D8 (P 0 ARROWSPECS I 0 INDVWIREELT) 6@H²*@g g¿@H@ @(49 SK.COMPUTE.WIRE.ARROWHEAD.POINTS 31 SK.INSURE.HAS.LENGTH 21 SK.RECORD.LENGTH) (26 WIRE 16 WIRE) () SK.COMPUTE.WIRE.ARROWHEAD.POINTS :D8 (P 0 SPEC I 1 KNOTS I 0 ARROWSPEC) 8@d²1X´AiHHH @X´AhHHH h(50 WIRE.ARROWHEAD.POINTS 27 WIRE.ARROWHEAD.POINTS) NIL () SK.EXPAND.ARROWHEAD :D8 (P 7 PTLST P 3 PT I 1 SCALE I 0 ARROWHEAD) ‚@d²~A @ ²)0@°dKA ¸IµHhZH&¹µåJ°E@@°9d_¿0O°dKA ¸IµHhZH&¹µåJ¼MµLh^L&½µÇN(89 SK.SCALE.POSITION.INTO.VIEWER 38 SK.SCALE.POSITION.INTO.VIEWER 18 POSITIONP 10 SK.SCALE.POSITION.INTO.VIEWER) NIL () CHANGED.ARROW :D8 (I 3 DEFARROW I 2 SCALE I 1 HOWTOCHANGE I 0 ARROW F 1 SK.ARROWHEAD.ANGLE.INCREMENT F 2 SK.ARROWHEAD.LENGTH.INCREMENT) *Adgð›¿@µ CB gð¡@¡hAdgð—h gð²@Q@Ô@@Adgð²¿@@QÕ@@gð²@@RBÖ@Ô@Adgð²#¿@@@RBÖÕHBó‘H€B@gð²g@@@Adgð²¿g@@@gð²g@@@Agð²g@@@@(48 \APPEND2 19 SK.CREATE.ARROWHEAD) (279 CURVE 271 OPENCURVE 250 SOLID 242 SOLID 222 CLOSEDLINE 213 CLOSED 191 LINE 183 OPEN 142 SMALLER 111 LARGER 83 NARROWER 54 WIDER 39 SAME 25 DELETE 6 ADD) () SK.CHANGE.ARROWHEAD :D8 (I 2 SKW I 1 HOW I 0 ARROWELT) #@AAB Bg (32 SK.CHANGE.ARROWHEAD1 22 GETWINDOWUSERPROP 11 SK.INPUT.SCALE) (17 SKETCHCONTEXT) () SK.CHANGE.ARROWHEAD1 :D8 (P 14 END P 13 NEWARROW P 12 ARROW P 5 KNOTS P 4 TYPE P 3 CHANGEDFLG P 2 NOWARROWS P 1 NEWARROWS P 0 INDGARROWELT I 4 DEFAULTARROWHEAD I 3 SCALE I 2 HOWTOCHANGE I 1 WHICHEND I 0 GARROWELT) óp@\o ´‚±Ü@XLdgð“¿dŒgð”H€HµoZLgðHH h‚H]oJbOµˆ_¿OµbOYK´‚±uh¾@Ldgð¢±”¿gHHIHHHHH ± _¿AOMšOBCDO_Oô¡i»O_¿OµOh__¿O_¿O_¿±ÿPO&_¿°ëgð²igHHHHHIHHHHH °QLgð²CgHHHIHHHH „h¾@NgIJh(477 SHOULDNT 471 SET.OPENCURVE.ARROWHEAD.POINTS 396 SET.ARC.ARROWHEAD.POINTS 235 CHANGED.ARROW 224 SK.ARROWHEAD.END.TEST 208 SET.WIRE.ARROWHEAD.POINTS 83 \SK.GET.ARC.ANGLEPT 17 MEMB) (488 ARROWHEADS 412 OPENCURVE 404 OPENCURVE 300 ARC 292 ARC 148 WIRE 137 WIRE 71 ARC 45 ARC 34 OPENCURVE) ( 96 (FIRST LAST) 64 (NIL NIL T) 12 (WIRE OPENCURVE ARC)) SK.CREATE.ARROWHEAD :D8 (I 1 SCALE I 0 DEFAULTARROWHEAD) @@@AÖ@NIL NIL () SK.ARROWHEAD.CREATE :D8 (P 5 END P 1 ARROWHEADWHERE P 0 SKCONTEXT I 1 KNOTS I 0 SKW) h@g HYdo ³D@o°,d½IMA´H@ ºKµJh\J&»µÕLih h(99 \NCONC2 73 SK.CREATE.ARROWHEAD 68 SK.INPUT.SCALE 55 SK.ARROWHEAD.END.TEST 32 MEMB 10 GETWINDOWUSERPROP) (5 SKETCHCONTEXT) ( 42 (FIRST LAST) 27 (NIL NEITHER)) SK.ARROWHEAD.END.TEST :D8 (I 2 KNOTS I 1 END I 0 WHICHENDS) C@Aðµ&@dgð‘idgð²¿B ²Agðgð´ùB ²êAgð(55 LEFT.MOST.IS.BEGINP 31 LEFT.MOST.IS.BEGINP) (63 LAST 46 RIGHT 39 FIRST 21 LEFT 11 BOTH) () READ.ARROWHEAD.END :D8 (F 2 SK.ARROW.END.MENU) WRÃ’R°H`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿c (84 \CURSOR.IN.MIDDLE.MENU) (53 DEFAULTMENUHELDFN 44 CLRPROMPT 14 |MENUTYPE#| 5 MENU) ( 30 ((|Left | (QUOTE LEFT) "changes will affect the left (or upper) end of the line.") (| Right| (QUOTE RIGHT) "changes will affect the right (or lower) end of the line.") (Both (QUOTE BOTH) "changes will affect both ends of the line.") (First (QUOTE FIRST) "changes will affect the end whose point was placed first.") (Last (QUOTE LAST) "changes will affect the end placed last.")) 21 "Which end?") ARROW.HEAD.POSITIONS :D8 (P 14 YP2 P 13 XP2 P 12 YP1 P 11 XP1 P 10 SIN.RHO P 9 COS.RHO P 8 SIN.THETA P 7 LL P 6 COS.THETA P 5 DY P 4 DX P 3 Y1 P 2 X1 P 1 Y0 P 0 X0 I 3 HEAD.LENGTH I 2 HEAD.ANGLE I 1 HEAD.POSITION I 0 TAIL.POSITION) ð@X@YAZA[JHÙ\KIÙ]LdÖMdÖÔ _LO×_MO×_B ^B _CONÖOOÖÕÖ_CONÖOOÖÔÖ_CONÖOOÖÔÖ_CONÖOOÖÕÖ_JOÙKOÙJOÙKOÙ(61 SIN 54 COS 34 SQRT) NIL () ARROWHEAD.POINTS.LIST :D8 (P 12 ENDPT2 P 11 ENDPT1 P 10 YP2 P 9 XP2 P 8 YP1 P 7 XP1 P 6 SIN.RHO P 5 COS.RHO P 4 SIN.THETA P 3 LL P 2 COS.THETA P 1 Y1 P 0 X1 I 5 HEAD.TYPE I 4 DY I 3 DX I 2 HEAD.LENGTH I 1 HEAD.ANGLE I 0 HEAD.POSITION) ( Ð@X@YCdÖDdÖÔ [CK×]DK×^A ZA \BMJÖNLÖÕÖ_BNJÖLMÖÔÖ_BMJÖNLÖÔÖ_BNJÖLMÖÕÖ_HOÕIOÕ_HOÕIOÕ_Egð³Egð©Edgðš¿@OOhgð´‚±ŠAo×b¿Bo×b¿A ºA ¼BMJÖNLÖÕÖ_¿BNJÖLMÖÔÖ_¿BMJÖNLÖÔÖ_¿BNJÖLMÖÕÖ_¿@HOÕ IOÕ OhHOÕ IOÕ Ohh(283 FIXR 274 FIXR 259 FIXR 250 FIXR 191 SIN 184 COS 42 SIN 35 COS 20 SQRT) (151 CURVE 133 SOLID 124 CLOSEDLINE 115 LINE) ( 174 2.0 164 1.5) CURVE.ARROWHEAD.POINTS :D8 (P 0 SLOPE I 4 HEAD.TYPE I 3 HEAD.LENGTH I 2 HEAD.ANGLE I 1 BEGFLG I 0 KNOTS) 4@Ahð A‘@…@ BCA”jHÕHA”jHÕHD (49 ARROWHEAD.POINTS.LIST 21 LAST 8 \CURVESLOPE) NIL () LEFT.MOST.IS.BEGINP :D8 (I 0 KNOTLST) 4@dªo @ "I[HZóµKJ ´HIó(42 EQP 22 LAST 14 ERROR) NIL ( 9 "should have at least two elements.") WIRE.ARROWHEAD.POINTS :D8 (P 1 TAILPT P 0 HEADPT I 4 HEAD.TYPE I 3 HEAD.LENGTH I 2 HEAD.ANGLE I 1 FIRSTFLG I 0 KNOTS) G0A—@¸@¹ˆ@´$@ZµHBCI²HIÕ°¨J¹JX°êJ°ákI•HIÕ€jD (68 ARROWHEAD.POINTS.LIST) NIL () DRAWARROWHEADS :D8 (P 4 PTS P 3 ARROWTYPE P 2 SPEC I 4 OPERATION I 3 SIZE I 2 WINDOW I 1 ARROWPTS I 0 ARROWSPECS) ·A@2Iµ…ºHµh¼J¢±—L¢±’J[dgð²'¿LLhChB ¿LLhChB °_gð²8Bg ³AB «Bg ™LCBi¿LnÿÿB°!Kdgð•¿LCBhŠgð™LCBi¿I¹H¸±ÿR(171 \SK.DRAW.TRIANGLE.ARROWHEAD 138 FILLPOLYGON 127 \SK.DRAW.TRIANGLE.ARROWHEAD 117 IMAGESTREAMTYPEP 105 WINDOWP 97 IMAGESTREAMTYPEP 76 DRAWCURVE 58 DRAWCURVE) (160 CLOSEDLINE 147 LINE 112 DISPLAY 92 PRESS 83 SOLID 38 CURVE) () \SK.DRAW.TRIANGLE.ARROWHEAD :D8 (I 3 CLOSED? I 2 STREAM I 1 BRUSH I 0 ARROWHEADPTS) ›B «Bg ™A kð²B@@A hB @@A hB C´T@@A hB @@hhAhB @@hhAhB C´@@hhAhB (152 DRAWCURVE 129 DRAWCURVE 110 DRAWCURVE 91 DRAWBETWEEN 83 SK.BRUSH.SIZE 67 DRAWBETWEEN 59 SK.BRUSH.SIZE 47 DRAWBETWEEN 39 SK.BRUSH.SIZE 24 SK.BRUSH.SIZE 17 IMAGESTREAMTYPEP 5 WINDOWP) (12 DISPLAY) () \SK.ENDPT.OF.ARROW :D8 (P 0 LASTPT I 0 LOCALARROWHEADPTS) 2@@@HÔl×lÖÔl×@@HÔl×lÖÔl×NIL NIL () \SK.ADJUST.FOR.ARROWHEADS :D8 (P 1 X P 0 LASTFIXED I 3 STREAM I 2 GARROWHEADSPECS I 1 LOCALARROWPTSLST I 0 LOCALKNOTS) žCg ³H A²'Bgð²@h Y A ¿I€@¸A²Bgð—A ¿ A²'Bgð²@h Y A ¿I€@XA²BgðšA HH(150 \SK.ENDPT.OF.ARROW 123 \SK.ENDPT.OF.ARROW 115 LAST 109 \APPEND2 80 \SK.ENDPT.OF.ARROW 53 \SK.ENDPT.OF.ARROW 45 LAST 39 \APPEND2 10 IMAGESTREAMTYPEP) (141 SOLID 99 SOLID 71 SOLID 29 SOLID 5 PRESS) () SK.SET.ARROWHEAD.LENGTH :D8 (P 1 NEWSIZE P 0 NOWARROWHEAD I 0 W) Z@g oH hddidd Yd´djñ¡h@g HHIH(69 GETWINDOWUSERPROP 48 RNUMBER 36 CONCAT 31 MKSTRING 10 GETWINDOWUSERPROP) (64 SKETCHCONTEXT 5 SKETCHCONTEXT) ( 22 "New arrowhead size in screen pts. Current arrowhead size is ") SK.SET.ARROWHEAD.ANGLE :D8 (P 1 NEWSIZE P 0 NOWARROWHEAD I 0 W) Z@g oH hddidd Yd´djñ¡h@g HIHH(68 GETWINDOWUSERPROP 47 RNUMBER 35 CONCAT 30 MKSTRING 10 GETWINDOWUSERPROP) (63 SKETCHCONTEXT 5 SKETCHCONTEXT) ( 22 "New head angle in degrees. Current arrowhead angle is ") SK.SET.ARROWHEAD.TYPE :D8 (P 3 SKETCHCONTEXT P 2 NEWSHAPE I 1 VALUE I 0 W F 5 VSHAPE.ARROWHEAD.BITMAP F 6 CURVEDV.ARROWHEAD.BITMAP F 7 TRIANGLE.ARROWHEAD.BITMAP F 8 SOLIDTRIANGLE.ARROWHEAD.BITMAP) áAo “A±¦`do¿UoohVoohWoohWoohhHdI¿di¿dg ¿dg¿jdnÿdhHdI ¿dÉ lU Ô¿ !J´(@g [K¼JLLL(195 GETWINDOWUSERPROP 178 \CURSOR.IN.MIDDLE.MENU 170 BITMAPHEIGHT 10 MEMB) (190 SKETCHCONTEXT 157 MENU 127 DEFAULTMENUHELDFN 118 CLRPROMPT 20 |MENUTYPE#|) ( 88 "makes a solid triangular arrowhead." 83 (QUOTE SOLID) 72 "arrowhead consists of a triangle." 67 (QUOTE CLOSEDLINE) 56 "arrowhead has curved side lines." 51 (QUOTE CURVE) 41 "arrowhead consists of two line segments." 36 (QUOTE LINE) 27 "Choose style" 5 (LINE CURVE CLOSEDLINE SOLID)) SK.SET.LINE.ARROWHEAD :D8 (P 2 ARROWHEADEND I 1 NEWVALUE I 0 W) sAo ’A°K`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ J´@g J(104 GETWINDOWUSERPROP 87 \CURSOR.IN.MIDDLE.MENU 10 MEMB) (99 SKETCHCONTEXT 58 DEFAULTMENUHELDFN 49 CLRPROMPT 19 |MENUTYPE#|) ( 35 ((First (QUOTE FIRST) "An arrowhead will be at the first point of any new lines or curves.") (Last (QUOTE LAST) "An arrowhead will be at the last point of any new lines or curves.") (Both (QUOTE BOTH) "Arrowheads will be both ends of any new lines or curves.") (Neither (QUOTE NEITHER) "New lines will not have any arrowheads.") (|Left | (QUOTE LEFT) "An arrowhead will be at the leftmost end of any new lines or curves.") (| Right| (QUOTE RIGHT) "An arrowhead will be at the rightmost end of any new lines or curves.")) 26 "Which end?" 5 (FIRST LAST BOTH NEITHER LEFT RIGHT)) SK.UPDATE.ARROWHEAD.FORMAT :D8 (P 1 NOWARROWS P 0 INDGARROWELT I 0 GELT) j@Hdgð²&¿HY²NI³IHH ²/II°-gð²,HY²$I³HH ”IIƒIIih@(85 LEFT.MOST.IS.BEGINP 44 LEFT.MOST.IS.BEGINP) (57 WIRE 13 OPENCURVE) () SK.SET.LINE.LENGTH.MODE :D8 (P 2 LINEMODE I 1 VAL? I 0 W) |Ao ’A°K`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ J´@g Jgð(104 GETWINDOWUSERPROP 87 \CURSOR.IN.MIDDLE.MENU 10 MEMBER) (118 NO 99 SKETCHCONTEXT 58 DEFAULTMENUHELDFN 49 CLRPROMPT 19 |MENUTYPE#|) ( 35 ((Yes (QUOTE YES) "The lines drawn with the middle button will pick up where the last one left off.") (No (QUOTE NO) "Sets the default so that two middle clicks make a line.")) 26 "Connect middle button lines?" 5 (YES NO)) SK.INSURE.ARROWHEADS :D8 (P 3 SPEC I 0 ARROWHEADSPECS) b@d²^ —h@ih@@°;d[d²( µ!Kið²```h…@ ¸IµHhZH&¹µÆJo (95 \APPEND2 67 \ILLEGAL.ARG 34 SK.ARROWHEADP 8 SK.ARROWHEADP) (56 SK.DEFAULT.ARROW.LENGTH 51 SK.DEFAULT.ARROW.ANGLE 46 SK.DEFAULT.ARROW.TYPE) ( 90 (T)) SK.ARROWHEADP :D8 (I 0 ARROWHEAD) *@l ´ @` ´@3´@3´@(21 MEMB 7 EQLENGTH) (16 SK.ARROWHEAD.TYPES) () SKETCH.CREATE.TEXT :D8 (I 5 SCALE I 4 COLOR I 3 JUSTIFICATION I 2 FONT I 1 POSITION I 0 STRING) 5@ A E3µoC` B D (50 CREATE.TEXT.ELEMENT 44 SK.INSURE.COLOR 38 SK.INSURE.FONT 32 SK.INSURE.STYLE 11 SK.INSURE.POSITION 5 SK.INSURE.TEXT) (27 SK.DEFAULT.TEXT.ALIGNMENT) ( 21 1.0) TEXT.CHANGEFN :D8 (P 4 ELTWITHTEXT I 2 HOW I 1 SKW I 0 SCRNELTS) -@AHµId¢¼hƒ¼H¸LBA»Jµ KhZ¹°ßK&º°Ú(27 SK.CHANGE.TEXT) NIL () TEXT.READCHANGEFN :D8 (P 4 VAL P 3 FIRSTTEXTELT P 2 COMMAND I 2 INTEXTBOXFLG I 1 SCRNELTS I 0 SKW) i`do¿´oA ‘h„oB³g ´ o€hg ´oo HdI¿di¿dg ¿dg¿jdnÿdhHdI ¿ AJ¡h@ Jdgðš¿A@ ±’gð²@o \´{A@L°qJdgð²/¿A]¿Md¥d²]°Z£M¾h„M¾M½Ndo ³Þ°Øgðœ@o °&Jgð²'ohAg \d´JLhgJh(339 READ.COLOR.CHANGE 331 GETSKETCHELEMENTPROP 301 SK.READFONTFAMILY 279 MEMB 226 \SK.READ.FONT.SIZE1 215 SK.READFONTFAMILY 193 \SK.READ.FONT.SIZE1 176 SKED.CLEAR.SELECTION 163 \CURSOR.IN.MIDDLE.MENU 104 \APPEND2 99 \APPEND2 94 \APPEND2 89 \APPEND2 72 DATATYPEP 53 SKETCH.ELEMENT.TYPEP 32 SCREENELEMENTP 19 SKETCHINCOLORP) (354 TEXT 326 BRUSH 309 BRUSHCOLOR 288 NEWFONT 235 SAME 201 FAMILY&SIZE 183 SETSIZE 134 DEFAULTMENUHELDFN 125 CLRPROMPT 67 LOOKEDSTRING 48 TEXTBOX 4 |MENUTYPE#|) ( 317 "Change text color how?" 296 "New font family?" 274 (TEXTBOX TEXT) 210 "New font family?" 84 (("different font" (QUOTE NEWFONT) "prompts for a new font family.") ("smaller font" (QUOTE SMALLER) "Make the text smaller") ("LARGER FONT" (QUOTE LARGER) "Make the text font larger.") ("set font size" (QUOTE SETSIZE) "makes all fonts a prompted for size") ("set family & size" (QUOTE FAMILY&SIZE) "allows changing both the family and the size") ("BOLD" (QUOTE BOLD) "makes the text bold.") ("unbold" (QUOTE UNBOLD) "removes the bold look of text.") ("italic" (QUOTE ITALIC) "makes the text italic.") ("unitalic" (QUOTE UNITALIC) "removes the italic look of text.") ("center justify" (QUOTE CENTER) "centers the text about its location") ("left justify " (QUOTE LEFT) "left justifies the text to its location") (" right justify" (QUOTE RIGHT) "right justifies the text to its location.") ("top justify" (QUOTE TOP) "makes the location be the top of the text.") ("bottom justify" (QUOTE BOTTOM) "makes the location be the bottom of the text.") ("middle justify" (QUOTE MIDDLE) "makes the control point specify the mid-height of the text.") ("baseline justify" (QUOTE BASELINE) "makes the control popint specify the baseline of the text.")) 79 (("Fancy format" (QUOTE LOOKEDSTRING) "changes to a form that can have complete character formatting.")) 60 (("box the text" (QUOTE BOX) "makes the selected text into boxed text.")) 40 (("look same" (QUOTE SAME) "makes the font characteristics the same as those of the first selected piece of text.")) 26 (("Color" (QUOTE BRUSHCOLOR) "changes the color of the text")) 11 "Change text how?") \SK.READ.FONT.SIZE1 :D8 (P 3 NEWFONT P 2 NOWFONT P 1 NEWSIZE P 0 FIRSTTEXTELT I 2 NEWFAMILY I 1 SKETCHW I 0 SELECTEDELTS) ½`@\¿Ld£d³"d¢½hƒ½L¼Mdo ³á°ÛXdZAo@ •o„ooJg hBµJg bAYd§A hBIJg hdi [®ABIohA K (186 SK.FONTNAMELIST 180 CLOSE.PROMPT.WINDOW 172 STATUSPRINT 157 FONTCREATE 148 FONTPROP 133 CLOSE.PROMPT.WINDOW 124 SK.READFONTSIZE 116 FONTPROP 101 STATUSPRINT 95 FONTPROP 67 SCREENELEMENTP 39 MEMB) (143 FACE 111 FAMILY 90 SIZE) ( 167 " not found." 84 " is " 79 "first selected text" 73 "text" 61 "Size of " 34 (TEXTBOX TEXT)) SK.TEXT.ELT.WITH.SAME.FIELDS :D8 (L (1 ORGONE 0 NEWONE)) –Adgð²<¿gAA@@@@@hgð´IgAA@@@@@AhddNIL (81 TEXTBOX 73 TEXTBOX 16 TEXT 7 TEXT) () SK.READFONTFAMILYA0010 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SKW F 3 SI::NLSETQ-VALUE) ,i@ohdR hcg(32 MKATOM 27 U-CASE 22 PROMPTFORWORD 17 GETPROMPTWINDOW) (41 :NORMAL) ( 9 "New family: ") SK.READFONTFAMILY :D8 (P 10 SI::*NLSETQFLAG* P 9 *PROCEED-CASES* P 8 SI::NLSETQ-VALUE P 4 FAMILY P 3 KNOWNFAMILIES I 1 TITLE I 0 SKW F 11 \FONTSINCORE F 12 *PROCEED-CASES*) Ò0`d¸IµHhZH&¹µïJ0Wd¸IµHhZH&¹µïJ AK²a`oK ½dM¿Aµo¾dN¿di¿dg ¿dg¿jdnÿdh_¿dO ¿ \gð¡L` ¿`W O gð´O(194 SK.READFONTFAMILYA0010 172 TTY.PROCESS 152 \CURSOR.IN.MIDDLE.MENU 84 \APPEND2 61 UNION) (200 :NORMAL 181 SI::NLSETQ-PROCEED-CASE 167 \RUNNING.PROCESS 158 OTHER 124 DEFAULTMENUHELDFN 115 CLRPROMPT 72 |MENUTYPE#| 7 \FONTSONFILE) ( 98 "Choose font" 78 (("other" (QUOTE OTHER) "prompts for a family not on the menu."))) CLOSE.PROMPT.WINDOW :D8 (P 0 PRMPTWIN I 0 WINDOW) @hdiXdš H (25 CLOSEW 19 DETACHWINDOW 11 GETPROMPTWINDOW) NIL () TEXT.DRAWFN :D8 (I 1 WINDOW I 0 TEXTELT) '@@@@A (36 TEXT.DRAWFN1) NIL () TEXT.DRAWFN1A0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 CHARS P 2 REGION I 0 SI::*CLEANUP-FORMS* F 4 SKWINDOW F 5 STRS F 6 REGIONS F 7 DESCENT) 4UV"Iµ…ºHµh»JJWÔT¿KT ¿I¹H¸°Ô(41 PRIN3 33 MOVETO) NIL () TEXT.DRAWFN1 :D8 (P 3 REGION P 2 SI::*RESETFORMS* P 1 OLDFONT P 0 DESCENT I 5 OPERATION I 4 SKWINDOW I 3 COLOR I 2 FONT I 1 REGIONS I 0 STRS) ¹C—CD ¿ Bd¢±¡ ²cBD ¹hD È ¸ED g` hhhg ¿$D ¿ID ¿°7A°1dhddDKKKKkØlÛgE` µÐh(176 BKBITBLT 125 DSPFONT 117 DSPOPERATION 106 SI::RESETUNWIND 101 \MVLIST 96 TEXT.DRAWFN1A0001 76 SETTERMTABLE 61 DSPOPERATION 46 DSPFONT 38 DSPFONT 29 FONTP 14 DSPCOLOR 6 SKETCHINCOLORP) (170 INDICATE.TEXT.SHADE 164 TEXTURE 91 SI::RESETUNWIND 71 SKETCH.TERMTABLE 66 SETTERMTABLE 51 FONTDESCRIPTOR) () TEXT.INSIDEFN :D8 (P 1 GREG I 1 WREG I 0 GTEXT) $@HµhYA ‘iHX°í(26 REGIONSINTERSECTP) NIL () TEXT.EXPANDFN :D8 (P 4 LINEREGIONS P 3 STYLE P 2 LOCALFONT P 1 TEXTPOS P 0 GTEXT I 2 STREAM I 1 SCALE I 0 GTEXTPART) o@AH[¬Ho[¿HABZHHA YHJKAB µ B É \IhhLJHh h@(100 \APPEND2 83 SK.TEXT.LINE.REGIONS 75 \INSUREWINDOW 67 STREAMP 49 SK.SCALE.POSITION.INTO.VIEWER 35 SK.CHOOSE.TEXT.FONT) NIL ( 24 (CENTER CENTER)) SK.TEXT.LINE.REGIONS :D8 (P 3 GREG I 6 IMAGESTREAM I 5 SCALE I 4 STYLE I 3 LOCALFONT I 2 GREGIONS I 1 TEXTPOS I 0 LISTOFTEXT) |C ²7@AFg ™CF ¿F€CDBE×@ Ö @B°5d[E× KE× KE× k¸IµHhZH&¹µÌJ(104 CREATEREGION 98 FIXR 87 FIXR 77 FIXR 59 LTEXT.LINE.REGIONS 53 FIXR 47 LENGTH 28 DSPFONT 20 IMAGESTREAMTYPEP 5 FONTP) (15 HARDCOPY) () TEXT.UPDATE.GLOBAL.REGIONS :D8 (P 3 GREG P 2 INDTEXTGELT P 1 YDIFF P 0 XDIFF I 2 OLDGPOS I 1 NEWGPOS I 0 GTEXTELT) DABÕABÕ@J0J°d[HI¼MµLh^L&½µèN@(45 REL.MOVE.REGION) NIL () REL.MOVE.REGION :D8 (I 2 DELTAY I 1 DELTAX I 0 REGION) A@ÔB@Ô@@(22 CREATEREGION) NIL () LTEXT.LINE.REGIONS :D8 (P 11 CHARS P 7 Y P 5 LINEWIDTH P 4 HEIGHTOFLOCALTEXT P 3 HEIGHT P 2 TEXTYPOS P 1 TEXTXPOS P 0 FONT I 4 TOTALHEIGHT I 3 STYLE I 2 STREAMORFONT I 1 LPOSITION I 0 LINES) Bd¢±› AA3B ™jhB Õ‡HÈ [d@ Ö\@JCdgð²¿Lo×KÕjHÈ ÕÕ°L²9oK°9K°6OkØ¾h_¿OkØ_±þYOOA Ô_¿OkØ_¿h¼±þ=K†oh °.dgO _¿Oµ Oh_‚O&_¿µÓO@(543 APPLY 538 REVERSE 519 REVERSE 489 CHARWIDTH 395 SUBSTRING 332 SUBSTRING 248 SUBSTRING 218 NTHCHARCODE 195 SUBSTRING 170 SUBSTRING 141 SUBSTRING 91 SUBSTRING 46 NCHARS 24 CHARWIDTH 12 WINDOWP 5 FONTP) (531 CONCAT) ( 512 "" 455 "" 403 " " 347 " " 339 "" 263 " " 255 "" 177 "" 149 " " 131 " " 99 " ") SK.BRUSH.SIZE :D8 (L (0 SKBRUSH)) @d3¡NIL NIL () SK.TEXTBOX.CREATE :D8 (P 0 CONTEXT I 3 WINDOW I 2 SCALE I 1 BRUSH I 0 SKETCHREGION) ?Cg @AohBHHHHH (60 SK.TEXTBOX.CREATE1 10 GETWINDOWUSERPROP) (5 SKETCHCONTEXT) ( 20 "") SK.TEXTBOX.CREATE1 :D8 (I 8 TEXTCOLOR I 7 FILLING I 6 DASHING I 5 INITFONT I 4 STYLE I 3 INITSCALE I 2 LSTOFSTRS I 1 BRUSH I 0 SKETCHREGION) . hdddg@BCDEhGAFGhh (43 SK.UPDATE.TEXTBOX.AFTER.CHANGE) (11 TEXTBOX) () SK.UPDATE.TEXTBOX.AFTER.CHANGE :D8 (P 0 INDELT I 0 GTEXTBOXELT) @H H@ @(20 BOX.SET.SCALES 11 TEXTBOX.SET.GLOBAL.REGIONS) NIL () SK.TEXTBOX.POSITION.IN.BOX :D8 (I 3 BRUSHWIDTH I 2 FONT I 1 STYLE I 0 REGION) ¼Adgð–¿@CÔ°3dgðž¿@@ØmÿØCÕ°gð@@o×Ô„Adgð²¿@@ØmÿØCÕ°\dgð—¿@CÔ°Ldgð²¿@@o×Ô°1gð²$@@BÈ Õo×BÈ ÔÔ„(184 SHOULDNT 65 SHOULDNT) (174 FONTDESCRIPTOR 159 FONTDESCRIPTOR 142 BASELINE 116 CENTER 100 BOTTOM 74 TOP 44 CENTER 22 RIGHT 7 LEFT) ( 167 2.0 133 2.0 57 2.0) TEXTBOX.CHANGEFN :D8 (I 2 HOW I 1 SKW I 0 SCRNELTS) (Bdgð™¿@ABgð´B@A(37 CHANGE.ELTS.BRUSH.SIZE 18 TEXT.CHANGEFN) (24 SIZE 7 TEXT) () TEXTBOX.DRAWFN :D8 (P 3 ELTOPERATION P 2 BRUSH P 1 FILLING P 0 LOCALPART I 3 OPERATION I 2 WINREG I 1 WINDOW I 0 TEXTBOXELT) ‰@1BžBH ´sHZHYd[HHIAIKJ HJABKHhJ HHHJAK h(133 TEXT.DRAWFN1 106 BOX.DRAWFN1 72 SK.TEXTURE.AROUND.REGIONS 19 REGIONSINTERSECTP) NIL () SK.TEXTURE.AROUND.REGIONS :D8 (P 9 LEAVEREGION P 7 Y P 6 X P 5 BOXBOTTOM P 4 BOXTOP P 3 BOXRIGHT P 2 BOXLEFT P 1 USEOP P 0 MARGIN I 6 BRUSHSIZE I 5 OPERATION I 4 COLOR I 3 STREAM I 2 TEXTURE I 1 INREGIONS I 0 BOXREGION) \ B´ulhC ÖEC r@FlÛkØÔZ@FlÛkØÔ]@@ØmÿØFkØlÛÕ\@@ØmÿØFkØlÛÕ[A—A ²JMKJÕkØLMÕkØBIChLAAØmÿØ^ó²BCJNkØKJÕkØLNÕIhD ¿A°sd O_jð’±™Oµ‚±†OHÕ^Jó²BCJONJÕOIhD ¿KOOØmÿØHÔ^ó²BCNkØOKNÕOIhD ¿µŽA ^Mó´‚±ÿNBCJMKJÕkØNMÕIhD ¿±ÿ4 ¢±ÿwBCJOKJÕkØ°«(328 \FZEROP 319 BLTSHADE 286 LAST 274 BLTSHADE 227 BLTSHADE 160 BLTSHADE 116 DSPFILL 108 CREATEREGION 89 ALL.EMPTY.REGIONS 19 SK.TRANSLATE.MODE 11 DSPSCALE) NIL () ALL.EMPTY.REGIONS :D8 (P 1 REG I 0 REGIONLST) =@1HµiYZjð³%J—J ³I[jðK´ K ¡hHX°Ë(51 \FZEROP 29 \FZEROP) NIL () TEXTBOX.EXPANDFN :D8 (P 10 LOCALBRUSH P 9 NEWLISTOFSTRS P 8 BRUSHWIDTH P 7 LINEREGIONS P 6 IMAGESTREAM P 5 STYLE P 4 LOCALFONT P 3 TEXTPOS P 2 LREG P 1 CANONICALTESTSTR P 0 GTEXTBOX I 2 STREAM I 1 SCALE I 0 GTEXTBOXELT) @o’ H_d3²¿HgOhd_¿OHA_H ²!HHhdd¿Ol×kØ_HA ZHAB\B µ B É^L ²HHNg ‘N€LNg ²JOlÚÙoÖ ‰JOlÚÙƒH_H]OµoJMLµ HOHLMAN _JJJJØJJØhhOLOJOHh Hh@(357 \APPEND2 302 SK.TEXT.LINE.REGIONS 284 SK.TEXTBOX.POSITION.IN.BOX 242 SK.BREAK.INTO.LINES 226 FIXR 203 IMAGESTREAMTYPEP 188 IMAGESTREAMTYPEP 171 FONTP 162 \INSUREWINDOW 154 STREAMP 147 SK.CHOOSE.TEXT.FONT 138 SK.SCALE.REGION 85 TEXTUREP 66 SCALE.BRUSH) (198 HARDCOPY 183 HARDCOPY 42 ROUND) ( 265 ("") 220 35.27778 7 "AWIaiw") TEXTBOX.INPUTFNA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 W F 3 SI::NLSETQ-VALUE) i@RgRhcg(16 GETWREGION) (25 :NORMAL 10 SK.BOX.GETREGIONFN) () TEXTBOX.INPUTFN :D8 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 LOCALREG I 1 LREGION I 0 W F 4 *PROCEED-CASES*) A “AX°PAµF`TJ gð´IX´#h@ H ´Hdjð²djð˜h ¿H@ @g @ @(126 SK.TEXTBOX.CREATE 120 SK.INPUT.SCALE 113 GETWINDOWUSERPROP 102 UNSCALE.REGION.TO.GRID 97 VIEWER.SCALE 89 \ILLEGAL.ARG 63 SUBREGIONP 57 DSPCLIPPINGREGION 35 TEXTBOX.INPUTFNA0001 8 REGIONP) (108 SKETCHCONTEXT 41 :NORMAL 24 SI::NLSETQ-PROCEED-CASE) () TEXTBOX.INSIDEFN :D8 (I 1 WREG I 0 GTEXTBOX) @A (10 REGIONSINTERSECTP) NIL () TEXTBOX.REGIONFN :D8 (I 0 TEXTBOXSCRELT) !@@ (30 INCREASEREGION 25 SK.BRUSH.SIZE) NIL () TEXTBOX.GLOBALREGIONFN :D8 (L (0 GTEXTBOXELT)) @NIL NIL () TEXTBOX.SET.GLOBAL.REGIONS :D8 (P 5 BRUSHWIDTH P 4 REGION P 3 TEXTSTYLE P 2 LISTOFSTRS P 1 FONT P 0 SCALE I 0 GTEXTBOXELT) u @@@@@@ @0JLKIMIKIÈ J Ú °d¾OµNh_N&_¿µìO@(85 LTEXT.LINE.REGIONS 78 LENGTH 62 SK.TEXTBOX.POSITION.IN.BOX 39 SK.BRUSH.SIZE) (70 FONTDESCRIPTOR) () TEXTBOX.TRANSLATEFN :D8 (P 2 NEWREG P 1 OLDREG P 0 GTEXTBOXELT I 1 DELTAPOS I 0 SKELT) —@!HYAAZ@h gJHHHHHHHHHHhJJII(148 TEXT.UPDATE.GLOBAL.REGIONS 27 \APPEND2 18 REL.MOVE.REGION) (32 TEXTBOX) () TEXTBOX.TRANSLATEPTSFN :D8 (P 5 URY P 4 URX P 3 LLY P 2 LLX P 1 OLDGLOBALREGION P 0 GTEXTBOXELT I 3 WINDOW I 2 GDELTA I 1 SELPTS I 0 TEXTBOXELT) Í@QHY@A œdBÔºIBÔ…IºI»@A ²IIØBÔ¼IIØBÔ°IIØ¼IIØ½LdJó‘¿JMdKó‘¿KJLÕ KMÕ HHHHHHHH (202 SK.TEXTBOX.CREATE1 132 CREATEREGION 127 ABS 119 ABS 52 MEMBER 20 MEMBER) NIL () TEXTBOX.TRANSFORMFN :D8 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) Z@HABHHHCêHHHHH (87 SK.TEXTBOX.CREATE1 15 SK.TRANSFORM.REGION) NIL () TEXTBOX.UPDATEFN :D8 (P 2 OLDLOCALTB P 1 OLDTB P 0 NEWTB I 2 SKETCHW I 1 NEWGELT I 0 OLDLOCALELT) …A@@HIô´bHJô´JHJô´2HIô´gB @AB¸B H(129 DSPOPERATION 122 TEXT.UPDATEFN 114 DSPOPERATION) (108 REPLACE) () TEXTBOX.READCHANGEFN :D8 (P 3 HOW P 2 COMMAND I 1 SCRNELTS I 0 SKW F 4 FILLINGMODEFLG) "`do¿´ooT´o HdI¿di¿dg ¿dg¿jdnÿdhHdI ¿ Jdgð™¿@Ai‘JJdgð˜¿±‚gð–°sJdgð¿oi °\gð–°NJdgð² ¿ohAg °&gð²oiAg €J[´JKh(277 READ.COLOR.CHANGE 270 GETSKETCHELEMENTPROP 241 READ.COLOR.CHANGE 233 GETSKETCHELEMENTPROP 201 READ.DASHING.CHANGE 187 READSIZECHANGE 164 READ.FILLING.MODE 149 READ.FILLING.CHANGE 129 TEXT.READCHANGEFN 108 \CURSOR.IN.MIDDLE.MENU 49 \APPEND2 44 \APPEND2 19 SKETCHINCOLORP) (265 FILLING 248 FILLINGCOLOR 228 BRUSH 210 BRUSHCOLOR 194 DASHING 173 SIZE 157 FILLINGMODE 141 FILLING 118 TEXT 79 DEFAULTMENUHELDFN 70 CLRPROMPT 4 |MENUTYPE#|) ( 256 "Change filling color how?" 219 "Change outline color how?" 181 "Change size how?" 39 (("Filling mode" (QUOTE FILLINGMODE) "changes how the filling effects the figures it covers.")) 31 (("The text" (QUOTE TEXT) "allows changing the properties of the text.") ("Box thickness" (QUOTE SIZE) "changes the size of the brush") (Dashing (QUOTE DASHING) "changes the dashing of the box.") ("Unbox the text" (QUOTE (TEXT UNBOX)) "takes the text out of any selected text boxes.") (Filling (QUOTE FILLING) "allows changing of the filling texture of the box.")) 26 (("Outline color" (QUOTE BRUSHCOLOR) "changes the color of the outline") ("Filling color" (QUOTE FILLINGCOLOR) "changes the color of the filling")) 11 "Change which part?") SK.TEXTBOX.TEXT.POSITION :D8 (I 0 GTEXTBOXELT) @b@@ØmÿØNIL NIL () SK.TEXTBOX.FROM.TEXT :D8 (P 4 NEWTEXTBOXELT P 3 CONTEXT P 2 STYLE P 1 BRUSH P 0 INDTEXTELT I 1 SKW I 0 TEXTELT) Ž@AAg [YgH I kØlÛ IHHHZdgð˜ghHKKI \@LgL@h(123 SK.TEXTBOX.CREATE1 55 INCREASEREGION 45 SK.BRUSH.SIZE 37 APPLY 16 GETWINDOWUSERPROP) (131 HASBOX 88 CENTER 80 BASELINE 24 SK.UNIONREGIONS 11 SKETCHCONTEXT) () ADD.EOLS :D8 (P 3 STRTAIL I 0 STRLST) <@@°2d[mÿ l ð›K¸IµHhZ°Kd²òo °æH&¹µÏJ(47 CONCAT 15 NTHCHARCODE) NIL ( 42 " ") SK.SET.TEXTBOX.VERT.ALIGN :D8 (P 3 SKCONTEXT P 2 NEWJUST I 0 SKW) r`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ J´#@g [KJh(89 GETWINDOWUSERPROP 72 \CURSOR.IN.MIDDLE.MENU) (84 SKETCHCONTEXT 43 DEFAULTMENUHELDFN 34 CLRPROMPT 4 |MENUTYPE#|) ( 20 (("Top" (QUOTE TOP) "the top of new text's vertical extent will be at its position") ("Center" (QUOTE CENTER) "New text's vertical extent will be centered around its position") ("Baseline" (QUOTE BASELINE) "The baseline of new text will be at its position.") ("Bottom" (QUOTE BOTTOM) "the bottom of new text's vertical extent will be at its position")) 11 "New vertical alignment?") SK.SET.TEXTBOX.HORIZ.ALIGN :D8 (P 3 SKCONTEXT P 2 NEWJUST I 1 NEWALIGN I 0 SKW) eAµ=`do¿dg ¿dg¿jdnÿdhHdI ¿ J´!@g [JK(78 GETWINDOWUSERPROP 61 \CURSOR.IN.MIDDLE.MENU) (73 SKETCHCONTEXT 32 DEFAULTMENUHELDFN 23 CLRPROMPT 7 |MENUTYPE#|) ( 14 ((" Center " (QUOTE CENTER) "New text will be centered around its position") ("Left " (QUOTE LEFT) "the left edge of the text will be at its position.") (" Right" (QUOTE RIGHT) "the right edge of the text will be at its position."))) SKETCH.CREATE.BOX :D8 (I 4 SCALE I 3 FILLING I 2 DASHING I 1 BRUSH I 0 REGION) 2@ µ@ A B D3µoC (47 SK.BOX.CREATE 41 SK.INSURE.FILLING 25 SK.INSURE.DASHING 19 SK.INSURE.BRUSH 13 \ILLEGAL.ARG 5 REGIONP) NIL ( 35 1.0) SK.BOX.DRAWFN :D8 (P 2 BRUSH P 1 FILLING P 0 LOCALBOXELT I 2 WINREG I 1 WIN I 0 BOXELT) 6@!HYHHZABIHIJI (51 BOX.DRAWFN1) NIL () BOX.DRAWFN1 :D8 (I 8 FILLINGCOLOR I 7 OUTLINECOLOR I 6 TEXTURE I 5 DASHING I 4 OPERATION I 3 WINREG I 2 WIN I 1 SIZE I 0 REG) ƒ C˜C@ ´x`²G¢F²8@A FGhdB°3F²@hB gð“nÿÿ€FDB ‹GŸ@G DB¿@@@@ADB BEG (128 SK.DRAWAREABOX 118 SK.TRANSLATE.MODE 95 DSPFILL 88 TEXTUREOFCOLOR 76 SK.TRANSLATE.MODE 57 DSPOPERATION 44 FILLPOLYGON 30 KNOTS.OF.REGION 8 REGIONSINTERSECTP) (62 ERASE 15 SKETCHINCOLORFLG) () KNOTS.OF.REGION :D8 (P 4 RGHT P 3 TP P 2 BTM P 1 LFT P 0 HLFBORDER I 1 BORDER I 0 REGION) DAoëA@HÔY@HÔZ@@ØmÿØHÕ[@@ØmÿØHÕ\IJIKLKLJhNIL NIL ( 5 2.0) SK.DRAWAREABOX :D8 (P 16 SIDEHEIGHT P 15 SIDEWIDTH P 14 BOXBOTTOM P 13 HORIZLEFT P 12 SM/HALF P 11 BIG/HALF P 10 HALFBORDER P 9 RIGHT P 8 TOP P 7 SM/HALF P 6 BIG/HALF P 5 RIGHT P 4 HORIZRIGHT P 3 HORIZLEFT P 2 TOP P 1 SM/HALF P 0 BIG/HALF I 8 COLOR I 7 DASHING I 6 W I 5 OP I 4 BORDER I 3 HEIGHT I 2 WIDTH I 1 BOTTOM I 0 LEFT) f G’±ˆGµ{Fg ¢±b`DkØâXDHÕYACÔZ@BÔ]@AIÕ@JHÔDEFGG @HØ[JMIÙkÙ\JDEFGG MAIÕMJHÔDEFGG KALADEFGG hgð³Fg ¬Fg ²{@ DkØâ^DNÕ_ACÔ_@BÔ_@AOÕ@ONÔDEFGG @OÙOONØODEFGG OONÔOAOÕDEFGG ONØA@OÙADEFGG h0 ACÔ_@BÔ_@A@ODEFGG @OOODEFGG OOOADEFGG OA@ADEFGG hFg ²o`DkØâXDHÕYACÔZ@BÔ]@AIÕ@JHÔDEFGG @HØl Õ[JMIÙkÙ\JDEFGG MAIÕMJHÔDEFGG KALADEFGG h`Dâ_DOÕkÙ_nÿÿF@OÕAOÕ_DCDÔ_ E nÿÿF@BÔOÕODO E nÿÿF@OÔkØ_ACÔOÕBDÕ_DE nÿÿFOOODE h(610 BLTSHADE 592 BLTSHADE 561 BLTSHADE 539 BLTSHADE 495 DRAWLINE 478 DRAWLINE 457 DRAWLINE 429 DRAWLINE 386 IMAGESTREAMTYPEP 373 DRAWLINE 355 DRAWLINE 335 DRAWLINE 315 DRAWLINE 282 DRAWLINE 259 DRAWLINE 234 DRAWLINE 209 DRAWLINE 161 IMAGESTREAMTYPEP 149 IMAGESTREAMTYPEP 128 DRAWLINE 111 DRAWLINE 90 DRAWLINE 65 DRAWLINE 20 IMAGESTREAMTYPEP) (381 INTERPRESS 156 INTERPRESS 144 PRESS 135 BLACK 15 PRESS) () SK.DRAWBOX :D8 (I 7 TEXTURE I 6 W I 5 OP I 4 BORDER I 3 BOXHEIGHT I 2 BOXWIDTH I 1 BOXBOTTOM I 0 BOXLEFT) wG¥nÿÿb¿hddF@ADCgEG hddF@DÔACÔDÕBDdÔÕDgEG hddF@DÔABDdÔÕDgEG hddF@BÔDÕADCgEG (116 BKBITBLT 90 BKBITBLT 62 BKBITBLT 30 BKBITBLT) (107 TEXTURE 81 TEXTURE 53 TEXTURE 21 TEXTURE) () SK.BOX.EXPANDFN :D8 (P 1 LREG P 0 INDGELT I 1 SCALE I 0 GBOX) Î@Hd³3¿@gHHHoHHX¿H ²HHhdd¿HA YdIIIØIIØhhIHYd3²¿HgIhdY¿IHAHh Hh@(189 \APPEND2 176 SCALE.BRUSH 106 SK.SCALE.REGION 74 TEXTUREP) (154 ROUND 22 BOX) ( 39 1.0) SK.BOX.GETREGIONFN :D8 (P 0 REG I 2 W I 1 MOVINGPT I 0 FIXPT) VB A²:B ÉH@ ² HA ²AB`kåjðhð@@B`låjðhð(83 MAP.SCREEN.POSITION.ONTO.GRID 63 ERROR! 55 MAP.SCREEN.POSITION.ONTO.GRID 35 INSIDEP 26 INSIDEP 14 \INSUREWINDOW 5 SKETCHW.UPDATE.LOCATORS) (71 LASTMOUSEBUTTONS 44 LASTMOUSEBUTTONS) () BOX.SET.SCALES :D8 (L (1 GBOXELT 0 GREG)) 30A@X@¹ºIdJó‘¿JoëAHIó‘H€IoëANIL NIL ( 45 2.0 28 1000.0) SK.BOX.INPUTFNA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 W F 3 SI::NLSETQ-VALUE) i@RgRhcg(16 GETWREGION) (25 :NORMAL 10 SK.BOX.GETREGIONFN) () SK.BOX.INPUTFN :D8 (P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 SKCONTEXT P 0 LOCALREG I 1 LREGION I 0 W F 5 *PROCEED-CASES*) ‘ A “AX°PAµF`UK gð´JX´^h@ H ´Hdjð²djð˜h ¿H@ @g YI@ I (142 SK.BOX.CREATE 127 SK.INPUT.SCALE 113 GETWINDOWUSERPROP 102 UNSCALE.REGION.TO.GRID 97 VIEWER.SCALE 89 \ILLEGAL.ARG 63 SUBREGIONP 57 DSPCLIPPINGREGION 35 SK.BOX.INPUTFNA0001 8 REGIONP) (108 SKETCHCONTEXT 41 :NORMAL 24 SI::NLSETQ-PROCEED-CASE) () SK.BOX.CREATE :D8 (I 4 FILLING I 3 INITSCALE I 2 DASHING I 1 BRUSH I 0 SKETCHREGION) "hdddg@ABCDhh (31 SK.UPDATE.BOX.AFTER.CHANGE) (11 BOX) () SK.UPDATE.BOX.AFTER.CHANGE :D8 (I 0 GBOXELT) @@ (10 BOX.SET.SCALES) NIL () SK.BOX.INSIDEFN :D8 (I 1 WREG I 0 GBOX) @A (10 REGIONSINTERSECTP) NIL () SK.BOX.REGIONFN :D8 (I 0 BOXSCRLET) @@ (17 INCREASEREGION) NIL () SK.BOX.GLOBALREGIONFN :D8 (I 0 GBOXELT) @@l× (20 INCREASEREGION) NIL () SK.BOX.READCHANGEFN :D8 (P 1 HOW P 0 ASPECT I 1 SCRNELTS I 0 SKW F 4 FILLINGMODEFLG) ú@`di¿do¿´oT´oo ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ Xdgð¿oi °rgð–°dHdgð—¿°Sgð–°EHdgð²¿ohAg °gð´oiAg Yd´HIh(238 READ.COLOR.CHANGE 231 GETSKETCHELEMENTPROP 201 GETSKETCHELEMENTPROP 169 READ.DASHING.CHANGE 155 READ.FILLING.MODE 138 READ.FILLING.CHANGE 124 READSIZECHANGE 103 \CURSOR.IN.MIDDLE.MENU 57 \APPEND2 52 \APPEND2 27 SKETCHINCOLORP) (226 FILLING 209 FILLINGCOLOR 196 BRUSH 178 BRUSHCOLOR 162 DASHING 147 FILLINGMODE 131 FILLING 110 SIZE 78 DEFAULTMENUHELDFN 69 CLRPROMPT 7 |MENUTYPE#|) ( 217 "Change filling color how?" 187 "Change outline color how?" 118 "Change size how?" 47 ((Filling (QUOTE FILLING) "allows changing of the filling texture of the box.") ("Outline size" (QUOTE SIZE) "changes the size of the brush") ("Outline dashing" (QUOTE DASHING) "changes the dashing of the line.")) 42 (("Filling mode" (QUOTE FILLINGMODE) "changes how the filling effects the figures it covers.")) 34 (("Outline color" (QUOTE BRUSHCOLOR) "changes the color of the outline") ("Filling color" (QUOTE FILLINGCOLOR) "changes the color of the filling")) 19 "Which aspect?") SK.CHANGE.FILLING :D8 (P 5 NEWELT P 4 TYPE P 3 NEWFILLING P 2 OLDFILLING P 1 TEXTURE P 0 GFILLEDELT I 2 SKW I 1 HOW I 0 ELTWITHFILLING) ÊpAgð“hb¿@\o ´‚±¥@XLdgð™¿d°?gðH°*Ldgð™¿H°gð˜H„ZYAIô’±HAJJJ[Ldgð²+¿gHHHHKH±ígð²agHHHHHHHHHKH±†Ldgð²4¿gHHHHKHH°Igð²oBó—Boó¡i@A @A BÔ@HI ÖÔ@HI ÖÔ(56 SIN 45 COS 31 SK.COMPUTE.SLOPE.OF.LINE 24 DISTANCEBETWEEN) NIL ( 13 -360.0 4 360.0) SK.COMPUTE.ARC.PTS :D8 (P 10 ANGLE P 7 DEGREESARC P 6 ANGLEINCR P 5 PTLST P 4 CENTERY P 3 CENTERX P 2 OMEGA P 1 ALPHA P 0 RADIUS I 3 DIRECTION I 2 ARCPT I 1 RADIUSPT I 0 CENTERPT) @A @A @B @@ECJdIó²oÕZIJó˜JoÔZ€JIÕ_doëjØ dlñ¢¿lHoÖOo×Öl×jØ dlñ¢¿l_¿dOñ’¿Oë^JNo×ÔIBO²;Ojð³oO˜O ³ajOóOJNo×ÔýóOJNo×Ô ³dgð¿@A°(gðž@A@gAi(159 LISTPUT 14 \ILLEGAL.ARG 7 DASHINGP) (153 DASHING 126 TEXTBOX 105 ELLIPSE 86 BOX 78 CLOSEDCURVE 70 OPENCURVE 61 CLOSEDWIRE 41 ARC 33 CIRCLE 25 WIRE) () \SK.PUT.BRUSH :D8 (I 2 SKETCHTOUPDATE I 1 NEWVALUE I 0 GELT) ùAd3ž¿gAhdb‹ ¦A ¿@dgð³dgð³dgð¨dgð²¿@A¿@ ±Ÿdgðš¿@A±Œdgð²¿@A¿@ °pdgð²¿@A¿@ °Udgð²¿@A¿@ °8gð² B–B ¿@A¿@ @gAi(245 LISTPUT 228 SK.UPDATE.TEXTBOX.AFTER.CHANGE 207 SKETCH.CLEANUP 189 SK.UPDATE.ELLIPSE.AFTER.CHANGE 160 SK.UPDATE.ARC.AFTER.CHANGE 133 SK.UPDATE.CIRCLE.AFTER.CHANGE 86 SK.UPDATE.WIRE.ELT.AFTER.CHANGE 31 \ILLEGAL.ARG 24 BRUSHP) (239 BRUSH 196 TEXTBOX 168 ELLIPSE 141 ARC 114 CIRCLE 95 BOX 68 CLOSEDCURVE 60 OPENCURVE 51 CLOSEDWIRE 42 WIRE 10 ROUND) () \SK.PUT.ARROWHEADS :D8 (I 1 NEWVALUE I 0 GELT) ~@dgð²¿@A ¿@ °Wdgð²¿@A ¿@ °4gð²@A ¿@ @gAi(122 LISTPUT 105 SET.ARC.ARROWHEAD.POINTS 95 SK.INSURE.ARROWHEADS 70 SET.OPENCURVE.ARROWHEAD.POINTS 60 SK.INSURE.ARROWHEADS 35 SET.WIRE.ARROWHEAD.POINTS 25 SK.INSURE.ARROWHEADS) (116 ARROWHEADS 77 ARC 43 OPENCURVE 9 WIRE) () SK.COPY.ELEMENT.PROPERTY.LIST :D8 (I 1 OLDELEMENT I 0 ELEMENT) @Aµ@h (17 \APPEND2) NIL () SKETCH.UPDATE :D8 (P 3 ELT P 2 SKW P 1 ALLVIEWERS P 0 SKSTRUC I 1 ELEMENTS I 0 SKETCH) V@ H YAµdŒdJ µò°. ˜AI °Ad²dKI µñ„ h(82 \ILLEGAL.ARG 71 SKETCH.UPDATE1 51 SKETCH.UPDATE1 43 GLOBALELEMENTP 31 SK.UPDATE.AFTER.SCALE.CHANGE 14 ALL.SKETCH.VIEWERS 5 INSURE.SKETCH) NIL () SKETCH.UPDATE1 :D8 (P 2 SELECTION P 1 SKW I 1 VIEWERS I 0 GELT) <A!HµhYg Z @dJð˜¿I ¿@dIi¿HX°Ì(52 SK.UPDATE.ELEMENT1 42 SKED.CLEAR.SELECTION 28 SCREENELEMENTP 21 GETWINDOWUSERPROP) (16 SELECTION) () \SKELT.GET.SCALE :D8 (L (0 GELT)) ‘@dgð³dgð¯dgð§dgð˜¿@dgð³dgð¯dgð§dgðš¿@dgð¯dgð§dgð™¿@gð´ @NIL (128 ELLIPSE 111 BOX 103 CLOSEDCURVE 95 CLOSEDWIRE 76 ARC 68 CIRCLE 60 OPENCURVE 51 WIRE 34 BITMAPELT 26 SKIMAGEOBJ 18 TEXTBOX 9 TEXT) () \SKELT.PUT.SCALE :D8 (I 1 NEWVALUE I 0 GELT) ¨Ad3¢±œ¿@dgð³dgð¯dgð§dgðš¿@Adgð³dgð¯dgð§dgðœ¿@Adgð¯dgð§dgð›¿@Agð´@A (165 \ILLEGAL.ARG) (143 ELLIPSE 124 BOX 116 CLOSEDCURVE 108 CLOSEDWIRE 87 ARC 79 CIRCLE 71 OPENCURVE 62 WIRE 43 BITMAPELT 35 SKIMAGEOBJ 27 TEXTBOX 18 TEXT) () \SKELT.PUT.DATA :D8 (P 0 INDVELT I 2 SKETCHTOUPDATE I 1 NEWVALUE I 0 GELT) Ã@@dgð²2¿Ad²ŠdYI •µôi¿h¦A ¿HA¿@ ±€dgð¨dgð²¿B–B ¿@A °Vdgð–¿HA°Gdgð¿HA¿@ °1dgð³dgð³dgð¨dgð´¿HA¿@ i(191 SK.UPDATE.WIRE.ELT.AFTER.CHANGE 142 SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE 105 SK.REPLACE.TEXT.IN.ELEMENT 100 SK.INSURE.TEXT 92 SKETCH.CLEANUP 63 SK.UPDATE.GROUP.AFTER.CHANGE 50 \ILLEGAL.ARG 34 GLOBALELEMENTP) (176 CLOSEDCURVE 168 CLOSEDWIRE 159 OPENCURVE 150 WIRE 128 SKIMAGEOBJ 113 BITMAPELT 80 TEXTBOX 72 TEXT 15 GROUP) () SK.REPLACE.TEXT.IN.ELEMENT :D8 (I 1 NEWSTRS I 0 GTEXTELT) F@dgð²¿@Aµ oh¿@ °gðž@A¿@ …@ @(66 \ILLEGAL.ARG 59 SK.UPDATE.TEXT.AFTER.CHANGE 36 SK.UPDATE.TEXTBOX.AFTER.CHANGE) (43 TEXT 9 TEXTBOX) ( 26 "") \SKELT.GET.DATA :D8 (P 0 INDVELT I 0 GELT) r@@dgð•¿Hdgð³ódgð³êdgð”¿Hdgð³ôdgð³ëdgð³âdgð³Ùdgð³Ð¿@g'NIL (110 DATA 96 CLOSEDCURVE 87 CLOSEDWIRE 78 OPENCURVE 69 WIRE 60 SKIMAGEOBJ 47 BITMAPELT 38 TEXTBOX 29 TEXT 15 GROUP) () \SK.GET.1STCONTROLPT :D8 (I 1 PROPERTY I 0 GELT) ¦@dgð³dgð¯dgð§dgð–¿@dgð§dgð›¿@ dgð§dgðœ¿@ dgð³dgð¯dgð§dgð—¿@gð—@@A'(99 LOWERLEFTCORNER 70 LOWERLEFTCORNER) (146 GROUP 131 CLOSEDCURVE 123 OPENCURVE 115 CLOSEDWIRE 106 WIRE 85 SKIMAGEOBJ 77 BITMAPELT 57 BOX 49 TEXTBOX 34 ELLIPSE 26 ARC 18 CIRCLE 9 TEXT) () \SK.PUT.1STCONTROLPT :D8 (P 1 X P 0 INDVELT I 1 NEWPOSITION I 0 GELT) ‰A ¦A ¿@Hdgðž¿HA¿@ ±\dgðž¿HA¿@ ±Edgðž¿HA¿@ ±.dgðž¿HA¿@ ±dgð²,¿HAAHHH¿@ ±ädgð²,¿HAAHHH¿@ ±±dgð²/¿HAAHHH¿@ °zdgð²'¿HAAHHH°Kdgð³dgð³dgð¨dgð²¿HYµHAh¿@ °A°õgð´ HAi(370 SK.UPDATE.WIRE.ELT.AFTER.CHANGE 267 SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE 212 SK.UPDATE.BOX.AFTER.CHANGE 161 SK.UPDATE.TEXTBOX.AFTER.CHANGE 110 SK.UPDATE.ELLIPSE.AFTER.CHANGE 87 SK.UPDATE.ARC.AFTER.CHANGE 64 SK.UPDATE.CIRCLE.AFTER.CHANGE 41 SK.UPDATE.TEXT.AFTER.CHANGE 12 \ILLEGAL.ARG 5 POSITIONP) (380 GROUP 347 CLOSEDCURVE 339 OPENCURVE 330 CLOSEDWIRE 321 WIRE 275 BITMAPELT 221 SKIMAGEOBJ 170 BOX 119 TEXTBOX 96 ELLIPSE 73 ARC 50 CIRCLE 27 TEXT) () \SK.GET.2NDCONTROLPT :D8 (I 0 GELT) x@dgð¯dgð§dgð—¿@dgð§dgð›¿@ dgð³dgð¯dgð§dgð˜¿@¿@g'(62 UPPERRIGHTCORNER) (116 2NDCONTROLPT 94 CLOSEDCURVE 86 OPENCURVE 78 CLOSEDWIRE 69 WIRE 49 BOX 41 TEXTBOX 25 ELLIPSE 17 ARC 9 CIRCLE) () \SK.PUT.2NDCONTROLPT :D8 (P 1 X P 0 INDVELT I 1 NEWPOSITION I 0 GELT) 'A ¦A ¿@HdgðŸ¿HA¿@ ±ùdgðŸ¿HA¿@ ±ádgðŸ¿HA¿@ ±Édgð²-¿H¹HIIAIÕAIÕI¿@ ±•dgð²,¿H¹HIIAIÕAIÕI¿@ °adgð³dgð³dgð¨dgð²-¿HYµHoAh¨HIAh‚IA¿@ °¿@gAi(291 LISTPUT 272 SK.UPDATE.WIRE.ELT.AFTER.CHANGE 194 SK.UPDATE.TEXTBOX.AFTER.CHANGE 142 SK.UPDATE.BOX.AFTER.CHANGE 90 SK.UPDATE.ELLIPSE.AFTER.CHANGE 66 SK.UPDATE.ARC.AFTER.CHANGE 42 SK.UPDATE.CIRCLE.AFTER.CHANGE 12 \ILLEGAL.ARG 5 POSITIONP) (285 2NDCONTROLPT 228 CLOSEDCURVE 220 OPENCURVE 211 CLOSEDWIRE 202 WIRE 151 TEXTBOX 99 BOX 75 ELLIPSE 51 ARC 27 CIRCLE) ( 245 (0 . 0)) \SK.GET.3RDCONTROLPT :D8 (I 0 GELT) `@dgð˜¿@dgð™¿@ dgð³dgð¯dgð§dgð™¿@¿@g'(37 \SK.GET.ARC.ANGLEPT) (92 3RDCONTROLPT 69 CLOSEDCURVE 61 OPENCURVE 53 CLOSEDWIRE 44 WIRE 26 ARC 9 ELLIPSE) () \SK.PUT.3RDCONTROLPT :D8 (P 1 X P 0 INDVELT I 1 NEWPOSITION I 0 GELT) @Hgð²NA ²HHHA°%Ad3²¿HHHA„ ¿@ iA ¦A ¿Hdgð²¿HA¿@ ±ƒdgð³dgð³dgð¨dgð²N¿HYµHooAh°*¯HIoAh°Id¿HIIAh‚A¿@ °¿@gAi(261 LISTPUT 242 SK.UPDATE.WIRE.ELT.AFTER.CHANGE 130 SK.UPDATE.ELLIPSE.AFTER.CHANGE 104 \ILLEGAL.ARG 97 POSITIONP 89 SK.UPDATE.ARC.AFTER.CHANGE 82 \ILLEGAL.ARG 75 SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 44 SK.COMPUTE.ARC.ANGLE.PT 21 POSITIONP) (255 3RDCONTROLPT 165 CLOSEDCURVE 157 OPENCURVE 148 CLOSEDWIRE 139 WIRE 113 ELLIPSE 12 ARC) ( 205 (0 . 0) 187 (0 . 0) 182 (0 . 0)) LOWERLEFTCORNER :D8 (I 0 REGION) @@ (9 CREATEPOSITION) NIL () UPPERRIGHTCORNER :D8 (I 0 REGION) @@ØmÿØ@@ØmÿØ (26 CREATEPOSITION) NIL () (PRETTYCOMPRINT SKETCHELEMENTSCOMS) (RPAQQ SKETCHELEMENTSCOMS ((* ; "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") (FNS SKETCHINCOLORP READ.COLOR.CHANGE) (INITVARS (SKETCHINCOLORFLG) ( FILLPOLYGONFLG T) (FILLINGMODEFLG T)) (INITVARS (SK.DEFAULT.BACKCOLOR) (SK.DEFAULT.OPERATION)) ( 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 SK.CREATE.DEFAULT.FILLING SKFILLINGP SK.INSURE.FILLING SK.INSURE.COLOR) (FNS SK.TRANSLATE.MODE SK.CHANGE.FILLING.MODE READ.FILLING.MODE)) (COMS (FNS SKETCH.CREATE.CIRCLE CIRCLE.EXPANDFN CIRCLE.DRAWFN \CIRCLE.DRAWFN1 CIRCLE.INPUTFN SK.UPDATE.CIRCLE.AFTER.CHANGE SK.READ.CIRCLE.POINT SK.SHOW.CIRCLE CIRCLE.INSIDEFN CIRCLE.REGIONFN CIRCLE.GLOBALREGIONFN CIRCLE.TRANSLATE CIRCLE.READCHANGEFN CIRCLE.TRANSFORMFN CIRCLE.TRANSLATEPTS SK.CIRCLE.CREATE SET.CIRCLE.SCALE SK.BRUSH.READCHANGE) (FNS SK.INSURE.BRUSH SK.INSURE.DASHING) (RECORDS BRUSH) (DECLARE%: DONTCOPY ( RECORDS LOCALCIRCLE CIRCLE)) (UGLYVARS CIRCLEICON) (CURSORS CIRCLE.CENTER CIRCLE.EDGE) (INITVARS ( SK.DEFAULT.BRUSH (CONS (QUOTE ROUND) (CONS 1 (CONS (QUOTE BLACK) NIL)))) (* ; "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)) (COMS (FNS SKETCH.CREATE.ELLIPSE ELLIPSE.EXPANDFN ELLIPSE.DRAWFN ELLIPSE.INPUTFN SK.READ.ELLIPSE.MAJOR.PT SK.SHOW.ELLIPSE.MAJOR.RADIUS SK.READ.ELLIPSE.MINOR.PT SK.SHOW.ELLIPSE.MINOR.RADIUS ELLIPSE.INSIDEFN ELLIPSE.CREATE SK.UPDATE.ELLIPSE.AFTER.CHANGE ELLIPSE.REGIONFN ELLIPSE.GLOBALREGIONFN ELLIPSE.TRANSLATEFN ELLIPSE.TRANSFORMFN ELLIPSE.TRANSLATEPTS MARK.SPOT DISTANCEBETWEEN SK.DISTANCE.TO SQUARE COMPUTE.ELLIPSE.ORIENTATION SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT) (DECLARE%: DONTCOPY (RECORDS LOCALELLIPSE ELLIPSE)) (UGLYVARS ELLIPSEICON) (CURSORS ELLIPSE.CENTER ELLIPSE.SEMI.MAJOR ELLIPSE.SEMI.MINOR)) (COMS (FNS SKETCH.CREATE.OPEN.CURVE OPENCURVE.INPUTFN SK.CURVE.CREATE MAXXEXTENT MAXYEXTENT KNOT.SET.SCALE.FIELD OPENCURVE.DRAWFN OPENCURVE.EXPANDFN OPENCURVE.READCHANGEFN OPENCURVE.TRANSFORMFN OPENCURVE.TRANSLATEFN OPENCURVE.TRANSLATEPTSFN SKETCH.CREATE.CLOSED.CURVE CLOSEDCURVE.DRAWFN CLOSEDCURVE.EXPANDFN CLOSEDCURVE.REGIONFN CLOSEDCURVE.GLOBALREGIONFN READ.LIST.OF.POINTS CLOSEDCURVE.INPUTFN CLOSEDCURVE.READCHANGEFN CLOSEDCURVE.TRANSFORMFN CLOSEDCURVE.TRANSLATEPTSFN INVISIBLEPARTP SHOWSKETCHPOINT SHOWSKETCHXY KNOTS.REGIONFN OPENWIRE.GLOBALREGIONFN CURVE.REGIONFN OPENCURVE.GLOBALREGIONFN KNOTS.TRANSLATEFN REGION.CONTAINING.PTS) (FNS CHANGE.ELTS.BRUSH.SIZE CHANGE.ELTS.BRUSH CHANGE.ELTS.BRUSH.SHAPE SK.CHANGE.BRUSH.SHAPE SK.CHANGE.BRUSH.COLOR SK.CHANGE.BRUSH.SIZE SK.CHANGE.ANGLE SK.CHANGE.ARC.DIRECTION SK.SET.DEFAULT.BRUSH.SIZE READSIZECHANGE) (FNS SK.CHANGE.ELEMENT.KNOTS) (FNS SK.INSURE.POINT.LIST SK.INSURE.POSITION) (DECLARE%: DONTCOPY (RECORDS KNOTELT LOCALCURVE OPENCURVE CLOSEDCURVE LOCALCLOSEDCURVE LOCALCLOSEDWIRE)) (UGLYVARS OPENCURVEICON CLOSEDCURVEICON) (CURSORS CURVE.KNOT)) (COMS (FNS SKETCH.CREATE.WIRE CLOSEDWIRE.EXPANDFN KNOTS.INSIDEFN OPEN.WIRE.DRAWFN WIRE.EXPANDFN SK.UPDATE.WIRE.ELT.AFTER.CHANGE OPENWIRE.READCHANGEFN OPENWIRE.TRANSFORMFN OPENWIRE.TRANSLATEFN OPENWIRE.TRANSLATEPTSFN WIRE.INPUTFN SK.READ.WIRE.POINTS SK.READ.POINTS.WITH.FEEDBACK OPENWIRE.FEEDBACKFN CLOSEDWIRE.FEEDBACKFN CLOSEDWIRE.REGIONFN CLOSEDWIRE.GLOBALREGIONFN SK.WIRE.CREATE WIRE.ADD.POINT.TO.END READ.ARROW.CHANGE CHANGE.ELTS.ARROWHEADS) (FNS SKETCH.CREATE.CLOSED.WIRE CLOSED.WIRE.INPUTFN CLOSED.WIRE.DRAWFN CLOSEDWIRE.READCHANGEFN CLOSEDWIRE.TRANSFORMFN CLOSEDWIRE.TRANSLATEPTSFN) (FNS SK.EXPAND.ARROWHEADS SK.COMPUTE.ARC.ARROWHEAD.POINTS ARC.ARROWHEAD.POINTS SET.ARC.ARROWHEAD.POINTS SET.OPENCURVE.ARROWHEAD.POINTS SK.COMPUTE.CURVE.ARROWHEAD.POINTS SET.WIRE.ARROWHEAD.POINTS SK.COMPUTE.WIRE.ARROWHEAD.POINTS SK.EXPAND.ARROWHEAD CHANGED.ARROW SK.CHANGE.ARROWHEAD SK.CHANGE.ARROWHEAD1 SK.CREATE.ARROWHEAD SK.ARROWHEAD.CREATE SK.ARROWHEAD.END.TEST READ.ARROWHEAD.END ARROW.HEAD.POSITIONS ARROWHEAD.POINTS.LIST CURVE.ARROWHEAD.POINTS LEFT.MOST.IS.BEGINP WIRE.ARROWHEAD.POINTS DRAWARROWHEADS \SK.DRAW.TRIANGLE.ARROWHEAD \SK.ENDPT.OF.ARROW \SK.ADJUST.FOR.ARROWHEADS SK.SET.ARROWHEAD.LENGTH SK.SET.ARROWHEAD.ANGLE SK.SET.ARROWHEAD.TYPE SK.SET.LINE.ARROWHEAD SK.UPDATE.ARROWHEAD.FORMAT SK.SET.LINE.LENGTH.MODE) (FNS SK.INSURE.ARROWHEADS SK.ARROWHEADP) (DECLARE%: DONTCOPY (RECORDS LOCALWIRE WIRE CLOSEDWIRE LOCALCLOSEDWIRE)) (RECORDS ARROWHEAD) (UGLYVARS VSHAPE.ARROWHEAD.BITMAP TRIANGLE.ARROWHEAD.BITMAP SOLIDTRIANGLE.ARROWHEAD.BITMAP CURVEDV.ARROWHEAD.BITMAP) (UGLYVARS WIREICON CLOSEDWIREICON) (INITVARS (SK.ARROWHEAD.ANGLE.INCREMENT 5 ) (SK.ARROWHEAD.LENGTH.INCREMENT 2)) (ADDVARS (SK.ARROWHEAD.TYPES LINE CLOSEDLINE CURVE SOLID)) ( INITVARS (SK.DEFAULT.ARROW.LENGTH 8) (SK.DEFAULT.ARROW.TYPE (QUOTE CURVE)) (SK.DEFAULT.ARROW.ANGLE 18.0)) (GLOBALVARS SK.DEFAULT.ARROW.LENGTH SK.DEFAULT.ARROW.TYPE SK.DEFAULT.ARROW.ANGLE SK.ARROWHEAD.TYPES) (INITVARS (SK.ARROW.END.MENU) (SK.ARROW.EDIT.MENU))) (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 TEXT.UPDATE.GLOBAL.REGIONS REL.MOVE.REGION LTEXT.LINE.REGIONS TEXT.INPUTFN READ.TEXT TEXT.POSITION.AND.CREATE CREATE.TEXT.ELEMENT SK.UPDATE.TEXT.AFTER.CHANGE SK.TEXT.FROM.TEXTBOX TEXT.SET.GLOBAL.REGIONS TEXT.REGIONFN TEXT.GLOBALREGIONFN TEXT.TRANSLATEFN TEXT.TRANSFORMFN TEXT.TRANSLATEPTSFN TEXT.UPDATEFN SK.CHANGE.TEXT TEXT.SET.SCALES BREAK.AT.CARRIAGE.RETURNS) (FNS ADD.KNOWN.SKETCH.FONT SK.PICK.FONT SK.CHOOSE.TEXT.FONT SK.NEXTSIZEFONT SK.DECREASING.FONT.LIST SK.GUESS.FONTSAVAILABLE) (INITVARS ( \KNOWN.SKETCH.FONTSIZES)) (GLOBALVARS \KNOWN.SKETCH.FONTSIZES) (DECLARE%: DONTCOPY (RECORDS TEXT LOCALTEXT)) (FNS SK.SET.FONT SK.SET.TEXT.FONT SK.SET.TEXT.SIZE SK.SET.TEXT.HORIZ.ALIGN SK.READFONTSIZE SK.COLLECT.FONT.SIZES SK.SET.TEXT.VERT.ALIGN SK.SET.TEXT.LOOKS SK.SET.DEFAULT.TEXT.FACE) (FNS CREATE.SKETCH.TERMTABLE) (FNS SK.FONT.LIST SK.INSURE.FONT SK.INSURE.STYLE SK.INSURE.TEXT) (VARS INDICATE.TEXT.SHADE) (INITVARS (SK.DEFAULT.FONT) (SK.DEFAULT.TEXT.ALIGNMENT (QUOTE (CENTER BASELINE))) ) (INITVARS \FONTSONFILE) (ADDVARS (SK.HORIZONTAL.STYLES LEFT RIGHT CENTER) (SK.VERTICAL.STYLES TOP CENTER BASELINE BOTTOM)) (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.") (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 SK.TEXTURE.AROUND.REGIONS ALL.EMPTY.REGIONS TEXTBOX.EXPANDFN TEXTBOX.INPUTFN TEXTBOX.INSIDEFN TEXTBOX.REGIONFN TEXTBOX.GLOBALREGIONFN TEXTBOX.SET.GLOBAL.REGIONS TEXTBOX.TRANSLATEFN TEXTBOX.TRANSLATEPTSFN 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") (FNS SK.SET.TEXTBOX.VERT.ALIGN SK.SET.TEXTBOX.HORIZ.ALIGN) (VARS TEXTBOXICON) (INITVARS ( SK.DEFAULT.TEXTBOX.ALIGNMENT (QUOTE (CENTER CENTER)))) (GLOBALVARS SK.DEFAULT.TEXTBOX.ALIGNMENT))) ( 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 SK.BOX.GLOBALREGIONFN SK.BOX.READCHANGEFN SK.CHANGE.FILLING SK.CHANGE.FILLING.COLOR SK.BOX.TRANSLATEFN SK.BOX.TRANSFORMFN SK.BOX.TRANSLATEPTSFN UNSCALE.REGION.TO.GRID INCREASEREGION INSUREREGIONSIZE EXPANDREGION REGION.FROM.COORDINATES) (DECLARE%: DONTCOPY (RECORDS BOX LOCALBOX)) ( UGLYVARS BOXICON)) (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 ARC.TRANSLATE ARC.TRANSFORMFN ARC.READCHANGEFN) (FNS SK.COMPUTE.ARC.ANGLE.PT SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE SK.COMPUTE.ARC.PTS SK.SET.ARC.DIRECTION SK.SET.ARC.DIRECTION.CW SK.SET.ARC.DIRECTION.CCW SK.COMPUTE.SLOPE.OF.LINE SK.CREATE.ARC.USING SET.ARC.SCALES) (FNS SK.INSURE.DIRECTION) (INITVARS (SK.NUMBER.OF.POINTS.IN.ARC 8)) (GLOBALVARS SK.NUMBER.OF.POINTS.IN.ARC) (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") (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 ADDSKETCHELEMENTPROP REMOVESKETCHELEMENTPROP \SK.PUT.FONT \SK.PUT.JUSTIFICATION \SK.PUT.DIRECTION \SK.PUT.DASHING \SK.PUT.BRUSH \SK.PUT.ARROWHEADS SK.COPY.ELEMENT.PROPERTY.LIST SKETCH.UPDATE SKETCH.UPDATE1 \SKELT.GET.SCALE \SKELT.PUT.SCALE \SKELT.PUT.DATA SK.REPLACE.TEXT.IN.ELEMENT \SKELT.GET.DATA \SK.GET.1STCONTROLPT \SK.PUT.1STCONTROLPT \SK.GET.2NDCONTROLPT \SK.PUT.2NDCONTROLPT \SK.GET.3RDCONTROLPT \SK.PUT.3RDCONTROLPT) (FNS LOWERLEFTCORNER UPPERRIGHTCORNER)))) (RPAQ? SKETCHINCOLORFLG) (RPAQ? FILLPOLYGONFLG T) (RPAQ? FILLINGMODEFLG T) (RPAQ? SK.DEFAULT.BACKCOLOR) (RPAQ? SK.DEFAULT.OPERATION) (RECORD SKFILLING (FILLING.TEXTURE FILLING.COLOR FILLING.OPERATION)) (RECORD BRUSH (BRUSHSHAPE BRUSHSIZE BRUSHCOLOR) BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1) (READVARS-FROM-STRINGS (QUOTE (CIRCLEICON)) "({(READBITMAP)(20 12 %"@AOH@@@@%" %"@COL@@@@%" %"@G@N@@@@%" %"@F@F@@@@%" %"@N@G@@@@%" %"@L@C@@@@%" %"@L@C@@@@%" %"@N@G@@@@%" %"@F@F@@@@%" %"@G@N@@@@%" %"@COL@@@@%" %"@AOH@@@@%")}) ") (RPAQ CIRCLE.CENTER (CURSORCREATE (QUOTE #*(16 16)@@@@@GL@AOO@CLGHG@ALF@@LN@@NL@@FL@@FL@@FN@@NF@@LG@ALCLGHAON@@GH@ ) (QUOTE NIL) 7 7)) (RPAQ CIRCLE.EDGE (CURSORCREATE (QUOTE #*(16 16)@@@L@@@D@@@F@@@B@@@C@@LA@@OA@@GMOOOO@@GM@@OA@@LC@@@B@@@F@@@D@@@L ) (QUOTE NIL) 15 7)) (RPAQ? SK.DEFAULT.BRUSH (CONS (QUOTE ROUND) (CONS 1 (CONS (QUOTE BLACK) NIL)))) (RPAQ? SK.DEFAULT.DASHING) (RPAQ? SK.DEFAULT.TEXTURE) (READVARS-FROM-STRINGS (QUOTE (ELLIPSEICON)) "({(READBITMAP)(20 12 %"@COL@@@@%" %"AOOOH@@@%" %"CN@GL@@@%" %"G@@@N@@@%" %"N@@@G@@@%" %"L@@@C@@@%" %"L@@@C@@@%" %"N@@@G@@@%" %"G@@@N@@@%" %"CN@GL@@@%" %"AOOOH@@@%" %"@COL@@@@%")}) ") (RPAQ ELLIPSE.CENTER (CURSORCREATE (QUOTE #*(16 16)@@@@@GL@AOO@CLGHG@ALF@@LN@@NL@@FL@@FL@@FN@@NF@@LG@ALCLGHAOO@@GL@ ) (QUOTE NIL) 7 7)) (RPAQ ELLIPSE.SEMI.MAJOR (CURSORCREATE (QUOTE #*(16 16)@@@L@@@D@@@F@@@B@@@C@@LA@@OA@@GMOOOO@@GM@@OA@@LC@@@B@@@F@@@D@@@L ) (QUOTE NIL) 15 7)) (RPAQ ELLIPSE.SEMI.MINOR (CURSORCREATE (QUOTE #*(16 16)@ON@CICHNCHNHCHC@GL@@GL@@ON@@MF@@A@@@A@@@A@@@A@@@A@@@A@@@A@@@A@@ ) (QUOTE NIL) 7 15)) (READVARS-FROM-STRINGS (QUOTE (OPENCURVEICON CLOSEDCURVEICON)) "({(READBITMAP)(20 12 %"@@@@@@@@%" %"@L@@@@@@%" %"@L@@F@@@%" %"AL@@O@@@%" %"AH@@G@@@%" %"CH@@C@@@%" %"CH@@C@@@%" %"CH@@G@@@%" %"AN@@N@@@%" %"@OCLN@@@%" %"@COOL@@@%" %"@@NCH@@@%")} {(READBITMAP)(20 12 %"@@C@@@@@%" %"ALGO@@@@%" %"CNLOL@@@%" %"GCLAN@@@%" %"FAAHF@@@%" %"L@CLC@@@%" %"N@CFC@@@%" %"F@FFG@@@%" %"C@FGF@@@%" %"CLFCL@@@%" %"AON@H@@@%" %"@GL@@@@@%")}) ") (RPAQ CURVE.KNOT (CURSORCREATE (QUOTE #*(16 16)@GN@AOOHCLCLG@@NFDBFNJEGLEJCLBDCLBDCLEJCNJEGFDBFG@@NCLCLAOOH@GN@ ) (QUOTE NIL) 0 8)) (RECORD ARROWHEAD (ARROWTYPE ARROWANGLE ARROWLENGTH)) (READVARS-FROM-STRINGS (QUOTE (VSHAPE.ARROWHEAD.BITMAP TRIANGLE.ARROWHEAD.BITMAP SOLIDTRIANGLE.ARROWHEAD.BITMAP CURVEDV.ARROWHEAD.BITMAP)) "({(READBITMAP)(24 18 %"@@@@@@@@%" %"@@L@@@@@%" %"@@C@@@@@%" %"@@@L@@@@%" %"@@@C@@@@%" %"@@@@L@@@%" %"@@@@C@@@%" %"@@@@@L@@%" %"@@@@@B@@%" %"OOOOOO@@%" %"@@@@@B@@%" %"@@@@@L@@%" %"@@@@C@@@%" %"@@@@L@@@%" %"@@@C@@@@%" %"@@@L@@@@%" %"@@C@@@@@%" %"@@L@@@@@%")} {(READBITMAP)(24 18 %"@@@@@@@@%" %"@@L@@@@@%" %"@@K@@@@@%" %"@@HL@@@@%" %"@@HC@@@@%" %"@@H@L@@@%" %"@@H@C@@@%" %"@@H@@L@@%" %"@@H@@B@@%" %"OOOOOO@@%" %"@@H@@B@@%" %"@@H@@L@@%" %"@@H@C@@@%" %"@@H@L@@@%" %"@@HC@@@@%" %"@@HL@@@@%" %"@@K@@@@@%" %"@@L@@@@@%")} {(READBITMAP)(24 18 %"@@@@@@@@%" %"@@L@@@@@%" %"@@O@@@@@%" %"@@OL@@@@%" %"@@OO@@@@%" %"@@OOL@@@%" %"@@OOO@@@%" %"@@OOOL@@%" %"@@OOON@@%" %"OOOOOO@@%" %"@@OOON@@%" %"@@OOOL@@%" %"@@OOO@@@%" %"@@OOL@@@%" %"@@OO@@@@%" %"@@OL@@@@%" %"@@O@@@@@%" %"@@L@@@@@%")} {(READBITMAP)(24 18 %"@@@@@@@@%" %"@@@@@@@@%" %"@A@@@@@@%" %"@@H@@@@@%" %"@@D@@@@@%" %"@@C@@@@@%" %"@@@N@@@@%" %"@@@AL@@@%" %"@@@@CH@@%" %"OOOOOO@@%" %"@@@@CH@@%" %"@@@AL@@@%" %"@@@N@@@@%" %"@@C@@@@@%" %"@@D@@@@@%" %"@@H@@@@@%" %"@A@@@@@@%" %"@@@@@@@@%")}) ") (READVARS-FROM-STRINGS (QUOTE (WIREICON CLOSEDWIREICON)) "({(READBITMAP)(20 12 %"@D@@@@@@%" %"@L@@@@@@%" %"AH@@@@@@%" %"C@GOL@@@%" %"F@OOL@@@%" %"L@L@L@@@%" %"LAH@L@@@%" %"FAHAH@@@%" %"CC@C@@@@%" %"AK@C@@@@%" %"@N@F@@@@%" %"@F@L@@@@%")} {(READBITMAP)(20 12 %"@G@GN@@@%" %"@OHON@@@%" %"AMMLN@@@%" %"CHOIL@@@%" %"G@GCH@@@%" %"N@@G@@@@%" %"G@@N@@@@%" %"CH@GH@@@%" %"AL@AN@@@%" %"@O@@F@@@%" %"@GOON@@@%" %"@COON@@@%")}) ") (RPAQ? SK.ARROWHEAD.ANGLE.INCREMENT 5) (RPAQ? SK.ARROWHEAD.LENGTH.INCREMENT 2) (ADDTOVAR SK.ARROWHEAD.TYPES LINE CLOSEDLINE CURVE SOLID) (RPAQ? SK.DEFAULT.ARROW.LENGTH 8) (RPAQ? SK.DEFAULT.ARROW.TYPE (QUOTE CURVE)) (RPAQ? SK.DEFAULT.ARROW.ANGLE 18.0) (RPAQ? SK.ARROW.END.MENU) (RPAQ? SK.ARROW.EDIT.MENU) (RPAQ? \KNOWN.SKETCH.FONTSIZES) (RPAQQ INDICATE.TEXT.SHADE 23130) (RPAQ? SK.DEFAULT.FONT) (RPAQ? SK.DEFAULT.TEXT.ALIGNMENT (QUOTE (CENTER BASELINE))) (RPAQ? \FONTSONFILE NIL) (ADDTOVAR SK.HORIZONTAL.STYLES LEFT RIGHT CENTER) (ADDTOVAR SK.VERTICAL.STYLES TOP CENTER BASELINE BOTTOM) (RPAQ SKETCH.TERMTABLE (CREATE.SKETCH.TERMTABLE)) (RPAQQ TEXTBOXICON #*(36 12)OOOOOOOOO@@@OOOOOOOOO@@@L@@@@@@@C@@@ML@@@N@@C@@@LIMELIBEC@@@LIDHHOEBC@@@LILHHIEBC@@@LIADHIEEC@@@LIMDHNBEC@@@L@@@@@@@C@@@OOOOOOOOO@@@OOOOOOOOO@@@ ) (RPAQ? SK.DEFAULT.TEXTBOX.ALIGNMENT (QUOTE (CENTER CENTER))) (READVARS-FROM-STRINGS (QUOTE (BOXICON)) "({(READBITMAP)(20 12 %"@@@@@@@@%" %"GOOON@@@%" %"GOOON@@@%" %"F@@@F@@@%" %"F@@@F@@@%" %"F@@@F@@@%" %"F@@@F@@@%" %"F@@@F@@@%" %"F@@@F@@@%" %"GOOON@@@%" %"GOOON@@@%" %"@@@@@@@@%")}) ") (RPAQ? SK.NUMBER.OF.POINTS.IN.ARC 8) (RPAQ ARC.RADIUS.CURSOR (CURSORCREATE (QUOTE #*(16 16)@@@L@@@D@@@F@@@B@@@C@@LA@@OA@@CMOOOO@@CL@@O@@@L@@@@@@@@@@@@@@@@@ ) (QUOTE NIL) 15 7)) (RPAQ ARC.ANGLE.CURSOR (CURSORCREATE (QUOTE #*(16 16)@AN@@ACL@CHG@CHA@GL@@GL@@MF@@MF@@A@@@A@@@A@@@A@@@A@@@A@@@A@@@A@@ ) (QUOTE NIL) 7 15)) (RPAQ CW.ARC.ANGLE.CURSOR (CURSORCREATE (QUOTE #*(16 16)@O@@GI@@LCH@@CH@@GL@@GL@@MF@@MF@@A@@@A@@@A@@@A@@@A@@@A@@@A@@@A@@ ) (QUOTE NIL) 7 15)) (RPAQ CW.ARC.RADIUS.CURSOR (CURSORCREATE (QUOTE #*(16 16)@@@@@@@@@@@@@@@@@@@@@@L@@@O@@@CLOOOO@@CM@@OA@@LC@@@B@@@F@@@L@@AH ) (QUOTE NIL) 15 7)) (READVARS-FROM-STRINGS (QUOTE (ARCICON)) "({(READBITMAP)(20 13 %"@@@@@@@@%" %"@AOH@@@@%" %"@COL@@@@%" %"@G@N@@@@%" %"@F@F@@@@%" %"@N@G@@@@%" %"@L@C@@@@%" %"@@@C@@@@%" %"@@@G@@@@%" %"@@@F@@@@%" %"@@@N@@@@%" %"@@@L@@@@%" %"@@@@@@@@%")}) ") (PUTPROPS SKETCHELEMENTS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1991 1992 1993 2000 2021)) NIL