(FILECREATED "15-Dec-86 16:12:23" ("compiled on " {PHYLUM}SKETCHELEMENTS.;136) "12-Nov-85 14:59:23" recompiled changes: ARC.MOVEFN ARC.TRANSLATEPTS ARC.TRANSLATE ARC.TRANSFORMFN SK.CREATE.ARC.USING in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "15-Dec-86 16:08:14" {PHYLUM}SKETCHELEMENTS.;136 463773 changes to: (FNS ARC.MOVEFN ARC.TRANSLATEPTS ARC.TRANSLATE ARC.TRANSFORMFN SK.CREATE.ARC.USING) previous date: " 3-Oct-86 15:50:04" {PHYLUM}SKETCHELEMENTS.;135) INIT.SKETCH.ELEMENTS D1 (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 10Q TEXTBOXICON) M g ³4gPogggggggghgggg ¿g ³4gQogggggggghgggg ¿g ³4gRogggggggghgggg ¿g ³4gTogggggggghgggg ¿g ³4gVogggggggghgggg ¿g ³5gWogggggggghgggg ¿g ³4gSogggggggghgggg ¿g ³6ghoggggggggggggg ¿g ³4gUogggggggghgggg ¿g ³7gWoggggggggggggg h(1110Q CREATE.SKETCH.ELEMENT.TYPE 1022Q SKETCH.ELEMENT.TYPEP 1013Q CREATE.SKETCH.ELEMENT.TYPE 730Q SKETCH.ELEMENT.TYPEP 721Q CREATE.SKETCH.ELEMENT.TYPE 634Q SKETCH.ELEMENT.TYPEP 625Q CREATE.SKETCH.ELEMENT.TYPE 542Q SKETCH.ELEMENT.TYPEP 533Q CREATE.SKETCH.ELEMENT.TYPE 447Q SKETCH.ELEMENT.TYPEP 440Q CREATE.SKETCH.ELEMENT.TYPE 355Q SKETCH.ELEMENT.TYPEP 346Q CREATE.SKETCH.ELEMENT.TYPE 263Q SKETCH.ELEMENT.TYPEP 254Q CREATE.SKETCH.ELEMENT.TYPE 171Q SKETCH.ELEMENT.TYPEP 162Q CREATE.SKETCH.ELEMENT.TYPE 77Q SKETCH.ELEMENT.TYPEP 70Q CREATE.SKETCH.ELEMENT.TYPE 5 SKETCH.ELEMENT.TYPEP) (1104Q TEXTBOX.GLOBALREGIONFN 1101Q TEXTBOX.TRANSLATEPTSFN 1076Q TEXTBOX.TRANSFORMFN 1073Q TEXTBOX.READCHANGEFN 1070Q TEXTBOX.UPDATEFN 1065Q TEXTBOX.TRANSLATEFN 1062Q TEXTBOX.REGIONFN 1057Q TEXTBOX.INSIDEFN 1054Q TEXTBOX.INPUTFN 1051Q SK.ELEMENTS.CHANGEFN 1046Q OBSOLETE 1043Q TEXTBOX.EXPANDFN 1040Q TEXTBOX.DRAWFN 1027Q TEXTBOX 1017Q TEXTBOX 1007Q SK.BOX.GLOBALREGIONFN 1004Q SK.BOX.TRANSLATEPTSFN 1001Q SK.BOX.TRANSFORMFN 776Q SK.BOX.READCHANGEFN 772Q SK.BOX.TRANSLATEFN 767Q SK.BOX.REGIONFN 764Q SK.BOX.INSIDEFN 761Q SK.BOX.INPUTFN 756Q SK.ELEMENTS.CHANGEFN 753Q OBSOLETE 750Q SK.BOX.EXPANDFN 745Q SK.BOX.DRAWFN 735Q BOX 725Q BOX 715Q TEXT.GLOBALREGIONFN 712Q TEXT.TRANSLATEPTSFN 707Q TEXT.TRANSFORMFN 704Q TEXT.READCHANGEFN 701Q TEXT.UPDATEFN 676Q TEXT.TRANSLATEFN 673Q TEXT.REGIONFN 670Q TEXT.INSIDEFN 665Q TEXT.INPUTFN 662Q SK.ELEMENTS.CHANGEFN 657Q OBSOLETE 654Q TEXT.EXPANDFN 651Q TEXT.DRAWFN 641Q TEXT 631Q TEXT 621Q CLOSEDWIRE.GLOBALREGIONFN 616Q CLOSEDWIRE.TRANSLATEPTSFN 613Q CLOSEDWIRE.TRANSFORMFN 610Q CLOSEDWIRE.READCHANGEFN 604Q KNOTS.TRANSLATEFN 601Q CLOSEDWIRE.REGIONFN 576Q KNOTS.INSIDEFN 573Q CLOSED.WIRE.INPUTFN 570Q SK.ELEMENTS.CHANGEFN 565Q OBSOLETE 562Q CLOSEDWIRE.EXPANDFN 557Q CLOSED.WIRE.DRAWFN 547Q CLOSEDWIRE 537Q CLOSEDWIRE 527Q OPENWIRE.GLOBALREGIONFN 524Q OPENWIRE.TRANSLATEPTSFN 521Q OPENWIRE.TRANSFORMFN 516Q OPENCURVE.READCHANGEFN 512Q OPENWIRE.TRANSLATEFN 507Q KNOTS.REGIONFN 504Q KNOTS.INSIDEFN 501Q WIRE.INPUTFN 476Q SK.ELEMENTS.CHANGEFN 473Q OBSOLETE 470Q WIRE.EXPANDFN 465Q OPEN.WIRE.DRAWFN 454Q WIRE 444Q WIRE 434Q CLOSEDCURVE.GLOBALREGIONFN 431Q CLOSEDCURVE.TRANSLATEPTSFN 426Q CLOSEDCURVE.TRANSFORMFN 423Q CLOSEDCURVE.READCHANGEFN 417Q KNOTS.TRANSLATEFN 414Q CLOSEDCURVE.REGIONFN 411Q KNOTS.INSIDEFN 406Q CLOSEDCURVE.INPUTFN 403Q SK.ELEMENTS.CHANGEFN 400Q OBSOLETE 375Q CLOSEDCURVE.EXPANDFN 372Q CLOSEDCURVE.DRAWFN 362Q CLOSEDCURVE 352Q CLOSEDCURVE 342Q OPENCURVE.GLOBALREGIONFN 337Q OPENCURVE.TRANSLATEPTSFN 334Q OPENCURVE.TRANSFORMFN 331Q OPENCURVE.READCHANGEFN 325Q OPENCURVE.TRANSLATEFN 322Q CURVE.REGIONFN 317Q KNOTS.INSIDEFN 314Q OPENCURVE.INPUTFN 311Q SK.ELEMENTS.CHANGEFN 306Q OBSOLETE 303Q OPENCURVE.EXPANDFN 300Q OPENCURVE.DRAWFN 270Q OPENCURVE 260Q OPENCURVE 250Q ARC.GLOBALREGIONFN 245Q ARC.TRANSLATEPTS 242Q ARC.TRANSFORMFN 237Q ARC.READCHANGEFN 233Q ARC.TRANSLATE 230Q ARC.REGIONFN 225Q ARC.INSIDEFN 222Q ARC.INPUTFN 217Q SK.ELEMENTS.CHANGEFN 214Q OBSOLETE 211Q ARC.EXPANDFN 206Q ARC.DRAWFN 176Q ARC 166Q ARC 156Q ELLIPSE.GLOBALREGIONFN 153Q ELLIPSE.TRANSLATEPTS 150Q ELLIPSE.TRANSFORMFN 145Q SK.BRUSH.READCHANGE 141Q ELLIPSE.TRANSLATEFN 136Q ELLIPSE.REGIONFN 133Q ELLIPSE.INSIDEFN 130Q ELLIPSE.INPUTFN 125Q SK.ELEMENTS.CHANGEFN 122Q OBSOLETE 117Q ELLIPSE.EXPANDFN 114Q ELLIPSE.DRAWFN 104Q ELLIPSE 74Q ELLIPSE 64Q CIRCLE.GLOBALREGIONFN 61Q CIRCLE.TRANSLATEPTS 56Q CIRCLE.TRANSFORMFN 53Q CLOSEDWIRE.READCHANGEFN 47Q CIRCLE.TRANSLATE 44Q CIRCLE.REGIONFN 41Q CIRCLE.INSIDEFN 36Q CIRCLE.INPUTFN 33Q SK.ELEMENTS.CHANGEFN 30Q OBSOLETE 25Q CIRCLE.EXPANDFN 22Q CIRCLE.DRAWFN 12Q CIRCLE 2 CIRCLE) ( 1035Q "Adds a box into which text can be typed." 742Q "Adds a box by accepting two corners." 646Q "text is added by pointing to its position and typing." 554Q "Adds a closed polygon by accepting the corners." 462Q "Adds a series of lines by accepting points." 367Q "Adds a closed curve by accepting points that it goes though." 275Q "Adds a curve by accepting points the curve goes through." 203Q "Adds an arc to the figure." 111Q "Adds an ellipse to the figure." 17Q "Adds a circle to the figure.") CREATE.SKETCH.ELEMENT.TYPE D1 (I 17Q GLOBALREGIONFN I 16Q TRANSLATEPTSFN I 15Q TRANSFORMFN I 14Q READCHANGEFN I 13Q UPDATEFN I 12Q TRANSLATEFN I 11Q REGIONFN I 10Q 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(211Q PRIN1 200Q PRIN1 153Q MEMB 134Q PUTPROP) (170Q OBSOLETE 163Q SKETCH.ELEMENT.TYPE.NAMES 157Q SKETCH.ELEMENT.TYPE.NAMES 150Q SKETCH.ELEMENT.TYPE.NAMES 143Q SKETCH.ELEMENT.TYPES 137Q SKETCH.ELEMENT.TYPES 11Q SKETCHTYPETYPE# 6 SKETCHTYPE) ( 205Q " will never be called. CREATE.SKETCH.ELEMENT.TYPE") SKETCH.ELEMENT.TYPEP D1 (L (0 SKETCHTYPE)) @` ´@g(6 MEMB) (14Q SKETCHTYPE 3 SKETCH.ELEMENT.TYPE.NAMES) () SKETCH.ELEMENT.NAMEP D1 (L (0 X)) @`NIL (3 SKETCH.ELEMENT.TYPE.NAMES) () \CURSOR.IN.MIDDLE.MENU D1 (I 0 MENU) '@`@ Èl×Õ`@ Èl×Õ (44Q MENU 27Q CHECK/MENU/IMAGE 7 CHECK/MENU/IMAGE) (32Q BITMAP 23Q LASTMOUSEY 12Q BITMAP 3 LASTMOUSEX) () SKETCHINCOLORP D1 NIL `NIL (2 SKETCHINCOLORFLG) () READ.COLOR.CHANGE D1 (I 2 CURRENTCOLOR I 1 ALLOWNONEFLG I 0 MSG) @AB(5 READCOLOR1) NIL () \POSSIBLECOLOR D1 (P 0 MAXIMUMCOLOR I 0 COLOR?) :lÿ@ dgð³dgð²¿j@ñhð´@Hñhð´@gð´@ µ@ (67Q HLSP 61Q RGBP 10Q TYPENAME) (52Q LISTP 23Q SMALLP 14Q LITATOM) () RGBP D1 (L (0 X)) I@´B@X´;Hmÿñ´5nHñ´.@X´&Hmÿñ´ nHñ´@X´Hmÿñ´ nHñ´@NIL NIL () HLSP D1 (L (0 X)) *@3´#@mÿñ´ni@ñ´@´@´@NIL NIL () SK.CREATE.DEFAULT.FILLING D1 (F 0 SK.DEFAULT.TEXTURE F 1 SK.DEFAULT.OPERATION) P`QhNIL (3 SK.DEFAULT.BACKCOLOR) () SKFILLINGP D1 (I 0 FILLING) @´@ ´ @¡@h(10Q TEXTUREP) NIL () SK.INSURE.FILLING D1 (P 0 DEFAULTFILLING I 1 SKW I 0 FILLING) H@ µ!A ŸAg ‚@µH ™@HH@ ˜H@H@ (105Q \ILLEGAL.ARG 67Q \POSSIBLECOLOR 50Q TEXTUREP 35Q SK.CREATE.DEFAULT.FILLING 21Q GETWINDOWUSERPROP 11Q WINDOWP 3 SKFILLINGP) (16Q SKETCHCONTEXT) () SK.INSURE.COLOR D1 (I 0 COLOR) @d˜ µ@ (13Q \ILLEGAL.ARG 5 \POSSIBLECOLOR) NIL () SK.TRANSLATE.MODE D1 (I 1 STREAM I 0 OPERATION) &hA gð²@dgð“ggð“gg@(4 DSPOPERATION) (41Q ERASE 35Q PAINT 30Q ERASE 24Q INVERT 17Q INVERT 7 ERASE) () SK.CHANGE.FILLING.MODE D1 (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(601Q SHOULDNT 135Q SHOULDNT 16Q MEMB) (616Q FILLING 511Q CIRCLE 503Q CIRCLE 424Q CLOSEDWIRE 415Q CLOSEDWIRE 257Q TEXTBOX 251Q TEXTBOX 203Q BOX 174Q BOX 120Q CLOSEDWIRE 101Q CIRCLE 54Q TEXTBOX 35Q BOX) ( 13Q (BOX TEXTBOX CLOSEDWIRE CIRCLE)) READ.FILLING.MODE D1 NIL F`di¿do¿dk¿do¿dg ¿dg¿jdnÿdhHdI ¿ (103Q \CURSOR.IN.MIDDLE.MENU) (50Q DEFAULTMENUHELDFN 41Q CLRPROMPT 2 MENUTYPE#) ( 32Q ((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.")) 15Q "How should the filling merge with the covered figures?") SKETCH.CREATE.CIRCLE D1 (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 (57Q SK.CIRCLE.CREATE 53Q SK.INSURE.FILLING 36Q SK.INSURE.DASHING 32Q SK.INSURE.BRUSH 26Q SK.INSURE.POSITION 3 SK.INSURE.POSITION) NIL ( 47Q 1.0) CIRCLE.EXPANDFN D1 (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@(235Q \APPEND2 222Q SCALE.BRUSH 152Q DISTANCEBETWEEN 140Q SK.SCALE.POSITION.INTO.VIEWER 127Q SK.SCALE.POSITION.INTO.VIEWER) (175Q ROUND 25Q CIRCLE) ( 53Q 1.0) CIRCLE.DRAWFN D1 (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 (167Q \CIRCLE.DRAWFN1 142Q DSPOPERATION 135Q FILLCIRCLE 115Q DSPOPERATION 100Q DSPOPERATION 52Q DSPOPERATION) (120Q ERASE) () \CIRCLE.DRAWFN1 D1 (I 5 WINDOW I 4 DASHING I 3 BRUSH I 2 RADIUS I 1 RADIUSPT I 0 CENTERPT) 'D²@Ado iCDE @@BCDE (44Q DRAWCIRCLE 27Q DRAWCURVE 17Q SK.COMPUTE.ARC.PTS 14Q PTPLUS) NIL ( 11Q (0 . -1)) CIRCLE.INPUTFN D1 (P 2 RADIUSPT P 1 CENTERPT P 0 SKETCHCONTEXT I 0 WINDOW F 3 CIRCLE.CENTER F 4 SKETCH.USE.POSITION.PAD F 5 CIRCLE.EDGE) ~@g !@oo@ShdddT Yµ@ hh@@oo@IUZIh@@ J´ÖI@ YJ@ ZIJHH@ H (173Q SK.CIRCLE.CREATE 156Q SK.INPUT.SCALE 137Q SK.MAP.INPUT.PT.TO.GLOBAL 131Q SK.MAP.INPUT.PT.TO.GLOBAL 121Q CLOSEPROMPTWINDOW 115Q MARK.SPOT 104Q SK.READ.CIRCLE.POINT 74Q STATUSPRINT 60Q MARK.SPOT 47Q CLOSEPROMPTWINDOW 40Q SK.READ.POINT.WITH.FEEDBACK 25Q STATUSPRINT 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) ( 71Q "Indicate a point of the circumference of the circle" 65Q " " 22Q "Indicate center of circle" 16Q " ") SK.UPDATE.CIRCLE.AFTER.CHANGE D1 (L (0 GCIRELT)) @hNIL NIL () SK.READ.CIRCLE.POINT D1 (I 2 CURSOR I 1 CENTERPT I 0 WINDOW F 0 SKETCH.USE.POSITION.PAD) @B`´gAghP (23Q SK.READ.POINT.WITH.FEEDBACK) (15Q MIDDLE 11Q SK.SHOW.CIRCLE 4 SKETCH.VERBOSE.FEEDBACK) () SK.SHOW.CIRCLE D1 (P 1 CENTERY P 0 CENTERX I 3 CENTERPT I 2 WINDOW I 1 Y I 0 X) @ABCCHIHI@AkhB h(34Q DRAWCIRCLE 25Q SK.DISTANCE.TO 5 SHOWSKETCHXY) NIL () CIRCLE.INSIDEFN D1 (P 0 INDGCIRCLE I 1 WREG I 0 GCIRCLE) @AH µ AH (26Q INSIDEP 14Q INSIDEP) NIL () CIRCLE.REGIONFN D1 (P 1 RADIUS P 0 LOCALCIRCLE I 0 CIRCSCRELT) 1@HkH kØâkØØYHXIÙHIÙIlÚYd(56Q CREATEREGION 23Q MAX) NIL () CIRCLE.GLOBALREGIONFN D1 (P 3 REGION P 2 CENTER P 1 RADIUS P 0 INDVCIRCLE I 0 GCIRELT) F@µ9@1HZH HÔYJIÕJIÕIlÖYd[HKK(67Q CREATEREGION 35Q DISTANCEBETWEEN) NIL () CIRCLE.TRANSLATE D1 (P 0 GCIRCLE I 1 DELTAPOS I 0 CIRCLESKELT) N@@ gHA HA HHHHhHh(34Q PTPLUS 24Q PTPLUS 12Q \APPEND2) (15Q CIRCLE) () CIRCLE.TRANSFORMFN D1 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) e@@@@@gHABHABHC HHHhH@(66Q SK.TRANSFORM.BRUSH 55Q SK.TRANSFORM.POINT 44Q SK.TRANSFORM.POINT) (34Q CIRCLE) () CIRCLE.TRANSLATEPTS D1 (P 1 GCIRCLE P 0 LCIRCLE I 3 WINDOW I 2 GLOBALDELTA I 1 SELPTS I 0 CIRCLESPEC) R@@HA —IB ‚IHA ˜IB ƒIIIII (117Q SK.CIRCLE.CREATE 54Q PTPLUS 43Q MEMBER 27Q PTPLUS 17Q MEMBER) NIL () SK.CIRCLE.CREATE D1 (I 5 FILLING I 4 INITSCALE I 3 DASHING I 2 BRUSH I 1 RADIUSPT I 0 CENTERPT) "hddhg@ABCDEhhh (37Q SET.CIRCLE.SCALE) (11Q CIRCLE) () SET.CIRCLE.SCALE D1 (P 1 RAD P 0 INDVPART I 0 GCIRCELT) "@HH Y@Io×Ihh@(17Q DISTANCEBETWEEN) NIL ( 26Q 3000.0) SK.BRUSH.READCHANGE D1 (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(215Q READ.COLOR.CHANGE 207Q GETSKETCHELEMENTPROP 161Q READ.DASHING.CHANGE 144Q READBRUSHSHAPE 132Q READSIZECHANGE 113Q \CURSOR.IN.MIDDLE.MENU 43Q \APPEND2 26Q SKETCHINCOLORP) (204Q BRUSH 166Q BRUSHCOLOR 153Q DASHING 137Q SHAPE 120Q SIZE 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 5 MENUTYPE#) ( 175Q "Change brush color how?" 127Q "Change size how?" 40Q ((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.")) 34Q (("Color" (QUOTE BRUSHCOLOR) "changes the color of the brush")) 20Q "select aspect of brush to change") BRUSHP D1 (I 0 BR) @@ddlð³7¿´3@o ´(@3´ @d²d™ ´@hð´@(62Q \POSSIBLECOLOR 25Q MEMB) NIL ( 22Q (ROUND SQUARE VERTICAL HORIZONTAL DIAGONAL)) SK.INSURE.BRUSH D1 (I 0 BRUSH) !@ µ@d3š¿g@hh£`@ (36Q \ILLEGAL.ARG 3 BRUSHP) (31Q SK.DEFAULT.BRUSH 16Q ROUND) () SK.INSURE.DASHING D1 (I 0 DASHING) @d˜ µ@ (13Q \ILLEGAL.ARG 5 DASHINGP) NIL () SKETCH.CREATE.ELLIPSE D1 (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 (40Q ELLIPSE.CREATE 23Q SK.INSURE.DASHING 17Q SK.INSURE.BRUSH 13Q SK.INSURE.POSITION 7 SK.INSURE.POSITION 3 SK.INSURE.POSITION) NIL ( 34Q 1.0) ELLIPSE.EXPANDFN D1 (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@(267Q SCALE.BRUSH 211Q DISTANCEBETWEEN 204Q DISTANCEBETWEEN 171Q SK.SCALE.POSITION.INTO.VIEWER 157Q SK.SCALE.POSITION.INTO.VIEWER 146Q SK.SCALE.POSITION.INTO.VIEWER) (240Q ROUND 27Q ELLIPSE) ( 74Q 1.0) ELLIPSE.DRAWFN D1 (P 12Q SEMIMAJORRADIUS P 11Q SEMIMINORRADIUS P 10Q 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 (250Q DRAWELLIPSE 214Q DRAWCURVE 172Q CREATEPOSITION 151Q CREATEPOSITION 130Q CREATEPOSITION 107Q CREATEPOSITION 46Q COS 42Q SIN) NIL () ELLIPSE.INPUTFN D1 (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 @ (262Q ELLIPSE.CREATE 256Q SK.INPUT.SCALE 245Q GETWINDOWUSERPROP 235Q GETWINDOWUSERPROP 226Q SK.MAP.INPUT.PT.TO.GLOBAL 221Q SK.MAP.INPUT.PT.TO.GLOBAL 214Q SK.MAP.INPUT.PT.TO.GLOBAL 204Q MARK.SPOT 174Q MARK.SPOT 164Q CLOSEPROMPTWINDOW 157Q SK.READ.ELLIPSE.MINOR.PT 145Q STATUSPRINT 130Q MARK.SPOT 117Q CLOSEPROMPTWINDOW 112Q MARK.SPOT 77Q SK.READ.ELLIPSE.MAJOR.PT 70Q STATUSPRINT 53Q MARK.SPOT 42Q CLOSEPROMPTWINDOW 33Q SK.READ.POINT.WITH.FEEDBACK 16Q STATUSPRINT) (242Q SKETCHCONTEXT 232Q SKETCHCONTEXT 27Q SKETCH.USE.POSITION.PAD) ( 142Q "Indicate semi-minor axis" 136Q " " 65Q "Indicate semi-major axis" 61Q " " 13Q "Indicate center of ellipse" 7 " ") SK.READ.ELLIPSE.MAJOR.PT D1 (I 1 CENTERPT I 0 SKW F 0 WINDOW F 1 ELLIPSE.SEMI.MAJOR F 2 SKETCH.USE.POSITION.PAD) PQ`´gAghR (23Q SK.READ.POINT.WITH.FEEDBACK) (15Q MIDDLE 11Q SK.SHOW.ELLIPSE.MAJOR.RADIUS 4 SKETCH.VERBOSE.FEEDBACK) () SK.SHOW.ELLIPSE.MAJOR.RADIUS D1 (I 3 CENTERPT I 2 WINDOW I 1 Y I 0 X) %@AB@A@C@ÕlÖÔACAÕlÖÔkgB (42Q DRAWLINE 5 SHOWSKETCHXY) (35Q INVERT) () SK.READ.ELLIPSE.MINOR.PT D1 (I 2 MAJORPT I 1 CENTERPT I 0 SKW F 0 WINDOW F 1 ELLIPSE.SEMI.MINOR F 2 SKETCH.USE.POSITION.PAD) $PQ`´gAdB AB hghR (41Q SK.READ.POINT.WITH.FEEDBACK 24Q COMPUTE.ELLIPSE.ORIENTATION 17Q DISTANCEBETWEEN) (33Q MIDDLE 11Q SK.SHOW.ELLIPSE.MINOR.RADIUS 4 SKETCH.VERBOSE.FEEDBACK) () SK.SHOW.ELLIPSE.MINOR.RADIUS D1 (P 1 CENTERY P 0 CENTERX I 3 ELLIPSEARGS I 2 WINDOW I 1 Y I 0 X) +@ABCHYHXdIHI@ACCkhB h(47Q DRAWELLIPSE 31Q SK.DISTANCE.TO 5 SHOWSKETCHXY) NIL () ELLIPSE.INSIDEFN D1 (P 0 INDGELLIPSE I 1 WREG I 0 GELLIPSE) $@AH µAH µAH (41Q INSIDEP 26Q INSIDEP 14Q INSIDEP) NIL () ELLIPSE.CREATE D1 (P 1 ORIENTATION P 0 MAXRAD I 5 INITSCALE I 4 DASHING I 3 BRUSH I 2 MAJPT I 1 MINPT I 0 CENTERPT) M@A @B Ho×Hhh0g@B Y¼@DºC»@BAIBLKJEhdhh(64Q SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 46Q COMPUTE.ELLIPSE.ORIENTATION 14Q MAX 11Q DISTANCEBETWEEN 4 DISTANCEBETWEEN) (41Q ELLIPSE) ( 24Q 3000.0) SK.UPDATE.ELLIPSE.AFTER.CHANGE D1 (L (0 GELLIPSEELT)) @hNIL NIL () ELLIPSE.REGIONFN D1 (P 11Q DELTAY P 10Q 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Ú(154Q CREATEREGION 132Q FIXR 114Q FIXR 61Q ABS 46Q ABS 33Q ABS) NIL () ELLIPSE.GLOBALREGIONFN D1 (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(114Q CREATEREGION 54Q MAX 51Q DISTANCEBETWEEN 41Q DISTANCEBETWEEN) NIL () ELLIPSE.TRANSLATEFN D1 (P 0 GLOBALEL I 1 DELTAPOS I 0 SKELT) k@@ gH¹HA HA HA IHHHHhHh(54Q PTPLUS 43Q PTPLUS 33Q PTPLUS 12Q \APPEND2) (15Q ELLIPSE) () ELLIPSE.TRANSFORMFN D1 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) C@HABHABHABHC HH (100Q ELLIPSE.CREATE 53Q SK.TRANSFORM.BRUSH 40Q SK.TRANSFORM.POINT 26Q SK.TRANSFORM.POINT 15Q SK.TRANSFORM.POINT) NIL () ELLIPSE.TRANSLATEPTS D1 (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 (146Q ELLIPSE.CREATE 104Q PTPLUS 72Q MEMBER 54Q PTPLUS 43Q MEMBER 27Q PTPLUS 17Q MEMBER) NIL () MARK.SPOT D1 (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) tBg 1@ ˜@¹@b¿@¹` Z` [H²'T`ð’Tµ`j`c `ð²éT‚`jdHµBIJlÛÙAKlÛÙJKgg h(160Q BITBLT 107Q BITSPERPIXEL 101Q COLORIZEBITMAP 73Q MAXIMUMCOLOR 46Q BITMAPHEIGHT 37Q BITMAPWIDTH 15Q POSITIONP 6 GETWINDOWUSERPROP) (154Q INVERT 151Q INPUT 122Q SPOTMARKER 112Q \COLORDISPLAYBITSPERPIXEL 76Q \COLORDISPLAYBITSPERPIXEL 67Q SPOTMARKER 57Q BITMAPTYPE# 43Q SPOTMARKER 34Q SPOTMARKER 3 INCOLOR) () DISTANCEBETWEEN D1 (I 1 P2 I 0 P1) @AÕ @AÕ Ô (23Q SQRT 17Q SQUARE 7 SQUARE) NIL () SK.DISTANCE.TO D1 (I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) @BÕ ACÕ Ô (17Q SQRT 13Q SQUARE 5 SQUARE) NIL () SQUARE D1 (L (0 X)) @dÖNIL NIL () COMPUTE.ELLIPSE.ORIENTATION D1 (P 0 DELTAX I 1 MAJRADPT I 0 CENTERPT) 'A@ÙHjð³HµA@ÙH ²óo(36Q \FZEROP 32Q ARCTAN2) NIL ( 44Q 90.0) SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT D1 (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êÔ (43Q CREATEPOSITION 21Q DISTANCEBETWEEN 14Q DISTANCEBETWEEN 7 COS 3 SIN) NIL () SKETCH.CREATE.OPEN.CURVE D1 (I 4 SCALE I 3 ARROWHEADS I 2 DASHING I 1 BRUSH I 0 POINTS) @ hA B D3µoC (35Q SK.CURVE.CREATE 31Q SK.INSURE.ARROWHEADS 14Q SK.INSURE.DASHING 10Q SK.INSURE.BRUSH 3 SK.INSURE.POINT.LIST) NIL ( 25Q 1.0) OPENCURVE.INPUTFN D1 (P 5 PT P 1 KNOTS P 0 SKCONTEXT I 0 W) J@g 0@i °dM@ ºKµJh\J&»µçLYhHH@ @I (107Q SK.CURVE.CREATE 103Q SK.ARROWHEAD.CREATE 76Q SK.INPUT.SCALE 35Q SK.MAP.INPUT.PT.TO.GLOBAL 21Q READ.LIST.OF.POINTS 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) () SK.CURVE.CREATE D1 (I 5 ARROWHEADS I 4 INITSCALE I 3 DASHING I 2 BRUSH I 1 CLOSED I 0 GKNOTS) >@´;hddhA²g@BCDhdh°g@BCEDhdh h (73Q KNOT.SET.SCALE.FIELD 65Q SET.OPENCURVE.ARROWHEAD.POINTS) (42Q OPENCURVE 17Q CLOSEDCURVE) () MAXXEXTENT D1 (L (0 PTS)) &@µj!HY@ŽdZIó‘J¹HJó‘J¸µïIHÕNIL NIL () MAXYEXTENT D1 (L (0 PTS)) &@µj!HY@ŽdZIó‘J¹HJó‘J¸µïIHÕNIL NIL () KNOT.SET.SCALE.FIELD D1 (P 0 PTS I 0 GKNOTELT) (@@o@lH H oë@(36Q MAX 33Q MAXYEXTENT 27Q MAXXEXTENT) NIL ( 42Q 2.0 15Q 0.0) OPENCURVE.DRAWFN D1 (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(103Q REGIONSINTERSECTP 100Q SK.ITEM.REGION 72Q DRAWARROWHEADS 63Q DRAWCURVE 37Q \SK.ADJUST.FOR.ARROWHEADS) NIL () OPENCURVE.EXPANDFN D1 (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@(266Q SCALE.BRUSH 220Q SK.EXPAND.ARROWHEADS 156Q SK.SCALE.POSITION.INTO.VIEWER 136Q SET.OPENCURVE.ARROWHEAD.POINTS) (241Q ROUND 25Q OPENCURVE) ( 53Q 1.0) OPENCURVE.READCHANGEFN D1 (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(250Q READ.POINT.TO.ADD 233Q READ.COLOR.CHANGE 225Q GETSKETCHELEMENTPROP 174Q READ.DASHING.CHANGE 162Q READ.ARROW.CHANGE 144Q READBRUSHSHAPE 132Q READSIZECHANGE 113Q \CURSOR.IN.MIDDLE.MENU 43Q \APPEND2 26Q SKETCHINCOLORP) (237Q ADDPOINT 222Q BRUSH 203Q BRUSHCOLOR 167Q DASHING 153Q ARROW 137Q SHAPE 120Q SIZE 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 5 MENUTYPE#) ( 213Q "Change curve color how?" 127Q "Change size how?" 40Q ((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.")) 34Q ((Color (QUOTE BRUSHCOLOR) "Changes the color of the curve.")) 20Q "Which aspect?") OPENCURVE.TRANSFORMFN D1 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) k@@@@@gHABHC HHC HhHH @ (150Q KNOT.SET.SCALE.FIELD 140Q SET.OPENCURVE.ARROWHEAD.POINTS 73Q SK.TRANSFORM.ARROWHEADS 54Q SK.TRANSFORM.BRUSH 44Q SK.TRANSFORM.POINT.LIST) (34Q OPENCURVE) () OPENCURVE.TRANSLATEFN D1 (P 0 NEWOCELT I 1 DELTAPOS I 0 OCELT) @A H H(15Q SET.OPENCURVE.ARROWHEAD.POINTS 4 KNOTS.TRANSLATEFN) NIL () OPENCURVE.TRANSLATEPTSFN D1 (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&¼°õ(110Q PTPLUS 101Q MEMBER 67Q SK.CURVE.CREATE) NIL () SKETCH.CREATE.CLOSED.CURVE D1 (I 4 SCALE I 3 WILLBEFILLING I 2 DASHING I 1 BRUSH I 0 POINTS) @ iA B D3µo (31Q SK.CURVE.CREATE 14Q SK.INSURE.DASHING 10Q SK.INSURE.BRUSH 3 SK.INSURE.POINT.LIST) NIL ( 25Q 1.0) CLOSEDCURVE.DRAWFN D1 (P 0 LCURVE I 2 REGION I 1 WINDOW I 0 CURVEELT) (@BµHiHHA h@ ³åh(42Q REGIONSINTERSECTP 37Q SK.ITEM.REGION 31Q DRAWCURVE) NIL () CLOSEDCURVE.EXPANDFN D1 (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@(215Q \APPEND2 203Q SCALE.BRUSH 113Q SK.SCALE.POSITION.INTO.VIEWER) (157Q ROUND 22Q CLOSEDCURVE) ( 42Q 1.0) CLOSEDCURVE.REGIONFN D1 (I 0 KNOTSCRELT) @ o @ kØlÛ (34Q INCREASEREGION 24Q SK.BRUSH.SIZE 14Q EXPANDREGION 5 REGION.CONTAINING.PTS) NIL ( 11Q 1.4) CLOSEDCURVE.GLOBALREGIONFN D1 (P 1 REGION P 0 INDVCLOSEDCURVE I 0 GCLOSEDCURVEELT) 6@µ*@H o H YHII(50Q INCREASEREGION 45Q SK.BRUSH.SIZE 36Q EXPANDREGION 27Q REGION.CONTAINING.PTS) NIL ( 33Q 1.4) READ.LIST.OF.POINTSA0001 D1 (NAME ERRORSET F 0 W F 1 POINTREADINGCURSOR F 2 PT) PQhddd`´g ch(21Q SK.READ.POINT.WITH.FEEDBACK) (15Q MULTIPLE 10Q SKETCH.USE.POSITION.PAD) () READ.LIST.OF.POINTS D1 (P 3 PTTAIL P 2 ERRSTAT P 1 PTS P 0 PT I 1 ALLOWDUPS? I 0 W) h0@oo¿oi Z²'H²$A¬I Hô³åH@I¿IHh Y°ÑIdK@Kµï@ ¿¿J‘Ih(144Q ERROR! 134Q CLRPROMPT 130Q CLOSEPROMPTWINDOW 117Q SHOWSKETCHPOINT 74Q \NCONC2 64Q SHOWSKETCHPOINT 43Q LAST 27Q READ.LIST.OF.POINTSA0001 16Q STATUSPRINT) NIL ( 23Q (READ.LIST.OF.POINTSA0001) 13Q "Enter the points the curve goes through using the left button. Click outside the window to stop." 7 " ") CLOSEDCURVE.INPUTFN D1 (P 3 PT I 0 W) F0@i °dK@ ¸IµHhZH&¹µçJi@g @g @ (103Q SK.CURVE.CREATE 77Q SK.INPUT.SCALE 66Q GETWINDOWUSERPROP 56Q GETWINDOWUSERPROP 23Q SK.MAP.INPUT.PT.TO.GLOBAL 7 READ.LIST.OF.POINTS) (63Q SKETCHCONTEXT 53Q SKETCHCONTEXT) () CLOSEDCURVE.READCHANGEFN D1 (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(233Q READ.POINT.TO.ADD 215Q READ.COLOR.CHANGE 207Q GETSKETCHELEMENTPROP 161Q READ.DASHING.CHANGE 144Q READBRUSHSHAPE 132Q READSIZECHANGE 113Q \CURSOR.IN.MIDDLE.MENU 43Q \APPEND2 26Q SKETCHINCOLORP) (222Q ADDPOINT 204Q BRUSH 166Q BRUSHCOLOR 153Q DASHING 137Q SHAPE 120Q SIZE 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 5 MENUTYPE#) ( 175Q "Change brush color how?" 127Q "Change size how?" 40Q ((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.")) 34Q (("Color" (QUOTE BRUSHCOLOR) "changes the color of the brush")) 20Q "select aspect of brush to change") CLOSEDCURVE.TRANSFORMFN D1 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) Y@@@@@gHABHC HHHhH@ (126Q KNOT.SET.SCALE.FIELD 54Q SK.TRANSFORM.BRUSH 44Q SK.TRANSFORM.POINT.LIST) (34Q CLOSEDCURVE) () CLOSEDCURVE.TRANSLATEPTSFN D1 (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&¼°õ(101Q PTPLUS 72Q MEMBER 60Q SK.CURVE.CREATE) NIL () INVISIBLEPARTP D1 (I 1 POINT I 0 WINDOW) h@ AA(13Q INSIDE? 4 DSPCLIPPINGREGION) NIL () SHOWSKETCHPOINT D1 (I 2 PTS I 1 W I 0 NEWPT) @B µ @A`(16Q MARKPOINT 4 MEMBER) (13Q SPOTMARKER) () SHOWSKETCHXY D1 (I 2 WINDOW I 1 Y I 0 X) *`hdB@`ÈâÙA`ÈâÙhdgg (47Q BKBITBLT) (43Q INVERT 40Q INPUT 27Q BITMAP 24Q SPOTMARKER 14Q BITMAP 11Q SPOTMARKER 2 SPOTMARKER) () KNOTS.REGIONFN D1 (I 0 KNOTSCRELT) @ @l×lØ (26Q INCREASEREGION 5 REGION.CONTAINING.PTS) NIL () OPENWIRE.GLOBALREGIONFN D1 (P 1 REGION P 0 INDVOPENWIRE I 0 GOPENWIREELT) /@µ#@H H YHII(41Q INCREASEREGION 36Q SK.BRUSH.SIZE 27Q REGION.CONTAINING.PTS) NIL () CURVE.REGIONFN D1 (I 0 OPENCURVESCRELT) @ o @ kØlÛ (35Q INCREASEREGION 25Q SK.BRUSH.SIZE 14Q EXPANDREGION 5 REGION.CONTAINING.PTS) NIL ( 11Q 1.4) OPENCURVE.GLOBALREGIONFN D1 (P 1 REGION P 0 INDVOPENCURVE I 0 GOPENCURVEELT) 6@µ*@H o H YHII(50Q INCREASEREGION 45Q SK.BRUSH.SIZE 36Q EXPANDREGION 27Q REGION.CONTAINING.PTS) NIL ( 33Q 1.4) KNOTS.TRANSLATEFN D1 (P 4 PT P 0 GKNOTELT I 1 DELTAPOS I 0 SKELT) A@ H@H°d\A ¹JµIh[I&ºµëKHh@ Hh(72Q \APPEND2 31Q PTPLUS 5 \APPEND2) NIL () REGION.CONTAINING.PTS D1 (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Õ(103Q CREATEREGION) NIL () CHANGE.ELTS.BRUSH.SIZE D1 (P 3 LINEDELT I 2 SKW I 1 ELTSWITHBRUSH I 0 HOWTOCHANGE) $@´!@A°d[@B¸IµHhZH&¹µêJ(20Q SK.CHANGE.BRUSH.SIZE) NIL () CHANGE.ELTS.BRUSH D1 (I 2 HOW I 1 SKW I 0 CURVELTS) "Bdgð™¿B@Agð´ B@A(37Q CHANGE.ELTS.BRUSH.SHAPE 20Q CHANGE.ELTS.BRUSH.SIZE) (24Q SHAPE 5 SIZE) () CHANGE.ELTS.BRUSH.SHAPE D1 (P 3 CURVELT I 2 SKW I 1 CURVELTS I 0 NEWSHAPE) $@´!@A°d[@B¸IµHhZH&¹µêJ(20Q SK.CHANGE.BRUSH.SHAPE) NIL () SK.CHANGE.BRUSH.SHAPE D1 (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(1142Q SHOULDNT 16Q MEMB) (1155Q BRUSH 1061Q CLOSEDWIRE 1053Q CLOSEDWIRE 755Q WIRE 747Q WIRE 623Q ELLIPSE 614Q ELLIPSE 446Q ARC 440Q ARC 343Q CIRCLE 334Q CIRCLE 234Q OPENCURVE 226Q OPENCURVE 143Q CLOSEDCURVE 134Q CLOSEDCURVE 61Q ELLIPSE 47Q ARC 35Q CIRCLE) ( 13Q (CLOSEDCURVE OPENCURVE ELLIPSE CIRCLE ARC CLOSEDWIRE WIRE)) SK.CHANGE.BRUSH.COLOR D1 (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(1413Q SHOULDNT 22Q MEMB) (1567Q TEXTCOLOR 1473Q TEXT 1444Q TEXT 1430Q BRUSH 1271Q ELLIPSE 1263Q ELLIPSE 1166Q CIRCLE 1160Q CIRCLE 1062Q OPENCURVE 1053Q OPENCURVE 766Q CLOSEDCURVE 760Q CLOSEDCURVE 675Q CLOSEDWIRE 666Q CLOSEDWIRE 535Q TEXTBOX 527Q TEXTBOX 363Q ARC 354Q ARC 301Q BOX 273Q BOX 261Q ARC 163Q WIRE 154Q WIRE 106Q BOX 77Q CLOSEDCURVE 61Q TEXTBOX 44Q ELLIPSE 32Q CIRCLE) ( 17Q (WIRE BOX CLOSEDWIRE CLOSEDCURVE OPENCURVE CIRCLE ELLIPSE TEXTBOX ARC)) SK.CHANGE.BRUSH.SIZE D1 (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(1377Q SHOULDNT 554Q SKED.CLEAR.SELECTION 16Q MEMB) (1414Q BRUSH 1267Q ELLIPSE 1261Q ELLIPSE 1174Q CIRCLE 1166Q CIRCLE 1077Q OPENCURVE 1070Q OPENCURVE 1012Q CLOSEDCURVE 1004Q CLOSEDCURVE 730Q CLOSEDWIRE 721Q CLOSEDWIRE 560Q TEXTBOX 545Q TEXTBOX 413Q ARC 404Q ARC 331Q BOX 323Q BOX 234Q WIRE 225Q WIRE 154Q ARC 134Q SMALLER 111Q BOX 102Q CLOSEDCURVE 64Q TEXTBOX 47Q ELLIPSE 35Q CIRCLE) ( 172Q 2.0 146Q 2.0 13Q (WIRE BOX CLOSEDWIRE CLOSEDCURVE OPENCURVE CIRCLE ELLIPSE TEXTBOX ARC)) SK.CHANGE.ANGLE D1 (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(312Q SET.ARC.ARROWHEAD.POINTS 154Q FIXR 147Q SIN 140Q FIXR 133Q COS 103Q DISTANCEBETWEEN 73Q SK.COMPUTE.SLOPE.OF.LINE 63Q SK.COMPUTE.SLOPE.OF.LINE) (326Q 3RDCONTROLPT 167Q ARC 11Q ARC) ( 120Q -360.0 110Q 360.0) SK.CHANGE.ARC.DIRECTION D1 (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(216Q SET.ARC.ARROWHEAD.POINTS) (241Q COUNTERCLOCKWISE 235Q CLOCKWISE 227Q DIRECTION 72Q ARC 55Q COUNTERCLOCKWISE 43Q CLOCKWISE 11Q ARC) () SK.SET.DEFAULT.BRUSH.SIZE D1 (I 1 SKW I 0 NEWBRUSHSIZE) *@3´%Ag Ag H@HH(22Q GETWINDOWUSERPROP 13Q GETWINDOWUSERPROP) (17Q SKETCHCONTEXT 10Q SKETCHCONTEXT) () READSIZECHANGE D1 (P 2 NEWVALUE I 1 ALLOWZEROFLG I 0 MENUTITLE) l`d@¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ Jdgð²%¿ohddiddd ZA¥djð‘hjJó”J J(147Q MINUS 126Q RNUMBER 73Q \CURSOR.IN.MIDDLE.MENU) (103Q SETSIZE 40Q DEFAULTMENUHELDFN 31Q CLRPROMPT 2 MENUTYPE#) ( 113Q "Enter the new line thickness." 15Q (("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 D1 (P 1 NEWELT P 0 GCURVELT I 1 NEWKNOTS I 0 ELTWITHKNOTS) ë@Hdgð–¿g±Ÿdgð²E¿gAHHHHHHH ±ƒdgð²D¿gAHHHHHHH °9gð´=gAHHHHHHY@Ih (350Q KNOT.SET.SCALE.FIELD 245Q SET.WIRE.ARROWHEAD.POINTS 133Q SET.OPENCURVE.ARROWHEAD.POINTS) (260Q CLOSEDWIRE 252Q CLOSEDWIRE 151Q WIRE 142Q WIRE 37Q OPENCURVE 30Q OPENCURVE 21Q CLOSEDCURVE 13Q CLOSEDCURVE) () SK.INSURE.POINT.LIST D1 (I 0 POINTLST) #@d²ŒdHH •µòi¿h´@ (40Q \ILLEGAL.ARG 17Q SK.INSURE.POSITION) NIL () SK.INSURE.POSITION D1 (I 0 POSITION) @ µ@ (11Q \ILLEGAL.ARG 3 POSITIONP) NIL () SKETCH.CREATE.WIRE D1 (I 4 SCALE I 3 ARROWHEADS I 2 DASHING I 1 BRUSH I 0 POINTS) @ A B hD3µoC (35Q SK.WIRE.CREATE 31Q SK.INSURE.ARROWHEADS 13Q SK.INSURE.DASHING 7 SK.INSURE.BRUSH 3 SK.INSURE.POINT.LIST) NIL ( 25Q 1.0) CLOSEDWIRE.EXPANDFN D1 (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@(215Q \APPEND2 203Q SCALE.BRUSH 113Q SK.SCALE.POSITION.INTO.VIEWER) (157Q ROUND 22Q CLOSEDWIRE) ( 42Q 1.0) KNOTS.INSIDEFN D1 (P 1 PT I 1 WREG I 0 GCURVE) @Hµh¹AI ‘iHX°î(24Q INSIDEP) NIL () OPEN.WIRE.DRAWFN D1 (I 3 OPERATION I 2 REG I 1 WIN I 0 OPENWIREELT) @ABCh@@ (25Q WB.DRAWLINE) NIL () WIRE.EXPANDFN D1 (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@(265Q SCALE.BRUSH 217Q SK.EXPAND.ARROWHEADS 155Q SK.SCALE.POSITION.INTO.VIEWER 135Q SET.WIRE.ARROWHEAD.POINTS) (240Q ROUND 25Q WIRE) ( 53Q 1.0) SK.UPDATE.WIRE.ELT.AFTER.CHANGE D1 (I 0 GWIRELT) @h@ (16Q KNOT.SET.SCALE.FIELD) NIL () OPENWIRE.READCHANGEFN D1 (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(216Q READ.COLOR.CHANGE 210Q GETSKETCHELEMENTPROP 162Q READ.DASHING.CHANGE 145Q READ.ARROW.CHANGE 132Q READSIZECHANGE 113Q \CURSOR.IN.MIDDLE.MENU 43Q \APPEND2 26Q SKETCHINCOLORP) (205Q BRUSH 167Q BRUSHCOLOR 154Q DASHING 137Q ARROW 120Q SIZE 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 5 MENUTYPE#) ( 176Q "Change line color how?" 127Q "Change size how?" 40Q ((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.")) 34Q (("Brush color" (QUOTE BRUSHCOLOR) "changes the color of the outline")) 20Q "Which aspect?") OPENWIRE.TRANSFORMFN D1 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) k@@@@@gHABHC HC HHhHH @ (150Q KNOT.SET.SCALE.FIELD 140Q SET.WIRE.ARROWHEAD.POINTS 65Q SK.TRANSFORM.ARROWHEADS 54Q SK.TRANSFORM.BRUSH 44Q SK.TRANSFORM.POINT.LIST) (34Q WIRE) () OPENWIRE.TRANSLATEFN D1 (P 0 NEWWIREELT I 1 DELTAPOS I 0 WIREELT) @A H H(15Q SET.WIRE.ARROWHEAD.POINTS 4 KNOTS.TRANSLATEFN) NIL () OPENWIRE.TRANSLATEPTSFN D1 (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&¼°õ(110Q PTPLUS 101Q MEMBER 67Q SK.WIRE.CREATE) NIL () WIRE.INPUTFN D1 (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 (144Q SK.WIRE.CREATE 137Q SK.ARROWHEAD.CREATE 132Q SK.INPUT.SCALE 110Q DASHINGP 40Q SK.MAP.INPUT.PT.TO.GLOBAL 24Q SK.READ.WIRE.POINTS 6 GETWINDOWUSERPROP) (73Q ROUND 3 SKETCHCONTEXT) () SK.READ.WIRE.POINTS D1 (I 1 CLOSEDFLG I 0 SKW) @h`´A“g‚g(22Q SK.READ.POINTS.WITH.FEEDBACK) (17Q OPENWIRE.FEEDBACKFN 13Q CLOSEDWIRE.FEEDBACKFN 4 SKETCH.VERBOSE.FEEDBACK) () SK.READ.POINTS.WITH.FEEDBACKA0001 D1 (NAME ERRORSET F 0 W F 1 POINTREADINGCURSOR F 2 PT F 3 FEEDBACKFN F 4 PTS) PQSTgh`´g ch(23Q SK.READ.POINT.WITH.FEEDBACK) (17Q MULTIPLE 12Q SKETCH.USE.POSITION.PAD 6 MIDDLE) () SK.READ.POINTS.WITH.FEEDBACK D1 (P 3 PTTAIL P 2 ERRSTAT P 1 PTS P 0 PT I 2 FEEDBACKFN I 1 ALLOWDUPS? I 0 W) ˜0@oo¿oi Z²>H²;A¬I Hô³åH@I¿Id² Hkg@ ¿IHh Y°ºI°*dK@K¿K²KKkg@ ¿µ×¿@ ¿J‘Ih(224Q ERROR! 214Q CLOSEPROMPTWINDOW 207Q CLRPROMPT 176Q DRAWBETWEEN 147Q SHOWSKETCHPOINT 123Q \NCONC2 113Q DRAWBETWEEN 74Q LAST 64Q SHOWSKETCHPOINT 43Q LAST 27Q SK.READ.POINTS.WITH.FEEDBACKA0001 16Q STATUSPRINT) (171Q INVERT 106Q INVERT) ( 23Q (SK.READ.POINTS.WITH.FEEDBACKA0001) 13Q "Enter the points the curve goes through using the left button. Click outside the window to stop." 7 " ") OPENWIRE.FEEDBACKFN D1 (P 0 LASTPT I 3 PREVPTS I 2 WINDOW I 1 Y I 0 X) $@ABC´C XH@AkgB (41Q DRAWLINE 17Q LAST 5 SHOWSKETCHXY) (34Q INVERT) () CLOSEDWIRE.FEEDBACKFN D1 (P 0 ENDPT I 3 PREVPTS I 2 WINDOW I 1 Y I 0 X) =@ABCd²XH@AkgB ¿C´C XH@AkgB h(71Q DRAWLINE 47Q LAST 36Q DRAWLINE 5 SHOWSKETCHXY) (64Q INVERT 31Q INVERT) () CLOSEDWIRE.REGIONFN D1 (I 0 KNOTSCRELT) @ @l×lØ (25Q INCREASEREGION 5 REGION.CONTAINING.PTS) NIL () CLOSEDWIRE.GLOBALREGIONFN D1 (P 1 REGION P 0 INDVCLOSEDWIRE I 0 GCLOSEDWIREELT) /@µ#@H H YHII(41Q INCREASEREGION 36Q SK.BRUSH.SIZE 27Q REGION.CONTAINING.PTS) NIL () SK.WIRE.CREATE D1 (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 (73Q KNOT.SET.SCALE.FIELD 65Q SET.WIRE.ARROWHEAD.POINTS) (42Q WIRE 17Q CLOSEDWIRE) () WIRE.ADD.POINT.TO.END D1 (P 2 GWIREELT P 1 KNOTS P 0 NEWPOS I 2 SKW I 1 PT I 0 WIREELT) -AB !@ZdYHI ô‘@JBIHh B(52Q SK.UPDATE.ELEMENT 46Q WIRE.INPUTFN 43Q \APPEND2 25Q LAST 4 SK.MAP.INPUT.PT.TO.GLOBAL) NIL () READ.ARROW.CHANGE D1 (P 6 INDGELT P 5 NOWARROWS P 4 ELT P 2 HOW I 1 SKW I 0 SCRELTS F 7 VSHAPE.ARROWHEAD.BITMAP F 10Q CURVEDV.ARROWHEAD.BITMAP F 11Q TRIANGLE.ARROWHEAD.BITMAP F 12Q 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(271Q STATUSPRINT 240Q \CURSOR.IN.MIDDLE.MENU 227Q READ.ARROWHEAD.END 133Q \APPEND2) (404Q SAME 370Q SAME 341Q WIRE 326Q ARC 313Q OPENCURVE 245Q SAME 235Q SK.ARROW.EDIT.MENU 220Q SK.ARROW.EDIT.MENU 165Q DEFAULTMENUHELDFN 156Q CLRPROMPT 16Q MENUTYPE# 6 MENUTYPE# 2 SK.ARROW.EDIT.MENU) ( 266Q "None of the selected elements have arrowheads." 117Q "makes a solid triangular arrowhead." 113Q (QUOTE SOLID) 101Q "Makes the head be two sides and a base." 75Q (QUOTE CLOSED) 63Q "Makes the arrowhead have curved side lines." 57Q (QUOTE OPENCURVE) 45Q "Makes the head be the side lines only." 41Q (QUOTE OPEN) 33Q ((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.")) 24Q "specify change") CHANGE.ELTS.ARROWHEADS D1 (P 3 ARROWELT I 2 SKW I 1 ELTSWITHARROWS I 0 CHANGESPEC) $@´!@A°d[@B¸IµHhZH&¹µêJ(20Q SK.CHANGE.ARROWHEADS) NIL () SKETCH.CREATE.CLOSED.WIRE D1 (I 4 SCALE I 3 FILLING I 2 DASHING I 1 BRUSH I 0 POINTS) !@ A B iD3µohC (36Q SK.WIRE.CREATE 32Q SK.INSURE.FILLING 13Q SK.INSURE.DASHING 7 SK.INSURE.BRUSH 3 SK.INSURE.POINT.LIST) NIL ( 25Q 1.0) CLOSED.WIRE.INPUTFN D1 (I 1 PTLIST I 0 W) @Ai(5 WIRE.INPUTFN) NIL () CLOSED.WIRE.DRAWFN D1 (P 2 VARX P 1 LOCALPART P 0 GINDVELT I 3 OPERATION I 2 REG I 1 WIN I 0 CLOSEDWIREELT) ƒ@@IZ`²dd¥¿dœJA IJ°5Jd²A IhA gð’j°J°²JA IJ A¿A ¿IZjð®@ABCiHJ h(177Q WB.DRAWLINE 145Q DSPOPERATION 140Q FILLPOLYGON 134Q TEXTUREOFCOLOR 124Q DSPOPERATION 74Q DSPOPERATION 65Q DSPOPERATION 44Q DSPOPERATION) (77Q ERASE 21Q SKETCHINCOLORFLG) () CLOSEDWIRE.READCHANGEFN D1 (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(337Q READ.COLOR.CHANGE 332Q GETSKETCHELEMENTPROP 304Q READ.POINT.TO.ADD 263Q GETSKETCHELEMENTPROP 235Q READBRUSHSHAPE 220Q READ.DASHING.CHANGE 206Q READ.FILLING.MODE 171Q READ.FILLING.CHANGE 157Q READSIZECHANGE 137Q \CURSOR.IN.MIDDLE.MENU 67Q \APPEND2 64Q \APPEND2 61Q \APPEND2 26Q SKETCHINCOLORP) (327Q FILLING 311Q FILLINGCOLOR 273Q ADDPOINT 260Q BRUSH 242Q BRUSHCOLOR 227Q SHAPE 213Q DASHING 200Q FILLINGMODE 164Q FILLING 144Q SIZE 110Q DEFAULTMENUHELDFN 101Q CLRPROMPT 5 MENUTYPE#) ( 320Q "Change filling color how?" 251Q "Change outline color how?" 153Q "Change size how?" 56Q ((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.")) 52Q (("Filling mode" (QUOTE FILLINGMODE) "changes how the filling effects the figures it covers.")) 43Q ((Filling (QUOTE FILLING) "allows changing of the filling texture of the box.")) 34Q (("Brush color" (QUOTE BRUSHCOLOR) "changes the color of the outline") ("Filling color" (QUOTE FILLINGCOLOR) "changes the color of the filling")) 20Q "Which aspect?") CLOSEDWIRE.TRANSFORMFN D1 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) Y@@@@@gHABHC HHHhH@ (126Q KNOT.SET.SCALE.FIELD 54Q SK.TRANSFORM.BRUSH 44Q SK.TRANSFORM.POINT.LIST) (34Q CLOSEDWIRE) () CLOSEDWIRE.TRANSLATEPTSFN D1 (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&¼°õ(111Q PTPLUS 102Q MEMBER 70Q SK.WIRE.CREATE) NIL () SK.EXPAND.ARROWHEADS D1 (P 3 ARROWHEAD I 1 SCALE I 0 GARROWHEADPOINTS) @@°d[A ¸IµHhZH&¹µëJ(14Q SK.EXPAND.ARROWHEAD) NIL () SK.COMPUTE.ARC.ARROWHEAD.POINTS D1 (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(62Q ARC.ARROWHEAD.POINTS 32Q ARC.ARROWHEAD.POINTS) NIL () ARC.ARROWHEAD.POINTS D1 (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 (37Q ARROWHEAD.POINTS.LIST) NIL () SET.ARC.ARROWHEAD.POINTS D1 (P 0 ARROWSPECS I 0 INDVDARCELT) E@H²6@g g¿@H@@@ @ @(100Q SK.COMPUTE.ARC.ARROWHEAD.POINTS 62Q \SK.GET.ARC.ANGLEPT 32Q SK.INSURE.HAS.LENGTH 24Q SK.RECORD.LENGTH) (27Q ARC 21Q ARC) () SET.OPENCURVE.ARROWHEAD.POINTS D1 (P 0 ARROWSPECS I 0 INDVOPENCURVEELT) -@H² @g g¿@H@ @(50Q SK.COMPUTE.CURVE.ARROWHEAD.POINTS 30Q SK.INSURE.HAS.LENGTH 22Q SK.RECORD.LENGTH) (25Q OPENCURVE 17Q OPENCURVE) () SK.COMPUTE.CURVE.ARROWHEAD.POINTS D1 (P 0 SPEC I 1 KNOTS I 0 ARROWSPEC) 4@d²-X´AiHHH @X´AhHHH h(56Q CURVE.ARROWHEAD.POINTS 31Q CURVE.ARROWHEAD.POINTS) NIL () SET.WIRE.ARROWHEAD.POINTS D1 (P 0 ARROWSPECS I 0 INDVWIREELT) ,@H² @g g¿@H@ @(47Q SK.COMPUTE.WIRE.ARROWHEAD.POINTS 27Q SK.INSURE.HAS.LENGTH 21Q SK.RECORD.LENGTH) (24Q WIRE 16Q WIRE) () SK.COMPUTE.WIRE.ARROWHEAD.POINTS D1 (P 0 SPEC I 1 KNOTS I 0 ARROWSPEC) 4@d²-X´AiHHH @X´AhHHH h(56Q WIRE.ARROWHEAD.POINTS 31Q WIRE.ARROWHEAD.POINTS) NIL () SK.EXPAND.ARROWHEAD D1 (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(121Q SK.SCALE.POSITION.INTO.VIEWER 40Q SK.SCALE.POSITION.INTO.VIEWER 16Q POSITIONP 10Q SK.SCALE.POSITION.INTO.VIEWER) NIL () CHANGED.ARROW D1 (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@@@@(220Q MAX 45Q \APPEND2 17Q SK.CREATE.ARROWHEAD) (355Q CURVE 347Q OPENCURVE 324Q SOLID 316Q SOLID 274Q CLOSEDLINE 265Q CLOSED 241Q LINE 233Q OPEN 173Q SMALLER 136Q LARGER 104Q NARROWER 51Q WIDER 37Q SAME 23Q DELETE 4 ADD) () SK.CHANGE.ARROWHEAD D1 (I 2 SKW I 1 HOW I 0 ARROWELT) @AAB Bg (30Q SK.CHANGE.ARROWHEAD1 20Q GETWINDOWUSERPROP 11Q SK.INPUT.SCALE) (15Q SKETCHCONTEXT) () SK.CHANGE.ARROWHEAD1 D1 (P 16Q END P 15Q NEWARROW P 14Q 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(670Q SHOULDNT 664Q SET.OPENCURVE.ARROWHEAD.POINTS 557Q SET.ARC.ARROWHEAD.POINTS 324Q CHANGED.ARROW 313Q SK.ARROWHEAD.END.TEST 275Q SET.WIRE.ARROWHEAD.POINTS 107Q \SK.GET.ARC.ANGLEPT 16Q MEMB) (701Q ARROWHEADS 573Q OPENCURVE 565Q OPENCURVE 421Q ARC 413Q ARC 203Q WIRE 172Q WIRE 75Q ARC 46Q ARC 35Q OPENCURVE) ( 123Q (FIRST LAST) 70Q (NIL NIL T) 13Q (WIRE OPENCURVE ARC)) SK.CREATE.ARROWHEAD D1 (L (1 SCALE 0 DEFAULTARROWHEAD)) @@@AÖ@NIL NIL () SK.ARROWHEAD.CREATE D1 (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(123Q \NCONC2 73Q SK.CREATE.ARROWHEAD 70Q SK.INPUT.SCALE 55Q SK.ARROWHEAD.END.TEST 31Q MEMB 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) ( 42Q (FIRST LAST) 26Q (NIL NEITHER)) SK.ARROWHEAD.END.TEST D1 (I 2 KNOTS I 1 END I 0 WHICHENDS) 3@Aðµ@dgð‘igð›B ²Agð@gð´úB ²ïAgð(51Q LEFT.MOST.IS.BEGINP 26Q LEFT.MOST.IS.BEGINP) (57Q LAST 42Q RIGHT 34Q FIRST 20Q LEFT 11Q BOTH) () READ.ARROWHEAD.END D1 NIL R``ð”`°A`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ (117Q \CURSOR.IN.MIDDLE.MENU) (114Q SK.ARROW.END.MENU 61Q DEFAULTMENUHELDFN 52Q CLRPROMPT 20Q MENUTYPE# 13Q SK.ARROW.END.MENU 6 MENUTYPE# 2 SK.ARROW.END.MENU) ( 36Q ((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.")) 26Q "Which end?") ARROW.HEAD.POSITIONS D1 (P 16Q YP2 P 15Q XP2 P 14Q YP1 P 13Q XP1 P 12Q SIN.RHO P 11Q COS.RHO P 10Q 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Ù(67Q SIN 62Q COS 40Q SQRT) NIL () ARROWHEAD.POINTS.LIST D1 (P 14Q ENDPT2 P 13Q ENDPT1 P 12Q YP2 P 11Q XP2 P 10Q 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(372Q FIXR 363Q FIXR 346Q FIXR 337Q FIXR 246Q SIN 241Q COS 44Q SIN 37Q COS 22Q SQRT) (210Q CURVE 170Q SOLID 161Q CLOSEDLINE 153Q LINE) ( 231Q 2.0 220Q 1.5) CURVE.ARROWHEAD.POINTS D1 (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 (55Q ARROWHEAD.POINTS.LIST 45Q MINUS 33Q MINUS 21Q LAST 6 \CURVESLOPE) NIL () LEFT.MOST.IS.BEGINP D1 (I 0 KNOTLST) -@d§o @ "I[HZóµKJ ´HIó(43Q EQP 21Q LAST 13Q ERROR) NIL ( 10Q "should have at least two elements.") WIRE.ARROWHEAD.POINTS D1 (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 (102Q ARROWHEAD.POINTS.LIST) NIL () DRAWARROWHEADS D1 (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(215Q \SK.DRAW.TRIANGLE.ARROWHEAD 200Q \SK.DRAW.TRIANGLE.ARROWHEAD 160Q FILLPOLYGON 147Q \SK.DRAW.TRIANGLE.ARROWHEAD 137Q IMAGESTREAMTYPEP 127Q WINDOWP 121Q IMAGESTREAMTYPEP 102Q DRAWCURVE 62Q DRAWCURVE) (204Q CLOSEDLINE 167Q LINE 134Q DISPLAY 116Q PRESS 107Q SOLID 40Q CURVE) () \SK.DRAW.TRIANGLE.ARROWHEAD D1 (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 (176Q DRAWCURVE 151Q DRAWCURVE 130Q DRAWCURVE 107Q DRAWBETWEEN 101Q SK.BRUSH.SIZE 63Q DRAWBETWEEN 55Q SK.BRUSH.SIZE 43Q DRAWBETWEEN 35Q SK.BRUSH.SIZE 20Q SK.BRUSH.SIZE 13Q IMAGESTREAMTYPEP 3 WINDOWP) (10Q DISPLAY) () \SK.ENDPT.OF.ARROW D1 (L (0 LOCALARROWHEADPTS)) 2@@@HÔl×lÖÔl×@@HÔl×lÖÔl×NIL NIL () \SK.ADJUST.FOR.ARROWHEADS D1 (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(167Q \SK.ENDPT.OF.ARROW 140Q \SK.ENDPT.OF.ARROW 132Q LAST 126Q \APPEND2 76Q \SK.ENDPT.OF.ARROW 50Q \SK.ENDPT.OF.ARROW 42Q LAST 36Q \APPEND2 6 IMAGESTREAMTYPEP) (160Q SOLID 117Q SOLID 67Q SOLID 27Q SOLID 3 PRESS) () SK.SET.ARROWHEAD.LENGTH D1 (P 1 NEWSIZE P 0 NOWARROWHEAD I 0 W) K@g oH hddidd Yd´djñ¡h@g HHIH(66Q GETWINDOWUSERPROP 45Q RNUMBER 33Q CONCAT 30Q MKSTRING 6 GETWINDOWUSERPROP) (63Q SKETCHCONTEXT 3 SKETCHCONTEXT) ( 21Q "New arrowhead size in screen pts. Current arrowhead size is ") SK.SET.ARROWHEAD.ANGLE D1 (P 1 NEWSIZE P 0 NOWARROWHEAD I 0 W) K@g oH hddidd Yd´djñ¡h@g HIHH(65Q GETWINDOWUSERPROP 44Q RNUMBER 32Q CONCAT 27Q MKSTRING 6 GETWINDOWUSERPROP) (62Q SKETCHCONTEXT 3 SKETCHCONTEXT) ( 21Q "New head angle in degrees. Current arrowhead angle is ") SK.SET.ARROWHEAD.TYPE D1 (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 10Q SOLIDTRIANGLE.ARROWHEAD.BITMAP) ÅAo “A±‘`do¿UoohVoohWoohWoohhHdI¿di¿dg ¿dg¿jdnÿdhHdI ¿dÉ U lÔ¿ !J´$@g [K¼JLLL(247Q GETWINDOWUSERPROP 232Q \CURSOR.IN.MIDDLE.MENU 222Q BITMAPHEIGHT 7 MEMB) (244Q SKETCHCONTEXT 211Q MENU 155Q DEFAULTMENUHELDFN 146Q CLRPROMPT 17Q MENUTYPE#) ( 112Q "makes a solid triangular arrowhead." 106Q (QUOTE SOLID) 74Q "arrowhead consists of a triangle." 70Q (QUOTE CLOSEDLINE) 56Q "arrowhead has curved side lines." 52Q (QUOTE CURVE) 41Q "arrowhead consists of two line segments." 35Q (QUOTE LINE) 25Q "Choose style" 4 (LINE CURVE CLOSEDLINE SOLID)) SK.SET.LINE.ARROWHEAD D1 (P 2 ARROWHEADEND I 1 NEWVALUE I 0 W) bAo ’A°A`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ J´@g J(127Q GETWINDOWUSERPROP 112Q \CURSOR.IN.MIDDLE.MENU 7 MEMB) (124Q SKETCHCONTEXT 57Q DEFAULTMENUHELDFN 50Q CLRPROMPT 16Q MENUTYPE#) ( 34Q ((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.")) 24Q "Which end?" 4 (FIRST LAST BOTH NEITHER LEFT RIGHT)) SK.UPDATE.ARROWHEAD.FORMAT D1 (P 1 NOWARROWS P 0 INDGARROWELT I 0 GELT) b@Hdgð²$¿HY²HI³CHH ²+II°)gð²*HY²"I³HH ”IIƒIIih@(115Q LEFT.MOST.IS.BEGINP 50Q LEFT.MOST.IS.BEGINP) (63Q WIRE 13Q OPENCURVE) () SK.SET.LINE.LENGTH.MODE D1 (P 2 LINEMODE I 1 VAL? I 0 W) iAo ’A°A`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ J´@g Jgð(127Q GETWINDOWUSERPROP 112Q \CURSOR.IN.MIDDLE.MENU 7 MEMBER) (143Q NO 124Q SKETCHCONTEXT 57Q DEFAULTMENUHELDFN 50Q CLRPROMPT 16Q MENUTYPE#) ( 34Q ((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.")) 24Q "Connect middle button lines?" 4 (YES NO)) SK.INSURE.ARROWHEADS D1 (P 3 SPEC I 0 ARROWHEADSPECS F 4 SPEC) W@¡hT —hTih0@°4dKd² µKið```hƒ@ ¸IµHhZH&¹µÍJo (124Q \APPEND2 72Q \ILLEGAL.ARG 42Q SK.ARROWHEADP 7 SK.ARROWHEADP) (61Q SK.DEFAULT.ARROW.LENGTH 56Q SK.DEFAULT.ARROW.ANGLE 53Q SK.DEFAULT.ARROW.TYPE) ( 121Q (T)) SK.ARROWHEADP D1 (I 0 ARROWHEAD) $@l ´@` ´@3´@3´@(17Q MEMB 5 EQLENGTH) (14Q SK.ARROWHEAD.TYPES) () SKETCH.CREATE.TEXT D1 (I 5 SCALE I 4 COLOR I 3 JUSTIFICATION I 2 FONT I 1 POSITION I 0 STRING) &@ A E3µoC` B D (43Q CREATE.TEXT.ELEMENT 37Q SK.INSURE.COLOR 33Q SK.INSURE.FONT 27Q SK.INSURE.STYLE 7 SK.INSURE.POSITION 3 SK.INSURE.TEXT) (24Q SK.DEFAULT.TEXT.ALIGNMENT) ( 20Q 1.0) TEXT.CHANGEFN D1 (P 4 ELTWITHTEXT I 2 HOW I 1 SKW I 0 SCRNELTS) ,@AHµI£H¼h„H¼H¸LBA»Jµ KhZ¹°àK&º°Û(32Q SK.CHANGE.TEXT) NIL () TEXT.READCHANGEFN D1 (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(417Q READ.COLOR.CHANGE 411Q GETSKETCHELEMENTPROP 362Q SK.READFONTFAMILY 341Q MEMB 261Q \SK.READ.FONT.SIZE1 250Q SK.READFONTFAMILY 230Q \SK.READ.FONT.SIZE1 213Q SKED.CLEAR.SELECTION 200Q \CURSOR.IN.MIDDLE.MENU 113Q \APPEND2 110Q \APPEND2 105Q \APPEND2 102Q \APPEND2 65Q DATATYPEP 47Q SKETCH.ELEMENT.TYPEP 30Q SCREENELEMENTP 16Q SKETCHINCOLORP) (434Q TEXT 406Q BRUSH 370Q BRUSHCOLOR 350Q NEWFONT 270Q SAME 235Q FAMILY&SIZE 220Q SETSIZE 145Q DEFAULTMENUHELDFN 136Q CLRPROMPT 62Q LOOKEDSTRING 44Q TEXTBOX 2 MENUTYPE#) ( 377Q "Change text color how?" 357Q "New font family?" 336Q (TEXTBOX TEXT) 245Q "New font family?" 77Q (("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.")) 73Q (("Fancy format" (QUOTE LOOKEDSTRING) "changes to a form that can have complete character formatting.")) 55Q (("box the text" (QUOTE BOX) "makes the selected text into boxed text.")) 37Q (("look same" (QUOTE SAME) "makes the font characteristics the same as those of the first selected piece of text.")) 24Q (("Color" (QUOTE BRUSHCOLOR) "changes the color of the text")) 10Q "Change text how?") \SK.READ.FONT.SIZE1 D1 (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 (227Q SK.FONTNAMELIST 223Q CLOSE.PROMPT.WINDOW 215Q STATUSPRINT 201Q FONTCREATE 172Q FONTPROP 157Q CLOSE.PROMPT.WINDOW 150Q SK.READFONTSIZE 142Q FONTPROP 127Q STATUSPRINT 123Q FONTPROP 76Q SCREENELEMENTP 45Q MEMB) (167Q FACE 137Q FAMILY 120Q SIZE) ( 212Q " not found." 114Q " is " 110Q "first selected text" 103Q "text" 72Q "Size of " 42Q (TEXTBOX TEXT)) SK.TEXT.ELT.WITH.SAME.FIELDS D1 (L (1 ORGONE 0 NEWONE)) ŽAdgð²:¿gAA@@@@@hgð´GgAA@@@@@AhdhNIL (111Q TEXTBOX 103Q TEXTBOX 14Q TEXT 5 TEXT) () SK.READFONTFAMILYA0010 D1 (NAME ERRORSET F 0 SKW) ohdP h(22Q MKATOM 17Q U-CASE 14Q PROMPTFORWORD 11Q GETPROMPTWINDOW) NIL ( 3 "New family: ") SK.READFONTFAMILY D1 (P 4 FAMILY P 3 KNOWNFAMILIES I 1 TITLE I 0 SKW F 10Q \FONTSINCORE) £0`d¸IµHhZH&¹µïJ0Wd¸IµHhZH&¹µïJ AK²S`oK ½dM¿Aµo¾dN¿di¿dg ¿dg¿jdnÿdh_¿dO ¿ \gð¡L ¿oi (237Q SK.READFONTFAMILYA0010 226Q TTY.PROCESS 223Q THIS.PROCESS 210Q \CURSOR.IN.MIDDLE.MENU 113Q \APPEND2 71Q UNION) (214Q OTHER 156Q DEFAULTMENUHELDFN 147Q CLRPROMPT 102Q MENUTYPE# 5 \FONTSONFILE) ( 233Q (SK.READFONTFAMILYA0010) 130Q "Choose font" 107Q (("other" (QUOTE OTHER) "prompts for a family not on the menu."))) CLOSE.PROMPT.WINDOW D1 (P 0 PRMPTWIN I 0 WINDOW) @hdiXd– H (23Q CLOSEW 17Q DETACHWINDOW 11Q GETPROMPTWINDOW) NIL () TEXT.DRAWFN D1 (I 1 WINDOW I 0 TEXTELT) %@@@@A (42Q TEXT.DRAWFN1) NIL () TEXT.DRAWFN1A0001 D1 (NAME ERRORSET L (0 NIL) P 3 CHARS P 2 REGION F 4 SKWINDOW F 5 STRS F 6 REGIONS F 7 MACROY F 10Q DESCENT) 4UV"Iµ…ºHµhci»JJWÔT¿KT ¿I¹H¸°Ô(51Q PRIN3 43Q MOVETO) NIL () TEXT.DRAWFN1 D1 (P 10Q MIDHGHT P 7 REGION P 5 REGION P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 DESCENT I 5 OPERATION I 4 SKWINDOW I 3 COLOR I 2 FONT I 1 REGIONS I 0 STRS F 11Q RESETVARSLST) ü C™•CD ¿Bd¢±³ ²jBD ¿hD bÈ¸ED ` 1gIhhWcºog £g¼Jc¿gJ ¿L“¿D ¿g D ¿°DD gð²2A°+dhddDMMMMkØlÛgE` µÖ‡A!Nµh_OOkØlÛÔ_OOkÙØOOED ¿N^°È(364Q DRAWLINE 265Q BKBITBLT 205Q IMAGESTREAMTYPE 176Q DSPFONT 172Q DEFAULTFONT 163Q DSPOPERATION 155Q ERROR! 147Q APPLY 123Q TEXT.DRAWFN1A0001 67Q SETTERMTABLE 61Q DSPOPERATION 44Q DSPFONT 36Q DSPFONT 27Q FONTP 12Q DSPCOLOR 4 SKETCHINCOLORP) (261Q INDICATE.TEXT.SHADE 255Q TEXTURE 210Q DISPLAY 167Q DISPLAY 140Q SETTERMTABLE 127Q ERROR 120Q INTERNAL 75Q SETTERMTABLE 64Q SKETCH.TERMTABLE 51Q FONTDESCRIPTOR) ( 115Q (TEXT.DRAWFN1A0001)) TEXT.INSIDEFN D1 (P 1 GREG I 1 WREG I 0 GTEXT) "@HµhYA ‘iHX°ï(30Q REGIONSINTERSECTP) NIL () TEXT.EXPANDFN D1 (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@(126Q \APPEND2 110Q SK.TEXT.LINE.REGIONS 102Q \INSUREWINDOW 74Q STREAMP 54Q SK.SCALE.POSITION.INTO.VIEWER 40Q SK.CHOOSE.TEXT.FONT) NIL ( 27Q (CENTER CENTER)) SK.TEXT.LINE.REGIONS D1 (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(122Q CREATEREGION 116Q FIXR 105Q FIXR 75Q FIXR 55Q LTEXT.LINE.REGIONS 51Q FIXR 45Q LENGTH 24Q DSPFONT 16Q IMAGESTREAMTYPEP 3 FONTP) (13Q HARDCOPY) () SK.PICK.FONT D1 (P 3 FONT P 1 LASTSIZE P 0 LASTFONT I 3 FAMILY I 2 DEVICE I 1 STRING I 0 WID) L CB JµH™I@oÖó²)g»AKXgg Y@ó¨KgBJZ°ÌHgB(111Q FONTCOPY 73Q FONTCOPY 57Q STRINGWIDTH 54Q FONTCOPY 7 SK.DECREASING.FONT.LIST) (105Q DEVICE 67Q DEVICE 51Q DISPLAY 46Q DEVICE 35Q SHADE) ( 26Q 1.5) SK.CHOOSE.TEXT.FONT D1 (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(245Q PUTWINDOWPROP 230Q WINDOWP 223Q FONTCOPY 207Q FONTP 203Q SK.PICK.FONT 173Q FIXR 166Q DSPSCALE 152Q STRINGWIDTH 144Q FONTPROP 135Q FONTPROP 123Q FONTCREATE 102Q DSPSCALE 51Q STREAMP 33Q SASSOC 14Q GETWINDOWUSERPROP 3 WINDOWP) (235Q PICKFONTCACHE 214Q FACE 141Q SIZE 132Q FAMILY 73Q DISPLAY 63Q IMAGEOPS 56Q STREAM 11Q PICKFONTCACHE) ( 42Q "AWIaiw") SK.NEXTSIZEFONT D1 (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\°è(140Q SK.FONTNAMELIST 102Q SK.FONTNAMELIST 15Q SK.DECREASING.FONT.LIST) (126Q FONTDESCRIPTOR 70Q FONTDESCRIPTOR 35Q FONTDESCRIPTOR 24Q LARGER 12Q DISPLAY 3 FONTDESCRIPTOR) () SK.DECREASING.FONT.LIST D1 (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(162Q FONTCOPY 143Q SK.GUESS.FONTSAVAILABLE) (156Q DEVICE 130Q TERMINAL 123Q GACHA 116Q CLASSIC 111Q TIMESROMAN 104Q MODERN 76Q HELVETICA 66Q INTERPRESS 61Q GACHA 53Q TERMINAL 45Q TIMESROMAN 40Q CLASSIC 33Q HELVETICA 25Q MODERN 14Q PRESS 4 MODERN) () SK.GUESS.FONTSAVAILABLEA0001A0002 D1 (L (1 B 0 A)) @AóNIL NIL () SK.GUESS.FONTSAVAILABLEA0001 D1 (NAME ERRORSET L (0 NIL) P 10Q SIZE P 3 FONT F 11Q FILEFONTS F 12Q FAMILY F 13Q HDCPYTYPE F 14Q DISPLAYFONTSIZES F 15Q MACROY F 16Q CACHE) 4 WgohWi c¿Wdgð¢±¯¿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 c¿W`cµWWWh`‰WWh ci(456Q \NCONC2 405Q SORT 377Q INTERSECTION 305Q LAST 211Q FONTCREATE 154Q UNION 63Q FONTSAVAILABLE 20Q FONTSAVAILABLE) (443Q \FONTSONFILE 437Q \FONTSONFILE 415Q \FONTSONFILE 402Q SK.GUESS.FONTSAVAILABLEA0001A0002 315Q DISPLAY 204Q DISPLAY 57Q DISPLAY 47Q * 31Q PRESS 4 *) ( 340Q (MEDIUM REGULAR REGULAR) 151Q (44Q 36Q 30Q 22Q 16Q 14Q 12Q 10Q 6) 53Q (MEDIUM REGULAR REGULAR) 10Q (MEDIUM REGULAR REGULAR)) SK.GUESS.FONTSAVAILABLEA0003 D1 (I 1 B I 0 A) @dAð˜A Aó(20Q ALPHORDER) NIL () SK.GUESS.FONTSAVAILABLE D1 (P 11Q RESETSTATE P 10Q MACROY P 6 OLDVALUE P 2 DISPLAYFONTSIZES P 1 CACHE P 0 FILEFONTS I 1 HDCPYTYPE I 0 FAMILY F 12Q RESETVARSLST) • 0Aµbd@`X²%0H°d@ðd»LµKh]K&¼µêM¸°G` 1 gNhhWc_¿og ¥g_¿Oc¿gO ¿O“¿@ghdA H g (222Q SORT 214Q UNION 210Q FONTSAVAILABLE 173Q ERROR! 164Q APPLY 134Q SK.GUESS.FONTSAVAILABLEA0001 76Q CURSOR 10Q PRINTERTYPE) (217Q SK.GUESS.FONTSAVAILABLEA0003 201Q * 154Q CURSOR 140Q ERROR 131Q INTERNAL 104Q CURSOR 73Q WAITINGCURSOR 17Q \FONTSONFILE) ( 126Q (SK.GUESS.FONTSAVAILABLEA0001)) TEXT.UPDATE.GLOBAL.REGIONS D1 (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@(53Q REL.MOVE.REGION) NIL () REL.MOVE.REGION D1 (I 2 DELTAY I 1 DELTAX I 0 REGION) A@ÔB@Ô@@(24Q CREATEREGION) NIL () LTEXT.LINE.REGIONS D1 (P 13Q 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&_¿°ì(277Q CREATEREGION 231Q CHARWIDTH 212Q STRINGWIDTH 170Q ERROR 105Q MINUS 102Q FONTDESCENT 47Q LENGTH 41Q FONTHEIGHT 34Q MINUS 31Q DSPLINEFEED 23Q STREAMP 10Q FONTCREATE) (261Q LEFT 243Q CENTER 150Q BOTTOM 135Q TOP 114Q CENTER 62Q BASELINE) ( 254Q 2.0 162Q "illegal vertical text style" 124Q 2.0 73Q 2.0) TEXT.INPUTFN D1 (I 0 WINDOW) o @g @o(27Q TEXT.POSITION.AND.CREATE 15Q GETWINDOWUSERPROP 6 READ.TEXT) (12Q SKETCHCONTEXT) ( 24Q "locate the text" 3 "Text to be added: ") READ.TEXT D1 (P 1 LST P 0 CLOSEWFLG I 0 PRMPT F 6 TtyDisplayStream F 7 \DEFAULTTTYDISPLAYSTREAM) bVdWð’¿iŠ ´V hð!@•@i ¿i YH”V ¿gI0I°dºgJh[–LµK]\¿µêM \K°î(133Q LAST 127Q APPLY 55Q CLOSEW 45Q READLINE 42Q READ 35Q PRIN1 21Q OPENWP 13Q WFROMDS) (77Q % 61Q CONCAT) () TEXT.POSITION.AND.CREATE D1 (P 10Q 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 (255Q CREATE.TEXT.ELEMENT 245Q GETWINDOWUSERPROP 233Q SK.MAP.INPUT.PT.TO.GLOBAL 217Q GET.BITMAP.POSITION 100Q PRIN3 72Q MOVETO 56Q DSPFONT 46Q DSPCREATE 40Q BITMAPCREATE 25Q GETWINDOWUSERPROP 10Q STRINGWIDTH 3 SK.INPUT.SCALE) (242Q SKETCHCONTEXT 203Q TOP 170Q CENTER 160Q FONTDESCRIPTOR 151Q BASELINE 131Q LEFT 116Q CENTER 106Q PAINT 63Q FONTDESCRIPTOR 22Q SKETCHCONTEXT 14Q FONTDESCRIPTOR) () CREATE.TEXT.ELEMENT D1 (I 5 COLOR I 4 FONT I 3 JUSTIFICATION I 2 SCALE I 1 GPOSITION I 0 STRLST) "hddhgA@BCDhEhh (37Q SK.UPDATE.TEXT.AFTER.CHANGE) (11Q TEXT) () SK.UPDATE.TEXT.AFTER.CHANGE D1 (I 0 GTEXTELT) @ @ @(11Q TEXT.SET.SCALES 5 TEXT.SET.GLOBAL.REGIONS) NIL () SK.TEXT.FROM.TEXTBOX D1 (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(242Q CREATE.TEXT.ELEMENT 171Q MAP.GLOBAL.PT.ONTO.GRID 42Q ADD.EOLS 32Q APPLY) (250Q HASBOX 213Q BASELINE 205Q CENTER 142Q BOTTOM 117Q TOP 62Q RIGHT 50Q LEFT 17Q SK.UNIONREGIONS) () TEXT.SET.GLOBAL.REGIONS D1 (P 4 LREG P 0 SCALE I 0 GTEXTELT) c@@0@@H @@@ @ Ú °dLH ¹JµIh[I&ºµçK@(113Q UNSCALE.REGION 77Q LTEXT.LINE.REGIONS 72Q LENGTH 63Q FONTHEIGHT 34Q SK.SCALE.POSITION.INTO.VIEWER) NIL () TEXT.REGIONFN D1 (P 2 LINEREG P 1 REG P 0 LINEREGIONS I 0 SCRTEXTELT) @!Hd²YHˆdºIJ ¹µõI(27Q UNIONREGIONS) NIL () TEXT.GLOBALREGIONFN D1 (P 2 LINEREG P 1 REG P 0 LINEREGIONS I 0 GTEXTELT) %@!Hd²YHˆdºIJ ¹µõI(34Q UNIONREGIONS) NIL () TEXT.TRANSLATEFN D1 (P 2 NEWTEXTELT P 1 NEWGPOS P 0 INDTEXTELT I 2 WINDOW I 1 DELTAPOS I 0 GTEXT) (@ !@ HhZAH YHHIJ(40Q TEXT.UPDATE.GLOBAL.REGIONS 31Q PTPLUS 15Q \APPEND2 5 COPY) NIL () TEXT.TRANSFORMFN D1 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) 5@HHABHCêHHH (62Q CREATE.TEXT.ELEMENT 21Q SK.TRANSFORM.POINT) NIL () TEXT.TRANSLATEPTSFN D1 (L (3 WINDOW 2 GDELTA 1 SELPTS 0 TEXTELT)) @NIL NIL () TEXT.UPDATEFN D1 (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 ¿°(371Q TEXT.DRAWFN1 332Q DSPFILL 245Q SK.DRAWFIGURE 242Q VIEWER.SCALE 232Q SK.ERASE.ELT 222Q LENGTH 216Q LENGTH 161Q SK.ADD.ITEM 121Q LENGTH 112Q LENGTH) (326Q ERASE) () SK.CHANGE.TEXT D1 (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±Joêºg¹Ogð²?gKKJKKKKK±ûgKKJKKKKKKKK±—gð³Hdgðªdgð¢±½¿HK]hºg¹Ogð²>gKKKJKKKK±*gKKKJKKKKKKK±Çgð³Hgð³HgðªHdgð¢±Æ¿K]Hdgð“¿ghºg¹Ogð²>gKKKJKKKK±JgKKKJKKKKKKK±çgð³Hgð³HgðªHdgð¢±û¿Mg ¾Mg Mg Hdgð”¿gŠgð“gNHdgð”¿g‹gð“g‚NNhhºOgð²=gKKKKJKKK±4gKKKKJKKKKKK±Ògð²Ogð´‚±À@B Hdgð²¿Ogð´‚±¥@B gð¢±”Ogð´‚±‹@B dgð¢±¿¿HZg Mg ð´‚±Ogð²=gKKKKJKKK±"gKKKKJKKKKKK±Àdgð¢±Ü¿HMg Mg hZhdddi ³BoJoJ hOgð²=gKKKKJKKK±@gKKKKJKKKKKK±Þdgð¢±¾¿HHKg hºOgð²@dgð˜¿@dgð™¿@gðš@@g'NIL (72Q ARROWHEADS 45Q ARC 26Q OPENCURVE 7 WIRE) () \SK.GET.FONT D1 (I 0 GELT) '@dgð¥dgðš¿@¿@g'NIL (43Q FONT 15Q TEXTBOX 7 TEXT) () \SK.GET.JUSTIFICATION D1 (I 0 GELT F 0 ELEMENT) &@dgð¥dgð™¿@¿Pg'NIL (42Q JUSTIFICATION 15Q TEXTBOX 7 TEXT) () \SK.GET.DIRECTION D1 (I 0 GELT) @dgð›g'NIL (34Q DIRECTION 7 ARC) () \SK.GET.DASHING D1 (I 0 GELT) r@dgð«dgð¥dgð™¿@dgð³dgð«dgð¥dgð˜¿@dgð›¿@gð@@g'NIL (156Q DASHING 126Q TEXTBOX 105Q ELLIPSE 66Q BOX 60Q CLOSEDCURVE 52Q OPENCURVE 43Q CLOSEDWIRE 23Q ARC 15Q CIRCLE 7 WIRE) () PUTSKETCHELEMENTPROP D1 (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°ï(373Q LISTPUT 364Q SKETCH.UPDATE 323Q \SK.PUT.DIRECTION 306Q \SK.PUT.JUSTIFICATION 272Q \SK.PUT.FONT 253Q \SK.PUT.ARROWHEADS 237Q \SK.PUT.DASHING 220Q \SK.PUT.FILLING 204Q \SK.PUT.BRUSH 164Q \SKELT.PUT.DATA 146Q \SK.PUT.3RDCONTROLPT 126Q \SK.PUT.2NDCONTROLPT 111Q \SK.PUT.1STCONTROLPT 64Q ERROR 40Q \SKELT.PUT.SCALE 23Q ERROR 4 GETSKETCHELEMENTPROP) (314Q DIRECTION 277Q JUSTIFICATION 262Q FONT 244Q ARROWHEADS 227Q DASHING 211Q FILLING 173Q BRUSH 154Q DATA 136Q 3RDCONTROLPT 117Q 2NDCONTROLPT 101Q 1STCONTROLPT 72Q POSITION 52Q REGION 31Q SCALE 11Q TYPE) ( 61Q "Not implemented yet" 20Q "Can't change types") \SK.PUT.FILLING D1 (I 1 NEWVALUE I 0 GELT) {A ¤A ¿@dgð«dgð¥dgðœ¿@A°Mdgð¿@A°9dgðŸ¿@A°#gðŸ@A‹@gAi(167Q LISTPUT 10Q \ILLEGAL.ARG 3 SKFILLINGP) (163Q FILLING 131Q TEXTBOX 104Q ELLIPSE 60Q CIRCLE 35Q BOX 27Q CLOSEDCURVE 21Q CLOSEDWIRE) () ADDSKETCHELEMENTPROP D1 (P 0 NOWVALUE I 3 SKETCHTOUPDATE I 2 VALUE I 1 PROPERTY I 0 ELEMENT) &@A @AHµBhŽ¥HBh†HBh C(43Q PUTSKETCHELEMENTPROP 37Q \APPEND2 4 GETSKETCHELEMENTPROP) NIL () REMOVESKETCHELEMENTPROP D1 (P 0 NOWVALUE I 3 SKETCHTOUPDATE I 2 VALUE I 1 PROPERTY I 0 ELEMENT) !@A @AHdBð’¿hˆ¡H„BH C(36Q PUTSKETCHELEMENTPROP 32Q REMOVE 4 GETSKETCHELEMENTPROP) NIL () \SK.PUT.FONT D1 (I 1 NEWVALUE I 0 GELT) H@dgð²¿@A ¿@ °'gð²@A ¿@ ‹@gAi(104Q LISTPUT 67Q SK.UPDATE.TEXTBOX.AFTER.CHANGE 61Q SK.INSURE.TEXT 35Q SK.UPDATE.TEXT.AFTER.CHANGE 27Q SK.INSURE.TEXT) (100Q FONT 42Q TEXTBOX 7 TEXT) () \SK.PUT.JUSTIFICATION D1 (I 1 NEWVALUE I 0 GELT) L@dgð²¿@A` ¿@ °)gð²@A` ¿@ ‹@gAi(110Q LISTPUT 73Q SK.UPDATE.TEXTBOX.AFTER.CHANGE 65Q SK.INSURE.STYLE 37Q SK.UPDATE.TEXT.AFTER.CHANGE 31Q SK.INSURE.STYLE) (104Q JUSTIFICATION 62Q SK.DEFAULT.TEXT.ALIGNMENT 44Q TEXTBOX 26Q SK.DEFAULT.TEXT.ALIGNMENT 7 TEXT) () \SK.PUT.DIRECTION D1 (I 1 NEWVALUE I 0 GELT) .@dgð²A ¿@ ŠgAi(52Q LISTPUT 36Q SK.UPDATE.ARC.AFTER.CHANGE 30Q SK.INSURE.DIRECTION) (46Q DIRECTION 7 ARC) () \SK.PUT.DASHING D1 (I 1 NEWVALUE I 0 GELT) ‰A™A ¤A ¿@dgð«dgð¥dgð›¿@A°Zdgð³dgð«dgð¥dgðš¿@A°6dgð¿@A°"gðž@A‹@gAi(205Q LISTPUT 12Q \ILLEGAL.ARG 5 DASHINGP) (201Q DASHING 150Q TEXTBOX 125Q ELLIPSE 104Q BOX 76Q CLOSEDCURVE 70Q OPENCURVE 61Q CLOSEDWIRE 37Q ARC 31Q CIRCLE 23Q WIRE) () \SK.PUT.BRUSH D1 (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(310Q LISTPUT 273Q SK.UPDATE.TEXTBOX.AFTER.CHANGE 250Q SKETCH.CLEANUP 232Q SK.UPDATE.ELLIPSE.AFTER.CHANGE 201Q SK.UPDATE.ARC.AFTER.CHANGE 153Q SK.UPDATE.CIRCLE.AFTER.CHANGE 104Q SK.UPDATE.WIRE.ELT.AFTER.CHANGE 31Q \ILLEGAL.ARG 24Q BRUSHP) (304Q BRUSH 237Q TEXTBOX 207Q ELLIPSE 161Q ARC 133Q CIRCLE 113Q BOX 65Q CLOSEDCURVE 57Q OPENCURVE 51Q CLOSEDWIRE 42Q WIRE 10Q ROUND) () \SK.PUT.ARROWHEADS D1 (I 1 NEWVALUE I 0 GELT) h@dgð²¿A h¿@ °Gdgð²¿A h¿@ °*gð²A h¿@ ‹@gAi(144Q LISTPUT 127Q SET.ARC.ARROWHEAD.POINTS 106Q SK.INSURE.ARROWHEADS 72Q SET.OPENCURVE.ARROWHEAD.POINTS 53Q SK.INSURE.ARROWHEADS 35Q SET.WIRE.ARROWHEAD.POINTS 17Q SK.INSURE.ARROWHEADS) (140Q ARROWHEADS 77Q ARC 43Q OPENCURVE 7 WIRE) () SK.COPY.ELEMENT.PROPERTY.LIST D1 (I 1 OLDELEMENT I 0 ELEMENT) @Aµ@ (16Q \APPEND2) NIL () SKETCH.UPDATE D1 (P 2 ELT P 1 ALLVIEWERS P 0 SKSTRUC I 1 ELEMENTS I 0 SKETCH) D@ H YAµd†d ¿µø°& –AI °Ad²‹dJI µó‚ h(100Q \ILLEGAL.ARG 67Q SKETCH.UPDATE1 45Q SKETCH.UPDATE1 37Q GLOBALELEMENTP 25Q SK.UPDATE.AFTER.SCALE.CHANGE 12Q ALL.SKETCH.VIEWERS 3 INSURE.SKETCH) NIL () SKETCH.UPDATE1 D1 (P 2 SELECTION P 1 SKW I 1 VIEWERS I 0 GELT) 2A!HµhYg Z ›@dJð–¿I ¿@dIi¿HX°Ö(52Q SK.UPDATE.ELEMENT1 42Q SKED.CLEAR.SELECTION 26Q SCREENELEMENTP 21Q GETWINDOWUSERPROP) (16Q SELECTION) () \SKELT.GET.SCALE D1 (L (0 GELT)) y@dgð³dgð«dgð¥dgð˜¿@dgð³dgð«dgð¥dgðš¿@dgð«dgð¥dgð™¿@gð´ @NIL (150Q ELLIPSE 131Q BOX 123Q CLOSEDCURVE 115Q CLOSEDWIRE 74Q ARC 66Q CIRCLE 60Q OPENCURVE 51Q WIRE 32Q BITMAPELT 24Q SKIMAGEOBJ 16Q TEXTBOX 7 TEXT) () \SKELT.PUT.SCALE D1 (I 1 NEWVALUE I 0 GELT) ŽAd3¢±„¿@dgð³dgð«dgð¥dgðš¿@Adgð³dgð«dgð¥dgðœ¿@Adgð«dgð¥dgð›¿@Agð´@A (213Q \ILLEGAL.ARG) (167Q ELLIPSE 146Q BOX 140Q CLOSEDCURVE 132Q CLOSEDWIRE 107Q ARC 101Q CIRCLE 73Q OPENCURVE 64Q WIRE 43Q BITMAPELT 35Q SKIMAGEOBJ 27Q TEXTBOX 20Q TEXT) () \SKELT.PUT.DATA D1 (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(233Q SK.UPDATE.WIRE.ELT.AFTER.CHANGE 165Q SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE 126Q SK.REPLACE.TEXT.IN.ELEMENT 123Q SK.INSURE.TEXT 115Q SKETCH.CLEANUP 67Q SK.UPDATE.GROUP.AFTER.CHANGE 54Q \ILLEGAL.ARG 36Q GLOBALELEMENTP) (216Q CLOSEDCURVE 210Q CLOSEDWIRE 202Q OPENCURVE 173Q WIRE 151Q SKIMAGEOBJ 134Q BITMAPELT 103Q TEXTBOX 75Q TEXT 15Q GROUP) () SK.REPLACE.TEXT.IN.ELEMENT D1 (I 1 NEWSTRS I 0 GTEXTELT) ;@dgð²¿@Aµoh¿@ °gðœ@A¿@ ƒ@ @(67Q \ILLEGAL.ARG 62Q SK.UPDATE.TEXT.AFTER.CHANGE 37Q SK.UPDATE.TEXTBOX.AFTER.CHANGE) (44Q TEXT 7 TEXTBOX) ( 27Q "") \SKELT.GET.DATA D1 (P 0 INDVELT I 0 GELT) ^@@dgð•¿Hdgð³õdgð³îdgð”¿Hdgð³ödgð³ïdgð³èdgð³ádgð³Ú¿@g'NIL (132Q DATA 116Q CLOSEDCURVE 107Q CLOSEDWIRE 100Q OPENCURVE 71Q WIRE 62Q SKIMAGEOBJ 47Q BITMAPELT 40Q TEXTBOX 31Q TEXT 15Q GROUP) () \SK.GET.1STCONTROLPT D1 (I 1 PROPERTY I 0 GELT) ˆ@dgð³dgð«dgð¥dgð–¿@dgð¥dgð™¿@ dgð¥dgðš¿@ dgð³dgð«dgð¥dgð—¿@gð—@@A'(117Q LOWERLEFTCORNER 70Q LOWERLEFTCORNER) (164Q GROUP 147Q CLOSEDCURVE 141Q OPENCURVE 133Q CLOSEDWIRE 124Q WIRE 103Q SKIMAGEOBJ 75Q BITMAPELT 55Q BOX 47Q TEXTBOX 32Q ELLIPSE 24Q ARC 16Q CIRCLE 7 TEXT) () \SK.PUT.1STCONTROLPT D1 (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(505Q SK.UPDATE.WIRE.ELT.AFTER.CHANGE 353Q SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE 270Q SK.UPDATE.BOX.AFTER.CHANGE 211Q SK.UPDATE.TEXTBOX.AFTER.CHANGE 132Q SK.UPDATE.ELLIPSE.AFTER.CHANGE 107Q SK.UPDATE.ARC.AFTER.CHANGE 64Q SK.UPDATE.CIRCLE.AFTER.CHANGE 41Q SK.UPDATE.TEXT.AFTER.CHANGE 10Q \ILLEGAL.ARG 3 POSITIONP) (514Q GROUP 460Q CLOSEDCURVE 452Q OPENCURVE 444Q CLOSEDWIRE 435Q WIRE 361Q BITMAPELT 277Q SKIMAGEOBJ 220Q BOX 141Q TEXTBOX 116Q ELLIPSE 73Q ARC 50Q CIRCLE 25Q TEXT) () \SK.GET.2NDCONTROLPT D1 (I 0 GELT) b@dgð«dgð¥dgð—¿@dgð¥dgð™¿@ dgð³dgð«dgð¥dgð˜¿@¿@g'(62Q UPPERRIGHTCORNER) (136Q 2NDCONTROLPT 112Q CLOSEDCURVE 104Q OPENCURVE 76Q CLOSEDWIRE 67Q WIRE 47Q BOX 41Q TEXTBOX 23Q ELLIPSE 15Q ARC 7 CIRCLE) () \SK.PUT.2NDCONTROLPT D1 (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(372Q LISTPUT 354Q SK.UPDATE.WIRE.ELT.AFTER.CHANGE 252Q SK.UPDATE.TEXTBOX.AFTER.CHANGE 172Q SK.UPDATE.BOX.AFTER.CHANGE 112Q SK.UPDATE.ELLIPSE.AFTER.CHANGE 66Q SK.UPDATE.ARC.AFTER.CHANGE 42Q SK.UPDATE.CIRCLE.AFTER.CHANGE 10Q \ILLEGAL.ARG 3 POSITIONP) (366Q 2NDCONTROLPT 303Q CLOSEDCURVE 275Q OPENCURVE 267Q CLOSEDWIRE 260Q WIRE 201Q TEXTBOX 121Q BOX 75Q ELLIPSE 51Q ARC 25Q CIRCLE) ( 323Q (0 . 0)) \SK.GET.3RDCONTROLPT D1 (I 0 GELT) P@dgð˜¿@dgð—¿@ dgð³dgð«dgð¥dgð™¿@¿@g'(37Q \SK.GET.ARC.ANGLEPT) (114Q 3RDCONTROLPT 67Q CLOSEDCURVE 61Q OPENCURVE 53Q CLOSEDWIRE 44Q WIRE 26Q ARC 7 ELLIPSE) () \SK.PUT.3RDCONTROLPT D1 (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(334Q LISTPUT 316Q SK.UPDATE.WIRE.ELT.AFTER.CHANGE 155Q SK.UPDATE.ELLIPSE.AFTER.CHANGE 130Q \ILLEGAL.ARG 123Q POSITIONP 115Q SK.UPDATE.ARC.AFTER.CHANGE 110Q \ILLEGAL.ARG 103Q SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 46Q SK.COMPUTE.ARC.ANGLE.PT 21Q POSITIONP) (330Q 3RDCONTROLPT 206Q CLOSEDCURVE 200Q OPENCURVE 172Q CLOSEDWIRE 163Q WIRE 137Q ELLIPSE 12Q ARC) ( 253Q (0 . 0) 232Q (0 . 0) 226Q (0 . 0)) LOWERLEFTCORNER D1 (I 0 REGION) @@ (7 CREATEPOSITION) NIL () UPPERRIGHTCORNER D1 (I 0 REGION) @@kÙØ@@kÙØ (26Q 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)) (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 \POSSIBLECOLOR RGBP HLSP) (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 BRUSHP 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) (* stuff for compatibility with unadvertised interface. Remove after L release.) (P (MOVD? (QUOTE GETSKETCHELEMENTPROP) (QUOTE GETSKELEMENTPROP)) (MOVD? (QUOTE PUTSKETCHELEMENTPROP) (QUOTE PUTSKELEMENTPROP)) (MOVD? (QUOTE SKETCH.CREATE.IMAGE.OBJECT) (QUOTE SKETCH.IMAGE.OBJECT.ELEMENT)))))) (RPAQ? SKETCHINCOLORFLG) (RPAQ? FILLPOLYGONFLG T) (RPAQ? FILLINGMODEFLG) (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 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 (READBITMAP) 7 7)) (16 16 "@@@@" "@GL@" "AOO@" "CLGH" "G@AL" "F@@L" "N@@N" "L@@F" "L@@F" "L@@F" "N@@N" "F@@L" "G@AL" "CLGH" "AON@" "@GH@") (RPAQ CIRCLE.EDGE (CURSORCREATE (READBITMAP) 15 7)) (16 16 "@@@L" "@@@D" "@@@F" "@@@B" "@@@C" "@@LA" "@@OA" "@@GM" "OOOO" "@@GM" "@@OA" "@@LC" "@@@B" "@@@F" "@@@D" "@@@L") (RPAQ? SK.DEFAULT.BRUSH (create BRUSH BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1 BRUSHCOLOR _ (QUOTE BLACK))) (RPAQ? SK.DEFAULT.DASHING) (RPAQ? SK.DEFAULT.TEXTURE) (READVARS 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 (READBITMAP) 7 7)) (16 16 "@@@@" "@GL@" "AOO@" "CLGH" "G@AL" "F@@L" "N@@N" "L@@F" "L@@F" "L@@F" "N@@N" "F@@L" "G@AL" "CLGH" "AOO@" "@GL@") (RPAQ ELLIPSE.SEMI.MAJOR (CURSORCREATE (READBITMAP) 15 7)) (16 16 "@@@L" "@@@D" "@@@F" "@@@B" "@@@C" "@@LA" "@@OA" "@@GM" "OOOO" "@@GM" "@@OA" "@@LC" "@@@B" "@@@F" "@@@D" "@@@L") (RPAQ ELLIPSE.SEMI.MINOR (CURSORCREATE (READBITMAP) 7 15)) (16 16 "@ON@" "CICH" "NCHN" "HCHC" "@GL@" "@GL@" "@ON@" "@MF@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@") (READVARS 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 (READBITMAP) 0 8)) (16 16 "@GN@" "AOOH" "CLCL" "G@@N" "FDBF" "NJEG" "LEJC" "LBDC" "LBDC" "LEJC" "NJEG" "FDBF" "G@@N" "CLCL" "AOOH" "@GN@") (RECORD ARROWHEAD (ARROWTYPE ARROWANGLE ARROWLENGTH)) (READVARS 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 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) (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)) (RPAQ TEXTBOXICON (READBITMAP)) (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 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 (READBITMAP) 15 7)) (16 16 "@@@L" "@@@D" "@@@F" "@@@B" "@@@C" "@@LA" "@@OA" "@@CM" "OOOO" "@@CL" "@@O@" "@@L@" "@@@@" "@@@@" "@@@@" "@@@@") (RPAQ ARC.ANGLE.CURSOR (CURSORCREATE (READBITMAP) 7 15)) (16 16 "@AN@" "@ACL" "@CHG" "@CHA" "@GL@" "@GL@" "@MF@" "@MF@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@") (RPAQ CW.ARC.ANGLE.CURSOR (CURSORCREATE (READBITMAP) 7 15)) (16 16 "@O@@" "GI@@" "LCH@" "@CH@" "@GL@" "@GL@" "@MF@" "@MF@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@" "@A@@") (RPAQ CW.ARC.RADIUS.CURSOR (CURSORCREATE (READBITMAP) 15 7)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@L@" "@@O@" "@@CL" "OOOO" "@@CM" "@@OA" "@@LC" "@@@B" "@@@F" "@@@L" "@@AH") (READVARS ARCICON) ({ (READBITMAP) (20 13 "@@@@@@@@" "@AOH@@@@" "@COL@@@@" "@G@N@@@@" "@F@F@@@@" "@N@G@@@@" "@L@C@@@@" "@@@C@@@@" "@@@G@@@@" "@@@F@@@@" "@@@N@@@@" "@@@L@@@@" "@@@@@@@@") }) (MOVD? (QUOTE GETSKETCHELEMENTPROP) (QUOTE GETSKELEMENTPROP)) (MOVD? (QUOTE PUTSKETCHELEMENTPROP) (QUOTE PUTSKELEMENTPROP)) (MOVD? (QUOTE SKETCH.CREATE.IMAGE.OBJECT) (QUOTE SKETCH.IMAGE.OBJECT.ELEMENT)) (PUTPROPS SKETCHELEMENTS COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL