(FILECREATED "29-Aug-85 19:19:38" ("compiled on " {PHYLUM}SKETCHELEMENTS.;36) "19-Mar-85 14:34:17" recompiled changes: WIRE.INPUTFN \SK.READ.FONT.SIZE1 SK.SET.TEXT.SIZE SK.READFONTSIZE SK.COLLECT.FONT.SIZES in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "29-Aug-85 19:16:54" {PHYLUM}SKETCHELEMENTS.;36 294048 changes to: (FNS SK.READFONTSIZE SK.COLLECT.FONT.SIZES \SK.READ.FONT.SIZE1 WIRE.INPUTFN SK.SET.TEXT.SIZE) (RECORDS BRUSH) previous date: " 9-Aug-85 18:27:32" {PHYLUM}SKETCHELEMENTS.;33) 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) / g ³1gPogggggggghggg ¿g ³1gQogggggggghggg ¿g ³1gRogggggggghggg ¿g ³1gTogggggggghggg ¿g ³1gVogggggggghggg ¿g ³2gWogggggggghggg ¿g ³1gSogggggggghggg ¿g ³3ghogggggggggggg ¿g ³1gUogggggggghggg ¿g ³4gWogggggggggggg h(1052Q CREATE.SKETCH.ELEMENT.TYPE 767Q SKETCH.ELEMENT.TYPEP 760Q CREATE.SKETCH.ELEMENT.TYPE 700Q SKETCH.ELEMENT.TYPEP 671Q CREATE.SKETCH.ELEMENT.TYPE 607Q SKETCH.ELEMENT.TYPEP 600Q CREATE.SKETCH.ELEMENT.TYPE 520Q SKETCH.ELEMENT.TYPEP 511Q CREATE.SKETCH.ELEMENT.TYPE 430Q SKETCH.ELEMENT.TYPEP 421Q CREATE.SKETCH.ELEMENT.TYPE 341Q SKETCH.ELEMENT.TYPEP 332Q CREATE.SKETCH.ELEMENT.TYPE 252Q SKETCH.ELEMENT.TYPEP 243Q CREATE.SKETCH.ELEMENT.TYPE 163Q SKETCH.ELEMENT.TYPEP 154Q CREATE.SKETCH.ELEMENT.TYPE 74Q SKETCH.ELEMENT.TYPEP 65Q CREATE.SKETCH.ELEMENT.TYPE 5 SKETCH.ELEMENT.TYPEP) (1046Q TEXTBOX.TRANSLATEPTSFN 1043Q TEXTBOX.TRANSFORMFN 1040Q TEXTBOX.READCHANGEFN 1035Q TEXTBOX.UPDATEFN 1032Q TEXTBOX.TRANSLATEFN 1027Q TEXTBOX.REGIONFN 1024Q TEXTBOX.INSIDEFN 1021Q TEXTBOX.INPUTFN 1016Q SK.ELEMENTS.CHANGEFN 1013Q OBSOLETE 1010Q TEXTBOX.EXPANDFN 1005Q TEXTBOX.DRAWFN 774Q TEXTBOX 764Q TEXTBOX 754Q SK.BOX.TRANSLATEPTSFN 751Q SK.BOX.TRANSFORMFN 746Q SK.BOX.READCHANGEFN 742Q SK.BOX.TRANSLATEFN 737Q SK.BOX.REGIONFN 734Q SK.BOX.INSIDEFN 731Q SK.BOX.INPUTFN 726Q SK.ELEMENTS.CHANGEFN 723Q OBSOLETE 720Q SK.BOX.EXPANDFN 715Q SK.BOX.DRAWFN 705Q BOX 675Q BOX 665Q TEXT.TRANSLATEPTSFN 662Q TEXT.TRANSFORMFN 657Q TEXT.READCHANGEFN 654Q TEXT.UPDATEFN 651Q TEXT.TRANSLATEFN 646Q TEXT.REGIONFN 643Q TEXT.INSIDEFN 640Q TEXT.INPUTFN 635Q SK.ELEMENTS.CHANGEFN 632Q OBSOLETE 627Q TEXT.EXPANDFN 624Q TEXT.DRAWFN 614Q TEXT 604Q TEXT 574Q CLOSEDWIRE.TRANSLATEPTSFN 571Q CLOSEDWIRE.TRANSFORMFN 566Q CLOSEDWIRE.READCHANGEFN 562Q KNOTS.TRANSLATEFN 557Q CLOSEDWIRE.REGIONFN 554Q KNOTS.INSIDEFN 551Q CLOSED.WIRE.INPUTFN 546Q SK.ELEMENTS.CHANGEFN 543Q OBSOLETE 540Q KNOTS.EXPANDFN 535Q CLOSED.WIRE.DRAWFN 525Q CLOSEDWIRE 515Q CLOSEDWIRE 505Q OPENWIRE.TRANSLATEPTSFN 502Q OPENWIRE.TRANSFORMFN 477Q OPENCURVE.READCHANGEFN 473Q KNOTS.TRANSLATEFN 470Q KNOTS.REGIONFN 465Q KNOTS.INSIDEFN 462Q WIRE.INPUTFN 457Q SK.ELEMENTS.CHANGEFN 454Q OBSOLETE 451Q OPEN.KNOTS.EXPANDFN 446Q OPEN.WIRE.DRAWFN 435Q WIRE 425Q WIRE 415Q CLOSEDCURVE.TRANSLATEPTSFN 412Q CLOSEDCURVE.TRANSFORMFN 407Q SK.BRUSH.READCHANGE 403Q KNOTS.TRANSLATEFN 400Q CLOSEDCURVE.REGIONFN 375Q KNOTS.INSIDEFN 372Q CLOSEDCURVE.INPUTFN 367Q SK.ELEMENTS.CHANGEFN 364Q OBSOLETE 361Q CLOSEDCURVE.EXPANDFN 356Q CLOSEDCURVE.DRAWFN 346Q CLOSEDCURVE 336Q CLOSEDCURVE 326Q OPENCURVE.TRANSLATEPTSFN 323Q OPENCURVE.TRANSFORMFN 320Q OPENCURVE.READCHANGEFN 314Q KNOTS.TRANSLATEFN 311Q CURVE.REGIONFN 306Q KNOTS.INSIDEFN 303Q OPENCURVE.INPUTFN 300Q SK.ELEMENTS.CHANGEFN 275Q OBSOLETE 272Q OPENCURVE.EXPANDFN 267Q OPENCURVE.DRAWFN 257Q OPENCURVE 247Q OPENCURVE 237Q ARC.TRANSLATEPTS 234Q ARC.TRANSFORMFN 231Q ARC.READCHANGEFN 225Q ARC.TRANSLATE 222Q ARC.REGIONFN 217Q ARC.INSIDEFN 214Q ARC.INPUTFN 211Q SK.ELEMENTS.CHANGEFN 206Q OBSOLETE 203Q ARC.EXPANDFN 200Q ARC.DRAWFN 170Q ARC 160Q ARC 150Q ELLIPSE.TRANSLATEPTS 145Q ELLIPSE.TRANSFORMFN 142Q SK.BRUSH.READCHANGE 136Q ELLIPSE.TRANSLATEFN 133Q ELLIPSE.REGIONFN 130Q ELLIPSE.INSIDEFN 125Q ELLIPSE.INPUTFN 122Q SK.ELEMENTS.CHANGEFN 117Q OBSOLETE 114Q ELLIPSE.EXPANDFN 111Q ELLIPSE.DRAWFN 101Q ELLIPSE 71Q ELLIPSE 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) ( 1002Q "Adds a box into which text can be typed." 712Q "Adds a box by accepting two corners." 621Q "text is added by pointing to its position and typing." 532Q "Adds a closed polygon by accepting the corners." 443Q "Adds a series of lines by accepting points." 353Q "Adds a closed curve by accepting points that it goes though." 264Q "Adds a curve by accepting points the curve goes through." 175Q "Adds an arc to the figure." 106Q "Adds an ellipse to the figure." 17Q "Adds a circle to the figure.") CREATE.SKETCH.ELEMENT.TYPE D1 (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µo@g`dA¿dB¿dC¿dD¿dF ¿dG¿dG¿dG¿dG¿dG¿dG¿dG¿dG¿`@d` §`@gð³Ei ¿oi ¿±ÿ~(203Q PRIN1 172Q PRIN1 145Q MEMB 126Q PUTPROP) (162Q OBSOLETE 155Q SKETCH.ELEMENT.TYPE.NAMES 151Q SKETCH.ELEMENT.TYPE.NAMES 142Q SKETCH.ELEMENT.TYPE.NAMES 135Q SKETCH.ELEMENT.TYPES 131Q SKETCH.ELEMENT.TYPES 11Q SKETCHTYPETYPE# 6 SKETCHTYPE) ( 177Q " 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) () SKETCHINCOLORP D1 NIL `NIL (2 SKETCHINCOLORFLG) () READ.COLOR.CHANGE D1 (I 1 ALLOWNONEFLG I 0 MSG) @A (4 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)) %@´!@mÿñ´ni@ñ´@´@´@NIL NIL () CIRCLE.EXPANDFN D1 (P 3 BRUSH P 2 RADIUSPT P 1 CENTER P 0 INDGCIRCLE I 1 SCALE I 0 GCIRCLE) —@1Hd³9¿@gHHHHoHHX¿HA YHA ZhIJ H[dd¥d¡²¿HgKhh[¿KHAh@(216Q SCALE.BRUSH 136Q DISTANCEBETWEEN 125Q SK.SCALE.POSITION.INTO.VIEWER 114Q SK.SCALE.POSITION.INTO.VIEWER) (171Q ROUND 25Q CIRCLE) ( 53Q 1.0) CIRCLE.DRAWFN D1 (P 5 FILLING P 4 DASHING P 3 RPOS P 2 CPOS P 1 LCIRCLE P 0 GCIRCLE I 2 REGION I 1 WINDOW I 0 CIRCLEELT) p@@BIZH\H]dd™¿JJIMŠžJJIMA ¿L²JI[do iILA JJIILA (155Q DRAWCIRCLE 133Q DRAWCURVE 120Q SK.COMPUTE.ARC.PTS 115Q PTPLUS 73Q FILLCIRCLE) NIL ( 112Q (0 . -1)) CIRCLE.INPUTFN D1 (P 2 RADIUSPT P 1 CENTERPT P 0 SKETCHCONTEXT I 0 WINDOW F 3 CIRCLE.CENTER F 4 CIRCLE.EDGE) u@g !@oo@S Yµ@ hh@@oo@T ZIh@@ J´ÙI@ YJ@ ZIJHH@ H (162Q SK.CIRCLE.CREATE 145Q WINDOW.SCALE 126Q SK.MAP.INPUT.PT.TO.GLOBAL 120Q SK.MAP.INPUT.PT.TO.GLOBAL 110Q CLOSEPROMPTWINDOW 104Q MARK.SPOT 73Q GETSKWPOSITION 66Q STATUSPRINT 52Q MARK.SPOT 41Q CLOSEPROMPTWINDOW 32Q GETSKWPOSITION 25Q STATUSPRINT 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) ( 63Q "Indicate a point of the circumference of the circle" 57Q " " 22Q "Indicate center of circle" 16Q " ") 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) 0@H @kØâØYHXIÙHIÙIlÚYd(55Q CREATEREGION 12Q FIXR) NIL () CIRCLE.TRANSLATE D1 (P 0 GCIRCLE I 1 DELTAPOS I 0 CIRCLESKELT) K@@ gHA HA HHHHHh(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) b@@@@@gHABHABHC HHHH@(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@ABCDEhh (35Q SET.CIRCLE.SCALE) (11Q CIRCLE) () SET.CIRCLE.SCALE D1 (P 1 RAD P 0 INDVPART I 0 GCIRCELT) #@!HH Y@IZo×Jhh@(17Q DISTANCEBETWEEN) NIL ( 27Q 3000.0) SK.BRUSH.READCHANGE D1 (P 1 HOW P 0 ASPECT I 0 SKW) ‹@`di¿do¿´oo ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ Xdgð™¿o °%gð”°Hdgð”¿Œgð´ o Yd´HIh(177Q READ.COLOR.CHANGE 161Q READ.DASHING.CHANGE 144Q READBRUSHSHAPE 132Q READSIZECHANGE 113Q MENU 43Q \APPEND2 26Q SKETCHINCOLORP) (165Q BRUSHCOLOR 153Q DASHING 137Q SHAPE 120Q SIZE 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 5 MENUTYPE#) ( 174Q "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") 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³B¿@gHHHHHHoHX¿HA YHA ZHA [hIJ IK H\dd¥d¡²¿HgLhh\¿LHAh@(257Q SCALE.BRUSH 171Q DISTANCEBETWEEN 164Q DISTANCEBETWEEN 152Q SK.SCALE.POSITION.INTO.VIEWER 140Q SK.SCALE.POSITION.INTO.VIEWER 127Q SK.SCALE.POSITION.INTO.VIEWER) (230Q 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) ¦@@2IZH[H\K²od L JJII ONOêÔOMOêÔ OMOêÕONOêÔ ONOêÕOMOêÕ OMOêÔONOêÕ hiIKA hJJIILIKA (243Q DRAWELLIPSE 212Q DRAWCURVE 171Q CREATEPOSITION 150Q CREATEPOSITION 127Q CREATEPOSITION 106Q CREATEPOSITION 47Q COS 43Q SIN) NIL () ELLIPSE.INPUTFN D1 (P 2 MINRAD P 1 MAJRAD P 0 CENTER I 0 WINDOW F 3 ELLIPSE.CENTER F 4 ELLIPSE.SEMI.MAJOR F 5 ELLIPSE.SEMI.MINOR) ¦0@oo@S Xµ@ hh@¿@oo@T YµHh@¿@ hh@¿@oo@U Z@ Ih@Hh@J´ÐH@ J@ I@ @g @g @ (243Q ELLIPSE.CREATE 237Q WINDOW.SCALE 226Q GETWINDOWUSERPROP 216Q GETWINDOWUSERPROP 207Q SK.MAP.INPUT.PT.TO.GLOBAL 202Q SK.MAP.INPUT.PT.TO.GLOBAL 175Q SK.MAP.INPUT.PT.TO.GLOBAL 165Q MARK.SPOT 155Q MARK.SPOT 145Q CLOSEPROMPTWINDOW 140Q GETSKWPOSITION 133Q STATUSPRINT 116Q MARK.SPOT 105Q CLOSEPROMPTWINDOW 100Q MARK.SPOT 65Q GETSKWPOSITION 60Q STATUSPRINT 43Q MARK.SPOT 32Q CLOSEPROMPTWINDOW 23Q GETSKWPOSITION 16Q STATUSPRINT) (223Q SKETCHCONTEXT 213Q SKETCHCONTEXT) ( 130Q "Indicate semi-minor axis" 124Q " " 55Q "Indicate semi-major axis" 51Q " " 13Q "Indicate center of ellipse" 7 " ") 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) J@A @B !HZo×Jhh0g@B Y½@D»C¼@BAIBMLKEhh(65Q SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 47Q COMPUTE.ELLIPSE.ORIENTATION 14Q MAX 11Q DISTANCEBETWEEN 4 DISTANCEBETWEEN) (42Q ELLIPSE) ( 25Q 3000.0) 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) q @‘ HYH[HHë _KZIÙ _K[IÙ _@kØâ\OOOêLÔÔ ]OOOêLÔÔ ^JMÙKNÙMlÚNlÚ(156Q CREATEREGION 134Q FIXR 116Q FIXR 57Q ABS 44Q ABS 31Q ABS) NIL () ELLIPSE.TRANSLATEFN D1 (P 0 GLOBALEL I 1 DELTAPOS I 0 SKELT) \@@ gH¹HA HA HA IHHHHh(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 () SQUARE D1 (L (0 X)) @dÖNIL NIL () COMPUTE.ELLIPSE.ORIENTATION D1 (I 1 MAJRADPT I 0 CENTERPT) A@ÙA@Ù (14Q ARCTAN2) NIL () 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 () KNOTS.INSIDEFN D1 (P 1 PT I 1 WREG I 0 GCURVE) @Hµh¹AI ‘iHX°î(24Q INSIDEP) NIL () 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 WINDOW.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@BCDhŠg@BCEDhh (52Q KNOT.SET.SCALE.FIELD) (30Q OPENCURVE 16Q 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 2 BRUSH P 1 LCURVE P 0 GCURVE I 2 REGION I 1 WINDOW I 0 CURVEELT) :@@Bµ$IhIZHA HIAJh@ ³×h(64Q REGIONSINTERSECTP 61Q SK.ITEM.REGION 53Q DRAWARROWHEADS 35Q DRAWCURVE) NIL () OPENCURVE.EXPANDFN D1 (P 5 LATLONPT P 1 TMP P 0 INDGELT I 1 SCALE I 0 GELT) ˜@H³-@gHHHHoHX¿@H°d]A ºKµJh\J&»µëLYHIAHYdd¥d¡²¿HgIhhY¿IHAh@(217Q SCALE.BRUSH 141Q SK.EXPAND.ARROWHEADS 110Q SK.SCALE.POSITION.INTO.VIEWER) (172Q ROUND 23Q OPENCURVE) ( 51Q 1.0) OPENCURVE.READCHANGEFN D1 (P 1 HOW P 0 ASPECT I 0 SKW) –@`di¿do¿´oo ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ Xdgð™¿o °0gð”°&Hdgð•¿°gð“Hgð´ o Yd´HIh(212Q READ.COLOR.CHANGE 173Q READ.DASHING.CHANGE 161Q READ.ARROW.CHANGE 144Q READBRUSHSHAPE 132Q READSIZECHANGE 113Q MENU 43Q \APPEND2 26Q SKETCHINCOLORP) (200Q BRUSHCOLOR 166Q DASHING 153Q ARROW 137Q SHAPE 120Q SIZE 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 5 MENUTYPE#) ( 207Q "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.")) 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) V@@@@@gHABHC HHHH@ (123Q KNOT.SET.SCALE.FIELD 54Q SK.TRANSFORM.BRUSH 44Q SK.TRANSFORM.POINT.LIST) (34Q OPENCURVE) () 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 () CLOSEDCURVE.DRAWFN D1 (P 0 GCURVE I 2 REGION I 1 WINDOW I 0 CURVEELT) *@Bµ@i@HA h@ ³åh(44Q REGIONSINTERSECTP 41Q SK.ITEM.REGION 33Q DRAWCURVE) NIL () CLOSEDCURVE.EXPANDFN D1 (P 5 LATLONPT P 1 BRSH P 0 INDVKNOTELT I 1 SCALE I 0 GELT) †@H³%@gHHHoHX¿@H°d]A ºKµJh\J&»µëLHYdd¥d¡²¿HgIhhY¿IHAh@(176Q SCALE.BRUSH 77Q SK.SCALE.POSITION.INTO.VIEWER) (152Q ROUND 22Q CLOSEDCURVE) ( 42Q 1.0) CLOSEDCURVE.REGIONFN D1 (I 0 KNOTSCRELT) @ o @ kØlÛ (33Q INCREASEREGION 23Q SK.BRUSH.SIZE 14Q EXPANDREGION 5 REGION.CONTAINING.PTS) NIL ( 11Q 1.4) READ.LIST.OF.POINTS D1 (P 2 PTTAIL P 1 PTS P 0 PT I 1 ALLOWDUPS? I 0 W F 3 POINTREADINGCURSOR) U @oo¿@S X²$A¬I Hô³ëH@I¿IHh Y°×IdJ@JµïI(121Q CLRPROMPT 111Q SHOWSKETCHPOINT 66Q \NCONC2 56Q SHOWSKETCHPOINT 35Q LAST 24Q GETSKWPOSITION 16Q STATUSPRINT) NIL ( 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 WINDOW.SCALE 66Q GETWINDOWUSERPROP 56Q GETWINDOWUSERPROP 23Q SK.MAP.INPUT.PT.TO.GLOBAL 7 READ.LIST.OF.POINTS) (63Q SKETCHCONTEXT 53Q SKETCHCONTEXT) () CLOSEDCURVE.TRANSFORMFN D1 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) M@@@@@gHABHC HHH@ (112Q 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 BITBLT) (43Q INVERT 40Q INPUT 27Q BITMAP 24Q POINTMARK 14Q BITMAP 11Q POINTMARK 2 POINTMARK) () KNOTS.REGIONFN D1 (I 0 KNOTSCRELT) @ @l×lØ (25Q INCREASEREGION 5 REGION.CONTAINING.PTS) NIL () CURVE.REGIONFN D1 (I 0 KNOTSCRELT) !@ o @ kØlÛ (36Q INCREASEREGION 26Q SK.BRUSH.SIZE 14Q EXPANDREGION 5 REGION.CONTAINING.PTS) NIL ( 11Q 1.4) KNOTS.TRANSLATEFN D1 (P 4 PT P 0 GKNOTELT I 1 DELTAPOS I 0 SKELT) 8@ H@H°d\A ¹JµIh[I&ºµëK@ Hh(61Q \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 3 NEWELT P 2 TYPE P 1 BRUSH P 0 GCURVELT I 2 SKW I 1 HOW I 0 ELTWITHBRUSH) 9@@Zo ´‚±#@XJdgð”¿d°gð’HŽJdgð•¿H¿HYAIð’±ñJdgð²1¿gHAIIIHHH±²gð²9gHAIIIHHHH±uJdgð²C¿gHHAIIIHHHH±,gð²YgHHAIIIHHHHHH±ÏJdgð²K¿gHHHHAIIIHHH°}gð²8gHAIIIHHHH°AJgð²7gHAIIIHHHH‚[@Khh(1055Q SHOULDNT 16Q MEMB) (770Q CLOSEDWIRE 762Q CLOSEDWIRE 673Q WIRE 665Q WIRE 555Q ELLIPSE 546Q ELLIPSE 415Q ARC 407Q ARC 307Q CIRCLE 300Q CIRCLE 207Q OPENCURVE 201Q OPENCURVE 123Q CLOSEDCURVE 114Q 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 ¢±ydgð”¿H°,gð•H°!Idgð˜¿HŽgð¨Idgð²R¿HºAJô’±…JJAJ»Idgð²6¿gHKHHHH±îgð²H°ªgð²+gHKHHHH±µIdgð²L¿gHHKHHHHHH±cgð²YgHHHHHHAKHHH±Idgð²,¿gHKHHHH±Ôgð²"gHKHHH±®Idgð²+¿gHKHHHH°|gð²3gHHKHHHH°EIgð²;gHHHHKHHH‚¼@Lhgð´LAHô³>@gHHHHHHAHhh(1204Q SHOULDNT 22Q MEMB) (1244Q TEXT 1217Q TEXT 1113Q ELLIPSE 1105Q ELLIPSE 1023Q CIRCLE 1015Q CIRCLE 745Q OPENCURVE 736Q OPENCURVE 674Q CLOSEDCURVE 666Q CLOSEDCURVE 615Q CLOSEDWIRE 606Q CLOSEDWIRE 455Q TEXTBOX 447Q TEXTBOX 336Q ARC 327Q ARC 254Q BOX 246Q BOX 234Q 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 7 INITSCALE P 6 NEWELT P 5 NEWBRUSH P 4 BRUSH P 3 TYPE P 2 GLINELT P 1 SIZE P 0 SCALE I 2 SKW I 1 HOW I 0 ELTWITHLINE) gB q@[o ´‚±O@ºKdgð”¿J°,gð•J°!Kdgð˜¿JŽgð¨Kdgð²¿J¼Kdgð²¿J±†gð²åJ°âgð˜J°mKdgð›¿J°Zgð–J°NKdgð™¿J°=gð—J°0Kdgð™¿J°gð—JKgð–J‚_¿jAdd¥d¡–HÖO×°%gð²LHO× ÔYjó‘I‹L‡LHO×ÔYó’±:LILL½Kdgð²,¿gJMJJJJ±ñgð²+gJMJJJJ±ÂKdgð²L¿gJJMJJJJJJ±pgð²fB ¿gJJJJJJJMJJJ±Kdgð²,¿gJMJJJJ±Ôgð²"gJMJJJ±®Kdgð²+¿gJMJJJJ°|gð²3gJJMJJJJ°EKgð²;gJJJJMJJJ‚¾@Nhh(1533Q SHOULDNT 770Q SKED.CLEAR.SELECTION 423Q MINUS 353Q SHOULDNT 22Q MEMB 3 WINDOW.SCALE) (1442Q ELLIPSE 1434Q ELLIPSE 1352Q CIRCLE 1344Q CIRCLE 1274Q OPENCURVE 1265Q OPENCURVE 1223Q CLOSEDCURVE 1215Q CLOSEDCURVE 1144Q CLOSEDWIRE 1135Q CLOSEDWIRE 774Q TEXTBOX 761Q TEXTBOX 650Q ARC 641Q ARC 566Q BOX 560Q BOX 507Q WIRE 500Q WIRE 406Q SMALLER 337Q CLOSEDWIRE 321Q WIRE 302Q ARC 263Q BOX 244Q OPENCURVE 226Q TEXTBOX 205Q ELLIPSE 165Q CIRCLE 153Q ARC 133Q CLOSEDCURVE 115Q BOX 106Q CLOSEDCURVE 70Q TEXTBOX 53Q ELLIPSE 41Q CIRCLE) ( 17Q (WIRE BOX CLOSEDWIRE CLOSEDCURVE OPENCURVE CIRCLE ELLIPSE TEXTBOX ARC)) SK.CHANGE.ANGLE D1 (P 6 CENTERY 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) ¢p@gð´‚±’@X[½K¾H¼H—KL AÕ†KL AÔ¹KL º@gHHHHHHMJI ÖÔ NJI ÖÔ HHh(176Q FIXR 171Q SIN 163Q FIXR 156Q COS 101Q DISTANCEBETWEEN 71Q SK.COMPUTE.SLOPE.OF.LINE 61Q SK.COMPUTE.SLOPE.OF.LINE) (107Q ARC 11Q ARC) () SK.CHANGE.ARC.DIRECTION D1 (L (2 SKW 1 HOW 0 ELTWITHARC)) y @gð´l@X¹Adgð“¿I™Agð´MI´J@gHHHHHHHIhðHhNIL (63Q ARC 50Q COUNTERCLOCKWISE 37Q CLOCKWISE 11Q ARC) () SK.SET.DEFAULT.BRUSH.SIZE D1 (I 1 SKW I 0 NEWBRUSHSIZE) 2@d¥d¡´%Ag Ag H@HH(32Q GETWINDOWUSERPROP 23Q GETWINDOWUSERPROP) (27Q SKETCHCONTEXT 20Q SKETCHCONTEXT) () READSIZECHANGE D1 (P 2 NEWVALUE I 1 ALLOWZEROFLG I 0 MENUTITLE) a`d@¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ Jdgð²¿ohddi ZA¦ddjð’hJ(123Q RNUMBER 73Q 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."))) KNOTS.EXPANDFN D1 (P 5 LATLONPT P 1 BRSH P 0 INDVKNOTELT I 1 SCALE I 0 GELT) †@H³%@gHHHoHX¿@H°d]A ºKµJh\J&»µëLHYdd¥d¡²¿HgIhhY¿IHAh@(176Q SCALE.BRUSH 77Q SK.SCALE.POSITION.INTO.VIEWER) (152Q ROUND 22Q CLOSEDWIRE) ( 42Q 1.0) OPEN.WIRE.DRAWFN D1 (I 3 OPERATION I 2 REG I 1 WIN I 0 OPENWIREELT) @ABCh@@ (26Q WB.DRAWLINE) NIL () OPEN.KNOTS.EXPANDFN D1 (P 5 LATLONPT P 1 TMP P 0 INDGELT I 1 SCALE I 0 GELT) ˜@H³-@gHHHHoHX¿@H°d]A ºKµJh\J&»µëLYHIAHYdd¥d¡²¿HgIhhY¿IHAh@(217Q SCALE.BRUSH 141Q SK.EXPAND.ARROWHEADS 110Q SK.SCALE.POSITION.INTO.VIEWER) (172Q ROUND 23Q WIRE) ( 51Q 1.0) 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 °%gð”°Hdgð”¿Œgð´ o Yd´HIh(177Q READ.COLOR.CHANGE 161Q READ.DASHING.CHANGE 144Q READ.ARROW.CHANGE 132Q READSIZECHANGE 113Q MENU 43Q \APPEND2 26Q SKETCHINCOLORP) (165Q BRUSHCOLOR 153Q DASHING 137Q ARROW 120Q SIZE 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 5 MENUTYPE#) ( 174Q "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) V@@@@@gHABHC HHHH@ (123Q KNOT.SET.SCALE.FIELD 54Q SK.TRANSFORM.BRUSH 44Q SK.TRANSFORM.POINT.LIST) (34Q WIRE) () 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 () SK.EXPAND.ARROWHEADS D1 (P 2 SPEC P 1 TYPE P 0 ARROWSPEC I 2 SCALE I 1 LOCALKNOTS I 0 GELT) Ÿ0@Ydgð“¿@°gð“@‡Igð´@Xd²uZ´5Idgð²¿AiJJB×°gð¦Igð´LAiJJB×HZ´5Idgð²¿AhJJB×°gð¦Igð´AhJJB×h(231Q CURVE.ARROWHEAD.POINTS 175Q WIRE.ARROWHEAD.POINTS 140Q CURVE.ARROWHEAD.POINTS 104Q WIRE.ARROWHEAD.POINTS) (210Q OPENCURVE 202Q ARC 153Q WIRE 117Q OPENCURVE 111Q ARC 62Q WIRE 34Q OPENCURVE 22Q ARC 11Q WIRE) () WIRE.INPUTFN D1 (P 6 PT P 2 KNOTS P 1 SCALE P 0 SKCONTEXT I 5 DASHING I 4 DEFSCALE I 3 BRUSH I 2 CLOSEDFLG I 1 GPTLIST I 0 W) v@g Dd¥d¡µ@ Aµ(0@ °dN@ »LµKh]K&¼µçMZCd¥d¡™gChhHE µHBI@J (163Q SK.WIRE.CREATE 157Q SK.ARROWHEAD.CREATE 140Q DASHINGP 60Q SK.MAP.INPUT.PT.TO.GLOBAL 44Q READ.LIST.OF.POINTS 27Q WINDOW.SCALE 6 GETWINDOWUSERPROP) (123Q ROUND 3 SKETCHCONTEXT) () CLOSEDWIRE.REGIONFN D1 (I 0 KNOTSCRELT) @ @l×lØ (24Q INCREASEREGION 5 REGION.CONTAINING.PTS) NIL () SK.WIRE.CREATE D1 (I 5 ARROWHEADS I 4 SCALE I 3 CLOSED I 2 DASHING I 1 BRUSH I 0 KNOTS) -@´*hddhC™g@ABDhŠg@AEBDhh (52Q KNOT.SET.SCALE.FIELD) (30Q WIRE 16Q 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 3 TYPECHANGE P 2 LENGTHCHANGE P 1 ANGLECHANGE P 0 WHICHEND) \Pd²S``ð”`°=`do¿do¿di¿dg ¿dg¿jdnÿdh¼dL ¿ d’h(124Q MENU 5 READ.ARROWHEAD.END) (121Q SK.ARROW.EDIT.MENU 72Q DEFAULTMENUHELDFN 63Q CLRPROMPT 31Q MENUTYPE# 24Q SK.ARROW.EDIT.MENU 17Q MENUTYPE# 13Q SK.ARROW.EDIT.MENU) ( 47Q ((Add% Arrow (QUOTE ADD) "Adds an arrow head.") ("Remove Arrow" (QUOTE DELETE) "Removes the arrow head.") (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.") (V% shape (QUOTE OPEN) "Makes the head be the side lines only.") (Triangle (QUOTE CLOSED) "Makes the head be two sides and a base.")) 37Q "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 () CLOSED.WIRE.INPUTFN D1 (I 1 PTLIST I 0 W) @Ai(5 WIRE.INPUTFN) NIL () CLOSED.WIRE.DRAWFN D1 (P 1 LOCALPART P 0 GINDVELT I 3 OPERATION I 2 REG I 1 WIN I 0 CLOSEDWIREELT) 3@@HIHA¿@ABCiHI h(57Q WB.DRAWLINE 35Q FILLPOLYGON) NIL () CLOSEDWIRE.READCHANGEFN D1 (P 1 HOW P 0 ASPECT I 1 SCRNELTS I 0 SKW F 4 FILLPOLYGONFLG) ²@`di¿do¿´oT´oo ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ Xdgðš¿oi °Agð”°7Hdgð•¿°*gð”° Hdgð˜¿o gð´ oi Yd´HIh(246Q READ.COLOR.CHANGE 227Q READ.COLOR.CHANGE 206Q READBRUSHSHAPE 174Q READ.DASHING.CHANGE 157Q READ.FILLING.CHANGE 145Q READSIZECHANGE 125Q MENU 55Q \APPEND2 52Q \APPEND2 26Q SKETCHINCOLORP) (233Q FILLINGCOLOR 215Q BRUSHCOLOR 201Q SHAPE 166Q DASHING 152Q FILLING 132Q SIZE 76Q DEFAULTMENUHELDFN 67Q CLRPROMPT 5 MENUTYPE#) ( 242Q "Change filling color how?" 224Q "Change outline color how?" 141Q "Change size how?" 47Q ((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.")) 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) M@@@@@gHABHC HHH@ (112Q 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) \@H@RJµ…¾IµKHHiH _¿NA –OB O½LµMh\»JºI¹°¼M&¼°õ(101Q PTPLUS 72Q MEMBER 60Q SK.WIRE.CREATE) 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ð²¿@P@Ô@@gð²@@PÕ@@Adgð²¿@@QBÖ@Ô@gð²@@@QBÖÕB @Adgð²¿g@@@gð²g@@@@(203Q MAX 17Q SK.CREATE.ARROWHEAD) (257Q CLOSEDLINE 251Q CLOSED 227Q LINE 220Q OPEN 157Q SMALLER 123Q LARGER 70Q NARROWER 36Q WIDER 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 WINDOW.SCALE) (15Q SKETCHCONTEXT) () SK.CHANGE.ARROWHEAD1 D1 (P 15Q END P 14Q NEWARROW P 13Q 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) n`@\o ´‚±Z@XLdgð“¿dŠgð”H€HµoZLgð²HHh‚H]oJb Oµ‡_¿Nµ@OYK´‚±ø@Ldgð²p¿gHHIHHH±Â_¿AOM˜OBCDO_Oô¡i»O_¿OµOh__¿O_¿N¾±ÿzO&_¿°îgð²GgHHHHHIHHH°1Lgð²'gHHHIHH‚h(550Q SHOULDNT 275Q CHANGED.ARROW 264Q SK.ARROWHEAD.END.TEST 16Q MEMB) (503Q OPENCURVE 475Q OPENCURVE 367Q ARC 361Q ARC 204Q WIRE 175Q WIRE 75Q ARC 46Q ARC 35Q OPENCURVE) ( 131Q (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 WINDOW.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 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 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 4 DY I 3 DX I 2 HEAD.LENGTH I 1 HEAD.ANGLE I 0 HEAD.POSITION) w° @X@YCdÖDdÖÔ [CK×]DK×^A ZA \BMJÖNLÖÕÖ_BNJÖLMÖÔÖ_BMJÖNLÖÔÖ_BNJÖLMÖÕÖ_@HOÕ IOÕ HOÕ IOÕ h(157Q FIXR 150Q FIXR 140Q FIXR 131Q FIXR 44Q SIN 37Q COS 22Q SQRT) NIL () CURVE.ARROWHEAD.POINTS D1 (P 0 SLOPE I 3 HEAD.LENGTH I 2 HEAD.ANGLE I 1 BEGFLG I 0 LOCALKNOTS) /@Ahð A‘@ƒ@ BCA•H HA•H H (54Q 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 3 HEAD.LENGTH I 2 HEAD.ANGLE I 1 FIRSTFLG I 0 LOCALKNOTS) B0A—@¸@¹‡@”@ZµHBCI²HIÕ°¨J¹JX°êJ°ákI•HIÕ€j (77Q ARROWHEAD.POINTS.LIST) NIL () DRAWARROWHEADS D1 (P 3 PTS P 2 SPEC I 4 OPERATION I 3 SIZE I 2 WINDOW I 1 ARROWPTS I 0 ARROWSPECS) ^A@"Iµ…ºHµh»J²@KKhhChB ¿KKhhChB ¿Jgð²KKhhChB ¿I¹H¸°ª(123Q DRAWCURVE 70Q DRAWCURVE 46Q DRAWCURVE) (76Q CLOSEDLINE) () SK.SET.ARROWHEAD.LENGTH D1 (P 1 NEWSIZE P 0 NOWARROWHEAD I 0 W) I@g oH hddi Yd´djñ¡h@g HHIH(64Q GETWINDOWUSERPROP 43Q RNUMBER 33Q CONCAT 30Q MKSTRING 6 GETWINDOWUSERPROP) (61Q 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) I@g oH hddi Yd´djñ¡h@g HIHH(63Q GETWINDOWUSERPROP 42Q RNUMBER 32Q CONCAT 27Q MKSTRING 6 GETWINDOWUSERPROP) (60Q 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 0 W) \`do¿dg ¿dg¿jdnÿdhHdI ¿ !J´$@g [K¼JLLL(76Q GETWINDOWUSERPROP 61Q MENU) (73Q SKETCHCONTEXT 26Q DEFAULTMENUHELDFN 17Q CLRPROMPT 2 MENUTYPE#) ( 10Q ((V% shape (QUOTE LINE) "arrowhead consists of two line segments.") (Triangle (QUOTE CLOSEDLINE) "arrowhead consists of a triangle."))) 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 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 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)) 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 5 VAL P 4 FIRSTTEXTELT P 3 NEWSIZE P 2 COMMAND I 2 INTEXTBOXFLG I 1 SCRNELTS I 0 SKW) `do¿´oA ‘hƒoB¬g ´o€ho HdI¿di¿dg ¿dg¿jdnÿdhHdI ¿ QJ¡h@ Jdgð—¿A@ °pgð²@o ]´_A@M°WJdgð²3¿A^¿Nd§d²E°@¥N_¿h†N_¿N¾Odo ³Ú°Ôgð˜@o Jgð²o ]d´JMhgJh(371Q READ.COLOR.CHANGE 352Q SK.READFONTFAMILY 331Q MEMB 242Q \SK.READ.FONT.SIZE1 231Q SK.READFONTFAMILY 211Q \SK.READ.FONT.SIZE1 174Q SKED.CLEAR.SELECTION 161Q MENU 74Q \APPEND2 71Q \APPEND2 66Q \APPEND2 47Q SKETCH.ELEMENT.TYPEP 30Q SCREENELEMENTP 16Q SKETCHINCOLORP) (406Q TEXT 357Q BRUSHCOLOR 340Q NEWFONT 251Q SAME 216Q FAMILY&SIZE 201Q SETSIZE 126Q DEFAULTMENUHELDFN 117Q CLRPROMPT 44Q TEXTBOX 2 MENUTYPE#) ( 366Q "Change text color how?" 347Q "New font family?" 326Q (TEXTBOX TEXT) 226Q "New font family?" 63Q (("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.")) 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 2 NOWFONT P 1 NEWSIZE P 0 FIRSTTEXTELT I 2 NEWFONT I 1 SKETCHW I 0 SELECTEDELTS) «P@[¿Kd£d³ £K¼h„K¼K»Ldo ³ã°ÝXdZAo@ ”oƒooJg hBµ Jg Yd¥A hBµ Jg IJg hdi b³ABµ Jg IohA B (250Q FONTNAMELIST 244Q CLOSE.PROMPT.WINDOW 236Q STATUSPRINT 226Q FONTPROP 207Q FONTCREATE 200Q FONTPROP 170Q FONTPROP 154Q CLOSE.PROMPT.WINDOW 145Q SK.READFONTSIZE 142Q FONTPROP 127Q STATUSPRINT 123Q FONTPROP 76Q SCREENELEMENTP 45Q MEMB) (223Q FAMILY 175Q FACE 165Q FAMILY 137Q FAMILY 120Q SIZE) ( 233Q " 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 6 FAMILY P 5 KNOWNFAMILIES P 4 X I 1 TITLE I 0 SKW F 12Q \FONTSINCORE) ¹ 0`d¸IµHhZH&¹µïJWAHµeI A M²y`oM _¿dO¿Aµo_¿dO¿di¿dg ¿dg¿jdnÿdh_¿dO ¿ ^gð³#N\mÿ)lDðªL»JµKhZ¹HX°‚K&º°ø ¿oi (265Q SK.READFONTFAMILYA0010 254Q TTY.PROCESS 251Q THIS.PROCESS 176Q MENU 73Q \APPEND2 51Q UNION) (202Q OTHER 144Q DEFAULTMENUHELDFN 135Q CLRPROMPT 62Q MENUTYPE# 5 \FONTSONFILE) ( 261Q (SK.READFONTFAMILYA0010) 113Q "Choose font" 67Q (("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 (37Q TEXT.DRAWFN1) NIL () TEXT.DRAWFN1 D1 (P 7 MIDHGHT P 6 REGION P 4 CHARS P 3 REGION P 0 DESCENT I 4 SKWINDOW I 3 COLOR I 2 FONT I 1 REGIONS I 0 STRS) ÙC™•CD ¿Bd¢±– ²MBD ¿hD b ¸@A"Jµ…»Iµg D ¿°`¼KKHÔD¿LD ¿JºI¹°ÍD gð²2A°+dhddDKKKKkØlÛgh` µÖ‡A!Mµh^NNkØlÛÔ_NNkÙØONhD ¿M]°Î(321Q DRAWLINE 230Q BITBLT 150Q IMAGESTREAMTYPE 133Q PRIN3 125Q MOVETO 105Q DSPFONT 101Q DEFAULTFONT 51Q FONTDESCENT 44Q DSPFONT 36Q DSPFONT 27Q FONTP 12Q DSPCOLOR 4 SKETCHINCOLORP) (224Q INDICATE.TEXT.SHADE 220Q TEXTURE 153Q DISPLAY 76Q DISPLAY) () TEXT.INSIDEFN D1 (P 1 GREG I 1 WREG I 0 GTEXT) "@HµhYA ‘iHX°ï(30Q REGIONSINTERSECTP) NIL () TEXT.EXPANDFN D1 (P 11Q LINEREGIONS P 10Q IMAGESTREAM P 7 CANONICALWIDTH P 6 STYLE P 5 GFONTDESC P 4 GFONT P 3 LOCALFONT P 2 TEXTPOS P 1 CANONICALTESTSTR P 0 GTEXT I 2 STREAM I 1 SCALE I 0 GTEXTPART) ¶ @o‚ H^«Ho^¿H\ ]B µB É_AoôšMhddB °9ILLh HÖAhB Ö× _IOL[ ›KgL»HHA ZHKMNAO _JhOKHh@(240Q SK.TEXT.LINE.REGIONS 215Q SK.SCALE.POSITION.INTO.VIEWER 201Q FONTCOPY 165Q FONTP 161Q SK.PICK.FONT 147Q FIXR 142Q DSPSCALE 126Q STRINGWIDTH 110Q FONTCREATE 64Q \INSUREWINDOW 56Q STREAMP 51Q FONTCREATE) (172Q FACE) ( 75Q 1.0 33Q (CENTER CENTER) 6 "AWIaiw") SK.TEXT.LINE.REGIONS D1 (P 3 GREG I 7 IMAGESTREAM I 6 SCALE I 5 STYLE I 4 GLOBALFONT I 3 LOCALFONT I 2 GREGIONS I 1 TEXTPOS I 0 LISTOFTEXT) iC ².@AGg ™CG ¿G€CEBF×@ Ö @B°-d[F× KF× KF× k¸IµHhZH&¹µÔJ(125Q CREATEREGION 121Q FIXR 110Q FIXR 100Q FIXR 60Q LTEXT.LINE.REGIONS 54Q FIXR 50Q LENGTH 26Q DSPFONT 17Q IMAGESTREAMTYPEP 3 FONTP) (14Q HARDCOPY) () SK.PICK.FONT D1 (P 4 FONT P 2 DEVICE P 1 LASTSIZE P 0 LASTFONT I 3 FAMILY I 2 STREAM I 1 STRING I 0 WID) f0B Z¡JgJ ”B ‚gZCJ KµH™I@oÖó²)g¼ALXgg Y@ó¨LgJK[°ÌHgJ(143Q FONTCOPY 125Q FONTCOPY 111Q STRINGWIDTH 106Q FONTCOPY 41Q SK.DECREASING.FONT.LIST 27Q HARDCOPYSTREAMTYPE 22Q MEMB 6 IMAGESTREAMTYPE) (137Q DEVICE 121Q DEVICE 103Q DISPLAY 100Q DEVICE 67Q SHADE 33Q DISPLAY 16Q HARDCOPY) ( 60Q 1.5) SK.NEXTSIZEFONT D1 (P 5 FONT P 3 FONTTAIL P 1 DECREASEFONTLST P 0 NOWSIZE I 1 NOWFONT I 0 WHICHDIR) _A Ag @gð²-HI ýñ´,IJ[µhŸHK ýñ¥K K°æILµh] Hýó”M L\°ê(127Q FONTNAMELIST 117Q FONTHEIGHT 73Q FONTNAMELIST 63Q FONTHEIGHT 33Q FONTHEIGHT 13Q SK.DECREASING.FONT.LIST 3 FONTHEIGHT) (22Q LARGER 10Q DISPLAY) () SK.DECREASING.FONT.LIST D1 (P 3 FONT I 1 DEVICETYPE I 0 FAMILY) ‘@µg‡gð•gb¿Adgð²&¿@dgð•¿g°=gð”g°3@gð²/g°'gð²$@dgð•¿g°gð“gˆ@gð•gb¿0@A °dKgA¸IµHhZH&¹µäJ(174Q FONTCOPY 155Q SK.GUESS.FONTSAVAILABLE) (170Q DEVICE 142Q TERMINAL 135Q GACHA 130Q CLASSIC 123Q TIMESROMAN 116Q MODERN 110Q HELVETICA 100Q INTERPRESS 73Q GACHA 65Q TERMINAL 57Q TIMESROMAN 52Q CLASSIC 45Q HELVETICA 37Q MODERN 26Q PRESS 16Q TIMESROMAN 11Q TIMESROMAND 5 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) 6 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(460Q \NCONC2 420Q ASSOC 405Q SORT 377Q INTERSECTION 305Q LAST 211Q FONTCREATE 154Q UNION 63Q FONTSAVAILABLE 20Q FONTSAVAILABLE) (445Q \FONTSONFILE 441Q \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 6 RESETSTATE P 5 MACROY P 3 OLDVALUE P 2 DISPLAYFONTSIZES P 1 CACHE P 0 FILEFONTS I 1 HDCPYTYPE I 0 FAMILY F 7 RESETVARSLST F 10Q STREAM) †0Aµ°gA •W €Abd@` XµV` 1gKhhWc¼og £g¾Lc¿gL ¿N“¿@ghdA H g ¸°è(177Q SORT 171Q UNION 165Q FONTSAVAILABLE 150Q ERROR! 142Q APPLY 116Q SK.GUESS.FONTSAVAILABLEA0001 62Q CURSOR 51Q ASSOC 45Q ASSOC 31Q HARDCOPYSTREAMTYPE 23Q MEMB 10Q PRINTERTYPE) (174Q SK.GUESS.FONTSAVAILABLEA0003 156Q * 133Q CURSOR 122Q ERROR 113Q INTERNAL 70Q CURSOR 57Q WAITINGCURSOR 42Q \FONTSONFILE 17Q HARDCOPY) ( 110Q (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 12Q CHARS P 6 Y P 4 LINEWIDTH P 3 HEIGHT P 2 TEXTYPOS P 1 TEXTXPOS P 0 FONT I 4 TOTALHEIGHT I 3 STYLE I 2 FONT I 1 LPOSITION I 0 LINES) ÆBd²f AA#HÈ[@JCdgðŸ¿DKÙlÛHÈÙ°0dgð˜¿DlÛKÙ°!dgð•¿kKÙ°gð“DKÙ‰oC ØB MµO_H Omÿ)l ð–l H €jÕ¼Cdgð–¿ILlÛˆgð‘I‚ILÙNLK_¿OµOh__¿M½NjKÙÔ¾°§O&_¿°ï(241Q CREATEREGION 176Q CHARWIDTH 157Q STRINGWIDTH 135Q ERROR 6 FONTCREATE) (224Q LEFT 210Q CENTER 115Q BOTTOM 102Q TOP 63Q CENTER 52Q FONTDESCRIPTOR 35Q BASELINE 21Q FONTDESCRIPTOR) ( 127Q "illegal vertical text style") 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 HKA (242Q CREATE.TEXT.ELEMENT 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 WINDOW.SCALE) (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 4 FONT I 3 JUSTIFICATION I 2 SCALE I 1 GPOSITION I 0 STRLST) %hddhgA@BCDhdh h (42Q TEXT.SET.SCALES 34Q TEXT.SET.GLOBAL.REGIONS) (11Q TEXT) () SK.TEXT.FROM.TEXTBOX D1 (P 3 REGION P 2 BRUSH P 1 TEXTSTYLE P 0 INDTEXTBOXELT I 1 SKW I 0 TEXTBOXELT) @1HYgH [H Idgð”¿K°gð™KKkÙØ‰KKl×ÔIdgð¿KKkÙØ°gð“K‹KKl×ÔA HIH (212Q CREATE.TEXT.ELEMENT 171Q MAP.GLOBAL.PT.ONTO.GRID 42Q ADD.EOLS 32Q APPLY) (142Q BOTTOM 117Q TOP 62Q RIGHT 50Q LEFT 17Q 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(26Q 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) ,@HHABHCêHH (51Q 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ô´wHIô´nHIô´aH I ô´PHIô´;@ºAB [JKJL M ð³#@B ¿KBhB KL¼M½N¾O_¿LµM²ëLMô—NOô³ßOOnÿÿgB¿Ld²ËhNhJIB ¿°®(364Q TEXT.DRAWFN1 326Q DSPFILL 241Q SK.DRAWFIGURE 236Q WINDOW.SCALE 226Q SK.ERASE.ELT 216Q LENGTH 212Q LENGTH 161Q SK.ADD.ITEM 121Q LENGTH 112Q LENGTH) (322Q ERASE) () SK.CHANGE.TEXT D1 (P 13Q COMMAND P 12Q NEWTHING P 11Q GTYPE P 10Q OLDFACE P 7 OLDFONT P 6 NOWFONT P 5 FIRSTTEXTELT P 4 NEWGTEXT P 3 GINDTEXTELT P 2 NEWSIZE P 1 NEWFONT P 0 COMMAND I 2 SKW I 1 HOW I 0 ELTWITHTEXT) A±A¡hB @_o ´‚±Ö@»Adgð¢±È¿Hdgð¨dgð¢±®K_g Og h YµKHgð¢±Ío±Êg Ig Og h_¿Ogð²>gKKKKOKKK±¯gKKKKOKKKKKK±Loê_¿Ogð²@gKKOKKKKK±þgKKOKKKKKKKK±™gð³Hdgðªdgð¢±¼¿HKh_¿Ogð²?gKKKOKKKK±.gKKKOKKKKKKK±Êgð³Hgð³HgðªHdgð¢±Å¿KHdgð“¿gh_¿Ogð²?gKKKOKKKK±OgKKKOKKKKKKK±ëgð³Hgð³HgðªHdgð¢±¿K_g _¿Og Og Hdgð”¿g‹gð“g‚OHdgð”¿gŒgð“gƒOOhh_¿Ogð²>gKKKKOKKK±&gKKKKOKKKKKK±Ãgð²Ogð´‚±±@B Hgð¢±ŸOgð´‚±–@B dgð¢±Ç¿HYg Kg ð¢±¨Ogð²=gKKKKIKKK±)gKKKKIKKKKKK±ÇK±Ãdgð¢±é¿HK_g Og hYhdddi ³BoIoI ´‚±úOgð²=gKKKKIKKK±6gKKKKIKKKKKK±Ôdgð¢±½¿HHKg h¹Ogð²KHO ÖÔ LHO ÖÔ _¿OµOh__¿ON_è_¿°—O&_¿°ïO(316Q FIXR 311Q SIN 302Q FIXR 275Q COS 264Q FGTP 223Q \FZEROP 136Q ABS 100Q ABS 16Q SK.COMPUTE.SLOPE.OF.LINE 11Q SK.COMPUTE.SLOPE.OF.LINE 4 DISTANCEBETWEEN) NIL ( 257Q 5.0 242Q 5.0 171Q 5.0 124Q 6.3 117Q 360.0 72Q 10.0 55Q 360.0 41Q 360.0) SK.SET.ARC.DIRECTION D1 (P 0 LOCALNEWDIR I 1 NEWDIR I 0 SKW) )Aµ o H´@g Hgð(26Q GETWINDOWUSERPROP 11Q READARCDIRECTION) (43Q CLOCKWISE 23Q SKETCHCONTEXT) ( 6 "Which way should new arcs go?") SK.SET.ARC.DIRECTION.CW D1 (I 0 SKW) @g (6 SK.SET.ARC.DIRECTION) (3 CLOCKWISE) () SK.SET.ARC.DIRECTION.CCW D1 (I 0 SKW) @g (6 SK.SET.ARC.DIRECTION) (3 COUNTERCLOCKWISE) () SK.COMPUTE.SLOPE.OF.LINE D1 (I 1 PT2 I 0 PT1) A@ÕA@Õ (14Q SK.COMPUTE.SLOPE) NIL () SK.CREATE.ARC.USING D1 (I 3 INDVARCELT I 2 ANGLEPT I 1 RADPT I 0 CENTERPT) Qhddhg@ACCCC@ABCCh (116Q SET.ARC.SCALES 53Q SK.COMPUTE.ARC.ANGLE.PT) (11Q ARC) () SET.ARC.SCALES D1 (I 0 GARCELT) "@@ @H@Ho×@(15Q DISTANCEBETWEEN) NIL ( 34Q 3000.0) BITMAPELT.DRAWFN D1 (P 0 LOCALBMELT I 1 WINDOW I 0 BITMAPELT) @HjdAHH (26Q BITBLT) NIL () BITMAPELT.EXPANDFN D1 (I 2 STREAM I 1 SCALE I 0 GBITMAPELT) @A h@A@× h@(26Q SCALEBITMAP 7 UNSCALE.POSITION) NIL () IMAGE.INSIDEFN D1 (I 1 WREG I 0 GIMAGE) A@ (5 INSIDEP) NIL () DUMMYFILLPOLYGON D1 (L (2 STREAM 1 TEXTURE 0 KNOTS)) hNIL 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) (COMS (* color stuff) (FNS SKETCHINCOLORP READ.COLOR.CHANGE) (INITVARS (SKETCHINCOLORFLG) (FILLPOLYGONFLG)) (VARS (SK.DEFAULT.BACKCOLOR)) (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 coor loaded. Should be removed after J release.) (FNS \POSSIBLECOLOR RGBP HLSP)) (COMS (FNS CIRCLE.EXPANDFN CIRCLE.DRAWFN CIRCLE.INPUTFN CIRCLE.INSIDEFN CIRCLE.REGIONFN CIRCLE.TRANSLATE CIRCLE.TRANSFORMFN CIRCLE.TRANSLATEPTS SK.CIRCLE.CREATE SET.CIRCLE.SCALE SK.BRUSH.READCHANGE) (RECORDS BRUSH) (DECLARE: DONTCOPY (RECORDS LOCALCIRCLE CIRCLE)) (UGLYVARS CIRCLEICON) (CURSORS CIRCLE.CENTER CIRCLE.EDGE) (VARS SKETCHELEMENTSCOMS (SK.DEFAULT.BRUSH (create BRUSH BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1 BRUSHCOLOR _ BLACKCOLOR)) (SK.DEFAULT.DASHING) (SK.DEFAULT.TEXTURE)) (GLOBALVARS SK.DEFAULT.BRUSH SK.DEFAULT.DASHING)) (COMS (FNS ELLIPSE.EXPANDFN ELLIPSE.DRAWFN ELLIPSE.INPUTFN ELLIPSE.INSIDEFN ELLIPSE.CREATE ELLIPSE.REGIONFN ELLIPSE.TRANSLATEFN ELLIPSE.TRANSFORMFN ELLIPSE.TRANSLATEPTS MARK.SPOT DISTANCEBETWEEN 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 KNOTS.INSIDEFN OPENCURVE.INPUTFN SK.CURVE.CREATE MAXXEXTENT MAXYEXTENT KNOT.SET.SCALE.FIELD OPENCURVE.DRAWFN OPENCURVE.EXPANDFN OPENCURVE.READCHANGEFN OPENCURVE.TRANSFORMFN OPENCURVE.TRANSLATEPTSFN CLOSEDCURVE.DRAWFN CLOSEDCURVE.EXPANDFN CLOSEDCURVE.REGIONFN READ.LIST.OF.POINTS CLOSEDCURVE.INPUTFN CLOSEDCURVE.TRANSFORMFN CLOSEDCURVE.TRANSLATEPTSFN INVISIBLEPARTP SHOWSKETCHPOINT SHOWSKETCHXY KNOTS.REGIONFN CURVE.REGIONFN 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) (DECLARE: DONTCOPY ( RECORDS KNOTELT LOCALCURVE OPENCURVE CLOSEDCURVE LOCALKNOTS)) (UGLYVARS OPENCURVEICON CLOSEDCURVEICON) (CURSORS CURVE.KNOT)) (COMS (FNS KNOTS.EXPANDFN OPEN.WIRE.DRAWFN OPEN.KNOTS.EXPANDFN OPENWIRE.READCHANGEFN OPENWIRE.TRANSFORMFN OPENWIRE.TRANSLATEPTSFN SK.EXPAND.ARROWHEADS WIRE.INPUTFN CLOSEDWIRE.REGIONFN SK.WIRE.CREATE WIRE.ADD.POINT.TO.END READ.ARROW.CHANGE CHANGE.ELTS.ARROWHEADS) ( FNS CLOSED.WIRE.INPUTFN CLOSED.WIRE.DRAWFN CLOSEDWIRE.READCHANGEFN CLOSEDWIRE.TRANSFORMFN CLOSEDWIRE.TRANSLATEPTSFN) (FNS 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.SET.ARROWHEAD.LENGTH SK.SET.ARROWHEAD.ANGLE SK.SET.ARROWHEAD.TYPE SK.SET.LINE.ARROWHEAD SK.UPDATE.ARROWHEAD.FORMAT SK.SET.LINE.LENGTH.MODE) (DECLARE: DONTCOPY (RECORDS LOCALWIRE WIRE CLOSEDWIRE LOCALCLOSEDWIRE ARROWHEAD)) (UGLYVARS WIREICON CLOSEDWIREICON) (INITVARS ( SK.ARROWHEAD.ANGLE.INCREMENT 10) (SK.ARROWHEAD.LENGTH.INCREMENT 2)) (VARS (SK.DEFAULT.ARROWHEAD (LIST (QUOTE LINE) 30.0 12))) (GLOBALVARS SK.DEFAULT.ARROWHEAD) (INITVARS (SK.ARROW.END.MENU) ( SK.ARROW.EDIT.MENU))) (COMS (* stuff to support the text element type.) (FNS 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.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.TEXT.FROM.TEXTBOX TEXT.SET.GLOBAL.REGIONS TEXT.REGIONFN TEXT.TRANSLATEFN TEXT.TRANSFORMFN TEXT.TRANSLATEPTSFN TEXT.UPDATEFN SK.CHANGE.TEXT TEXT.SET.SCALES SK.FONT.LIST) (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) (VARS INDICATE.TEXT.SHADE) ( INITVARS (SK.DEFAULT.FONT) (SK.DEFAULT.TEXT.ALIGNMENT (QUOTE (CENTER BASELINE)))) (INITVARS \FONTSONFILE) (GLOBALVARS SK.DEFAULT.TEXT.ALIGNMENT INDICATE.TEXT.SHADE \FONTSONFILE)) (COMS (* stuff for supporting the TEXTBOX sketch element.) (FNS SK.BREAK.INTO.LINES SK.BRUSH.SIZE SK.TEXTBOX.CREATE SK.TEXTBOX.CREATE1 SK.TEXTBOX.POSITION.IN.BOX TEXTBOX.CHANGEFN TEXTBOX.DRAWFN SK.TEXTURE.AROUND.REGIONS TEXTBOX.EXPANDFN TEXTBOX.INPUTFN TEXTBOX.INSIDEFN TEXTBOX.REGIONFN TEXTBOX.SET.GLOBAL.REGIONS TEXTBOX.TRANSLATEFN TEXTBOX.TRANSLATEPTSFN TEXTBOX.TRANSFORMFN TEXTBOX.UPDATEFN TEXTBOX.READCHANGEFN SK.TEXTBOX.TEXT.POSITION SK.TEXTBOX.FROM.TEXT ADD.EOLS) (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 SK.BOX.DRAWFN BOX.DRAWFN1 KNOTS.OF.REGION SK.DRAWAREABOX SK.BOX.EXPANDFN SK.BOX.GETREGIONFN BOX.SET.SCALES SK.BOX.INPUTFN SK.BOX.CREATE SK.BOX.INSIDEFN SK.BOX.REGIONFN SK.BOX.READCHANGEFN SK.CHANGE.FILLING SK.CHANGE.FILLING.COLOR SK.BOX.TRANSLATEFN SK.BOX.TRANSFORMFN SK.BOX.TRANSLATEPTSFN UNSCALE.REGION.FROM.SKETCHW 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 ARC.DRAWFN ARC.EXPANDFN ARC.INPUTFN ARC.CREATE ARC.MOVEFN ARC.TRANSLATEPTS ARC.INSIDEFN ARC.REGIONFN ARC.TRANSLATE ARC.TRANSFORMFN ARC.READCHANGEFN) (FNS SK.COMPUTE.ARC.ANGLE.PT 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) (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) (UGLYVARS ARCICON)) (COMS (* stuff to support BITMAP elements ( FILES SCALEBITMAP)) (FNS BITMAPELT.DRAWFN BITMAPELT.EXPANDFN) (DECLARE: DONTCOPY (RECORDS BITMAPELT LOCALBITMAPELT))) (COMS (FNS IMAGE.INSIDEFN) (DECLARE: DONTCOPY (RECORDS IMAGE))) (P ( INIT.SKETCH.ELEMENTS)) (COMS (* patch for FILLPOLYGON which doesn't work in Intermezzo) (FNS DUMMYFILLPOLYGON) (P (OR (GETD (QUOTE \FILLPOLYGON.DISPLAY)) (MOVD (QUOTE DUMMYFILLPOLYGON) (QUOTE FILLPOLYGON))))))) (RPAQ? SKETCHINCOLORFLG) (RPAQ? FILLPOLYGONFLG) (RPAQQ SK.DEFAULT.BACKCOLOR NIL) (RECORD SKFILLING (FILLING.TEXTURE FILLING.COLOR)) (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) 8 8)) (16 16 "@GN@" "AOOH" "CLCL" "G@@N" "FDBF" "NJEG" "LEJC" "LBDC" "LBDC" "LEJC" "NJEG" "FDBF" "G@@N" "CLCL" "AOOH" "@GN@") (RPAQ CIRCLE.EDGE (CURSORCREATE (READBITMAP) 15 8)) (16 16 "@@AL" "@@@L" "@@@N" "@@@F" "@@BG" "@@CC" "@@CK" "OOOO" "OOOO" "@@CK" "@@CC" "@@BG" "@@@F" "@@@N" "@@@L" "@@AL") (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) (COMS (* color stuff) (FNS SKETCHINCOLORP READ.COLOR.CHANGE) (INITVARS (SKETCHINCOLORFLG) (FILLPOLYGONFLG)) (VARS (SK.DEFAULT.BACKCOLOR)) (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 coor loaded. Should be removed after J release.) (FNS \POSSIBLECOLOR RGBP HLSP)) (COMS (FNS CIRCLE.EXPANDFN CIRCLE.DRAWFN CIRCLE.INPUTFN CIRCLE.INSIDEFN CIRCLE.REGIONFN CIRCLE.TRANSLATE CIRCLE.TRANSFORMFN CIRCLE.TRANSLATEPTS SK.CIRCLE.CREATE SET.CIRCLE.SCALE SK.BRUSH.READCHANGE) (RECORDS BRUSH) (DECLARE: DONTCOPY (RECORDS LOCALCIRCLE CIRCLE)) (UGLYVARS CIRCLEICON) (CURSORS CIRCLE.CENTER CIRCLE.EDGE) (VARS SKETCHELEMENTSCOMS (SK.DEFAULT.BRUSH (create BRUSH BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1 BRUSHCOLOR _ BLACKCOLOR)) (SK.DEFAULT.DASHING) (SK.DEFAULT.TEXTURE)) (GLOBALVARS SK.DEFAULT.BRUSH SK.DEFAULT.DASHING)) (COMS (FNS ELLIPSE.EXPANDFN ELLIPSE.DRAWFN ELLIPSE.INPUTFN ELLIPSE.INSIDEFN ELLIPSE.CREATE ELLIPSE.REGIONFN ELLIPSE.TRANSLATEFN ELLIPSE.TRANSFORMFN ELLIPSE.TRANSLATEPTS MARK.SPOT DISTANCEBETWEEN 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 KNOTS.INSIDEFN OPENCURVE.INPUTFN SK.CURVE.CREATE MAXXEXTENT MAXYEXTENT KNOT.SET.SCALE.FIELD OPENCURVE.DRAWFN OPENCURVE.EXPANDFN OPENCURVE.READCHANGEFN OPENCURVE.TRANSFORMFN OPENCURVE.TRANSLATEPTSFN CLOSEDCURVE.DRAWFN CLOSEDCURVE.EXPANDFN CLOSEDCURVE.REGIONFN READ.LIST.OF.POINTS CLOSEDCURVE.INPUTFN CLOSEDCURVE.TRANSFORMFN CLOSEDCURVE.TRANSLATEPTSFN INVISIBLEPARTP SHOWSKETCHPOINT SHOWSKETCHXY KNOTS.REGIONFN CURVE.REGIONFN 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) (DECLARE: DONTCOPY ( RECORDS KNOTELT LOCALCURVE OPENCURVE CLOSEDCURVE LOCALKNOTS)) (UGLYVARS OPENCURVEICON CLOSEDCURVEICON) (CURSORS CURVE.KNOT)) (COMS (FNS KNOTS.EXPANDFN OPEN.WIRE.DRAWFN OPEN.KNOTS.EXPANDFN OPENWIRE.READCHANGEFN OPENWIRE.TRANSFORMFN OPENWIRE.TRANSLATEPTSFN SK.EXPAND.ARROWHEADS WIRE.INPUTFN CLOSEDWIRE.REGIONFN SK.WIRE.CREATE WIRE.ADD.POINT.TO.END READ.ARROW.CHANGE CHANGE.ELTS.ARROWHEADS) ( FNS CLOSED.WIRE.INPUTFN CLOSED.WIRE.DRAWFN CLOSEDWIRE.READCHANGEFN CLOSEDWIRE.TRANSFORMFN CLOSEDWIRE.TRANSLATEPTSFN) (FNS 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.SET.ARROWHEAD.LENGTH SK.SET.ARROWHEAD.ANGLE SK.SET.ARROWHEAD.TYPE SK.SET.LINE.ARROWHEAD SK.UPDATE.ARROWHEAD.FORMAT SK.SET.LINE.LENGTH.MODE) (DECLARE: DONTCOPY (RECORDS LOCALWIRE WIRE CLOSEDWIRE LOCALCLOSEDWIRE ARROWHEAD)) (UGLYVARS WIREICON CLOSEDWIREICON) (INITVARS ( SK.ARROWHEAD.ANGLE.INCREMENT 10) (SK.ARROWHEAD.LENGTH.INCREMENT 2)) (VARS (SK.DEFAULT.ARROWHEAD (LIST (QUOTE LINE) 30.0 12))) (GLOBALVARS SK.DEFAULT.ARROWHEAD) (INITVARS (SK.ARROW.END.MENU) ( SK.ARROW.EDIT.MENU))) (COMS (* stuff to support the text element type.) (FNS 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.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.TEXT.FROM.TEXTBOX TEXT.SET.GLOBAL.REGIONS TEXT.REGIONFN TEXT.TRANSLATEFN TEXT.TRANSFORMFN TEXT.TRANSLATEPTSFN TEXT.UPDATEFN SK.CHANGE.TEXT TEXT.SET.SCALES SK.FONT.LIST) (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) (VARS INDICATE.TEXT.SHADE) ( INITVARS (SK.DEFAULT.FONT) (SK.DEFAULT.TEXT.ALIGNMENT (QUOTE (CENTER BASELINE)))) (INITVARS \FONTSONFILE) (GLOBALVARS SK.DEFAULT.TEXT.ALIGNMENT INDICATE.TEXT.SHADE \FONTSONFILE)) (COMS (* stuff for supporting the TEXTBOX sketch element.) (FNS SK.BREAK.INTO.LINES SK.BRUSH.SIZE SK.TEXTBOX.CREATE SK.TEXTBOX.CREATE1 SK.TEXTBOX.POSITION.IN.BOX TEXTBOX.CHANGEFN TEXTBOX.DRAWFN SK.TEXTURE.AROUND.REGIONS TEXTBOX.EXPANDFN TEXTBOX.INPUTFN TEXTBOX.INSIDEFN TEXTBOX.REGIONFN TEXTBOX.SET.GLOBAL.REGIONS TEXTBOX.TRANSLATEFN TEXTBOX.TRANSLATEPTSFN TEXTBOX.TRANSFORMFN TEXTBOX.UPDATEFN TEXTBOX.READCHANGEFN SK.TEXTBOX.TEXT.POSITION SK.TEXTBOX.FROM.TEXT ADD.EOLS) (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 SK.BOX.DRAWFN BOX.DRAWFN1 KNOTS.OF.REGION SK.DRAWAREABOX SK.BOX.EXPANDFN SK.BOX.GETREGIONFN BOX.SET.SCALES SK.BOX.INPUTFN SK.BOX.CREATE SK.BOX.INSIDEFN SK.BOX.REGIONFN SK.BOX.READCHANGEFN SK.CHANGE.FILLING SK.CHANGE.FILLING.COLOR SK.BOX.TRANSLATEFN SK.BOX.TRANSFORMFN SK.BOX.TRANSLATEPTSFN UNSCALE.REGION.FROM.SKETCHW 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 ARC.DRAWFN ARC.EXPANDFN ARC.INPUTFN ARC.CREATE ARC.MOVEFN ARC.TRANSLATEPTS ARC.INSIDEFN ARC.REGIONFN ARC.TRANSLATE ARC.TRANSFORMFN ARC.READCHANGEFN) (FNS SK.COMPUTE.ARC.ANGLE.PT 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) (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) (UGLYVARS ARCICON)) (COMS (* stuff to support BITMAP elements ( FILES SCALEBITMAP)) (FNS BITMAPELT.DRAWFN BITMAPELT.EXPANDFN) (DECLARE: DONTCOPY (RECORDS BITMAPELT LOCALBITMAPELT))) (COMS (FNS IMAGE.INSIDEFN) (DECLARE: DONTCOPY (RECORDS IMAGE))) (P ( INIT.SKETCH.ELEMENTS)) (COMS (* patch for FILLPOLYGON which doesn't work in Intermezzo) (FNS DUMMYFILLPOLYGON) (P (OR (GETD (QUOTE \FILLPOLYGON.DISPLAY)) (MOVD (QUOTE DUMMYFILLPOLYGON) (QUOTE FILLPOLYGON))))))) (RPAQ SK.DEFAULT.BRUSH (create BRUSH BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1 BRUSHCOLOR _ BLACKCOLOR) ) (RPAQQ SK.DEFAULT.DASHING NIL) (RPAQQ SK.DEFAULT.TEXTURE NIL) (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) 8 8)) (16 16 "@GN@" "AOOH" "CLCL" "G@@N" "FDBF" "NJEG" "LEJC" "LBDC" "LBDC" "LEJC" "NJEG" "FDBF" "G@@N" "CLCL" "AOOH" "@GN@") (RPAQ ELLIPSE.SEMI.MAJOR (CURSORCREATE (READBITMAP) 15 8)) (16 16 "@@AL" "@@@L" "@@@N" "@@@F" "@@BG" "@@CC" "@@CK" "OOOO" "OOOO" "@@CK" "@@CC" "@@BG" "@@@F" "@@@N" "@@@L" "@@AL") (RPAQ ELLIPSE.SEMI.MINOR (CURSORCREATE (READBITMAP) 8 15)) (16 16 "@OO@" "COOL" "OIIO" "NCLG" "HGNA" "@OO@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@") (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) 8 8)) (16 16 "@GN@" "AOOH" "CLCL" "G@@N" "FDBF" "NJEG" "LEJC" "LBDC" "LBDC" "LEJC" "NJEG" "FDBF" "G@@N" "CLCL" "AOOH" "@GN@") (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 10) (RPAQ? SK.ARROWHEAD.LENGTH.INCREMENT 2) (RPAQ SK.DEFAULT.ARROWHEAD (LIST (QUOTE LINE) 30.0 12)) (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) (RECORD LOCALTEXTBOX ((TEXTBOXLL TEXTBOXUR) LINEREGIONS LOCALFONT LOCALLISTOFCHARACTERS LOCALTEXTBOXREGION LOCALTEXTBOXBRUSH)) (TYPERECORD TEXTBOX (TEXTBOXREGION LISTOFCHARACTERS INITIALSCALE TEXTSTYLE FONT LISTOFREGIONS TEXTCOLOR TEXTBOXBRUSH TEXTBOXDASHING TEXTBOXFILLING)) (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 8)) (16 16 "@@AL" "@@@L" "@@@N" "@@@F" "@@BG" "@@CC" "@@CK" "OOOO" "OOOO" "@@CH" "@@C@" "@@B@" "@@@@" "@@@@" "@@@@" "@@@@") (RPAQ ARC.ANGLE.CURSOR (CURSORCREATE (READBITMAP) 8 15)) (16 16 "@AO@" "@AOL" "@AIO" "@CLG" "@GNA" "@OO@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@" "@AH@") (READVARS ARCICON) ({ (READBITMAP) (20 12 "@AOH@@@@" "@COL@@@@" "@G@N@@@@" "@F@F@@@@" "@N@G@@@@" "@L@C@@@@" "@@@C@@@@" "@@@G@@@@" "@@@F@@@@" "@@@N@@@@" "@@@L@@@@" "@@@@@@@@") }) (INIT.SKETCH.ELEMENTS) (OR (GETD (QUOTE \FILLPOLYGON.DISPLAY)) (MOVD (QUOTE DUMMYFILLPOLYGON) (QUOTE FILLPOLYGON))) (PUTPROPS SKETCHELEMENTS COPYRIGHT ("Xerox Corporation" 1985)) NIL