(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10) (FILECREATED " 7-Apr-87 13:51:39" ("compiled on " {ERIS}LIBRARY>SKETCHELEMENTS.;8) "31-Mar-87 21:33:35" brecompiled changes%: SK.CHANGE.TEXT in "Xerox Lisp 31-Mar-87 ..." dated "31-Mar-87 21:58:30") (FILECREATED " 7-Apr-87 13:43:39" {ERIS}LIBRARY>SKETCHELEMENTS.;8 540600 changes to%: (FNS SK.CHANGE.TEXT) previous date%: " 5-Mar-87 16:24:10" {ERIS}LIBRARY>SKETCHELEMENTS.;7) INIT.SKETCH.ELEMENTS :D4 (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) M g ³4gPogggggggghgggg ¿g ³4gQogggggggghgggg ¿g ³4gRogggggggghgggg ¿g ³4gTogggggggghgggg ¿g ³4gVogggggggghgggg ¿g ³5gWogggggggghgggg ¿g ³4gSogggggggghgggg ¿g ³6ghoggggggggggggg ¿g ³4gUogggggggghgggg ¿g ³7gWoggggggggggggg h(584 CREATE.SKETCH.ELEMENT.TYPE 530 SKETCH.ELEMENT.TYPEP 523 CREATE.SKETCH.ELEMENT.TYPE 472 SKETCH.ELEMENT.TYPEP 465 CREATE.SKETCH.ELEMENT.TYPE 412 SKETCH.ELEMENT.TYPEP 405 CREATE.SKETCH.ELEMENT.TYPE 354 SKETCH.ELEMENT.TYPEP 347 CREATE.SKETCH.ELEMENT.TYPE 295 SKETCH.ELEMENT.TYPEP 288 CREATE.SKETCH.ELEMENT.TYPE 237 SKETCH.ELEMENT.TYPEP 230 CREATE.SKETCH.ELEMENT.TYPE 179 SKETCH.ELEMENT.TYPEP 172 CREATE.SKETCH.ELEMENT.TYPE 121 SKETCH.ELEMENT.TYPEP 114 CREATE.SKETCH.ELEMENT.TYPE 63 SKETCH.ELEMENT.TYPEP 56 CREATE.SKETCH.ELEMENT.TYPE 5 SKETCH.ELEMENT.TYPEP) (580 TEXTBOX.GLOBALREGIONFN 577 TEXTBOX.TRANSLATEPTSFN 574 TEXTBOX.TRANSFORMFN 571 TEXTBOX.READCHANGEFN 568 TEXTBOX.UPDATEFN 565 TEXTBOX.TRANSLATEFN 562 TEXTBOX.REGIONFN 559 TEXTBOX.INSIDEFN 556 TEXTBOX.INPUTFN 553 SK.ELEMENTS.CHANGEFN 550 OBSOLETE 547 TEXTBOX.EXPANDFN 544 TEXTBOX.DRAWFN 535 TEXTBOX 527 TEXTBOX 519 SK.BOX.GLOBALREGIONFN 516 SK.BOX.TRANSLATEPTSFN 513 SK.BOX.TRANSFORMFN 510 SK.BOX.READCHANGEFN 506 SK.BOX.TRANSLATEFN 503 SK.BOX.REGIONFN 500 SK.BOX.INSIDEFN 497 SK.BOX.INPUTFN 494 SK.ELEMENTS.CHANGEFN 491 OBSOLETE 488 SK.BOX.EXPANDFN 485 SK.BOX.DRAWFN 477 BOX 469 BOX 461 TEXT.GLOBALREGIONFN 458 TEXT.TRANSLATEPTSFN 455 TEXT.TRANSFORMFN 452 TEXT.READCHANGEFN 449 TEXT.UPDATEFN 446 TEXT.TRANSLATEFN 443 TEXT.REGIONFN 440 TEXT.INSIDEFN 437 TEXT.INPUTFN 434 SK.ELEMENTS.CHANGEFN 431 OBSOLETE 428 TEXT.EXPANDFN 425 TEXT.DRAWFN 417 TEXT 409 TEXT 401 CLOSEDWIRE.GLOBALREGIONFN 398 CLOSEDWIRE.TRANSLATEPTSFN 395 CLOSEDWIRE.TRANSFORMFN 392 CLOSEDWIRE.READCHANGEFN 388 KNOTS.TRANSLATEFN 385 CLOSEDWIRE.REGIONFN 382 KNOTS.INSIDEFN 379 CLOSED.WIRE.INPUTFN 376 SK.ELEMENTS.CHANGEFN 373 OBSOLETE 370 CLOSEDWIRE.EXPANDFN 367 CLOSED.WIRE.DRAWFN 359 CLOSEDWIRE 351 CLOSEDWIRE 343 OPENWIRE.GLOBALREGIONFN 340 OPENWIRE.TRANSLATEPTSFN 337 OPENWIRE.TRANSFORMFN 334 OPENCURVE.READCHANGEFN 330 OPENWIRE.TRANSLATEFN 327 KNOTS.REGIONFN 324 KNOTS.INSIDEFN 321 WIRE.INPUTFN 318 SK.ELEMENTS.CHANGEFN 315 OBSOLETE 312 WIRE.EXPANDFN 309 OPEN.WIRE.DRAWFN 300 WIRE 292 WIRE 284 CLOSEDCURVE.GLOBALREGIONFN 281 CLOSEDCURVE.TRANSLATEPTSFN 278 CLOSEDCURVE.TRANSFORMFN 275 CLOSEDCURVE.READCHANGEFN 271 KNOTS.TRANSLATEFN 268 CLOSEDCURVE.REGIONFN 265 KNOTS.INSIDEFN 262 CLOSEDCURVE.INPUTFN 259 SK.ELEMENTS.CHANGEFN 256 OBSOLETE 253 CLOSEDCURVE.EXPANDFN 250 CLOSEDCURVE.DRAWFN 242 CLOSEDCURVE 234 CLOSEDCURVE 226 OPENCURVE.GLOBALREGIONFN 223 OPENCURVE.TRANSLATEPTSFN 220 OPENCURVE.TRANSFORMFN 217 OPENCURVE.READCHANGEFN 213 OPENCURVE.TRANSLATEFN 210 CURVE.REGIONFN 207 KNOTS.INSIDEFN 204 OPENCURVE.INPUTFN 201 SK.ELEMENTS.CHANGEFN 198 OBSOLETE 195 OPENCURVE.EXPANDFN 192 OPENCURVE.DRAWFN 184 OPENCURVE 176 OPENCURVE 168 ARC.GLOBALREGIONFN 165 ARC.TRANSLATEPTS 162 ARC.TRANSFORMFN 159 ARC.READCHANGEFN 155 ARC.TRANSLATE 152 ARC.REGIONFN 149 ARC.INSIDEFN 146 ARC.INPUTFN 143 SK.ELEMENTS.CHANGEFN 140 OBSOLETE 137 ARC.EXPANDFN 134 ARC.DRAWFN 126 ARC 118 ARC 110 ELLIPSE.GLOBALREGIONFN 107 ELLIPSE.TRANSLATEPTS 104 ELLIPSE.TRANSFORMFN 101 SK.BRUSH.READCHANGE 97 ELLIPSE.TRANSLATEFN 94 ELLIPSE.REGIONFN 91 ELLIPSE.INSIDEFN 88 ELLIPSE.INPUTFN 85 SK.ELEMENTS.CHANGEFN 82 OBSOLETE 79 ELLIPSE.EXPANDFN 76 ELLIPSE.DRAWFN 68 ELLIPSE 60 ELLIPSE 52 CIRCLE.GLOBALREGIONFN 49 CIRCLE.TRANSLATEPTS 46 CIRCLE.TRANSFORMFN 43 CLOSEDWIRE.READCHANGEFN 39 CIRCLE.TRANSLATE 36 CIRCLE.REGIONFN 33 CIRCLE.INSIDEFN 30 CIRCLE.INPUTFN 27 SK.ELEMENTS.CHANGEFN 24 OBSOLETE 21 CIRCLE.EXPANDFN 18 CIRCLE.DRAWFN 10 CIRCLE 2 CIRCLE) ( 541 "Adds a box into which text can be typed." 482 "Adds a box by accepting two corners." 422 "text is added by pointing to its position and typing." 364 "Adds a closed polygon by accepting the corners." 306 "Adds a series of lines by accepting points." 247 "Adds a closed curve by accepting points that it goes though." 189 "Adds a curve by accepting points the curve goes through." 131 "Adds an arc to the figure." 73 "Adds an ellipse to the figure." 15 "Adds a circle to the figure.") CREATE.SKETCH.ELEMENT.TYPE :D4 (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µu@g`dA¿dB¿dC¿dD¿dF ¿dG¿dG¿dG¿dG¿dG¿dG¿dG¿dG¿dG¿`@d` §`@gð³‰Ei ¿oi ¿±ÿx(137 PRIN1 128 PRIN1 107 MEMB 92 PUTPROP) (120 OBSOLETE 115 SKETCH.ELEMENT.TYPE.NAMES 111 SKETCH.ELEMENT.TYPE.NAMES 104 SKETCH.ELEMENT.TYPE.NAMES 99 SKETCH.ELEMENT.TYPES 95 SKETCH.ELEMENT.TYPES 9 |SKETCHTYPETYPE#| 6 SKETCHTYPE) ( 133 " will never be called. CREATE.SKETCH.ELEMENT.TYPE") SKETCH.ELEMENT.TYPEP :D4 (I 0 SKETCHTYPE) @` ´ @g (15 GETPROP 6 MEMB) (12 SKETCHTYPE 3 SKETCH.ELEMENT.TYPE.NAMES) () SKETCH.ELEMENT.NAMEP :D4 (L (0 X)) @`NIL (3 SKETCH.ELEMENT.TYPE.NAMES) () \CURSOR.IN.MIDDLE.MENU :D4 (I 0 MENU) '@`@ Èl×Õ`@ Èl×Õ (36 MENU 23 CHECK/MENU/IMAGE 7 CHECK/MENU/IMAGE) (26 BITMAP 19 LASTMOUSEY 10 BITMAP 3 LASTMOUSEX) () SKETCHINCOLORP :D4 NIL `NIL (2 SKETCHINCOLORFLG) () READ.COLOR.CHANGE :D4 (I 2 CURRENTCOLOR I 1 ALLOWNONEFLG I 0 MSG) @AB(5 READCOLOR1) NIL () SK.CREATE.DEFAULT.FILLING :D4 (F 0 SK.DEFAULT.OPERATION) ``PhNIL (5 SK.DEFAULT.BACKCOLOR 2 SK.DEFAULT.TEXTURE) () SKFILLINGP :D4 (I 0 FILLING) @´@ ´ @¡@h(8 TEXTUREP) NIL () SK.INSURE.FILLING :D4 (P 0 DEFAULTFILLING I 1 SKW I 0 FILLING) T@ µ!A ŸAg ‚@µH Ÿ@HHH@ žH@HH@ (81 \ILLEGAL.ARG 61 \POSSIBLECOLOR 40 TEXTUREP 29 SK.CREATE.DEFAULT.FILLING 17 GETWINDOWUSERPROP 9 WINDOWP 3 SKFILLINGP) (14 SKETCHCONTEXT) () SK.INSURE.COLOR :D4 (I 0 COLOR) @d˜ µ@ (11 \ILLEGAL.ARG 5 \POSSIBLECOLOR) NIL () SK.TRANSLATE.MODE :D4 (I 1 STREAM I 0 OPERATION) &hA gð²@dgð“ggð“gg@(4 DSPOPERATION) (33 ERASE 29 PAINT 24 ERASE 20 INVERT 15 INVERT 7 ERASE) () SK.CHANGE.FILLING.MODE :D4 (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°6gðH°#Ldgð™¿Hgð—H‚ZYAIô’±1JJAJ[Ldgð²)¿gHHHHKH±Þgð²^gHHHHHHHHHKH°{Ldgð²2¿gHHHHKHH°Cgð²:gHHHHHKHH‚]@Mh¾@NgKJhh(385 SHOULDNT 93 SHOULDNT 14 MEMB) (398 FILLING 329 CIRCLE 323 CIRCLE 276 CLOSEDWIRE 269 CLOSEDWIRE 175 TEXTBOX 169 TEXTBOX 131 BOX 124 BOX 80 CLOSEDWIRE 65 CIRCLE 44 TEXTBOX 29 BOX) ( 11 (BOX TEXTBOX CLOSEDWIRE CIRCLE)) READ.FILLING.MODE :D4 NIL F`di¿do¿dk¿do¿dg ¿dg¿jdnÿdhHdI ¿ (67 \CURSOR.IN.MIDDLE.MENU) (40 DEFAULTMENUHELDFN 33 CLRPROMPT 2 |MENUTYPE#|) ( 26 ((REPLACE (QUOTE REPLACE) "the filling completely covers anything under it.") (PAINT (QUOTE PAINT) "the black parts of the filling cover but the white parts show through.") (ERASE (QUOTE ERASE) "the black parts of the filling are erased.") (INVERT (QUOTE INVERT) "the black parts of the filling are inverted.")) 13 "How should the filling merge with the covered figures?") SKETCH.CREATE.CIRCLE :D4 (I 5 SCALE I 4 FILLING I 3 DASHING I 2 BRUSH I 1 RADIUSPT I 0 CENTERPT) 2@ Ad3š¿@AÔ@jÔ‚ B C E3µoD (47 SK.CIRCLE.CREATE 43 SK.INSURE.FILLING 30 SK.INSURE.DASHING 26 SK.INSURE.BRUSH 22 SK.INSURE.POSITION 3 SK.INSURE.POSITION) NIL ( 39 1.0) CIRCLE.EXPANDFN :D4 (P 3 BRUSH P 2 RADIUSPT P 1 CENTER P 0 INDGCIRCLE I 1 SCALE I 0 GCIRCLE) ¯@1Hd³D¿@gHHHHoHHHX¿HA YHA ZhhIJ H[d3²¿HgKhh[¿KHAH Hh@(157 \APPEND2 146 SCALE.BRUSH 106 DISTANCEBETWEEN 96 SK.SCALE.POSITION.INTO.VIEWER 87 SK.SCALE.POSITION.INTO.VIEWER) (125 ROUND 21 CIRCLE) ( 43 1.0) CIRCLE.DRAWFN :D4 (P 4 FILLING P 3 DASHING P 2 CPOS P 1 LCIRCLE P 0 GCIRCLE I 2 REGION I 1 WINDOW I 0 CIRCLEELT) z@@2IZI[I\dd²¿dA JJIL°%²-LA JJIhA gð“nÿÿLA ¿A ¿JIIIKA (119 \CIRCLE.DRAWFN1 98 DSPOPERATION 93 FILLCIRCLE 77 DSPOPERATION 64 DSPOPERATION 42 DSPOPERATION) (80 ERASE) () \CIRCLE.DRAWFN1 :D4 (I 5 WINDOW I 4 DASHING I 3 BRUSH I 2 RADIUS I 1 RADIUSPT I 0 CENTERPT) 'D²@Ado iCDE @@BCDE (36 DRAWCIRCLE 23 DRAWCURVE 15 SK.COMPUTE.ARC.PTS 12 PTPLUS) NIL ( 9 (0 . -1)) CIRCLE.INPUTFN :D4 (P 2 RADIUSPT P 1 CENTERPT P 0 SKETCHCONTEXT I 0 WINDOW F 3 CIRCLE.CENTER F 4 CIRCLE.EDGE) €@g !@oo@Shddd` Yµ@ hh@@oo@ITZIh@@ J´ÖI@ YJ@ ZIJHH@ H (125 SK.CIRCLE.CREATE 112 SK.INPUT.SCALE 97 SK.MAP.INPUT.PT.TO.GLOBAL 91 SK.MAP.INPUT.PT.TO.GLOBAL 83 CLOSEPROMPTWINDOW 79 MARK.SPOT 70 SK.READ.CIRCLE.POINT 62 STATUSPRINT 50 MARK.SPOT 41 CLOSEPROMPTWINDOW 34 SK.READ.POINT.WITH.FEEDBACK 21 STATUSPRINT 6 GETWINDOWUSERPROP) (30 SKETCH.USE.POSITION.PAD 3 SKETCHCONTEXT) ( 59 "Indicate a point of the circumference of the circle" 55 " " 18 "Indicate center of circle" 14 " ") SK.UPDATE.CIRCLE.AFTER.CHANGE :D4 (L (0 GCIRELT)) @hNIL NIL () SK.READ.CIRCLE.POINT :D4 (I 2 CURSOR I 1 CENTERPT I 0 WINDOW) @B`´gAgh` (21 SK.READ.POINT.WITH.FEEDBACK) (17 SKETCH.USE.POSITION.PAD 13 MIDDLE 9 SK.SHOW.CIRCLE 4 SKETCH.VERBOSE.FEEDBACK) () SK.SHOW.CIRCLE :D4 (P 1 CENTERY P 0 CENTERX I 3 CENTERPT I 2 WINDOW I 1 Y I 0 X) @ABCCHIHI@AkhB h(28 DRAWCIRCLE 21 SK.DISTANCE.TO 5 SHOWSKETCHXY) NIL () CIRCLE.INSIDEFN :D4 (P 0 INDGCIRCLE I 1 WREG I 0 GCIRCLE) @AH µ AH (22 INSIDEP 12 INSIDEP) NIL () CIRCLE.REGIONFN :D4 (P 1 RADIUS P 0 LOCALCIRCLE I 0 CIRCSCRELT) 1@HkH kØâkØØYHXIÙHIÙIlÚYd(46 CREATEREGION 19 MAX) NIL () CIRCLE.GLOBALREGIONFN :D4 (P 3 REGION P 2 CENTER P 1 RADIUS P 0 INDVCIRCLE I 0 GCIRELT) F@µ9@1HZH HÔYJIÕJIÕIlÖYd[HKK(55 CREATEREGION 29 DISTANCEBETWEEN) NIL () CIRCLE.TRANSLATE :D4 (P 0 GCIRCLE I 1 DELTAPOS I 0 CIRCLESKELT) N@@ gHA HA HHHHhHh(28 PTPLUS 20 PTPLUS 10 \APPEND2) (13 CIRCLE) () CIRCLE.TRANSFORMFN :D4 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) e@@@@@gHABHABHC HHHhH@(54 SK.TRANSFORM.BRUSH 45 SK.TRANSFORM.POINT 36 SK.TRANSFORM.POINT) (28 CIRCLE) () CIRCLE.TRANSLATEPTS :D4 (P 1 GCIRCLE P 0 LCIRCLE I 3 WINDOW I 2 GLOBALDELTA I 1 SELPTS I 0 CIRCLESPEC) R@@HA —IB ‚IHA ˜IB ƒIIIII (79 SK.CIRCLE.CREATE 44 PTPLUS 35 MEMBER 23 PTPLUS 15 MEMBER) NIL () SK.CIRCLE.CREATE :D4 (I 5 FILLING I 4 INITSCALE I 3 DASHING I 2 BRUSH I 1 RADIUSPT I 0 CENTERPT) "hddhg@ABCDEhhh (31 SET.CIRCLE.SCALE) (9 CIRCLE) () SET.CIRCLE.SCALE :D4 (P 1 RAD P 0 INDVPART I 0 GCIRCELT) #@!HH Y@IZo×Jhh@(15 DISTANCEBETWEEN) NIL ( 23 3000.0) SK.BRUSH.READCHANGE :D4 (P 1 HOW P 0 ASPECT I 1 SCRNELTS I 0 SKW) ™@`di¿do¿´oo ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ Xdgð™¿o °3gð”°)Hdgð•¿°gð´ohAg Yd´HIh(141 READ.COLOR.CHANGE 135 GETSKETCHELEMENTPROP 113 READ.DASHING.CHANGE 100 READBRUSHSHAPE 90 READSIZECHANGE 75 \CURSOR.IN.MIDDLE.MENU 35 \APPEND2 22 SKETCHINCOLORP) (132 BRUSH 118 BRUSHCOLOR 107 DASHING 95 SHAPE 80 SIZE 52 DEFAULTMENUHELDFN 45 CLRPROMPT 5 |MENUTYPE#|) ( 125 "Change brush color how?" 87 "Change size how?" 32 ((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.")) 28 (("Color" (QUOTE BRUSHCOLOR) "changes the color of the brush")) 16 "select aspect of brush to change") SK.INSURE.BRUSH :D4 (I 0 BRUSH) !@ µ@d3š¿g@hh£`@ (30 \ILLEGAL.ARG 3 BRUSHP) (25 SK.DEFAULT.BRUSH 14 ROUND) () SK.INSURE.DASHING :D4 (I 0 DASHING) @d˜ µ@ (11 \ILLEGAL.ARG 5 DASHINGP) NIL () SKETCH.CREATE.ELLIPSE :D4 (I 6 SCALE I 5 WILLBEFILLING I 4 DASHING I 3 BRUSH I 2 OTHERRADIUSPT I 1 ORIENTATIONPT I 0 CENTERPT) #@ A B C D F3µo (32 ELLIPSE.CREATE 19 SK.INSURE.DASHING 15 SK.INSURE.BRUSH 11 SK.INSURE.POSITION 7 SK.INSURE.POSITION 3 SK.INSURE.POSITION) NIL ( 28 1.0) ELLIPSE.EXPANDFN :D4 (P 4 BRUSH P 3 MAJRAD P 2 MINRAD P 1 CENTER P 0 INDGELLIPSE I 1 SCALE I 0 GELLIPSE) Í@AHd³Q¿@gHHHHHHoHhHX¿HA YHA ZHA [hhIJ IK H\d3²¿HgLhh\¿LHAHhh@(183 SCALE.BRUSH 137 DISTANCEBETWEEN 132 DISTANCEBETWEEN 121 SK.SCALE.POSITION.INTO.VIEWER 111 SK.SCALE.POSITION.INTO.VIEWER 102 SK.SCALE.POSITION.INTO.VIEWER) (160 ROUND 23 ELLIPSE) ( 60 1.0) ELLIPSE.DRAWFN :D4 (P 10 SEMIMAJORRADIUS P 9 SEMIMINORRADIUS P 8 CENTERY P 7 CENTERX P 6 COSOR P 5 SINOR P 4 ORIENTATION P 3 DASHING P 2 CPOS P 1 LELLIPSE P 0 GELLIPSE I 2 REGION I 1 WINDOW I 0 ELLIPSEELT) «@@2IZI[H\K²rd L JJII ONOêÔOMOêÔ OMOêÕONOêÔ ONOêÕOMOêÕ OMOêÔONOêÕ hiIKA hJJIILIKA (168 DRAWELLIPSE 140 DRAWCURVE 122 CREATEPOSITION 105 CREATEPOSITION 88 CREATEPOSITION 71 CREATEPOSITION 38 COS 34 SIN) NIL () ELLIPSE.INPUTFN :D4 (P 2 MINRAD P 1 MAJRAD P 0 CENTER I 0 WINDOW F 3 ELLIPSE.CENTER) µ0@oo@Shddd` Xµ@ hh@¿@oo@H YµHh@¿@ hh@¿@oo@HIZ@ Ih@Hh@J´ËH@ J@ I@ @g @g @ (178 ELLIPSE.CREATE 174 SK.INPUT.SCALE 165 GETWINDOWUSERPROP 157 GETWINDOWUSERPROP 150 SK.MAP.INPUT.PT.TO.GLOBAL 145 SK.MAP.INPUT.PT.TO.GLOBAL 140 SK.MAP.INPUT.PT.TO.GLOBAL 132 MARK.SPOT 124 MARK.SPOT 116 CLOSEPROMPTWINDOW 111 SK.READ.ELLIPSE.MINOR.PT 101 STATUSPRINT 88 MARK.SPOT 79 CLOSEPROMPTWINDOW 74 MARK.SPOT 63 SK.READ.ELLIPSE.MAJOR.PT 56 STATUSPRINT 43 MARK.SPOT 34 CLOSEPROMPTWINDOW 27 SK.READ.POINT.WITH.FEEDBACK 14 STATUSPRINT) (162 SKETCHCONTEXT 154 SKETCHCONTEXT 23 SKETCH.USE.POSITION.PAD) ( 98 "Indicate semi-minor axis" 94 " " 53 "Indicate semi-major axis" 49 " " 11 "Indicate center of ellipse" 7 " ") SK.READ.ELLIPSE.MAJOR.PT :D4 (I 1 CENTERPT I 0 SKW F 0 WINDOW F 1 ELLIPSE.SEMI.MAJOR) PQ`´gAgh` (21 SK.READ.POINT.WITH.FEEDBACK) (17 SKETCH.USE.POSITION.PAD 13 MIDDLE 9 SK.SHOW.ELLIPSE.MAJOR.RADIUS 4 SKETCH.VERBOSE.FEEDBACK) () SK.SHOW.ELLIPSE.MAJOR.RADIUS :D4 (I 3 CENTERPT I 2 WINDOW I 1 Y I 0 X) %@AB@A@C@ÕlÖÔACAÕlÖÔkgB (34 DRAWLINE 5 SHOWSKETCHXY) (29 INVERT) () SK.READ.ELLIPSE.MINOR.PT :D4 (I 2 MAJORPT I 1 CENTERPT I 0 SKW F 0 WINDOW F 1 ELLIPSE.SEMI.MINOR) &PQ`´gAdB AB hgh` (35 SK.READ.POINT.WITH.FEEDBACK 20 COMPUTE.ELLIPSE.ORIENTATION 15 DISTANCEBETWEEN) (31 SKETCH.USE.POSITION.PAD 27 MIDDLE 9 SK.SHOW.ELLIPSE.MINOR.RADIUS 4 SKETCH.VERBOSE.FEEDBACK) () SK.SHOW.ELLIPSE.MINOR.RADIUS :D4 (P 1 CENTERY P 0 CENTERX I 3 ELLIPSEARGS I 2 WINDOW I 1 Y I 0 X) +@ABCHYHXdIHI@ACCkhB h(39 DRAWELLIPSE 25 SK.DISTANCE.TO 5 SHOWSKETCHXY) NIL () ELLIPSE.INSIDEFN :D4 (P 0 INDGELLIPSE I 1 WREG I 0 GELLIPSE) $@AH µAH µAH (33 INSIDEP 22 INSIDEP 12 INSIDEP) NIL () ELLIPSE.CREATE :D4 (P 1 ORIENTATION P 0 MAXRAD I 5 INITSCALE I 4 DASHING I 3 BRUSH I 2 MAJPT I 1 MINPT I 0 CENTERPT) N@A @B !HZo×Jhh0g@B Y½@D»C¼@BAIBMLKEhdhh(53 SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 39 COMPUTE.ELLIPSE.ORIENTATION 12 MAX 9 DISTANCEBETWEEN 4 DISTANCEBETWEEN) (34 ELLIPSE) ( 21 3000.0) SK.UPDATE.ELLIPSE.AFTER.CHANGE :D4 (L (0 GELLIPSEELT)) @hNIL NIL () ELLIPSE.REGIONFN :D4 (P 9 DELTAY P 8 DELTAX P 7 RADRATIO P 6 HALFHGHT P 5 HALFWID P 4 BRUSHADJ P 3 CENTERY P 2 CENTERX P 1 MAJORRADPT P 0 LOCALELLIPSE I 0 ELLIPSCRELT) o @‘ HYH[HHë _KZIÙ _K[IÙ _HkØâ\OOOêLÔÔ ]OOOêLÔÔ ^JMÙKNÙMlÚNlÚ(108 CREATEREGION 90 FIXR 76 FIXR 49 ABS 38 ABS 27 ABS) NIL () ELLIPSE.GLOBALREGIONFN :D4 (P 4 REGION P 3 MAXRAD P 2 HALFBOXSIZE P 1 CENTERPT P 0 INDVELLIPSE I 0 GELELT) ]@µN@AHYdH IH [dHÔZIJÕIJÕJlÚJlÚ\HLL(76 CREATEREGION 44 MAX 41 DISTANCEBETWEEN 33 DISTANCEBETWEEN) NIL () ELLIPSE.TRANSLATEFN :D4 (P 0 GLOBALEL I 1 DELTAPOS I 0 SKELT) k@@ gH¹HA HA HA IHHHHhHh(44 PTPLUS 35 PTPLUS 27 PTPLUS 10 \APPEND2) (13 ELLIPSE) () ELLIPSE.TRANSFORMFN :D4 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) C@HABHABHABHC HH (64 ELLIPSE.CREATE 43 SK.TRANSFORM.BRUSH 32 SK.TRANSFORM.POINT 22 SK.TRANSFORM.POINT 13 SK.TRANSFORM.POINT) NIL () ELLIPSE.TRANSLATEPTS :D4 (P 1 GELLIPSE P 0 LELLIPSE I 3 WINDOW I 2 GLOBALDELTA I 1 SELPTS I 0 ELLIPSESPEC) i@@HA —IB ‚IHA ˜IB ƒIHA ™IB „IIII (102 ELLIPSE.CREATE 68 PTPLUS 58 MEMBER 44 PTPLUS 35 MEMBER 23 PTPLUS 15 MEMBER) NIL () MARK.SPOT :D4 (P 3 HEIGHT P 2 WIDTH P 1 X P 0 COLORDS I 2 WINDOW I 1 Y I 0 X/POSITION F 4 COLORSPOTMARKER) rBg 1@ ˜@¹@b¿@¹` Z` [H²%TÃ’Tµ`jc ð²éT‚`jdHµBIJlÛÙAKlÛÙJKgg h(110 BKBITBLT 72 COLORNUMBERBITSPERPIXEL 69 BITSPERPIXEL 63 COLORIZEBITMAP 60 COLORNUMBERBITSPERPIXEL 57 MAXIMUMCOLOR 38 BITMAPHEIGHT 31 BITMAPWIDTH 13 POSITIONP 6 GETWINDOWUSERPROP) (106 INVERT 103 INPUT 80 SPOTMARKER 53 SPOTMARKER 46 BITMAP 35 SPOTMARKER 28 SPOTMARKER 3 INCOLOR) () DISTANCEBETWEEN :D4 (I 1 P2 I 0 P1) @AÕ @AÕ Ô (19 SQRT 15 SQUARE 7 SQUARE) NIL () SK.DISTANCE.TO :D4 (I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) @BÕ ACÕ Ô (15 SQRT 11 SQUARE 5 SQUARE) NIL () SQUARE :D4 (L (0 X)) @dÖNIL NIL () COMPUTE.ELLIPSE.ORIENTATION :D4 (P 0 DELTAX I 1 MAJRADPT I 0 CENTERPT) 'A@ÙHjð³HµA@ÙH ²óo(30 \FZEROP 26 ARCTAN2) NIL ( 36 90.0) SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT :D4 (P 3 SEMIMAJORRADIUS P 2 SEMIMINORRADIUS P 1 COSOR P 0 SINOR I 3 ORIENTATION I 2 MINORPT I 1 MAJORRADPT I 0 CENTER) &C C @B @A @HJêÕ@IJêÔ (35 CREATEPOSITION 17 DISTANCEBETWEEN 12 DISTANCEBETWEEN 7 COS 3 SIN) NIL () SKETCH.CREATE.OPEN.CURVE :D4 (I 4 SCALE I 3 ARROWHEADS I 2 DASHING I 1 BRUSH I 0 POINTS) @ hA B D3µoC (29 SK.CURVE.CREATE 25 SK.INSURE.ARROWHEADS 12 SK.INSURE.DASHING 8 SK.INSURE.BRUSH 3 SK.INSURE.POINT.LIST) NIL ( 21 1.0) OPENCURVE.INPUTFN :D4 (P 5 PT P 1 KNOTS P 0 SKCONTEXT I 0 W) J@g 0@i °dM@ ºKµJh\J&»µçLYhHH@ @I (71 SK.CURVE.CREATE 67 SK.ARROWHEAD.CREATE 62 SK.INPUT.SCALE 29 SK.MAP.INPUT.PT.TO.GLOBAL 17 READ.LIST.OF.POINTS 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) () SK.CURVE.CREATE :D4 (I 5 ARROWHEADS I 4 INITSCALE I 3 DASHING I 2 BRUSH I 1 CLOSED I 0 GKNOTS) >@´;hddhA²g@BCDhdh°g@BCEDhdh h (59 KNOT.SET.SCALE.FIELD 53 SET.OPENCURVE.ARROWHEAD.POINTS) (34 OPENCURVE 15 CLOSEDCURVE) () MAXXEXTENT :D4 (L (0 PTS)) &@µj!HY@ŽdZIó‘J¹HJó‘J¸µïIHÕNIL NIL () MAXYEXTENT :D4 (L (0 PTS)) &@µj!HY@ŽdZIó‘J¹HJó‘J¸µïIHÕNIL NIL () KNOT.SET.SCALE.FIELD :D4 (P 0 PTS I 0 GKNOTELT) (@@o@lH H oë@(30 MAX 27 MAXYEXTENT 23 MAXXEXTENT) NIL ( 34 2.0 13 0.0) OPENCURVE.DRAWFN :D4 (P 5 GARROWSPECS P 4 LOCALARROWPTS P 3 LOCALPTS P 2 BRUSH P 1 LCURVE P 0 GCURVE I 2 REGION I 1 WINDOW I 0 CURVEELT) I@@BBµ3H]I\ILMA[dhIZIA MLAJh@ ³Èh(67 REGIONSINTERSECTP 64 SK.ITEM.REGION 58 DRAWARROWHEADS 51 DRAWCURVE 31 \SK.ADJUST.FOR.ARROWHEADS) NIL () OPENCURVE.EXPANDFN :D4 (P 6 LATLONPT P 2 TMP P 1 LOCALKNOTS P 0 INDGELT I 1 SCALE I 0 GELT) Æ@!Hd³=¿@gHHHHohHHX¿HžH¤H ¿@H°d^A »LµKh]K&¼µëMYdhHA HZd3²¿HgJhhZ¿JHAHh@(182 SCALE.BRUSH 144 SK.EXPAND.ARROWHEADS 110 SK.SCALE.POSITION.INTO.VIEWER 94 SET.OPENCURVE.ARROWHEAD.POINTS) (161 ROUND 21 OPENCURVE) ( 43 1.0) OPENCURVE.READCHANGEFN :D4 (P 1 HOW P 0 ASPECT I 1 SCRNELTS I 0 SKW) ´@`di¿do¿´oo ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ Xdgð™¿o °Ngð”°DHdgð–¿A °6gð”°,Hdgð²¿ohAg ‹gð´A@ Yd´HIh(168 READ.POINT.TO.ADD 155 READ.COLOR.CHANGE 149 GETSKETCHELEMENTPROP 124 READ.DASHING.CHANGE 114 READ.ARROW.CHANGE 100 READBRUSHSHAPE 90 READSIZECHANGE 75 \CURSOR.IN.MIDDLE.MENU 35 \APPEND2 22 SKETCHINCOLORP) (159 ADDPOINT 146 BRUSH 131 BRUSHCOLOR 119 DASHING 107 ARROW 95 SHAPE 80 SIZE 52 DEFAULTMENUHELDFN 45 CLRPROMPT 5 |MENUTYPE#|) ( 139 "Change curve color how?" 87 "Change size how?" 32 ((Arrowheads (QUOTE ARROW) "allows changing of arrow head charactistics.") (Shape (QUOTE SHAPE) "changes the shape of the brush") (Size (QUOTE SIZE) "changes the size of the brush") (Dashing (QUOTE DASHING) "changes the dashing of the line.") ("Add point" (QUOTE ADDPOINT) "adds a point to the curve.")) 28 ((Color (QUOTE BRUSHCOLOR) "Changes the color of the curve.")) 16 "Which aspect?") OPENCURVE.TRANSFORMFN :D4 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) k@@@@@gHABHC HHC HhHH @ (104 KNOT.SET.SCALE.FIELD 96 SET.OPENCURVE.ARROWHEAD.POINTS 59 SK.TRANSFORM.ARROWHEADS 44 SK.TRANSFORM.BRUSH 36 SK.TRANSFORM.POINT.LIST) (28 OPENCURVE) () OPENCURVE.TRANSLATEFN :D4 (P 0 NEWOCELT I 1 DELTAPOS I 0 OCELT) @A H H(13 SET.OPENCURVE.ARROWHEAD.POINTS 4 KNOTS.TRANSLATEFN) NIL () OPENCURVE.TRANSLATEPTSFN :D4 (P 7 LATLONPT P 6 PT P 0 GKNOTELT I 3 WINDOW I 2 GDELTA I 1 SELPTS I 0 KNOTELT) c@H@RJµ…¾Iµ KhHHHH _¿NA –OB O½LµMh\»JºI¹°µM&¼°õ(72 PTPLUS 65 MEMBER 55 SK.CURVE.CREATE) NIL () SKETCH.CREATE.CLOSED.CURVE :D4 (I 4 SCALE I 3 WILLBEFILLING I 2 DASHING I 1 BRUSH I 0 POINTS) @ iA B D3µo (25 SK.CURVE.CREATE 12 SK.INSURE.DASHING 8 SK.INSURE.BRUSH 3 SK.INSURE.POINT.LIST) NIL ( 21 1.0) CLOSEDCURVE.DRAWFN :D4 (P 0 LCURVE I 2 REGION I 1 WINDOW I 0 CURVEELT) (@BµHiHHA h@ ³åh(34 REGIONSINTERSECTP 31 SK.ITEM.REGION 25 DRAWCURVE) NIL () CLOSEDCURVE.EXPANDFN :D4 (P 5 LATLONPT P 1 BRSH P 0 INDVKNOTELT I 1 SCALE I 0 GELT) @H³1@gHHHoHhHX¿@H°d]A ºKµJh\J&»µëLhHYd3²¿HgIhhY¿IHAH Hh@(141 \APPEND2 131 SCALE.BRUSH 75 SK.SCALE.POSITION.INTO.VIEWER) (111 ROUND 18 CLOSEDCURVE) ( 34 1.0) CLOSEDCURVE.REGIONFN :D4 (I 0 KNOTSCRELT) @ o @ kØlÛ (28 INCREASEREGION 20 SK.BRUSH.SIZE 12 EXPANDREGION 5 REGION.CONTAINING.PTS) NIL ( 9 1.4) CLOSEDCURVE.GLOBALREGIONFN :D4 (P 1 REGION P 0 INDVCLOSEDCURVE I 0 GCLOSEDCURVEELT) 6@µ*@H o H YHII(40 INCREASEREGION 37 SK.BRUSH.SIZE 30 EXPANDREGION 23 REGION.CONTAINING.PTS) NIL ( 27 1.4) READ.LIST.OF.POINTSA0001 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 PROCEED-CASE0139 F 5 *PROCEED-CASES* F 6 PT F 7 W F 8 POINTREADINGCURSOR) Ti@ggggTgjgg gg UWWhddd`´g ch (79 \MVLIST 71 SK.READ.POINT.WITH.FEEDBACK 43 MAKE-PROCEED-CASE 39 CL:SYMBOL-FUNCTION 30 CL:SYMBOL-FUNCTION) (67 MULTIPLE 62 SKETCH.USE.POSITION.PAD 36 SI::ERRORSET-PRINT-FUNCTION 33 :REPORT 27 TRUE 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () READ.LIST.OF.POINTS :D4 (P 8 PTTAIL P 7 PROCEED-CASE0137 P 6 A0141 P 5 PROCEED-CASE0138 P 4 A0140 P 3 PROCEED-CASE0139 P 2 ERRSTAT P 1 PTS P 0 PT I 1 ALLOWDUPS? I 0 W) Ž 0@oo¿hhK 1L_¿L^½Odgð•¿M „j:´hZ²'H²$A¬I Hô³ÂH@I¿IHh Y°®I°dO@Oµí@ ¿¿J‘Ih(138 ERROR! 130 CLRPROMPT 126 CLOSEPROMPTWINDOW 117 SHOWSKETCHPOINT 95 \NCONC2 87 SHOWSKETCHPOINT 70 LAST 51 CL:VALUES-LIST 25 READ.LIST.OF.POINTSA0001 14 STATUSPRINT) (44 :NORMAL) ( 11 "Enter the points the curve goes through using the left button. Click outside the window to stop." 7 " ") CLOSEDCURVE.INPUTFN :D4 (P 3 PT I 0 W) F0@i °dK@ ¸IµHhZH&¹µçJi@g @g @ (67 SK.CURVE.CREATE 63 SK.INPUT.SCALE 54 GETWINDOWUSERPROP 46 GETWINDOWUSERPROP 19 SK.MAP.INPUT.PT.TO.GLOBAL 7 READ.LIST.OF.POINTS) (51 SKETCHCONTEXT 43 SKETCHCONTEXT) () CLOSEDCURVE.READCHANGEFN :D4 (P 1 HOW P 0 ASPECT I 1 SCRNELTS I 0 SKW) §@`di¿do¿´oo ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ Xdgð™¿o °Agð”°7Hdgð•¿°*gð²ohAg ŒHgð´A@ Yd´HIh(155 READ.POINT.TO.ADD 141 READ.COLOR.CHANGE 135 GETSKETCHELEMENTPROP 113 READ.DASHING.CHANGE 100 READBRUSHSHAPE 90 READSIZECHANGE 75 \CURSOR.IN.MIDDLE.MENU 35 \APPEND2 22 SKETCHINCOLORP) (146 ADDPOINT 132 BRUSH 118 BRUSHCOLOR 107 DASHING 95 SHAPE 80 SIZE 52 DEFAULTMENUHELDFN 45 CLRPROMPT 5 |MENUTYPE#|) ( 125 "Change brush color how?" 87 "Change size how?" 32 ((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.")) 28 (("Color" (QUOTE BRUSHCOLOR) "changes the color of the brush")) 16 "select aspect of brush to change") CLOSEDCURVE.TRANSFORMFN :D4 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) Y@@@@@gHABHC HHHhH@ (86 KNOT.SET.SCALE.FIELD 44 SK.TRANSFORM.BRUSH 36 SK.TRANSFORM.POINT.LIST) (28 CLOSEDCURVE) () CLOSEDCURVE.TRANSLATEPTSFN :D4 (P 7 LATLONPT P 6 PT P 0 GKNOTELT I 3 WINDOW I 2 GDELTA I 1 SELPTS I 0 KNOTELT) \@H@RJµ…¾IµKiHHH _¿NA –OB O½LµMh\»JºI¹°¼M&¼°õ(65 PTPLUS 58 MEMBER 48 SK.CURVE.CREATE) NIL () INVISIBLEPARTP :D4 (I 1 POINT I 0 WINDOW) h@ AA(11 INSIDE? 4 DSPCLIPPINGREGION) NIL () SHOWSKETCHPOINT :D4 (I 2 PTS I 1 W I 0 NEWPT) @B µ @A`(14 MARKPOINT 4 MEMBER) (11 SPOTMARKER) () SHOWSKETCHXY :D4 (I 2 WINDOW I 1 Y I 0 X) *`hdB@`ÈâÙA`ÈâÙhdgg (39 BKBITBLT) (35 INVERT 32 INPUT 23 BITMAP 20 SPOTMARKER 12 BITMAP 9 SPOTMARKER 2 SPOTMARKER) () KNOTS.REGIONFN :D4 (I 0 KNOTSCRELT) @ @l×lØ (22 INCREASEREGION 5 REGION.CONTAINING.PTS) NIL () OPENWIRE.GLOBALREGIONFN :D4 (P 1 REGION P 0 INDVOPENWIRE I 0 GOPENWIREELT) /@µ#@H H YHII(33 INCREASEREGION 30 SK.BRUSH.SIZE 23 REGION.CONTAINING.PTS) NIL () CURVE.REGIONFN :D4 (I 0 OPENCURVESCRELT) @ o @ kØlÛ (29 INCREASEREGION 21 SK.BRUSH.SIZE 12 EXPANDREGION 5 REGION.CONTAINING.PTS) NIL ( 9 1.4) OPENCURVE.GLOBALREGIONFN :D4 (P 1 REGION P 0 INDVOPENCURVE I 0 GOPENCURVEELT) 6@µ*@H o H YHII(40 INCREASEREGION 37 SK.BRUSH.SIZE 30 EXPANDREGION 23 REGION.CONTAINING.PTS) NIL ( 27 1.4) KNOTS.TRANSLATEFN :D4 (P 4 PT P 0 GKNOTELT I 1 DELTAPOS I 0 SKELT) A@ H@H°d\A ¹JµIh[I&ºµëKHh@ Hh(58 \APPEND2 25 PTPLUS 5 \APPEND2) NIL () REGION.CONTAINING.PTS :D4 (P 4 TMP P 3 YMAX P 2 YMIN P 1 XMAX P 0 XMIN I 0 PTLST) F@d²B@@@$@°"d]\Ió’L¹…HLó‘L¸M\Kó’L»…JLó‘LºµÞHJIHÕKJÕ(67 CREATEREGION) NIL () CHANGE.ELTS.BRUSH.SIZE :D4 (P 3 LINEDELT I 2 SKW I 1 ELTSWITHBRUSH I 0 HOWTOCHANGE) $@´!@A°d[@B¸IµHhZH&¹µêJ(16 SK.CHANGE.BRUSH.SIZE) NIL () CHANGE.ELTS.BRUSH :D4 (I 2 HOW I 1 SKW I 0 CURVELTS) "Bdgð™¿B@Agð´ B@A(31 CHANGE.ELTS.BRUSH.SHAPE 16 CHANGE.ELTS.BRUSH.SIZE) (20 SHAPE 5 SIZE) () CHANGE.ELTS.BRUSH.SHAPE :D4 (P 3 CURVELT I 2 SKW I 1 CURVELTS I 0 NEWSHAPE) $@´!@A°d[@B¸IµHhZH&¹µêJ(16 SK.CHANGE.BRUSH.SHAPE) NIL () SK.CHANGE.BRUSH.SHAPE :D4 (P 4 NEWBRUSH P 3 NEWELT P 2 TYPE P 1 BRUSH P 0 GCURVELT I 2 SKW I 1 HOW I 0 ELTWITHBRUSH) zP@Zo ´‚±d@XJdgð”¿d°gð’HŽJdgð•¿H¿HYAIð’±2AIII\Jdgð²6¿gHLHHHHH±Ògð²@gHLHHHHHH±ŽJdgð²@¿gHHLHHHHH±Hgð²fgHHLHHHHHHHH±ÞJdgð²W¿gHHHHLHHHHH±gð²?gHLHHHHHH°=Jgð²3gHLHHHHH‚[@dKhgLIhh(610 SHOULDNT 14 MEMB) (621 BRUSH 561 CLOSEDWIRE 555 CLOSEDWIRE 493 WIRE 487 WIRE 403 ELLIPSE 396 ELLIPSE 294 ARC 288 ARC 227 CIRCLE 220 CIRCLE 156 OPENCURVE 150 OPENCURVE 99 CLOSEDCURVE 92 CLOSEDCURVE 49 ELLIPSE 39 ARC 29 CIRCLE) ( 11 (CLOSEDCURVE OPENCURVE ELLIPSE CIRCLE ARC CLOSEDWIRE WIRE)) SK.CHANGE.BRUSH.COLOR :D4 (P 4 NEWELT P 3 NEWBRUSH P 2 BRUSH P 1 TYPE P 0 GLINELT I 2 SKW I 1 COLOR I 0 ELTWITHLINE) Œ@a@Ydo ¢±dgð”¿H°,gð•H°!Idgð˜¿HŽgð¨Idgð²g¿HºAJô’±2JJAJ»Idgð²K¿gHKHHHHHH±`gð²˜H°•gð²+gHKHHHH±'Idgð²g¿gHHKHHHHHHHH±ºgð²YgHHHHHHAKHHH±]Idgð²6¿gHKHHHHH±!gð²5gHKHHHHH±èIdgð²A¿gHKHHHHHH±¡gð²>gHHKHHHHH°^Igð²TgHHHHKHHHHH‚¼@Lh½@MgKJhgð´dAHô³Vh¾@gHHHHHHAHh¾@NgAHhh(779 SHOULDNT 18 MEMB) (887 TEXTCOLOR 827 TEXT 804 TEXT 792 BRUSH 697 ELLIPSE 691 ELLIPSE 630 CIRCLE 624 CIRCLE 562 OPENCURVE 555 OPENCURVE 502 CLOSEDCURVE 496 CLOSEDCURVE 445 CLOSEDWIRE 438 CLOSEDWIRE 349 TEXTBOX 343 TEXTBOX 243 ARC 236 ARC 193 BOX 187 BOX 177 ARC 115 WIRE 108 WIRE 70 BOX 63 CLOSEDCURVE 49 TEXTBOX 36 ELLIPSE 26 CIRCLE) ( 15 (WIRE BOX CLOSEDWIRE CLOSEDCURVE OPENCURVE CIRCLE ELLIPSE TEXTBOX ARC)) SK.CHANGE.BRUSH.SIZE :D4 (P 5 NEWELT P 4 NEWBRUSH P 3 BRUSH P 2 TYPE P 1 GLINELT P 0 SIZE I 2 SKW I 1 HOW I 0 ELTWITHLINE) p@Zo ´‚±@¹Jdgð”¿I°,gð•I°!Jdgð˜¿IŽgð¨Jdgð²¿I»jAd3³$gð²Koë°gð²àI°ÝKoêXó’±—KHKK¼Jdgð²:¿gILIIIhII±2gð²+gILIIII±Jdgð²]¿gIILIIIIIhII± gð²fB ¿gIIIIIIILIII±6Jdgð²/¿gILIIIhI±gð².gILIIIhI±ÏJdgð²:¿gILIIIhII±gð²6gIILIIIhI°TJgð²JgIIIILIIIhI‚½@Mh¾@NgLKhh(767 SHOULDNT 364 SKED.CLEAR.SELECTION 14 MEMB) (780 BRUSH 695 ELLIPSE 689 ELLIPSE 636 CIRCLE 630 CIRCLE 575 OPENCURVE 568 OPENCURVE 522 CLOSEDCURVE 516 CLOSEDCURVE 472 CLOSEDWIRE 465 CLOSEDWIRE 368 TEXTBOX 357 TEXTBOX 267 ARC 260 ARC 217 BOX 211 BOX 156 WIRE 149 WIRE 108 ARC 92 SMALLER 73 BOX 66 CLOSEDCURVE 52 TEXTBOX 39 ELLIPSE 29 CIRCLE) ( 122 2.0 102 2.0 11 (WIRE BOX CLOSEDWIRE CLOSEDCURVE OPENCURVE CIRCLE ELLIPSE TEXTBOX ARC)) SK.CHANGE.ANGLE :D4 (P 7 CENTERY P 6 NEWANGLEPT P 5 CENTERX P 4 RADIUSPT P 3 CENTERPT P 2 RADIUS P 1 ARMANGLE P 0 GARCLT I 2 SKW I 1 HOW I 0 ELTWITHARC) ä @gð´‚±Ô@X[½K_¿H¼H—KL AÕ†KL AÔ¹KL ºoIó–Ioó¢i°MJI ÖÔ OJI ÖÔ ¾h_¿@gHHHHHHNHhHH h_¿@OgNHh(202 SET.ARC.ARROWHEAD.POINTS 108 FIXR 103 SIN 96 FIXR 91 COS 67 DISTANCEBETWEEN 59 SK.COMPUTE.SLOPE.OF.LINE 51 SK.COMPUTE.SLOPE.OF.LINE) (214 3RDCONTROLPT 119 ARC 9 ARC) ( 80 -360.0 72 360.0) SK.CHANGE.ARC.DIRECTION :D4 (P 1 NOWDIRECTION P 0 GARCLT I 2 SKW I 1 HOW I 0 ELTWITHARC) ª0@gð´‚±š@X¹Adgð”¿I´ Agð´yI´vhº@gHHHHHHHIhðhHH hº@JgAI“g‚gh(142 SET.ARC.ARROWHEAD.POINTS) (161 COUNTERCLOCKWISE 157 CLOCKWISE 151 DIRECTION 58 ARC 45 COUNTERCLOCKWISE 35 CLOCKWISE 9 ARC) () SK.SET.DEFAULT.BRUSH.SIZE :D4 (I 1 SKW I 0 NEWBRUSHSIZE) *@3´%Ag Ag H@HH(18 GETWINDOWUSERPROP 11 GETWINDOWUSERPROP) (15 SKETCHCONTEXT 8 SKETCHCONTEXT) () READSIZECHANGE :D4 (P 2 NEWVALUE I 1 ALLOWZEROFLG I 0 MENUTITLE) l`d@¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ Jdgð²%¿ohddiddd ZA¥djð‘hjJó”J J(103 MINUS 86 RNUMBER 59 \CURSOR.IN.MIDDLE.MENU) (67 SETSIZE 32 DEFAULTMENUHELDFN 25 CLRPROMPT 2 |MENUTYPE#|) ( 75 "Enter the new line thickness." 13 (("smaller line" (QUOTE SMALLER) "decreases the line thickness by 1.") ("LARGER LINE" (QUOTE LARGER) "increases the line thickness by 1.") ("Set line size" (QUOTE SETSIZE) "sets the line thickness to an entered value."))) SK.CHANGE.ELEMENT.KNOTS :D4 (P 1 NEWELT P 0 GCURVELT I 1 NEWKNOTS I 0 ELTWITHKNOTS) ë@Hdgð–¿g±Ÿdgð²E¿gAHHHHHHH ±ƒdgð²D¿gAHHHHHHH °9gð´=gAHHHHHHY@Ih (232 KNOT.SET.SCALE.FIELD 165 SET.WIRE.ARROWHEAD.POINTS 91 SET.OPENCURVE.ARROWHEAD.POINTS) (176 CLOSEDWIRE 170 CLOSEDWIRE 105 WIRE 98 WIRE 31 OPENCURVE 24 OPENCURVE 17 CLOSEDCURVE 11 CLOSEDCURVE) () SK.INSURE.POINT.LIST :D4 (I 0 POINTLST) #@d²ŒdHH •µòi¿h´@ (32 \ILLEGAL.ARG 15 SK.INSURE.POSITION) NIL () SK.INSURE.POSITION :D4 (I 0 POSITION) @ µ@ (9 \ILLEGAL.ARG 3 POSITIONP) NIL () SKETCH.CREATE.WIRE :D4 (I 4 SCALE I 3 ARROWHEADS I 2 DASHING I 1 BRUSH I 0 POINTS) @ A B hD3µoC (29 SK.WIRE.CREATE 25 SK.INSURE.ARROWHEADS 11 SK.INSURE.DASHING 7 SK.INSURE.BRUSH 3 SK.INSURE.POINT.LIST) NIL ( 21 1.0) CLOSEDWIRE.EXPANDFN :D4 (P 5 LATLONPT P 1 BRSH P 0 INDVKNOTELT I 1 SCALE I 0 GELT) —@H³1@gHHHoHhHX¿@H°d]A ºKµJh\J&»µëLhHYd3²¿HgIhhY¿IHAH h@(141 \APPEND2 131 SCALE.BRUSH 75 SK.SCALE.POSITION.INTO.VIEWER) (111 ROUND 18 CLOSEDWIRE) ( 34 1.0) KNOTS.INSIDEFN :D4 (P 1 PT I 1 WREG I 0 GCURVE) @Hµh¹AI ‘iHX°î(20 INSIDEP) NIL () OPEN.WIRE.DRAWFN :D4 (I 3 OPERATION I 2 REG I 1 WIN I 0 OPENWIREELT) @ABCh@@ (21 WB.DRAWLINE) NIL () WIRE.EXPANDFN :D4 (P 6 LATLONPT P 2 TMP P 1 LOCALKNOTS P 0 INDGELT I 1 SCALE I 0 GELT) Æ@!Hd³=¿@gHHHHohHHX¿HžH¤H ¿@H°d^A »LµKh]K&¼µëMYdhHA HZd3²¿HgJhhZ¿JHAHh@(181 SCALE.BRUSH 143 SK.EXPAND.ARROWHEADS 109 SK.SCALE.POSITION.INTO.VIEWER 93 SET.WIRE.ARROWHEAD.POINTS) (160 ROUND 21 WIRE) ( 43 1.0) SK.UPDATE.WIRE.ELT.AFTER.CHANGE :D4 (I 0 GWIRELT) @h@ (14 KNOT.SET.SCALE.FIELD) NIL () OPENWIRE.READCHANGEFN :D4 (P 1 HOW P 0 ASPECT I 1 WIREELTS I 0 SKW) š@`di¿do¿´oo ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ Xdgð™¿o °4gð•A °)Hdgð•¿°gð´ohAg Yd´HIh(142 READ.COLOR.CHANGE 136 GETSKETCHELEMENTPROP 114 READ.DASHING.CHANGE 101 READ.ARROW.CHANGE 90 READSIZECHANGE 75 \CURSOR.IN.MIDDLE.MENU 35 \APPEND2 22 SKETCHINCOLORP) (133 BRUSH 119 BRUSHCOLOR 108 DASHING 95 ARROW 80 SIZE 52 DEFAULTMENUHELDFN 45 CLRPROMPT 5 |MENUTYPE#|) ( 126 "Change line color how?" 87 "Change size how?" 32 ((Arrowheads (QUOTE ARROW) "allows changing of arrow head characteristics.") (Size (QUOTE SIZE) "changes the size of the brush") (Dashing (QUOTE DASHING) "changes the dashing of the line.")) 28 (("Brush color" (QUOTE BRUSHCOLOR) "changes the color of the outline")) 16 "Which aspect?") OPENWIRE.TRANSFORMFN :D4 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) k@@@@@gHABHC HC HHhHH @ (104 KNOT.SET.SCALE.FIELD 96 SET.WIRE.ARROWHEAD.POINTS 53 SK.TRANSFORM.ARROWHEADS 44 SK.TRANSFORM.BRUSH 36 SK.TRANSFORM.POINT.LIST) (28 WIRE) () OPENWIRE.TRANSLATEFN :D4 (P 0 NEWWIREELT I 1 DELTAPOS I 0 WIREELT) @A H H(13 SET.WIRE.ARROWHEAD.POINTS 4 KNOTS.TRANSLATEFN) NIL () OPENWIRE.TRANSLATEPTSFN :D4 (P 7 LATLONPT P 6 PT P 0 GKNOTELT I 3 WINDOW I 2 GDELTA I 1 SELPTS I 0 KNOTELT) c@H@RJµ…¾Iµ KHHhHH _¿NA –OB O½LµMh\»JºI¹°µM&¼°õ(72 PTPLUS 65 MEMBER 55 SK.WIRE.CREATE) NIL () WIRE.INPUTFN :D4 (P 5 PT P 1 KNOTS P 0 SKCONTEXT I 6 FILLING I 5 DASHING I 4 DEFSCALE I 3 BRUSH I 2 CLOSEDFLG I 1 GPTLIST I 0 W) g@g Aµ)0@B °dM@ ºKµJh\J&»µçLYC3™gChhHE µHBD3µ@ @I F (100 SK.WIRE.CREATE 95 SK.ARROWHEAD.CREATE 90 SK.INPUT.SCALE 72 DASHINGP 32 SK.MAP.INPUT.PT.TO.GLOBAL 20 SK.READ.WIRE.POINTS 6 GETWINDOWUSERPROP) (59 ROUND 3 SKETCHCONTEXT) () SK.READ.WIRE.POINTS :D4 (I 1 CLOSEDFLG I 0 SKW) @h`´A“g‚g(18 SK.READ.POINTS.WITH.FEEDBACK) (15 OPENWIRE.FEEDBACKFN 11 CLOSEDWIRE.FEEDBACKFN 4 SKETCH.VERBOSE.FEEDBACK) () SK.READ.POINTS.WITH.FEEDBACKA0001 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 PROCEED-CASE0145 F 5 *PROCEED-CASES* F 6 W F 7 PT F 8 POINTREADINGCURSOR F 9 FEEDBACKFN F 10 PTS) Wi@ggggTgjgg gg UVWWWgh`´g ch (82 \MVLIST 74 SK.READ.POINT.WITH.FEEDBACK 43 MAKE-PROCEED-CASE 39 CL:SYMBOL-FUNCTION 30 CL:SYMBOL-FUNCTION) (70 MULTIPLE 65 SKETCH.USE.POSITION.PAD 61 MIDDLE 36 SI::ERRORSET-PRINT-FUNCTION 33 :REPORT 27 TRUE 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () SK.READ.POINTS.WITH.FEEDBACK :D4 (P 8 PTTAIL P 7 PROCEED-CASE0143 P 6 A0147 P 5 PROCEED-CASE0144 P 4 A0146 P 3 PROCEED-CASE0145 P 2 ERRSTAT P 1 PTS P 0 PT I 2 FEEDBACKFN I 1 ALLOWDUPS? I 0 W) À 0@oo¿hhK 1L_¿L^½Odgð•¿M „j:´hZ²>H²;A¬I Hô³ÂH@I¿Id² Hkg@ ¿IHh Y°—I°/dO@O¿O²OOkg@ ¿µÒ¿@ ¿J‘Ih(188 ERROR! 180 CLOSEPROMPTWINDOW 175 CLRPROMPT 166 DRAWBETWEEN 140 SHOWSKETCHPOINT 118 \NCONC2 110 DRAWBETWEEN 95 LAST 87 SHOWSKETCHPOINT 70 LAST 51 CL:VALUES-LIST 25 SK.READ.POINTS.WITH.FEEDBACKA0001 14 STATUSPRINT) (161 INVERT 105 INVERT 44 :NORMAL) ( 11 "Enter the points the curve goes through using the left button. Click outside the window to stop." 7 " ") OPENWIRE.FEEDBACKFN :D4 (P 0 LASTPT I 3 PREVPTS I 2 WINDOW I 1 Y I 0 X) $@ABC´C XH@AkgB (33 DRAWLINE 15 LAST 5 SHOWSKETCHXY) (28 INVERT) () CLOSEDWIRE.FEEDBACKFN :D4 (P 0 ENDPT I 3 PREVPTS I 2 WINDOW I 1 Y I 0 X) =@ABCd²XH@AkgB ¿C´C XH@AkgB h(57 DRAWLINE 39 LAST 30 DRAWLINE 5 SHOWSKETCHXY) (52 INVERT 25 INVERT) () CLOSEDWIRE.REGIONFN :D4 (I 0 KNOTSCRELT) @ @l×lØ (21 INCREASEREGION 5 REGION.CONTAINING.PTS) NIL () CLOSEDWIRE.GLOBALREGIONFN :D4 (P 1 REGION P 0 INDVCLOSEDWIRE I 0 GCLOSEDWIREELT) /@µ#@H H YHII(33 INCREASEREGION 30 SK.BRUSH.SIZE 23 REGION.CONTAINING.PTS) NIL () SK.WIRE.CREATE :D4 (I 6 FILLING I 5 ARROWHEADS I 4 SCALE I 3 CLOSED I 2 DASHING I 1 BRUSH I 0 KNOTS) >@´;hddhC²g@ABDFhh°g@AEBDhdh h (59 KNOT.SET.SCALE.FIELD 53 SET.WIRE.ARROWHEAD.POINTS) (34 WIRE 15 CLOSEDWIRE) () WIRE.ADD.POINT.TO.END :D4 (P 2 GWIREELT P 1 KNOTS P 0 NEWPOS I 2 SKW I 1 PT I 0 WIREELT) -AB !@ZdYHI ô‘@JBIHh B(42 SK.UPDATE.ELEMENT 38 WIRE.INPUTFN 35 \APPEND2 21 LAST 4 SK.MAP.INPUT.PT.TO.GLOBAL) NIL () READ.ARROW.CHANGE :D4 (P 6 INDGELT P 5 NOWARROWS P 4 ELT P 2 HOW I 1 SKW I 0 SCRELTS F 7 VSHAPE.ARROWHEAD.BITMAP F 8 CURVEDV.ARROWHEAD.BITMAP F 9 TRIANGLE.ARROWHEAD.BITMAP F 10 SOLIDTRIANGLE.ARROWHEAD.BITMAP) `Ã’±‰`do¿oWoohWoohWoohWoohh HdI¿di¿dg ¿dg¿jdnÿdhHdI ¿¿d²'` Zdgð²d¿@1KµAo ¿hd³P\^dgð”¿N°dgð•¿N†gð´N]µK[°¿d˜¿gM°À²ígM°³d²´h(183 STATUSPRINT 158 \CURSOR.IN.MIDDLE.MENU 149 READ.ARROWHEAD.END 89 \APPEND2) (258 SAME 246 SAME 223 WIRE 212 ARC 201 OPENCURVE 163 SAME 155 SK.ARROW.EDIT.MENU 142 SK.ARROW.EDIT.MENU 115 DEFAULTMENUHELDFN 108 CLRPROMPT 12 |MENUTYPE#| 5 MENU 2 SK.ARROW.EDIT.MENU) ( 180 "None of the selected elements have arrowheads." 77 "makes a solid triangular arrowhead." 73 (QUOTE SOLID) 63 "Makes the head be two sides and a base." 59 (QUOTE CLOSED) 49 "Makes the arrowhead have curved side lines." 45 (QUOTE OPENCURVE) 35 "Makes the head be the side lines only." 31 (QUOTE OPEN) 25 ((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.")) 18 "specify change") CHANGE.ELTS.ARROWHEADS :D4 (P 3 ARROWELT I 2 SKW I 1 ELTSWITHARROWS I 0 CHANGESPEC) $@´!@A°d[@B¸IµHhZH&¹µêJ(16 SK.CHANGE.ARROWHEADS) NIL () SKETCH.CREATE.CLOSED.WIRE :D4 (I 4 SCALE I 3 FILLING I 2 DASHING I 1 BRUSH I 0 POINTS) !@ A B iD3µohC (30 SK.WIRE.CREATE 26 SK.INSURE.FILLING 11 SK.INSURE.DASHING 7 SK.INSURE.BRUSH 3 SK.INSURE.POINT.LIST) NIL ( 21 1.0) CLOSED.WIRE.INPUTFN :D4 (I 1 PTLIST I 0 W) @Ai(5 WIRE.INPUTFN) NIL () CLOSED.WIRE.DRAWFN :D4 (P 2 VARX P 1 LOCALPART P 0 GINDVELT I 3 OPERATION I 2 REG I 1 WIN I 0 CLOSEDWIREELT) \@@IZd¤d²+I`‘J‰JµJ AhA gð“gƒJ¿IZjð®@ABCiHJ h(88 WB.DRAWLINE 62 FILLPOLYGON 46 DSPOPERATION 40 TEXTUREOFCOLOR) (54 ERASE 49 ERASE 27 SKETCHINCOLORFLG) () CLOSEDWIRE.READCHANGEFN :D4 (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 °pgð”°fHdgð•¿°Ygð”°OHdgð•¿°Bgð²ohAg °&Hdgð˜¿A@ °gð´oiAg Yd´HIh(223 READ.COLOR.CHANGE 218 GETSKETCHELEMENTPROP 196 READ.POINT.TO.ADD 179 GETSKETCHELEMENTPROP 157 READBRUSHSHAPE 144 READ.DASHING.CHANGE 134 READ.FILLING.MODE 121 READ.FILLING.CHANGE 111 READSIZECHANGE 95 \CURSOR.IN.MIDDLE.MENU 55 \APPEND2 52 \APPEND2 49 \APPEND2 22 SKETCHINCOLORP) (215 FILLING 201 FILLINGCOLOR 187 ADDPOINT 176 BRUSH 162 BRUSHCOLOR 151 SHAPE 139 DASHING 128 FILLINGMODE 116 FILLING 100 SIZE 72 DEFAULTMENUHELDFN 65 CLRPROMPT 5 |MENUTYPE#|) ( 208 "Change filling color how?" 169 "Change outline color how?" 107 "Change size how?" 46 ((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.")) 42 (("Filling mode" (QUOTE FILLINGMODE) "changes how the filling effects the figures it covers.")) 35 ((Filling (QUOTE FILLING) "allows changing of the filling texture of the box.")) 28 (("Brush color" (QUOTE BRUSHCOLOR) "changes the color of the outline") ("Filling color" (QUOTE FILLINGCOLOR) "changes the color of the filling")) 16 "Which aspect?") CLOSEDWIRE.TRANSFORMFN :D4 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) Y@@@@@gHABHC HHHhH@ (86 KNOT.SET.SCALE.FIELD 44 SK.TRANSFORM.BRUSH 36 SK.TRANSFORM.POINT.LIST) (28 CLOSEDWIRE) () CLOSEDWIRE.TRANSLATEPTSFN :D4 (P 7 LATLONPT P 6 PT P 0 GKNOTELT I 3 WINDOW I 2 GDELTA I 1 SELPTS I 0 KNOTELT) d@H@RJµ…¾Iµ!KHHiHhH _¿NA –OB O½LµMh\»JºI¹°´M&¼°õ(73 PTPLUS 66 MEMBER 56 SK.WIRE.CREATE) NIL () SK.EXPAND.ARROWHEADS :D4 (P 3 ARROWHEAD I 1 SCALE I 0 GARROWHEADPOINTS) @@°d[A ¸IµHhZH&¹µëJ(12 SK.EXPAND.ARROWHEAD) NIL () SK.COMPUTE.ARC.ARROWHEAD.POINTS :D4 (P 0 SPEC I 4 DIRECTION I 3 ARCANGLEPT I 2 RADPT I 1 CENTERPT I 0 ARROWSPEC) 8@d²1X´ABDHHH @X´ACDhðHHH h(50 ARC.ARROWHEAD.POINTS 26 ARC.ARROWHEAD.POINTS) NIL () ARC.ARROWHEAD.POINTS :D4 (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 (31 ARROWHEAD.POINTS.LIST) NIL () SET.ARC.ARROWHEAD.POINTS :D4 (P 0 ARROWSPECS I 0 INDVDARCELT) E@H²6@g g¿@H@@@ @ @(64 SK.COMPUTE.ARC.ARROWHEAD.POINTS 50 \SK.GET.ARC.ANGLEPT 26 SK.INSURE.HAS.LENGTH 20 SK.RECORD.LENGTH) (23 ARC 17 ARC) () SET.OPENCURVE.ARROWHEAD.POINTS :D4 (P 0 ARROWSPECS I 0 INDVOPENCURVEELT) -@H² @g g¿@H@ @(40 SK.COMPUTE.CURVE.ARROWHEAD.POINTS 24 SK.INSURE.HAS.LENGTH 18 SK.RECORD.LENGTH) (21 OPENCURVE 15 OPENCURVE) () SK.COMPUTE.CURVE.ARROWHEAD.POINTS :D4 (P 0 SPEC I 1 KNOTS I 0 ARROWSPEC) 4@d²-X´AiHHH @X´AhHHH h(46 CURVE.ARROWHEAD.POINTS 25 CURVE.ARROWHEAD.POINTS) NIL () SET.WIRE.ARROWHEAD.POINTS :D4 (P 0 ARROWSPECS I 0 INDVWIREELT) ,@H² @g g¿@H@ @(39 SK.COMPUTE.WIRE.ARROWHEAD.POINTS 23 SK.INSURE.HAS.LENGTH 17 SK.RECORD.LENGTH) (20 WIRE 14 WIRE) () SK.COMPUTE.WIRE.ARROWHEAD.POINTS :D4 (P 0 SPEC I 1 KNOTS I 0 ARROWSPEC) 4@d²-X´AiHHH @X´AhHHH h(46 WIRE.ARROWHEAD.POINTS 25 WIRE.ARROWHEAD.POINTS) NIL () SK.EXPAND.ARROWHEAD :D4 (P 7 PTLST P 3 PT I 1 SCALE I 0 ARROWHEAD) z@d²vA @ ²'0@°dKA ¸IµHhZH&¹µçJ°C@@°7d_¿0O°dKA ¸IµHhZH&¹µçJ¼MµLh^L&½µÉN(81 SK.SCALE.POSITION.INTO.VIEWER 32 SK.SCALE.POSITION.INTO.VIEWER 14 POSITIONP 8 SK.SCALE.POSITION.INTO.VIEWER) NIL () CHANGED.ARROW :D4 (I 3 DEFARROW I 2 SCALE I 1 HOWTOCHANGE I 0 ARROW F 0 SK.ARROWHEAD.ANGLE.INCREMENT F 1 SK.ARROWHEAD.LENGTH.INCREMENT) Adgð™¿@µCB gð¡@¡hAdgð” gð²@P@Ô@@Adgð²¿@@PÕ@@gð²@@QBÖ@Ô@Adgð²¿@@@QBÖÕB @gð²g@@@Adgð²¿g@@@gð²g@@@Agð²g@@@@(144 MAX 37 \APPEND2 15 SK.CREATE.ARROWHEAD) (237 CURVE 231 OPENCURVE 212 SOLID 206 SOLID 188 CLOSEDLINE 181 CLOSED 161 LINE 155 OPEN 123 SMALLER 94 LARGER 68 NARROWER 41 WIDER 31 SAME 19 DELETE 4 ADD) () SK.CHANGE.ARROWHEAD :D4 (I 2 SKW I 1 HOW I 0 ARROWELT) @AAB Bg (24 SK.CHANGE.ARROWHEAD1 16 GETWINDOWUSERPROP 9 SK.INPUT.SCALE) (13 SKETCHCONTEXT) () SK.CHANGE.ARROWHEAD1 :D4 (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µ\OYK´‚±[h¾@Ldgð¢±Œ¿gHHIHHHHH ±û_¿AOM˜OBCDO_Oô¡i»O_¿OµOh__¿O_¿O_¿±ÿZO&_¿°ëgð²egHHHHHIHHHHH °ILgð²?gHHHIHHHH ‚h¾@NgIJh(440 SHOULDNT 436 SET.OPENCURVE.ARROWHEAD.POINTS 367 SET.ARC.ARROWHEAD.POINTS 212 CHANGED.ARROW 203 SK.ARROWHEAD.END.TEST 189 SET.WIRE.ARROWHEAD.POINTS 71 \SK.GET.ARC.ANGLEPT 14 MEMB) (449 ARROWHEADS 379 OPENCURVE 373 OPENCURVE 273 ARC 267 ARC 131 WIRE 122 WIRE 61 ARC 38 ARC 29 OPENCURVE) ( 83 (FIRST LAST) 56 (NIL NIL T) 11 (WIRE OPENCURVE ARC)) SK.CREATE.ARROWHEAD :D4 (L (1 SCALE 0 DEFAULTARROWHEAD)) @@@AÖ@NIL NIL () SK.ARROWHEAD.CREATE :D4 (P 5 END P 1 ARROWHEADWHERE P 0 SKCONTEXT I 1 KNOTS I 0 SKW) X@g HYdo ³;@o°&d½IMA´H@ ºKµJh\J&»µÛLih h(83 \NCONC2 59 SK.CREATE.ARROWHEAD 56 SK.INPUT.SCALE 45 SK.ARROWHEAD.END.TEST 25 MEMB 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) ( 34 (FIRST LAST) 22 (NIL NEITHER)) SK.ARROWHEAD.END.TEST :D4 (I 2 KNOTS I 1 END I 0 WHICHENDS) 3@Aðµ@dgð‘igð›B ²Agð@gð´úB ²ïAgð(41 LEFT.MOST.IS.BEGINP 22 LEFT.MOST.IS.BEGINP) (47 LAST 34 RIGHT 28 FIRST 16 LEFT 9 BOTH) () READ.ARROWHEAD.END :D4 (F 2 SK.ARROW.END.MENU) KRÃ’R°@`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿c (72 \CURSOR.IN.MIDDLE.MENU) (43 DEFAULTMENUHELDFN 36 CLRPROMPT 10 |MENUTYPE#| 3 MENU) ( 24 ((|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.")) 16 "Which end?") ARROW.HEAD.POSITIONS :D4 (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Ù(55 SIN 50 COS 32 SQRT) NIL () ARROWHEAD.POINTS.LIST :D4 (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(250 FIXR 243 FIXR 230 FIXR 223 FIXR 166 SIN 161 COS 36 SIN 31 COS 18 SQRT) (136 CURVE 120 SOLID 113 CLOSEDLINE 107 LINE) ( 153 2.0 144 1.5) CURVE.ARROWHEAD.POINTS :D4 (P 0 SLOPE I 4 HEAD.TYPE I 3 HEAD.LENGTH I 2 HEAD.ANGLE I 1 BEGFLG I 0 KNOTS) 0@Ahð A‘@ƒ@ BCA•H HA•H HD (45 ARROWHEAD.POINTS.LIST 37 MINUS 27 MINUS 17 LAST 6 \CURVESLOPE) NIL () LEFT.MOST.IS.BEGINP :D4 (I 0 KNOTLST) -@d§o @ "I[HZóµKJ ´HIó(35 EQP 17 LAST 11 ERROR) NIL ( 8 "should have at least two elements.") WIRE.ARROWHEAD.POINTS :D4 (P 1 TAILPT P 0 HEADPT I 4 HEAD.TYPE I 3 HEAD.LENGTH I 2 HEAD.ANGLE I 1 FIRSTFLG I 0 KNOTS) E0A—@¸@¹ˆ@´$@ZµHBCI²HIÕ°¨J¹JX°êJ°ákI•HIÕ€jD (66 ARROWHEAD.POINTS.LIST) NIL () DRAWARROWHEADS :D4 (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²zL²wJ[dgð²#¿LLhChB ¿LLhChB °Kgð²*Bg ³5B §Bg —LCBi¿LnÿÿB°Kdgð—¿LCB‹gð—LCBi¿I¹H¸±ÿp(141 \SK.DRAW.TRIANGLE.ARROWHEAD 128 \SK.DRAW.TRIANGLE.ARROWHEAD 112 FILLPOLYGON 103 \SK.DRAW.TRIANGLE.ARROWHEAD 95 IMAGESTREAMTYPEP 87 WINDOWP 81 IMAGESTREAMTYPEP 66 DRAWCURVE 50 DRAWCURVE) (132 CLOSEDLINE 119 LINE 92 DISPLAY 78 PRESS 71 SOLID 32 CURVE) () \SK.DRAW.TRIANGLE.ARROWHEAD :D4 (I 3 CLOSED? I 2 STREAM I 1 BRUSH I 0 ARROWHEADPTS) B §Bg —A kð²6@@A hB @@A hB C´J@@A hB @@hhAhB @@hhAhB C´@@hhAhB (126 DRAWCURVE 105 DRAWCURVE 88 DRAWCURVE 71 DRAWBETWEEN 65 SK.BRUSH.SIZE 51 DRAWBETWEEN 45 SK.BRUSH.SIZE 35 DRAWBETWEEN 29 SK.BRUSH.SIZE 16 SK.BRUSH.SIZE 11 IMAGESTREAMTYPEP 3 WINDOWP) (8 DISPLAY) () \SK.ENDPT.OF.ARROW :D4 (L (0 LOCALARROWHEADPTS)) 2@@@HÔl×lÖÔl×@@HÔl×lÖÔl×NIL NIL () \SK.ADJUST.FOR.ARROWHEADS :D4 (P 1 X P 0 LASTFIXED I 3 STREAM I 2 GARROWHEADSPECS I 1 LOCALARROWPTSLST I 0 LOCALKNOTS) Cg ³: A²Bgð²@ Y A ¿I€@¸ABgð•A ¿ A²Bgð²@ Y A ¿I€@XA²Bgð˜A HH(119 \SK.ENDPT.OF.ARROW 96 \SK.ENDPT.OF.ARROW 90 LAST 86 \APPEND2 62 \SK.ENDPT.OF.ARROW 40 \SK.ENDPT.OF.ARROW 34 LAST 30 \APPEND2 6 IMAGESTREAMTYPEP) (112 SOLID 79 SOLID 55 SOLID 23 SOLID 3 PRESS) () SK.SET.ARROWHEAD.LENGTH :D4 (P 1 NEWSIZE P 0 NOWARROWHEAD I 0 W) K@g oH hddidd Yd´djñ¡h@g HHIH(54 GETWINDOWUSERPROP 37 RNUMBER 27 CONCAT 24 MKSTRING 6 GETWINDOWUSERPROP) (51 SKETCHCONTEXT 3 SKETCHCONTEXT) ( 17 "New arrowhead size in screen pts. Current arrowhead size is ") SK.SET.ARROWHEAD.ANGLE :D4 (P 1 NEWSIZE P 0 NOWARROWHEAD I 0 W) K@g oH hddidd Yd´djñ¡h@g HIHH(53 GETWINDOWUSERPROP 36 RNUMBER 26 CONCAT 23 MKSTRING 6 GETWINDOWUSERPROP) (50 SKETCHCONTEXT 3 SKETCHCONTEXT) ( 17 "New head angle in degrees. Current arrowhead angle is ") SK.SET.ARROWHEAD.TYPE :D4 (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É U lÔ¿ !J´$@g [K¼JLLL(167 GETWINDOWUSERPROP 154 \CURSOR.IN.MIDDLE.MENU 146 BITMAPHEIGHT 7 MEMB) (164 SKETCHCONTEXT 137 MENU 109 DEFAULTMENUHELDFN 102 CLRPROMPT 15 |MENUTYPE#|) ( 74 "makes a solid triangular arrowhead." 70 (QUOTE SOLID) 60 "arrowhead consists of a triangle." 56 (QUOTE CLOSEDLINE) 46 "arrowhead has curved side lines." 42 (QUOTE CURVE) 33 "arrowhead consists of two line segments." 29 (QUOTE LINE) 21 "Choose style" 4 (LINE CURVE CLOSEDLINE SOLID)) SK.SET.LINE.ARROWHEAD :D4 (P 2 ARROWHEADEND I 1 NEWVALUE I 0 W) bAo ’A°A`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ J´@g J(87 GETWINDOWUSERPROP 74 \CURSOR.IN.MIDDLE.MENU 7 MEMB) (84 SKETCHCONTEXT 47 DEFAULTMENUHELDFN 40 CLRPROMPT 14 |MENUTYPE#|) ( 28 ((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.")) 20 "Which end?" 4 (FIRST LAST BOTH NEITHER LEFT RIGHT)) SK.UPDATE.ARROWHEAD.FORMAT :D4 (P 1 NOWARROWS P 0 INDGARROWELT I 0 GELT) b@Hdgð²$¿HY²HI³CHH ²+II°)gð²*HY²"I³HH ”IIƒIIih@(77 LEFT.MOST.IS.BEGINP 40 LEFT.MOST.IS.BEGINP) (51 WIRE 11 OPENCURVE) () SK.SET.LINE.LENGTH.MODE :D4 (P 2 LINEMODE I 1 VAL? I 0 W) iAo ’A°A`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ J´@g Jgð(87 GETWINDOWUSERPROP 74 \CURSOR.IN.MIDDLE.MENU 7 MEMBER) (99 NO 84 SKETCHCONTEXT 47 DEFAULTMENUHELDFN 40 CLRPROMPT 14 |MENUTYPE#|) ( 28 ((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.")) 20 "Connect middle button lines?" 4 (YES NO)) SK.INSURE.ARROWHEADS :D4 (P 3 SPEC I 0 ARROWHEADSPECS) R@d²N —h@ih@@°0d[d² µKið```hƒ@ ¸IµHhZH&¹µÑJo (79 \APPEND2 54 \ILLEGAL.ARG 30 SK.ARROWHEADP 6 SK.ARROWHEADP) (45 SK.DEFAULT.ARROW.LENGTH 42 SK.DEFAULT.ARROW.ANGLE 39 SK.DEFAULT.ARROW.TYPE) ( 76 (T)) SK.ARROWHEADP :D4 (I 0 ARROWHEAD) $@l ´@` ´@3´@3´@(15 MEMB 5 EQLENGTH) (12 SK.ARROWHEAD.TYPES) () SKETCH.CREATE.TEXT :D4 (I 5 SCALE I 4 COLOR I 3 JUSTIFICATION I 2 FONT I 1 POSITION I 0 STRING) &@ A E3µoC` B D (35 CREATE.TEXT.ELEMENT 31 SK.INSURE.COLOR 27 SK.INSURE.FONT 23 SK.INSURE.STYLE 7 SK.INSURE.POSITION 3 SK.INSURE.TEXT) (20 SK.DEFAULT.TEXT.ALIGNMENT) ( 16 1.0) TEXT.CHANGEFN :D4 (P 4 ELTWITHTEXT I 2 HOW I 1 SKW I 0 SCRNELTS) ,@AHµI£H¼h„H¼H¸LBA»Jµ KhZ¹°àK&º°Û(26 SK.CHANGE.TEXT) NIL () TEXT.READCHANGEFN :D4 (P 4 VAL P 3 FIRSTTEXTELT P 2 COMMAND I 2 INTEXTBOXFLG I 1 SCRNELTS I 0 SKW) #`do¿´oA ‘hƒoB¬g ´o€hg ´oo HdI¿di¿dg ¿dg¿jdnÿdhHdI ¿ AJ¡h@ Jdgð—¿A@ °wgð²@o \´fA@L°^Jdgð²,¿A]¿Md¥d²L°I£M¾h„M¾M½Ndo ³á°Ûgð™@o °Jgð² ohAg \d´JLhgJh(271 READ.COLOR.CHANGE 265 GETSKETCHELEMENTPROP 242 SK.READFONTFAMILY 225 MEMB 177 \SK.READ.FONT.SIZE1 168 SK.READFONTFAMILY 152 \SK.READ.FONT.SIZE1 139 SKED.CLEAR.SELECTION 128 \CURSOR.IN.MIDDLE.MENU 75 \APPEND2 72 \APPEND2 69 \APPEND2 66 \APPEND2 53 DATATYPEP 39 SKETCH.ELEMENT.TYPEP 24 SCREENELEMENTP 14 SKETCHINCOLORP) (284 TEXT 262 BRUSH 248 BRUSHCOLOR 232 NEWFONT 184 SAME 157 FAMILY&SIZE 144 SETSIZE 101 DEFAULTMENUHELDFN 94 CLRPROMPT 50 LOOKEDSTRING 36 TEXTBOX 2 |MENUTYPE#|) ( 255 "Change text color how?" 239 "New font family?" 222 (TEXTBOX TEXT) 165 "New font family?" 63 (("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.")) 59 (("Fancy format" (QUOTE LOOKEDSTRING) "changes to a form that can have complete character formatting.")) 45 (("box the text" (QUOTE BOX) "makes the selected text into boxed text.")) 31 (("look same" (QUOTE SAME) "makes the font characteristics the same as those of the first selected piece of text.")) 20 (("Color" (QUOTE BRUSHCOLOR) "changes the color of the text")) 8 "Change text how?") \SK.READ.FONT.SIZE1 :D4 (P 3 NEWFONT P 2 NOWFONT P 1 NEWSIZE P 0 FIRSTTEXTELT I 2 NEWFAMILY I 1 SKETCHW I 0 SELECTEDELTS) š`@\¿Ld£d³ £L½h„L½L¼Mdo ³ã°ÝXdZAo@ ”oƒooJg hBµJg bAYd¥A hBIJg hdi [«ABIohA K (151 SK.FONTNAMELIST 147 CLOSE.PROMPT.WINDOW 141 STATUSPRINT 129 FONTCREATE 122 FONTPROP 111 CLOSE.PROMPT.WINDOW 104 SK.READFONTSIZE 98 FONTPROP 87 STATUSPRINT 83 FONTPROP 62 SCREENELEMENTP 37 MEMB) (119 FACE 95 FAMILY 80 SIZE) ( 138 " not found." 76 " is " 72 "first selected text" 67 "text" 58 "Size of " 34 (TEXTBOX TEXT)) SK.TEXT.ELT.WITH.SAME.FIELDS :D4 (L (1 ORGONE 0 NEWONE)) ŽAdgð²:¿gAA@@@@@hgð´GgAA@@@@@AhdhNIL (73 TEXTBOX 67 TEXTBOX 12 TEXT 5 TEXT) () SK.READFONTFAMILYA0010 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 PROCEED-CASE0152 F 5 *PROCEED-CASES* F 6 SKW) Qi@ggggTgjgg gg UohdV h (76 \MVLIST 70 MKATOM 67 U-CASE 64 PROMPTFORWORD 61 GETPROMPTWINDOW 43 MAKE-PROCEED-CASE 39 CL:SYMBOL-FUNCTION 30 CL:SYMBOL-FUNCTION) (36 SI::ERRORSET-PRINT-FUNCTION 33 :REPORT 27 TRUE 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) ( 55 "New family: ") SK.READFONTFAMILY :D4 (P 12 PROCEED-CASE0150 P 11 A0154 P 10 PROCEED-CASE0151 P 9 A0153 P 8 PROCEED-CASE0152 P 4 FAMILY P 3 KNOWNFAMILIES I 1 TITLE I 0 SKW F 13 \FONTSINCORE) Í 0`d¸IµHhZH&¹µïJ0Wd¸IµHhZH&¹µïJ AK²S`oK ½dM¿Aµo¾dN¿di¿dg ¿dg¿jdnÿdh_¿dO ¿ \gð¡L` ¿hhO 1O_¿O__¿Odgð–¿O „j:´h(194 CL:VALUES-LIST 162 SK.READFONTFAMILYA0010 150 TTY.PROCESS 136 \CURSOR.IN.MIDDLE.MENU 75 \APPEND2 57 UNION) (186 :NORMAL 147 \RUNNING.PROCESS 140 OTHER 110 DEFAULTMENUHELDFN 103 CLRPROMPT 66 |MENUTYPE#| 5 \FONTSONFILE) ( 88 "Choose font" 71 (("other" (QUOTE OTHER) "prompts for a family not on the menu."))) CLOSE.PROMPT.WINDOW :D4 (P 0 PRMPTWIN I 0 WINDOW) @hdiXd– H (19 CLOSEW 15 DETACHWINDOW 9 GETPROMPTWINDOW) NIL () TEXT.DRAWFN :D4 (I 1 WINDOW I 0 TEXTELT) %@@@@A (34 TEXT.DRAWFN1) NIL () TEXT.DRAWFN1A0001 :D4 (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) 0UV"Iµ…ºHµh»JJWÔT¿KT ¿I¹H¸°Ø(37 PRIN3 31 MOVETO) NIL () TEXT.DRAWFN1 :D4 (P 5 MIDHGHT P 4 REGION P 2 REGION P 1 SI::*RESETFORMS* P 0 DESCENT I 5 OPERATION I 4 SKWINDOW I 3 COLOR I 2 FONT I 1 REGIONS I 0 STRS) ×C™•CD ¿Bd¢±– ²MBD ¿hD bÈ¸ED g` hhhg ¿D ¿g D ¿°DD gð²2A°+dhddDJJJJkØlÛgE` µÖ‡A!Kµh\LLkØlÛÔ]LLkÙØMLED ¿K[°Ð(207 DRAWLINE 152 BKBITBLT 104 IMAGESTREAMTYPE 97 DSPFONT 93 DEFAULTFONT 86 DSPOPERATION 81 SI::RESETUNWIND 77 \MVLIST 74 TEXT.DRAWFN1A0001 58 SETTERMTABLE 49 DSPOPERATION 36 DSPFONT 30 DSPFONT 23 FONTP 10 DSPCOLOR 4 SKETCHINCOLORP) (148 INDICATE.TEXT.SHADE 144 TEXTURE 107 DISPLAY 90 DISPLAY 71 SI::RESETUNWIND 55 SKETCH.TERMTABLE 52 SETTERMTABLE 41 FONTDESCRIPTOR) () TEXT.INSIDEFN :D4 (P 1 GREG I 1 WREG I 0 GTEXT) "@HµhYA ‘iHX°ï(24 REGIONSINTERSECTP) NIL () TEXT.EXPANDFN :D4 (P 4 LINEREGIONS P 3 STYLE P 2 LOCALFONT P 1 TEXTPOS P 0 GTEXT I 2 STREAM I 1 SCALE I 0 GTEXTPART) a@AH[«Ho[¿HABZHHA YHJKAB µB É \IhhLJH h@(86 \APPEND2 72 SK.TEXT.LINE.REGIONS 66 \INSUREWINDOW 60 STREAMP 44 SK.SCALE.POSITION.INTO.VIEWER 32 SK.CHOOSE.TEXT.FONT) NIL ( 23 (CENTER CENTER)) SK.TEXT.LINE.REGIONS :D4 (P 3 GREG I 6 IMAGESTREAM I 5 SCALE I 4 STYLE I 3 LOCALFONT I 2 GREGIONS I 1 TEXTPOS I 0 LISTOFTEXT) fC ²+@AFg —CF ¿F€CDBE×@ Ö @B°-d[E× KE× KE× k¸IµHhZH&¹µÔJ(82 CREATEREGION 78 FIXR 69 FIXR 61 FIXR 45 LTEXT.LINE.REGIONS 41 FIXR 37 LENGTH 20 DSPFONT 14 IMAGESTREAMTYPEP 3 FONTP) (11 HARDCOPY) () SK.PICK.FONT :D4 (P 4 FONT P 2 DISPLAYFONT P 1 LASTSIZE P 0 LASTFONT I 3 FAMILY I 2 DEVICE I 1 STRING I 0 WID) a0CB KµH™I@oÖó²>g\Xgggi Z•AJ ŒAL Lg ×Y@ó¨LgBK[°·HgB(94 FONTCOPY 80 FONTCOPY 67 FONTPROP 60 STRINGWIDTH 54 STRINGWIDTH 47 FONTCOPY 7 SK.DECREASING.FONT.LIST) (90 DEVICE 76 DEVICE 64 SCALE 42 NOERROR 39 DISPLAY 36 DEVICE 29 SHADE) ( 22 1.5) SK.CHOOSE.TEXT.FONT :D4 (P 5 DEVICE P 4 CANONICALWIDTH P 3 CANONICALTESTSTR P 2 LOCALFONT P 1 GFONT P 0 VIEWERFONTCACHE I 2 VIEWER I 1 SCALE I 0 GTEXT) ©B ´ Bg @IH Zµo!B BÉ.É,„g]AhB Ö@ôšIhddM °@KIg Ig h @ÖAhB Ö× \KMIZ ›JgIºB ›BgIJHJ(165 PUTWINDOWPROP 152 WINDOWP 147 FONTCOPY 135 FONTP 131 SK.PICK.FONT 123 FIXR 118 DSPSCALE 106 STRINGWIDTH 100 FONTPROP 93 FONTPROP 83 FONTCREATE 66 DSPSCALE 41 STREAMP 27 SASSOC 12 GETWINDOWUSERPROP 3 WINDOWP) (157 PICKFONTCACHE 140 FACE 97 SIZE 90 FAMILY 59 DISPLAY 51 IMAGEOPS 46 STREAM 9 PICKFONTCACHE) ( 34 "AWIaiw") SK.NEXTSIZEFONT :D4 (P 5 FONT P 3 FONTTAIL P 1 DECREASEFONTLST P 0 NOWSIZE I 1 NOWFONT I 0 WHICHDIR) hAÈAg @gð²2HIÈýñ´/IJ[µh²HKÈýñ¥K K°ãILµh]ÈHýó”M L\°è(96 SK.FONTNAMELIST 66 SK.FONTNAMELIST 13 SK.DECREASING.FONT.LIST) (86 FONTDESCRIPTOR 56 FONTDESCRIPTOR 29 FONTDESCRIPTOR 20 LARGER 10 DISPLAY 3 FONTDESCRIPTOR) () SK.DECREASING.FONT.LIST :D4 (P 3 FONT I 1 DEVICETYPE I 0 FAMILY) ‡@¥gb¿Adgð²&¿@dgð•¿g°=gð”g°3@gð²/g°'gð²$@dgð•¿g°gð“gˆ@gð•gb¿0@A °dKgA¸IµHhZH&¹µäJ(114 FONTCOPY 99 SK.GUESS.FONTSAVAILABLE) (110 DEVICE 88 TERMINAL 83 GACHA 78 CLASSIC 73 TIMESROMAN 68 MODERN 62 HELVETICA 54 INTERPRESS 49 GACHA 43 TERMINAL 37 TIMESROMAN 32 CLASSIC 27 HELVETICA 21 MODERN 12 PRESS 4 MODERN) () SK.GUESS.FONTSAVAILABLEA0001A0002 :D4 (L (1 B 0 A)) @AóNIL NIL () SK.GUESS.FONTSAVAILABLEA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 8 SIZE P 3 FONT I 0 SI::*CLEANUP-FORMS* F 9 FILEFONTS F 10 FAMILY F 11 HDCPYTYPE F 12 DISPLAYFONTSIZES F 13 CACHE) / WgohWi cWdgð¢±¯¿0Wgohg °d¸IµHhZH&¹µîJc¿0W°fdKdjð²K¿Wo ALµM°8_¿KOhdgi ²KOK_¿Nµ Oh^½L\°ÍO&¾°÷hX–IµHZY¿µ›Jc°; YH°ïgð²+0W°doôd¸IµHhZH&¹µåJcWd g cW`cµWWWh`WWh (300 \NCONC2 260 SORT 254 INTERSECTION 196 LAST 136 FONTCREATE 107 UNION 50 FONTSAVAILABLE 16 FONTSAVAILABLE) (289 \FONTSONFILE 285 \FONTSONFILE 267 \FONTSONFILE 257 SK.GUESS.FONTSAVAILABLEA0001A0002 204 DISPLAY 131 DISPLAY 46 DISPLAY 38 * 24 PRESS 4 *) ( 223 (MEDIUM REGULAR REGULAR) 104 (36 30 24 18 14 12 10 8 6) 42 (MEDIUM REGULAR REGULAR) 8 (MEDIUM REGULAR REGULAR)) SK.GUESS.FONTSAVAILABLEA0003 :D4 (I 1 B I 0 A) @dAð˜A Aó(16 ALPHORDER) NIL () SK.GUESS.FONTSAVAILABLE :D4 (P 6 SI::*RESETFORMS* P 2 DISPLAYFONTSIZES P 1 CACHE P 0 FILEFONTS I 1 HDCPYTYPE I 0 FAMILY) q0Aµbd@`X²%0H°d@ðd»LµKh]K&¼µêM¸°#g` hhhg ¿@ghdA H g (110 SORT 104 UNION 100 FONTSAVAILABLE 88 SI::RESETUNWIND 84 \MVLIST 81 SK.GUESS.FONTSAVAILABLEA0001 65 CURSOR 8 PRINTERTYPE) (107 SK.GUESS.FONTSAVAILABLEA0003 93 * 78 SI::RESETUNWIND 62 WAITINGCURSOR 59 CURSOR 15 \FONTSONFILE) () TEXT.UPDATE.GLOBAL.REGIONS :D4 (P 3 GREG P 2 INDTEXTGELT P 1 YDIFF P 0 XDIFF I 2 OLDGPOS I 1 NEWGPOS I 0 GTEXTELT) BABÕABÕ@J0J°d[HI¼MµLh^L&½µêN@(43 REL.MOVE.REGION) NIL () REL.MOVE.REGION :D4 (I 2 DELTAY I 1 DELTAX I 0 REGION) A@ÔB@Ô@@(20 CREATEREGION) NIL () LTEXT.LINE.REGIONS :D4 (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 ˜hB …HÈ[d@ Ö\@JCdgð²¿Lo×KÕHÈ Õ°2dgðš¿Lo×KÕ°!dgð•¿kKÕ°gð“LKÕ‰oC ÔBNµO_B Omÿ l ð–l B €jÕ½Cdgð˜¿IMo×ˆgð‘I‚IMÕOMK_¿OµOh__¿N¾OjKÙÔ_¿°ŸO&_¿°ì(197 CREATEREGION 159 CHARWIDTH 149 NTHCHARCODE 142 STRINGWIDTH 124 ERROR 73 MINUS 41 LENGTH 28 MINUS 25 DSPLINEFEED 19 STREAMP 8 FONTCREATE) (183 LEFT 169 CENTER 108 BOTTOM 97 TOP 80 CENTER 68 FONTDESCRIPTOR 52 BASELINE 33 FONTDESCRIPTOR) ( 178 2.0 118 "illegal vertical text style" 88 2.0 61 2.0) TEXT.INPUTFN :D4 (I 0 WINDOW) o @g @o(23 TEXT.POSITION.AND.CREATE 13 GETWINDOWUSERPROP 6 READ.TEXT) (10 SKETCHCONTEXT) ( 20 "locate the text" 3 "Text to be added: ") READ.TEXT :D4 (P 1 LST P 0 CLOSEWFLG I 0 PRMPT F 6 \TERM.OFD F 7 \DEFAULTTTYDISPLAYSTREAM) bVdWð’¿iŠ ´V hð!@•@i ¿i YH”V ¿gI0I°dºgJh[–LµK]\¿µêM \K°î(91 LAST 87 APPLY 45 CLOSEW 37 READLINE 34 READ 29 PRIN1 17 OPENWP 11 WFROMDS) (63 % 49 CONCAT) () TEXT.POSITION.AND.CREATE :D4 (P 8 DSP P 7 NEW.BITMAP P 6 DISPLAYPOSITION P 5 LOCATION P 4 P1 P 3 TEXTALIGNMENT P 2 HGHT P 1 WDTH P 0 SCALE I 3 PROMPTMSG I 2 WINDOW I 1 FONT I 0 TEXT) ° B @A AÈBg TIJ _d _AO jAÈO@O BOgCjKdgð•¿IkØâ‰gð‘j‚IkÙÙjKdgð˜¿AÈ°dgð•¿JkØâ‰gð“JkÙ€jÙ \d´@hLB HKABg (173 CREATE.TEXT.ELEMENT 165 GETWINDOWUSERPROP 155 SK.MAP.INPUT.PT.TO.GLOBAL 143 GET.BITMAP.POSITION 64 PRIN3 58 MOVETO 46 DSPFONT 38 DSPCREATE 32 BITMAPCREATE 21 GETWINDOWUSERPROP 8 STRINGWIDTH 3 SK.INPUT.SCALE) (162 SKETCHCONTEXT 131 TOP 120 CENTER 112 FONTDESCRIPTOR 105 BASELINE 89 LEFT 78 CENTER 70 PAINT 51 FONTDESCRIPTOR 18 SKETCHCONTEXT 12 FONTDESCRIPTOR) () CREATE.TEXT.ELEMENT :D4 (I 5 COLOR I 4 FONT I 3 JUSTIFICATION I 2 SCALE I 1 GPOSITION I 0 STRLST) "hddhgA@BCDhEhh (31 SK.UPDATE.TEXT.AFTER.CHANGE) (9 TEXT) () SK.UPDATE.TEXT.AFTER.CHANGE :D4 (I 0 GTEXTELT) @ @ @(9 TEXT.SET.SCALES 5 TEXT.SET.GLOBAL.REGIONS) NIL () SK.TEXT.FROM.TEXTBOX :D4 (P 3 NEWTEXTELT P 2 REGION P 1 TEXTSTYLE P 0 INDTEXTBOXELT I 1 SKW I 0 TEXTBOXELT) ³@1HYgH ZH Idgð”¿J°gð™JJkÙØ‰JJl×ÔIdgð¿JJkÙØ°gð“J‹JJl×ÔA HIdgð–ghHH [@KgK@h(162 CREATE.TEXT.ELEMENT 121 MAP.GLOBAL.PT.ONTO.GRID 34 ADD.EOLS 26 APPLY) (168 HASBOX 139 BASELINE 133 CENTER 98 BOTTOM 79 TOP 50 RIGHT 40 LEFT 15 SK.UNIONREGIONS) () TEXT.SET.GLOBAL.REGIONS :D4 (P 4 LREG P 0 SCALE I 0 GTEXTELT) e@@0@@H @@@È@ Ú °dLH ¹JµIh[I&ºµçK@(77 UNSCALE.REGION 65 LTEXT.LINE.REGIONS 60 LENGTH 28 SK.SCALE.POSITION.INTO.VIEWER) (51 FONTDESCRIPTOR) () TEXT.REGIONFN :D4 (P 2 LINEREG P 1 REG P 0 LINEREGIONS I 0 SCRTEXTELT) @!Hd²YHˆdºIJ ¹µõI(23 UNIONREGIONS) NIL () TEXT.GLOBALREGIONFN :D4 (P 2 LINEREG P 1 REG P 0 LINEREGIONS I 0 GTEXTELT) %@!Hd²YHˆdºIJ ¹µõI(28 UNIONREGIONS) NIL () TEXT.TRANSLATEFN :D4 (P 2 NEWTEXTELT P 1 NEWGPOS P 0 INDTEXTELT I 2 WINDOW I 1 DELTAPOS I 0 GTEXT) (@ !@ HhZAH YHHIJ(32 TEXT.UPDATE.GLOBAL.REGIONS 25 PTPLUS 13 \APPEND2 5 COPY) NIL () TEXT.TRANSFORMFN :D4 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) 5@HHABHCêHHH (50 CREATE.TEXT.ELEMENT 17 SK.TRANSFORM.POINT) NIL () TEXT.TRANSLATEPTSFN :D4 (L (3 WINDOW 2 GDELTA 1 SELPTS 0 TEXTELT)) @NIL NIL () TEXT.UPDATEFN :D4 (P 7 OLDLOCALREGIONS P 6 NEWLOCALREGIONS P 5 OLDSTRS P 4 NEWSTRS P 3 NEWSCREENELT P 2 LOCALTEXT P 1 OLDTEXTELT P 0 NEWTEXTELT I 2 SKETCHW I 1 NEWGELT I 0 OLDLOCALELT) þA@"HIô´‚±‹HIô´{HIô´rHIô´eH I ô´THIô´?@ºAB [JKJL M ð³#@B ¿KBhB KL¼M½N¾O_¿LµM²ëLMô—NOô³ßOOnÿÿgB¿Ld²ËhNhJIB ¿°(249 TEXT.DRAWFN1 218 DSPFILL 165 SK.DRAWFIGURE 162 VIEWER.SCALE 154 SK.ERASE.ELT 146 LENGTH 142 LENGTH 113 SK.ADD.ITEM 81 LENGTH 74 LENGTH) (214 ERASE) () SK.CHANGE.TEXT :D4 (P 7 GTYPE P 6 OLDFACE P 5 OLDVALUE P 4 NEWGTEXT P 3 GINDTEXTELT P 2 NEWVALUE P 1 PROPERTY P 0 COMMAND I 2 SKW I 1 HOW I 0 ELTWITHTEXT) ÚAgbA¡hB @_o ´‚±·@[½Adgð¢±Å¿Hdgð¨dgð¢±¡Mg Mg h ZµK]Hgð¢±Èo±Åg Jg Mg hºOgð²=gKKKKJKKK±ÝgKKKKJKKKKKK±{oêºg¹Ogð²?gKKJKKKKK±,gKKJKKKKKKKK±Ègð³Hdgðªdgð¢±½¿HK]hºg¹Ogð²>gKKKJKKKK±[gKKKJKKKKKKK±øgð³Hgð³HgðªHdgð¢±Ç¿K]Hdgð´¿ghºg¹Ogð²>gKKKJKKKK±zgKKKJKKKKKKK±gð³Hgð³HgðªHdgð¢±û¿Mg ¾Mg Mg Hdgð”¿gŠgð“gNHdgð”¿g‹gð“g‚NNhhºOgð²=gKKKKJKKK±dgKKKKJKKKKKK±gð²Ogð´‚±ð@B Hdgð²¿Ogð´‚±Õ@B gð¢±ÄOgð´‚±»@B dgð¢±ï¿HZg Mg ð´‚±¿Ogð²UgKKKKMg Jg Mg hKKK±:gKKKKMg Jg Mg hKKKKKK±Àdgð¢±Ü¿HMg Mg hZhdddi ³BoJoJ hOgð²=gKKKKJKKK±@gKKKKJKKKKKK±Þdgð¢±¾¿HHKg hºOgð²@dgð˜¿@dgð™¿@gðš@@g'NIL (58 ARROWHEADS 37 ARC 22 OPENCURVE 7 WIRE) () \SK.GET.FONT :D4 (I 0 GELT) '@dgð¥dgðš¿@¿@g'NIL (35 FONT 13 TEXTBOX 7 TEXT) () \SK.GET.JUSTIFICATION :D4 (I 0 GELT) &@dgð¥dgð™¿@¿@g'NIL (34 JUSTIFICATION 13 TEXTBOX 7 TEXT) () \SK.GET.DIRECTION :D4 (I 0 GELT) @dgð›g'NIL (28 DIRECTION 7 ARC) () \SK.GET.DASHING :D4 (I 0 GELT) r@dgð«dgð¥dgð™¿@dgð³dgð«dgð¥dgð˜¿@dgð›¿@gð@@g'NIL (110 DASHING 86 TEXTBOX 69 ELLIPSE 54 BOX 48 CLOSEDCURVE 42 OPENCURVE 35 CLOSEDWIRE 19 ARC 13 CIRCLE 7 WIRE) () PUTSKETCHELEMENTPROP :D4 (P 0 PLIST I 3 SKETCHTOUPDATE I 2 VALUE I 1 PROPERTY I 0 ELEMENT) ÿ@A Adgðš¿o ±Ùgð™@B ¿i±ÊAdgðš¿o ±¸gð§Adgð˜¿@B ±£gð—@B ±–Adgð˜¿@B ±†gð—@BC°xAdgð˜¿@BC°hgð–@B °\Adgð—¿@B °Mgð–@B °AAdgð—¿@B °2gð–@B °&Agð–@B °@Hµ@ABhh—C•C@ ¿AB°ï(251 LISTPUT 244 SKETCH.UPDATE 211 \SK.PUT.DIRECTION 198 \SK.PUT.JUSTIFICATION 186 \SK.PUT.FONT 171 \SK.PUT.ARROWHEADS 159 \SK.PUT.DASHING 144 \SK.PUT.FILLING 132 \SK.PUT.BRUSH 116 \SKELT.PUT.DATA 102 \SK.PUT.3RDCONTROLPT 86 \SK.PUT.2NDCONTROLPT 73 \SK.PUT.1STCONTROLPT 52 ERROR 32 \SKELT.PUT.SCALE 19 ERROR 4 GETSKETCHELEMENTPROP) (204 DIRECTION 191 JUSTIFICATION 178 FONT 164 ARROWHEADS 151 DASHING 137 FILLING 123 BRUSH 108 DATA 94 3RDCONTROLPT 79 2NDCONTROLPT 65 1STCONTROLPT 58 POSITION 42 REGION 25 SCALE 9 TYPE) ( 49 "Not implemented yet" 16 "Can't change types") \SK.PUT.FILLING :D4 (I 1 NEWVALUE I 0 GELT) {A ¤A ¿@dgð«dgð¥dgðœ¿@A°Mdgð¿@A°9dgðŸ¿@A°#gðŸ@A‹@gAi(119 LISTPUT 8 \ILLEGAL.ARG 3 SKFILLINGP) (115 FILLING 89 TEXTBOX 68 ELLIPSE 48 CIRCLE 29 BOX 23 CLOSEDCURVE 17 CLOSEDWIRE) () ADDSKETCHELEMENTPROP :D4 (P 0 NOWVALUE I 3 SKETCHTOUPDATE I 2 VALUE I 1 PROPERTY I 0 ELEMENT) &@A @AHµBhŽ¥HBh†HBh C(35 PUTSKETCHELEMENTPROP 31 \APPEND2 4 GETSKETCHELEMENTPROP) NIL () REMOVESKETCHELEMENTPROP :D4 (P 0 NOWVALUE I 3 SKETCHTOUPDATE I 2 VALUE I 1 PROPERTY I 0 ELEMENT) !@A @AHdBð’¿hˆ¡H„BH C(30 PUTSKETCHELEMENTPROP 26 REMOVE 4 GETSKETCHELEMENTPROP) NIL () \SK.PUT.FONT :D4 (I 1 NEWVALUE I 0 GELT) H@dgð²¿@A ¿@ °'gð²@A ¿@ ‹@gAi(68 LISTPUT 55 SK.UPDATE.TEXTBOX.AFTER.CHANGE 49 SK.INSURE.TEXT 29 SK.UPDATE.TEXT.AFTER.CHANGE 23 SK.INSURE.TEXT) (64 FONT 34 TEXTBOX 7 TEXT) () \SK.PUT.JUSTIFICATION :D4 (I 1 NEWVALUE I 0 GELT) L@dgð²¿@A` ¿@ °)gð²@A` ¿@ ‹@gAi(72 LISTPUT 59 SK.UPDATE.TEXTBOX.AFTER.CHANGE 53 SK.INSURE.STYLE 31 SK.UPDATE.TEXT.AFTER.CHANGE 25 SK.INSURE.STYLE) (68 JUSTIFICATION 50 SK.DEFAULT.TEXT.ALIGNMENT 36 TEXTBOX 22 SK.DEFAULT.TEXT.ALIGNMENT 7 TEXT) () \SK.PUT.DIRECTION :D4 (I 1 NEWVALUE I 0 GELT) .@dgð²A ¿@ ŠgAi(42 LISTPUT 30 SK.UPDATE.ARC.AFTER.CHANGE 24 SK.INSURE.DIRECTION) (38 DIRECTION 7 ARC) () \SK.PUT.DASHING :D4 (I 1 NEWVALUE I 0 GELT) ‰A™A ¤A ¿@dgð«dgð¥dgð›¿@A°Zdgð³dgð«dgð¥dgðš¿@A°6dgð¿@A°"gðž@A‹@gAi(133 LISTPUT 10 \ILLEGAL.ARG 5 DASHINGP) (129 DASHING 104 TEXTBOX 85 ELLIPSE 68 BOX 62 CLOSEDCURVE 56 OPENCURVE 49 CLOSEDWIRE 31 ARC 25 CIRCLE 19 WIRE) () \SK.PUT.BRUSH :D4 (I 2 SKETCHTOUPDATE I 1 NEWVALUE I 0 GELT) ÌAd3œ¿gAhhb‡ ¤A ¿@dgð³dgð«dgð¥dgðŸ¿@A¿@ ±„dgð™¿@A°sdgðŸ¿@A¿@ °]dgðŸ¿@A¿@ °Gdgð²¿@A¿@ °.gð²B”B ¿@A¿@ ‹@gAi(200 LISTPUT 187 SK.UPDATE.TEXTBOX.AFTER.CHANGE 168 SKETCH.CLEANUP 154 SK.UPDATE.ELLIPSE.AFTER.CHANGE 129 SK.UPDATE.ARC.AFTER.CHANGE 107 SK.UPDATE.CIRCLE.AFTER.CHANGE 68 SK.UPDATE.WIRE.ELT.AFTER.CHANGE 25 \ILLEGAL.ARG 20 BRUSHP) (196 BRUSH 159 TEXTBOX 135 ELLIPSE 113 ARC 91 CIRCLE 75 BOX 53 CLOSEDCURVE 47 OPENCURVE 41 CLOSEDWIRE 34 WIRE 8 ROUND) () \SK.PUT.ARROWHEADS :D4 (I 1 NEWVALUE I 0 GELT) h@dgð²¿A h¿@ °Gdgð²¿A h¿@ °*gð²A h¿@ ‹@gAi(100 LISTPUT 87 SET.ARC.ARROWHEAD.POINTS 70 SK.INSURE.ARROWHEADS 58 SET.OPENCURVE.ARROWHEAD.POINTS 43 SK.INSURE.ARROWHEADS 29 SET.WIRE.ARROWHEAD.POINTS 15 SK.INSURE.ARROWHEADS) (96 ARROWHEADS 63 ARC 35 OPENCURVE 7 WIRE) () SK.COPY.ELEMENT.PROPERTY.LIST :D4 (I 1 OLDELEMENT I 0 ELEMENT) @Aµ@ (14 \APPEND2) NIL () SKETCH.UPDATE :D4 (P 3 ELT P 2 SKW P 1 ALLVIEWERS P 0 SKSTRUC I 1 ELEMENTS I 0 SKETCH) H@ H YAµdŠdJ µô°& –AI °Ad²‹dKI µó‚ h(68 \ILLEGAL.ARG 59 SKETCH.UPDATE1 41 SKETCH.UPDATE1 35 GLOBALELEMENTP 25 SK.UPDATE.AFTER.SCALE.CHANGE 10 ALL.SKETCH.VIEWERS 3 INSURE.SKETCH) NIL () SKETCH.UPDATE1 :D4 (P 2 SELECTION P 1 SKW I 1 VIEWERS I 0 GELT) 2A!HµhYg Z ›@dJð–¿I ¿@dIi¿HX°Ö(42 SK.UPDATE.ELEMENT1 34 SKED.CLEAR.SELECTION 22 SCREENELEMENTP 17 GETWINDOWUSERPROP) (14 SELECTION) () \SKELT.GET.SCALE :D4 (L (0 GELT)) y@dgð³dgð«dgð¥dgð˜¿@dgð³dgð«dgð¥dgðš¿@dgð«dgð¥dgð™¿@gð´ @NIL (104 ELLIPSE 89 BOX 83 CLOSEDCURVE 77 CLOSEDWIRE 60 ARC 54 CIRCLE 48 OPENCURVE 41 WIRE 26 BITMAPELT 20 SKIMAGEOBJ 14 TEXTBOX 7 TEXT) () \SKELT.PUT.SCALE :D4 (I 1 NEWVALUE I 0 GELT) ŽAd3¢±„¿@dgð³dgð«dgð¥dgðš¿@Adgð³dgð«dgð¥dgðœ¿@Adgð«dgð¥dgð›¿@Agð´@A (139 \ILLEGAL.ARG) (119 ELLIPSE 102 BOX 96 CLOSEDCURVE 90 CLOSEDWIRE 71 ARC 65 CIRCLE 59 OPENCURVE 52 WIRE 35 BITMAPELT 29 SKIMAGEOBJ 23 TEXTBOX 16 TEXT) () \SKELT.PUT.DATA :D4 (P 0 INDVELT I 2 SKETCHTOUPDATE I 1 NEWVALUE I 0 GELT) Ÿ@@dgð²+¿Ad²ˆdYI •µöi¿h¤A ¿HA¿@ °ddgð¦dgð²¿B”B ¿@A °Edgð–¿HA°8dgð›¿HA¿@ °&dgð³dgð¬dgð¦dgð´ ¿HA¿@ i(155 SK.UPDATE.WIRE.ELT.AFTER.CHANGE 117 SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE 86 SK.REPLACE.TEXT.IN.ELEMENT 83 SK.INSURE.TEXT 77 SKETCH.CLEANUP 55 SK.UPDATE.GROUP.AFTER.CHANGE 44 \ILLEGAL.ARG 30 GLOBALELEMENTP) (142 CLOSEDCURVE 136 CLOSEDWIRE 130 OPENCURVE 123 WIRE 105 SKIMAGEOBJ 92 BITMAPELT 67 TEXTBOX 61 TEXT 13 GROUP) () SK.REPLACE.TEXT.IN.ELEMENT :D4 (I 1 NEWSTRS I 0 GTEXTELT) ;@dgð²¿@Aµoh¿@ °gðœ@A¿@ ƒ@ @(55 \ILLEGAL.ARG 50 SK.UPDATE.TEXT.AFTER.CHANGE 31 SK.UPDATE.TEXTBOX.AFTER.CHANGE) (36 TEXT 7 TEXTBOX) ( 23 "") \SKELT.GET.DATA :D4 (P 0 INDVELT I 0 GELT) ^@@dgð•¿Hdgð³õdgð³îdgð”¿Hdgð³ödgð³ïdgð³èdgð³ádgð³Ú¿@g'NIL (90 DATA 78 CLOSEDCURVE 71 CLOSEDWIRE 64 OPENCURVE 57 WIRE 50 SKIMAGEOBJ 39 BITMAPELT 32 TEXTBOX 25 TEXT 13 GROUP) () \SK.GET.1STCONTROLPT :D4 (I 1 PROPERTY I 0 GELT) ˆ@dgð³dgð«dgð¥dgð–¿@dgð¥dgð™¿@ dgð¥dgðš¿@ dgð³dgð«dgð¥dgð—¿@gð—@@A'(79 LOWERLEFTCORNER 56 LOWERLEFTCORNER) (116 GROUP 103 CLOSEDCURVE 97 OPENCURVE 91 CLOSEDWIRE 84 WIRE 67 SKIMAGEOBJ 61 BITMAPELT 45 BOX 39 TEXTBOX 26 ELLIPSE 20 ARC 14 CIRCLE 7 TEXT) () \SK.PUT.1STCONTROLPT :D4 (P 1 X P 0 INDVELT I 1 NEWPOSITION I 0 GELT) YA ¤A ¿@Hdgðœ¿HA¿@ ±4dgðœ¿HA¿@ ±!dgðœ¿HA¿@ ±dgðœ¿HA¿@ ±ûdgð²*¿HAAHHH¿@ ±Ìdgð²*¿HAAHHH¿@ ±dgð²-¿HAAHHH¿@ °jdgð²'¿HAAHHH°=dgð³dgð¬dgð¦dgð²¿HYµHAh¿@ ŽA°øgð´ HAi(325 SK.UPDATE.WIRE.ELT.AFTER.CHANGE 235 SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE 184 SK.UPDATE.BOX.AFTER.CHANGE 137 SK.UPDATE.TEXTBOX.AFTER.CHANGE 90 SK.UPDATE.ELLIPSE.AFTER.CHANGE 71 SK.UPDATE.ARC.AFTER.CHANGE 52 SK.UPDATE.CIRCLE.AFTER.CHANGE 33 SK.UPDATE.TEXT.AFTER.CHANGE 8 \ILLEGAL.ARG 3 POSITIONP) (332 GROUP 304 CLOSEDCURVE 298 OPENCURVE 292 CLOSEDWIRE 285 WIRE 241 BITMAPELT 191 SKIMAGEOBJ 144 BOX 97 TEXTBOX 78 ELLIPSE 59 ARC 40 CIRCLE 21 TEXT) () \SK.GET.2NDCONTROLPT :D4 (I 0 GELT) b@dgð«dgð¥dgð—¿@dgð¥dgð™¿@ dgð³dgð«dgð¥dgð˜¿@¿@g'(50 UPPERRIGHTCORNER) (94 2NDCONTROLPT 74 CLOSEDCURVE 68 OPENCURVE 62 CLOSEDWIRE 55 WIRE 39 BOX 33 TEXTBOX 19 ELLIPSE 13 ARC 7 CIRCLE) () \SK.PUT.2NDCONTROLPT :D4 (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¿@ °Pdgð³dgð¬dgð¦dgð²)¿HYµ HoAh¨HIAh‚IA¿@ Œ¿@gAi(250 LISTPUT 236 SK.UPDATE.WIRE.ELT.AFTER.CHANGE 170 SK.UPDATE.TEXTBOX.AFTER.CHANGE 122 SK.UPDATE.BOX.AFTER.CHANGE 74 SK.UPDATE.ELLIPSE.AFTER.CHANGE 54 SK.UPDATE.ARC.AFTER.CHANGE 34 SK.UPDATE.CIRCLE.AFTER.CHANGE 8 \ILLEGAL.ARG 3 POSITIONP) (246 2NDCONTROLPT 195 CLOSEDCURVE 189 OPENCURVE 183 CLOSEDWIRE 176 WIRE 129 TEXTBOX 81 BOX 61 ELLIPSE 41 ARC 21 CIRCLE) ( 211 (0 . 0)) \SK.GET.3RDCONTROLPT :D4 (I 0 GELT) P@dgð˜¿@dgð—¿@ dgð³dgð«dgð¥dgð™¿@¿@g'(31 \SK.GET.ARC.ANGLEPT) (76 3RDCONTROLPT 55 CLOSEDCURVE 49 OPENCURVE 43 CLOSEDWIRE 36 WIRE 22 ARC 7 ELLIPSE) () \SK.PUT.3RDCONTROLPT :D4 (P 1 X P 0 INDVELT I 1 NEWPOSITION I 0 GELT) à@Hgð²DA ²HHHA°!Ad3²¿HHHA‚ ¿@ iA ¤A ¿Hdgð¿HA¿@ °odgð³dgð¬dgð¦dgð²H¿HYµHooAh°)®HIoAh°Id¿HIIAh‚A¿@ Œ¿@gAi(220 LISTPUT 206 SK.UPDATE.WIRE.ELT.AFTER.CHANGE 109 SK.UPDATE.ELLIPSE.AFTER.CHANGE 88 \ILLEGAL.ARG 83 POSITIONP 77 SK.UPDATE.ARC.AFTER.CHANGE 72 \ILLEGAL.ARG 67 SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 38 SK.COMPUTE.ARC.ANGLE.PT 17 POSITIONP) (216 3RDCONTROLPT 134 CLOSEDCURVE 128 OPENCURVE 122 CLOSEDWIRE 115 WIRE 95 ELLIPSE 10 ARC) ( 171 (0 . 0) 154 (0 . 0) 150 (0 . 0)) LOWERLEFTCORNER :D4 (I 0 REGION) @@ (7 CREATEPOSITION) NIL () UPPERRIGHTCORNER :D4 (I 0 REGION) @@kÙØ@@kÙØ (22 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.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 (create BRUSH BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1 BRUSHCOLOR _ (QUOTE BLACK))) (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 SK.PICK.FONT SK.CHOOSE.TEXT.FONT SK.NEXTSIZEFONT SK.DECREASING.FONT.LIST SK.GUESS.FONTSAVAILABLE 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) (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) (READVAR-FROM-STRING (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 (create BRUSH BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1 BRUSHCOLOR _ (QUOTE BLACK))) (RPAQ? SK.DEFAULT.DASHING) (RPAQ? SK.DEFAULT.TEXTURE) (READVAR-FROM-STRING (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)) (READVAR-FROM-STRING (QUOTE OPENCURVEICON) "{(READBITMAP)(20 12 %"@@@@@@@@%" %"@L@@@@@@%" %"@L@@F@@@%" %"AL@@O@@@%" %"AH@@G@@@%" %"CH@@C@@@%" %"CH@@C@@@%" %"CH@@G@@@%" %"AN@@N@@@%" %"@OCLN@@@%" %"@COOL@@@%" %"@@NCH@@@%")} ") (READVAR-FROM-STRING (QUOTE CLOSEDCURVEICON) "{(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)) (READVAR-FROM-STRING (QUOTE VSHAPE.ARROWHEAD.BITMAP) "{(READBITMAP)(24 18 %"@@@@@@@@%" %"@@L@@@@@%" %"@@C@@@@@%" %"@@@L@@@@%" %"@@@C@@@@%" %"@@@@L@@@%" %"@@@@C@@@%" %"@@@@@L@@%" %"@@@@@B@@%" %"OOOOOO@@%" %"@@@@@B@@%" %"@@@@@L@@%" %"@@@@C@@@%" %"@@@@L@@@%" %"@@@C@@@@%" %"@@@L@@@@%" %"@@C@@@@@%" %"@@L@@@@@%")} ") (READVAR-FROM-STRING (QUOTE TRIANGLE.ARROWHEAD.BITMAP) "{(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@@@@@%")} ") (READVAR-FROM-STRING (QUOTE SOLIDTRIANGLE.ARROWHEAD.BITMAP) "{(READBITMAP)(24 18 %"@@@@@@@@%" %"@@L@@@@@%" %"@@O@@@@@%" %"@@OL@@@@%" %"@@OO@@@@%" %"@@OOL@@@%" %"@@OOO@@@%" %"@@OOOL@@%" %"@@OOON@@%" %"OOOOOO@@%" %"@@OOON@@%" %"@@OOOL@@%" %"@@OOO@@@%" %"@@OOL@@@%" %"@@OO@@@@%" %"@@OL@@@@%" %"@@O@@@@@%" %"@@L@@@@@%")} ") (READVAR-FROM-STRING (QUOTE CURVEDV.ARROWHEAD.BITMAP) "{(READBITMAP)(24 18 %"@@@@@@@@%" %"@@@@@@@@%" %"@A@@@@@@%" %"@@H@@@@@%" %"@@D@@@@@%" %"@@C@@@@@%" %"@@@N@@@@%" %"@@@AL@@@%" %"@@@@CH@@%" %"OOOOOO@@%" %"@@@@CH@@%" %"@@@AL@@@%" %"@@@N@@@@%" %"@@C@@@@@%" %"@@D@@@@@%" %"@@H@@@@@%" %"@A@@@@@@%" %"@@@@@@@@%")} ") (READVAR-FROM-STRING (QUOTE WIREICON) "{(READBITMAP)(20 12 %"@D@@@@@@%" %"@L@@@@@@%" %"AH@@@@@@%" %"C@GOL@@@%" %"F@OOL@@@%" %"L@L@L@@@%" %"LAH@L@@@%" %"FAHAH@@@%" %"CC@C@@@@%" %"AK@C@@@@%" %"@N@F@@@@%" %"@F@L@@@@%")} ") (READVAR-FROM-STRING (QUOTE CLOSEDWIREICON) "{(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) (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))) (READVAR-FROM-STRING (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)) (READVAR-FROM-STRING (QUOTE ARCICON) "{(READBITMAP)(20 13 %"@@@@@@@@%" %"@AOH@@@@%" %"@COL@@@@%" %"@G@N@@@@%" %"@F@F@@@@%" %"@N@G@@@@%" %"@L@C@@@@%" %"@@@C@@@@%" %"@@@G@@@@%" %"@@@F@@@@%" %"@@@N@@@@%" %"@@@L@@@@%" %"@@@@@@@@%")} ") (PUTPROPS SKETCHELEMENTS COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL