Patch sketch code for Masterscope errors (#433)
This commit is contained in:
Larry Masinter
GitHub
parent
7b5541a417
commit
6176aa9ebf
@ -1,11 +1,9 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "14-Mar-2021 20:37:50"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;2 108832
|
||||
(FILECREATED "21-Aug-2021 20:50:04" {DSK}<home>larry>medley>library>SKETCHEDIT.;2 108762
|
||||
|
||||
changes to%: (VARS SKETCHEDITCOMS)
|
||||
changes to%: (FNS SHOW.FEEDBACK.BOX)
|
||||
|
||||
previous date%: "12-Jun-90 14:48:37"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;1)
|
||||
previous date%: "14-Mar-2021 20:37:50" {DSK}<home>larry>medley>library>SKETCHEDIT.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@ -379,21 +377,21 @@ Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation.
|
||||
NIL NIL 'INPUT 'INVERT])
|
||||
|
||||
(SHOW.FEEDBACK.BOX
|
||||
[LAMBDA (P1 P2 WINDOW) (* rrb "30-APR-83 16:23")
|
||||
[LAMBDA (P1 P2 WINDOW) (* ; "Edited 21-Aug-2021 19:08 by larry")
|
||||
(* draws a box between two points.)
|
||||
(PROG ((X1 (fetch (POSITION XCOORD) of SELECTION P1))
|
||||
(Y1 (fetch (POSITION YCOORD) of SELECTION P1))
|
||||
(X2 (fetch (POSITION XCOORD) of SELECTION P2))
|
||||
(Y2 (fetch (POSITION YCOORD) of SELECTION P2)))
|
||||
(PROG ((X1 (fetch (POSITION XCOORD) of P1))
|
||||
(Y1 (fetch (POSITION YCOORD) of P1))
|
||||
(X2 (fetch (POSITION XCOORD) of P2))
|
||||
(Y2 (fetch (POSITION YCOORD) of P2)))
|
||||
(BITBLT NIL NIL NIL WINDOW (IMIN X1 X2)
|
||||
(IMIN Y1 Y2)
|
||||
(ABS (IDIFFERENCE X1 X2))
|
||||
(ABS (IDIFFERENCE Y1 Y2))
|
||||
'TEXTURE
|
||||
'INVERT NEW.TEXT.FEEDBACK.SHADE) (* put cursor where the center would
|
||||
be.)
|
||||
be.)
|
||||
(SHOW.FEEDBACK NEW.TEXT.FEEDBACK.CURSOR (IQUOTIENT (IPLUS X1 X2)
|
||||
2)
|
||||
2)
|
||||
(IQUOTIENT (IPLUS Y1 Y2)
|
||||
2)
|
||||
WINDOW])
|
||||
@ -1919,7 +1917,7 @@ Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation.
|
||||
(WINDOWPROP SKW 'INPUTLINE NIL])
|
||||
)
|
||||
|
||||
(* Was MODERNIZE loaded before?)
|
||||
(* Was MODERNIZE loaded before?)
|
||||
|
||||
(CL:WHEN (GETD 'MODERNWINDOW.SETUP)
|
||||
(MODERNWINDOW.SETUP 'WB.BUTTON.HANDLER))
|
||||
@ -1957,26 +1955,26 @@ Copyright (c) 1983-1987, 1990, 2021 by Venue & Xerox Corporation.
|
||||
)
|
||||
(PUTPROPS SKETCHEDIT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1990 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2534 39670 (BUTLAST 2544 . 2892) (CHAR.BEGIN 2894 . 4819) (CLOSEST.CHAR 4821 . 9044) (
|
||||
CLOSEST.LINE 9046 . 9608) (FLASHW 9610 . 9767) (HILITE.LINE 9769 . 10588) (HILITE.TEXT 10590 . 12238)
|
||||
(IN.TEXT.EXTEND 12240 . 15513) (INIMAGEOBJ 15515 . 16020) (INTEXT 16022 . 16519) (NEW.TEXT.EXTEND
|
||||
16521 . 18740) (NEW.TEXT.SELECTIONP 18742 . 18922) (NTHCHARWIDTH 18924 . 19181) (NTHLOCALREGION 19183
|
||||
. 19421) (ONCHAR 19423 . 19818) (SHOW.EXTENDED.SELECTION.FEEDBACK 19820 . 20755) (SHOW.FEEDBACK 20757
|
||||
. 21247) (SHOW.FEEDBACK.BOX 21249 . 22331) (SELECTION.POSITION 22333 . 23125) (SKED.CLEAR.SELECTION
|
||||
23127 . 23650) (SKETCH.CLEANUP 23652 . 25566) (SK.ENTER.EDIT.CHANGE 25568 . 27113) (
|
||||
SKED.REMOVE.OTHER.SELECTIONS 27115 . 27542) (SKED.EXTEND.SELECTION 27544 . 29009) (SKED.MOVE.SELECTION
|
||||
29011 . 34172) (CREATE.TEXT.SELECTION 34174 . 34690) (SKED.SELECTION.FEEDBACK 34692 . 36348) (
|
||||
SKED.SET.EXTENDSELECTION 36350 . 36667) (SKED.SET.SELECTION 36669 . 37069) (LINE.BEGIN 37071 . 37625)
|
||||
(SELECTION.GREATERP 37627 . 38422) (SK.WORD.BREAK.CLASS 38424 . 39264) (SK.GETSYNTAX 39266 . 39668)) (
|
||||
40512 86246 (WB.EDITOR 40522 . 41847) (SK.TTYENTRYFN 41849 . 42127) (SK.TTYEXITFN 42129 . 42398) (
|
||||
SKED.INSERT 42400 . 42828) (\SKED.INSERT 42830 . 63952) (FIRST.N.ELEMENTS 63954 . 64221) (
|
||||
SKED.CREATE.NEW.TEXTBOX 64223 . 70752) (SKED.CHARACTERPOSITION 70754 . 71541) (SKED.LINE.AND.CHAR#
|
||||
71543 . 73174) (\SKED.DELETE.WORD.FROM.STRING 73176 . 74215) (\SKED.INSERT.CHARS.TO.STR 74217 . 82628)
|
||||
(JOINCHARS 82630 . 83017) (STRINGFROMCHARACTERS 83019 . 83344) (GETALLCHARS 83346 . 83687) (
|
||||
CLEANUP.EDIT 83689 . 84141) (SKED.NEW.TEXTELT 84143 . 86244)) (86281 107289 (
|
||||
MAP.SCREEN.POSITION.ONTO.GRID 86291 . 87740) (NEAREST.ON.GRID 87742 . 88286) (SK.MIDDLE.TITLEFN 88288
|
||||
. 90231) (WB.BUTTON.HANDLER 90233 . 98055) (WB.ADD.NEW.POINT 98057 . 101386) (WB.DRAWLINE 101388 .
|
||||
105622) (WB.RUBBERBAND.POSITION 105624 . 106541) (SK.RUBBERBAND.FEEDBACKFN 106543 . 107047) (
|
||||
RESET.LINE.BEING.INPUT 107049 . 107287)) (107471 108712 (NEAREST.EXISTING.POSITION 107481 . 107683) (
|
||||
WB.NEARPT 107685 . 108570) (LASTMOUSEPOSITION 108572 . 108710)))))
|
||||
(FILEMAP (NIL (2492 39600 (BUTLAST 2502 . 2850) (CHAR.BEGIN 2852 . 4777) (CLOSEST.CHAR 4779 . 9002) (
|
||||
CLOSEST.LINE 9004 . 9566) (FLASHW 9568 . 9725) (HILITE.LINE 9727 . 10546) (HILITE.TEXT 10548 . 12196)
|
||||
(IN.TEXT.EXTEND 12198 . 15471) (INIMAGEOBJ 15473 . 15978) (INTEXT 15980 . 16477) (NEW.TEXT.EXTEND
|
||||
16479 . 18698) (NEW.TEXT.SELECTIONP 18700 . 18880) (NTHCHARWIDTH 18882 . 19139) (NTHLOCALREGION 19141
|
||||
. 19379) (ONCHAR 19381 . 19776) (SHOW.EXTENDED.SELECTION.FEEDBACK 19778 . 20713) (SHOW.FEEDBACK 20715
|
||||
. 21205) (SHOW.FEEDBACK.BOX 21207 . 22261) (SELECTION.POSITION 22263 . 23055) (SKED.CLEAR.SELECTION
|
||||
23057 . 23580) (SKETCH.CLEANUP 23582 . 25496) (SK.ENTER.EDIT.CHANGE 25498 . 27043) (
|
||||
SKED.REMOVE.OTHER.SELECTIONS 27045 . 27472) (SKED.EXTEND.SELECTION 27474 . 28939) (SKED.MOVE.SELECTION
|
||||
28941 . 34102) (CREATE.TEXT.SELECTION 34104 . 34620) (SKED.SELECTION.FEEDBACK 34622 . 36278) (
|
||||
SKED.SET.EXTENDSELECTION 36280 . 36597) (SKED.SET.SELECTION 36599 . 36999) (LINE.BEGIN 37001 . 37555)
|
||||
(SELECTION.GREATERP 37557 . 38352) (SK.WORD.BREAK.CLASS 38354 . 39194) (SK.GETSYNTAX 39196 . 39598)) (
|
||||
40442 86176 (WB.EDITOR 40452 . 41777) (SK.TTYENTRYFN 41779 . 42057) (SK.TTYEXITFN 42059 . 42328) (
|
||||
SKED.INSERT 42330 . 42758) (\SKED.INSERT 42760 . 63882) (FIRST.N.ELEMENTS 63884 . 64151) (
|
||||
SKED.CREATE.NEW.TEXTBOX 64153 . 70682) (SKED.CHARACTERPOSITION 70684 . 71471) (SKED.LINE.AND.CHAR#
|
||||
71473 . 73104) (\SKED.DELETE.WORD.FROM.STRING 73106 . 74145) (\SKED.INSERT.CHARS.TO.STR 74147 . 82558)
|
||||
(JOINCHARS 82560 . 82947) (STRINGFROMCHARACTERS 82949 . 83274) (GETALLCHARS 83276 . 83617) (
|
||||
CLEANUP.EDIT 83619 . 84071) (SKED.NEW.TEXTELT 84073 . 86174)) (86211 107219 (
|
||||
MAP.SCREEN.POSITION.ONTO.GRID 86221 . 87670) (NEAREST.ON.GRID 87672 . 88216) (SK.MIDDLE.TITLEFN 88218
|
||||
. 90161) (WB.BUTTON.HANDLER 90163 . 97985) (WB.ADD.NEW.POINT 97987 . 101316) (WB.DRAWLINE 101318 .
|
||||
105552) (WB.RUBBERBAND.POSITION 105554 . 106471) (SK.RUBBERBAND.FEEDBACKFN 106473 . 106977) (
|
||||
RESET.LINE.BEING.INPUT 106979 . 107217)) (107401 108642 (NEAREST.EXISTING.POSITION 107411 . 107613) (
|
||||
WB.NEARPT 107615 . 108500) (LASTMOUSEPOSITION 108502 . 108640)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@ -1,23 +1,23 @@
|
||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||
(FILECREATED "31-Dec-2000 10:58:28" {DSK}<project>medley3.5>library>SKETCHELEMENTS.;2 553808
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "21-Aug-2021 20:49:42" {DSK}<home>larry>medley>library>SKETCHELEMENTS.;2 554230
|
||||
|
||||
changes to%: (FNS ADD.KNOWN.SKETCH.FONT SK.PICK.FONT SK.CHOOSE.TEXT.FONT)
|
||||
changes to%: (FNS \SK.PUT.ARROWHEADS)
|
||||
|
||||
previous date%: "21-Jan-93 12:00:34" {DSK}<project>medley3.5>library>SKETCHELEMENTS.;1)
|
||||
previous date%: "31-Dec-2000 10:58:28" {DSK}<home>larry>medley>library>SKETCHELEMENTS.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT SKETCHELEMENTSCOMS)
|
||||
|
||||
(RPAQQ SKETCHELEMENTSCOMS
|
||||
( (* ;
|
||||
"contains the functions need to implement the sketch basic element types")
|
||||
( (* ;
|
||||
"contains the functions need to implement the sketch basic element types")
|
||||
(FNS INIT.SKETCH.ELEMENTS CREATE.SKETCH.ELEMENT.TYPE SKETCH.ELEMENT.TYPEP
|
||||
SKETCH.ELEMENT.NAMEP \CURSOR.IN.MIDDLE.MENU)
|
||||
(COMS (* ; "color and filling stuff")
|
||||
(COMS (* ; "color and filling stuff")
|
||||
(FNS SKETCHINCOLORP READ.COLOR.CHANGE)
|
||||
(INITVARS (SKETCHINCOLORFLG)
|
||||
(FILLPOLYGONFLG T)
|
||||
@ -27,7 +27,7 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co
|
||||
(GLOBALVARS SKETCHINCOLORFLG SK.DEFAULT.BACKCOLOR)
|
||||
(RECORDS SKFILLING)
|
||||
|
||||
(* ;; "fns included until system is fixed so that it is ok to call DSPCOLOR in a system without color loaded. Should be removed after J release.")
|
||||
(* ;; "fns included until system is fixed so that it is ok to call DSPCOLOR in a system without color loaded. Should be removed after J release.")
|
||||
|
||||
(FNS SK.CREATE.DEFAULT.FILLING SKFILLINGP SK.INSURE.FILLING SK.INSURE.COLOR)
|
||||
(FNS SK.TRANSLATE.MODE SK.CHANGE.FILLING.MODE READ.FILLING.MODE))
|
||||
@ -42,10 +42,10 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co
|
||||
(UGLYVARS CIRCLEICON)
|
||||
(CURSORS CIRCLE.CENTER CIRCLE.EDGE)
|
||||
(INITVARS [SK.DEFAULT.BRUSH (CONS 'ROUND (CONS 1 (CONS 'BLACK NIL]
|
||||
(* ;
|
||||
"Original was (create BRUSH BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1 BRUSHCOLOR _ 'BLACK).")
|
||||
(* ;
|
||||
"Changed by yabu.fx, for SUNLOADUP without DWIM.")
|
||||
(* ;
|
||||
"Original was (create BRUSH BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1 BRUSHCOLOR _ 'BLACK).")
|
||||
(* ;
|
||||
"Changed by yabu.fx, for SUNLOADUP without DWIM.")
|
||||
(SK.DEFAULT.DASHING)
|
||||
(SK.DEFAULT.TEXTURE))
|
||||
(GLOBALVARS SK.DEFAULT.BRUSH SK.DEFAULT.DASHING SK.DEFAULT.TEXTURE))
|
||||
@ -112,8 +112,8 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co
|
||||
SK.ARROWHEAD.TYPES)
|
||||
(INITVARS (SK.ARROW.END.MENU)
|
||||
(SK.ARROW.EDIT.MENU)))
|
||||
(COMS (* ;
|
||||
"stuff to support the text element type.")
|
||||
(COMS (* ;
|
||||
"stuff to support the text element type.")
|
||||
(FNS SKETCH.CREATE.TEXT TEXT.CHANGEFN TEXT.READCHANGEFN \SK.READ.FONT.SIZE1
|
||||
SK.TEXT.ELT.WITH.SAME.FIELDS SK.READFONTFAMILY CLOSE.PROMPT.WINDOW TEXT.DRAWFN
|
||||
TEXT.DRAWFN1 TEXT.INSIDEFN TEXT.EXPANDFN SK.TEXT.LINE.REGIONS
|
||||
@ -141,8 +141,8 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co
|
||||
(VARS (SKETCH.TERMTABLE (CREATE.SKETCH.TERMTABLE)))
|
||||
(GLOBALVARS SKETCH.TERMTABLE SK.DEFAULT.TEXT.ALIGNMENT INDICATE.TEXT.SHADE \FONTSONFILE
|
||||
SK.HORIZONTAL.STYLES SK.VERTICAL.STYLES))
|
||||
(COMS (* ;
|
||||
"stuff for supporting the TEXTBOX sketch element.")
|
||||
(COMS (* ;
|
||||
"stuff for supporting the TEXTBOX sketch element.")
|
||||
(FNS SKETCH.CREATE.TEXTBOX SK.COMPUTE.TEXTBOX.REGION.FOR.STRING SK.BREAK.INTO.LINES
|
||||
SK.BRUSH.SIZE SK.TEXTBOX.CREATE SK.TEXTBOX.CREATE1 SK.UPDATE.TEXTBOX.AFTER.CHANGE
|
||||
SK.TEXTBOX.POSITION.IN.BOX TEXTBOX.CHANGEFN TEXTBOX.DRAWFN
|
||||
@ -152,14 +152,14 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co
|
||||
TEXTBOX.TRANSFORMFN TEXTBOX.UPDATEFN TEXTBOX.READCHANGEFN SK.TEXTBOX.TEXT.POSITION
|
||||
SK.TEXTBOX.FROM.TEXT ADD.EOLS)
|
||||
(DECLARE%: DONTCOPY (RECORDS LOCALTEXTBOX TEXTBOX))
|
||||
(COMS (* ;
|
||||
"stuff to handle default alignment for text boxes")
|
||||
(COMS (* ;
|
||||
"stuff to handle default alignment for text boxes")
|
||||
(FNS SK.SET.TEXTBOX.VERT.ALIGN SK.SET.TEXTBOX.HORIZ.ALIGN)
|
||||
(VARS TEXTBOXICON)
|
||||
[INITVARS (SK.DEFAULT.TEXTBOX.ALIGNMENT '(CENTER CENTER]
|
||||
(GLOBALVARS SK.DEFAULT.TEXTBOX.ALIGNMENT)))
|
||||
(COMS (* ;
|
||||
"functions to implement the box sketch element.")
|
||||
(COMS (* ;
|
||||
"functions to implement the box sketch element.")
|
||||
(FNS SKETCH.CREATE.BOX SK.BOX.DRAWFN BOX.DRAWFN1 KNOTS.OF.REGION SK.DRAWAREABOX
|
||||
SK.DRAWBOX SK.BOX.EXPANDFN SK.BOX.GETREGIONFN BOX.SET.SCALES SK.BOX.INPUTFN
|
||||
SK.BOX.CREATE SK.UPDATE.BOX.AFTER.CHANGE SK.BOX.INSIDEFN SK.BOX.REGIONFN
|
||||
@ -169,8 +169,8 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co
|
||||
EXPANDREGION REGION.FROM.COORDINATES)
|
||||
(DECLARE%: DONTCOPY (RECORDS BOX LOCALBOX))
|
||||
(UGLYVARS BOXICON))
|
||||
(COMS (* ;
|
||||
"fns for the arc sketch element type")
|
||||
(COMS (* ;
|
||||
"fns for the arc sketch element type")
|
||||
(FNS SKETCH.CREATE.ARC ARC.DRAWFN ARC.EXPANDFN ARC.INPUTFN SK.INVERT.CIRCLE
|
||||
SK.READ.ARC.ANGLE.POINT SK.SHOW.ARC ARC.CREATE SK.UPDATE.ARC.AFTER.CHANGE
|
||||
ARC.MOVEFN ARC.TRANSLATEPTS ARC.INSIDEFN ARC.REGIONFN ARC.GLOBALREGIONFN
|
||||
@ -184,8 +184,8 @@ Copyright (c) 1985, 1986, 1987, 1990, 1991, 1992, 1993, 2000 by Venue & Xerox Co
|
||||
(DECLARE%: DONTCOPY (RECORDS ARC LOCALARC))
|
||||
(CURSORS ARC.RADIUS.CURSOR ARC.ANGLE.CURSOR CW.ARC.ANGLE.CURSOR CW.ARC.RADIUS.CURSOR)
|
||||
(UGLYVARS ARCICON))
|
||||
(COMS (* ;
|
||||
"property getting and setting stuff")
|
||||
(COMS (* ;
|
||||
"property getting and setting stuff")
|
||||
(FNS GETSKETCHELEMENTPROP \SK.GET.ARC.ANGLEPT \GETSKETCHELEMENTPROP1 \SK.GET.BRUSH
|
||||
\SK.GET.FILLING \SK.GET.ARROWHEADS \SK.GET.FONT \SK.GET.JUSTIFICATION
|
||||
\SK.GET.DIRECTION \SK.GET.DASHING PUTSKETCHELEMENTPROP \SK.PUT.FILLING
|
||||
@ -8843,21 +8843,25 @@ No more font sizes found.")))
|
||||
T])
|
||||
|
||||
(\SK.PUT.ARROWHEADS
|
||||
[LAMBDA (GELT NEWVALUE) (* rrb "26-Jun-86 16:45")
|
||||
|
||||
(* sets the arrowhead field from a global sketch element instance.)
|
||||
|
||||
[LAMBDA (GELT NEWVALUE) (* ; "Edited 21-Aug-2021 20:01 by larry")
|
||||
(* sets the arrowhead field from a
|
||||
global sketch element instance.)
|
||||
(SELECTQ (fetch (GLOBALPART GTYPE) of GELT)
|
||||
(WIRE (replace (WIRE WIREARROWHEADS) of (fetch (GLOBALPART INDIVIDUALGLOBALPART) of GELT
|
||||
with (SK.INSURE.ARROWHEADS NEWVALUE)))
|
||||
(SET.WIRE.ARROWHEAD.POINTS (fetch (GLOBALPART INDIVIDUALGLOBALPART) of GELT)))
|
||||
(OPENCURVE (replace (OPENCURVE CURVEARROWHEADS) of (fetch (GLOBALPART INDIVIDUALGLOBALPART)
|
||||
of GELT with (SK.INSURE.ARROWHEADS
|
||||
NEWVALUE)))
|
||||
(WIRE (replace (WIRE WIREARROWHEADS) of (fetch (GLOBALPART INDIVIDUALGLOBALPART)
|
||||
of GELT) with (
|
||||
SK.INSURE.ARROWHEADS
|
||||
NEWVALUE))
|
||||
(SET.WIRE.ARROWHEAD.POINTS (fetch (GLOBALPART INDIVIDUALGLOBALPART)
|
||||
of GELT)))
|
||||
(OPENCURVE (replace (OPENCURVE CURVEARROWHEADS) of (fetch (GLOBALPART
|
||||
INDIVIDUALGLOBALPART
|
||||
) of GELT)
|
||||
with (SK.INSURE.ARROWHEADS NEWVALUE))
|
||||
(SET.OPENCURVE.ARROWHEAD.POINTS (fetch (GLOBALPART INDIVIDUALGLOBALPART)
|
||||
of GELT)))
|
||||
(ARC (replace (ARC ARCARROWHEADS) of (fetch (GLOBALPART INDIVIDUALGLOBALPART) of GELT
|
||||
with (SK.INSURE.ARROWHEADS NEWVALUE)))
|
||||
of GELT)))
|
||||
(ARC (replace (ARC ARCARROWHEADS) of (fetch (GLOBALPART INDIVIDUALGLOBALPART)
|
||||
of GELT) with (SK.INSURE.ARROWHEADS
|
||||
NEWVALUE))
|
||||
(SET.ARC.ARROWHEAD.POINTS (fetch (GLOBALPART INDIVIDUALGLOBALPART) of GELT)))
|
||||
(LISTPUT (fetch (GLOBALPART SKELEMENTPROPLIST) of GELT)
|
||||
'ARROWHEADS NEWVALUE))
|
||||
@ -9278,139 +9282,139 @@ No more font sizes found.")))
|
||||
(fetch (REGION TOP) of REGION])
|
||||
)
|
||||
(PUTPROPS SKETCHELEMENTS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1991 1992 1993
|
||||
2000))
|
||||
2000 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (14396 24810 (INIT.SKETCH.ELEMENTS 14406 . 21969) (CREATE.SKETCH.ELEMENT.TYPE 21971 .
|
||||
23497) (SKETCH.ELEMENT.TYPEP 23499 . 23887) (SKETCH.ELEMENT.NAMEP 23889 . 24152) (
|
||||
\CURSOR.IN.MIDDLE.MENU 24154 . 24808)) (24851 25528 (SKETCHINCOLORP 24861 . 25181) (READ.COLOR.CHANGE
|
||||
25183 . 25526)) (26037 28816 (SK.CREATE.DEFAULT.FILLING 26047 . 26348) (SKFILLINGP 26350 . 26983) (
|
||||
SK.INSURE.FILLING 26985 . 28413) (SK.INSURE.COLOR 28415 . 28814)) (28817 34427 (SK.TRANSLATE.MODE
|
||||
28827 . 29609) (SK.CHANGE.FILLING.MODE 29611 . 33194) (READ.FILLING.MODE 33196 . 34425)) (34428 65102
|
||||
(SKETCH.CREATE.CIRCLE 34438 . 35250) (CIRCLE.EXPANDFN 35252 . 38624) (CIRCLE.DRAWFN 38626 . 41627) (
|
||||
\CIRCLE.DRAWFN1 41629 . 44224) (CIRCLE.INPUTFN 44226 . 46075) (SK.UPDATE.CIRCLE.AFTER.CHANGE 46077 .
|
||||
46436) (SK.READ.CIRCLE.POINT 46438 . 46909) (SK.SHOW.CIRCLE 46911 . 47557) (CIRCLE.INSIDEFN 47559 .
|
||||
47824) (CIRCLE.REGIONFN 47826 . 49507) (CIRCLE.GLOBALREGIONFN 49509 . 51027) (CIRCLE.TRANSLATE 51029
|
||||
. 52890) (CIRCLE.READCHANGEFN 52892 . 57508) (CIRCLE.TRANSFORMFN 57510 . 59363) (CIRCLE.TRANSLATEPTS
|
||||
59365 . 60979) (SK.CIRCLE.CREATE 60981 . 61824) (SET.CIRCLE.SCALE 61826 . 62592) (SK.BRUSH.READCHANGE
|
||||
62594 . 65100)) (65103 65832 (SK.INSURE.BRUSH 65113 . 65507) (SK.INSURE.DASHING 65509 . 65830)) (67084
|
||||
96578 (SKETCH.CREATE.ELLIPSE 67094 . 67693) (ELLIPSE.EXPANDFN 67695 . 71307) (ELLIPSE.DRAWFN 71309 .
|
||||
75486) (ELLIPSE.INPUTFN 75488 . 77928) (SK.READ.ELLIPSE.MAJOR.PT 77930 . 78509) (
|
||||
SK.SHOW.ELLIPSE.MAJOR.RADIUS 78511 . 79266) (SK.READ.ELLIPSE.MINOR.PT 79268 . 79961) (
|
||||
SK.SHOW.ELLIPSE.MINOR.RADIUS 79963 . 80795) (ELLIPSE.INSIDEFN 80797 . 81067) (ELLIPSE.CREATE 81069 .
|
||||
82444) (SK.UPDATE.ELLIPSE.AFTER.CHANGE 82446 . 82814) (ELLIPSE.REGIONFN 82816 . 85016) (
|
||||
ELLIPSE.GLOBALREGIONFN 85018 . 86831) (ELLIPSE.TRANSLATEFN 86833 . 89379) (ELLIPSE.TRANSFORMFN 89381
|
||||
. 90658) (ELLIPSE.TRANSLATEPTS 90660 . 92701) (MARK.SPOT 92703 . 93954) (DISTANCEBETWEEN 93956 .
|
||||
94551) (SK.DISTANCE.TO 94553 . 94938) (SQUARE 94940 . 94982) (COMPUTE.ELLIPSE.ORIENTATION 94984 .
|
||||
95703) (SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 95705 . 96576)) (97703 138759 (SKETCH.CREATE.OPEN.CURVE
|
||||
97713 . 98266) (OPENCURVE.INPUTFN 98268 . 99136) (SK.CURVE.CREATE 99138 . 100883) (MAXXEXTENT 100885
|
||||
. 101744) (MAXYEXTENT 101746 . 102606) (KNOT.SET.SCALE.FIELD 102608 . 103410) (OPENCURVE.DRAWFN
|
||||
103412 . 104543) (OPENCURVE.EXPANDFN 104545 . 107860) (OPENCURVE.READCHANGEFN 107862 . 111064) (
|
||||
OPENCURVE.TRANSFORMFN 111066 . 113564) (OPENCURVE.TRANSLATEFN 113566 . 113988) (
|
||||
OPENCURVE.TRANSLATEPTSFN 113990 . 115371) (SKETCH.CREATE.CLOSED.CURVE 115373 . 115879) (
|
||||
CLOSEDCURVE.DRAWFN 115881 . 116665) (CLOSEDCURVE.EXPANDFN 116667 . 119780) (CLOSEDCURVE.REGIONFN
|
||||
119782 . 120579) (CLOSEDCURVE.GLOBALREGIONFN 120581 . 122014) (READ.LIST.OF.POINTS 122016 . 123995) (
|
||||
CLOSEDCURVE.INPUTFN 123997 . 124642) (CLOSEDCURVE.READCHANGEFN 124644 . 127539) (
|
||||
CLOSEDCURVE.TRANSFORMFN 127541 . 129341) (CLOSEDCURVE.TRANSLATEPTSFN 129343 . 130688) (INVISIBLEPARTP
|
||||
130690 . 131043) (SHOWSKETCHPOINT 131045 . 131350) (SHOWSKETCHXY 131352 . 131870) (KNOTS.REGIONFN
|
||||
131872 . 132773) (OPENWIRE.GLOBALREGIONFN 132775 . 133639) (CURVE.REGIONFN 133641 . 134582) (
|
||||
OPENCURVE.GLOBALREGIONFN 134584 . 135991) (KNOTS.TRANSLATEFN 135993 . 137036) (REGION.CONTAINING.PTS
|
||||
137038 . 138757)) (138760 161036 (CHANGE.ELTS.BRUSH.SIZE 138770 . 139380) (CHANGE.ELTS.BRUSH 139382 .
|
||||
139899) (CHANGE.ELTS.BRUSH.SHAPE 139901 . 140302) (SK.CHANGE.BRUSH.SHAPE 140304 . 143816) (
|
||||
SK.CHANGE.BRUSH.COLOR 143818 . 148264) (SK.CHANGE.BRUSH.SIZE 148266 . 153224) (SK.CHANGE.ANGLE 153226
|
||||
. 156206) (SK.CHANGE.ARC.DIRECTION 156208 . 158587) (SK.SET.DEFAULT.BRUSH.SIZE 158589 . 159288) (
|
||||
READSIZECHANGE 159290 . 161034)) (161037 162656 (SK.CHANGE.ELEMENT.KNOTS 161047 . 162654)) (162657
|
||||
163304 (SK.INSURE.POINT.LIST 162667 . 163120) (SK.INSURE.POSITION 163122 . 163302)) (164684 197007 (
|
||||
SKETCH.CREATE.WIRE 164694 . 165184) (CLOSEDWIRE.EXPANDFN 165186 . 167874) (KNOTS.INSIDEFN 167876 .
|
||||
168597) (OPEN.WIRE.DRAWFN 168599 . 169191) (WIRE.EXPANDFN 169193 . 172440) (
|
||||
SK.UPDATE.WIRE.ELT.AFTER.CHANGE 172442 . 172963) (OPENWIRE.READCHANGEFN 172965 . 175458) (
|
||||
OPENWIRE.TRANSFORMFN 175460 . 177583) (OPENWIRE.TRANSLATEFN 177585 . 178009) (OPENWIRE.TRANSLATEPTSFN
|
||||
178011 . 179290) (WIRE.INPUTFN 179292 . 180923) (SK.READ.WIRE.POINTS 180925 . 181456) (
|
||||
SK.READ.POINTS.WITH.FEEDBACK 181458 . 184225) (OPENWIRE.FEEDBACKFN 184227 . 184981) (
|
||||
CLOSEDWIRE.FEEDBACKFN 184983 . 186339) (CLOSEDWIRE.REGIONFN 186341 . 187326) (
|
||||
CLOSEDWIRE.GLOBALREGIONFN 187328 . 188380) (SK.WIRE.CREATE 188382 . 190145) (WIRE.ADD.POINT.TO.END
|
||||
190147 . 191063) (READ.ARROW.CHANGE 191065 . 196541) (CHANGE.ELTS.ARROWHEADS 196543 . 197005)) (197008
|
||||
208014 (SKETCH.CREATE.CLOSED.WIRE 197018 . 197579) (CLOSED.WIRE.INPUTFN 197581 . 197936) (
|
||||
CLOSED.WIRE.DRAWFN 197938 . 199983) (CLOSEDWIRE.READCHANGEFN 199985 . 204890) (CLOSEDWIRE.TRANSFORMFN
|
||||
204892 . 206686) (CLOSEDWIRE.TRANSLATEPTSFN 206688 . 208012)) (208015 260721 (SK.EXPAND.ARROWHEADS
|
||||
208025 . 208375) (SK.COMPUTE.ARC.ARROWHEAD.POINTS 208377 . 209758) (ARC.ARROWHEAD.POINTS 209760 .
|
||||
210983) (SET.ARC.ARROWHEAD.POINTS 210985 . 211966) (SET.OPENCURVE.ARROWHEAD.POINTS 211968 . 212869) (
|
||||
SK.COMPUTE.CURVE.ARROWHEAD.POINTS 212871 . 214141) (SET.WIRE.ARROWHEAD.POINTS 214143 . 214896) (
|
||||
SK.COMPUTE.WIRE.ARROWHEAD.POINTS 214898 . 216163) (SK.EXPAND.ARROWHEAD 216165 . 217348) (CHANGED.ARROW
|
||||
217350 . 220522) (SK.CHANGE.ARROWHEAD 220524 . 220977) (SK.CHANGE.ARROWHEAD1 220979 . 226234) (
|
||||
SK.CREATE.ARROWHEAD 226236 . 226756) (SK.ARROWHEAD.CREATE 226758 . 228332) (SK.ARROWHEAD.END.TEST
|
||||
228334 . 229258) (READ.ARROWHEAD.END 229260 . 231285) (ARROW.HEAD.POSITIONS 231287 . 233127) (
|
||||
ARROWHEAD.POINTS.LIST 233129 . 237101) (CURVE.ARROWHEAD.POINTS 237103 . 237966) (LEFT.MOST.IS.BEGINP
|
||||
237968 . 238849) (WIRE.ARROWHEAD.POINTS 238851 . 240377) (DRAWARROWHEADS 240379 . 242749) (
|
||||
\SK.DRAW.TRIANGLE.ARROWHEAD 242751 . 244411) (\SK.ENDPT.OF.ARROW 244413 . 246670) (
|
||||
\SK.ADJUST.FOR.ARROWHEADS 246672 . 249177) (SK.SET.ARROWHEAD.LENGTH 249179 . 250323) (
|
||||
SK.SET.ARROWHEAD.ANGLE 250325 . 251421) (SK.SET.ARROWHEAD.TYPE 251423 . 254712) (SK.SET.LINE.ARROWHEAD
|
||||
254714 . 257127) (SK.UPDATE.ARROWHEAD.FORMAT 257129 . 259239) (SK.SET.LINE.LENGTH.MODE 259241 .
|
||||
260719)) (260722 262523 (SK.INSURE.ARROWHEADS 260732 . 261914) (SK.ARROWHEADP 261916 . 262521)) (
|
||||
265327 327653 (SKETCH.CREATE.TEXT 265337 . 265851) (TEXT.CHANGEFN 265853 . 266245) (TEXT.READCHANGEFN
|
||||
266247 . 274318) (\SK.READ.FONT.SIZE1 274320 . 276216) (SK.TEXT.ELT.WITH.SAME.FIELDS 276218 . 277858)
|
||||
(SK.READFONTFAMILY 277860 . 279406) (CLOSE.PROMPT.WINDOW 279408 . 279832) (TEXT.DRAWFN 279834 . 280555
|
||||
) (TEXT.DRAWFN1 280557 . 284059) (TEXT.INSIDEFN 284061 . 284450) (TEXT.EXPANDFN 284452 . 286577) (
|
||||
SK.TEXT.LINE.REGIONS 286579 . 288453) (TEXT.UPDATE.GLOBAL.REGIONS 288455 . 289687) (REL.MOVE.REGION
|
||||
289689 . 290226) (LTEXT.LINE.REGIONS 290228 . 293646) (TEXT.INPUTFN 293648 . 294158) (READ.TEXT 294160
|
||||
. 294908) (TEXT.POSITION.AND.CREATE 294910 . 297221) (CREATE.TEXT.ELEMENT 297223 . 298041) (
|
||||
SK.UPDATE.TEXT.AFTER.CHANGE 298043 . 298445) (SK.TEXT.FROM.TEXTBOX 298447 . 302253) (
|
||||
TEXT.SET.GLOBAL.REGIONS 302255 . 303548) (TEXT.REGIONFN 303550 . 304320) (TEXT.GLOBALREGIONFN 304322
|
||||
. 305010) (TEXT.TRANSLATEFN 305012 . 306327) (TEXT.TRANSFORMFN 306329 . 307452) (TEXT.TRANSLATEPTSFN
|
||||
307454 . 307971) (TEXT.UPDATEFN 307973 . 312629) (SK.CHANGE.TEXT 312631 . 325719) (TEXT.SET.SCALES
|
||||
325721 . 326689) (BREAK.AT.CARRIAGE.RETURNS 326691 . 327651)) (327654 346178 (ADD.KNOWN.SKETCH.FONT
|
||||
327664 . 328655) (SK.PICK.FONT 328657 . 334189) (SK.CHOOSE.TEXT.FONT 334191 . 338139) (SK.NEXTSIZEFONT
|
||||
338141 . 339408) (SK.DECREASING.FONT.LIST 339410 . 341283) (SK.GUESS.FONTSAVAILABLE 341285 . 346176))
|
||||
(346605 360748 (SK.SET.FONT 346615 . 348182) (SK.SET.TEXT.FONT 348184 . 349186) (SK.SET.TEXT.SIZE
|
||||
349188 . 349875) (SK.SET.TEXT.HORIZ.ALIGN 349877 . 351451) (SK.READFONTSIZE 351453 . 353683) (
|
||||
SK.COLLECT.FONT.SIZES 353685 . 356603) (SK.SET.TEXT.VERT.ALIGN 356605 . 358647) (SK.SET.TEXT.LOOKS
|
||||
358649 . 360106) (SK.SET.DEFAULT.TEXT.FACE 360108 . 360746)) (360749 361335 (CREATE.SKETCH.TERMTABLE
|
||||
360759 . 361333)) (361336 363102 (SK.FONT.LIST 361346 . 361672) (SK.INSURE.FONT 361674 . 362196) (
|
||||
SK.INSURE.STYLE 362198 . 362716) (SK.INSURE.TEXT 362718 . 363100)) (363672 420965 (
|
||||
SKETCH.CREATE.TEXTBOX 363682 . 365324) (SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 365326 . 367403) (
|
||||
SK.BREAK.INTO.LINES 367405 . 378591) (SK.BRUSH.SIZE 378593 . 378974) (SK.TEXTBOX.CREATE 378976 .
|
||||
379773) (SK.TEXTBOX.CREATE1 379775 . 380839) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 380841 . 381381) (
|
||||
SK.TEXTBOX.POSITION.IN.BOX 381383 . 383294) (TEXTBOX.CHANGEFN 383296 . 383770) (TEXTBOX.DRAWFN 383772
|
||||
. 385808) (SK.TEXTURE.AROUND.REGIONS 385810 . 391883) (ALL.EMPTY.REGIONS 391885 . 392375) (
|
||||
TEXTBOX.EXPANDFN 392377 . 399533) (TEXTBOX.INPUTFN 399535 . 401148) (TEXTBOX.INSIDEFN 401150 . 401563)
|
||||
(TEXTBOX.REGIONFN 401565 . 402419) (TEXTBOX.GLOBALREGIONFN 402421 . 402749) (
|
||||
TEXTBOX.SET.GLOBAL.REGIONS 402751 . 404082) (TEXTBOX.TRANSLATEFN 404084 . 405925) (
|
||||
TEXTBOX.TRANSLATEPTSFN 405927 . 408710) (TEXTBOX.TRANSFORMFN 408712 . 410380) (TEXTBOX.UPDATEFN 410382
|
||||
. 412275) (TEXTBOX.READCHANGEFN 412277 . 417166) (SK.TEXTBOX.TEXT.POSITION 417168 . 417589) (
|
||||
SK.TEXTBOX.FROM.TEXT 417591 . 420196) (ADD.EOLS 420198 . 420963)) (421533 425034 (
|
||||
SK.SET.TEXTBOX.VERT.ALIGN 421543 . 423423) (SK.SET.TEXTBOX.HORIZ.ALIGN 423425 . 425032)) (425417
|
||||
469892 (SKETCH.CREATE.BOX 425427 . 425910) (SK.BOX.DRAWFN 425912 . 427071) (BOX.DRAWFN1 427073 .
|
||||
429912) (KNOTS.OF.REGION 429914 . 431148) (SK.DRAWAREABOX 431150 . 437751) (SK.DRAWBOX 437753 . 438942
|
||||
) (SK.BOX.EXPANDFN 438944 . 442692) (SK.BOX.GETREGIONFN 442694 . 443880) (BOX.SET.SCALES 443882 .
|
||||
445122) (SK.BOX.INPUTFN 445124 . 447057) (SK.BOX.CREATE 447059 . 447760) (SK.UPDATE.BOX.AFTER.CHANGE
|
||||
447762 . 448273) (SK.BOX.INSIDEFN 448275 . 448665) (SK.BOX.REGIONFN 448667 . 449380) (
|
||||
SK.BOX.GLOBALREGIONFN 449382 . 450120) (SK.BOX.READCHANGEFN 450122 . 453843) (SK.CHANGE.FILLING 453845
|
||||
. 457793) (SK.CHANGE.FILLING.COLOR 457795 . 461451) (SK.BOX.TRANSLATEFN 461453 . 462632) (
|
||||
SK.BOX.TRANSFORMFN 462634 . 463579) (SK.BOX.TRANSLATEPTSFN 463581 . 465949) (UNSCALE.REGION.TO.GRID
|
||||
465951 . 466876) (INCREASEREGION 466878 . 467469) (INSUREREGIONSIZE 467471 . 468642) (EXPANDREGION
|
||||
468644 . 469524) (REGION.FROM.COORDINATES 469526 . 469890)) (470432 496787 (SKETCH.CREATE.ARC 470442
|
||||
. 471251) (ARC.DRAWFN 471253 . 472980) (ARC.EXPANDFN 472982 . 475315) (ARC.INPUTFN 475317 . 479535) (
|
||||
SK.INVERT.CIRCLE 479537 . 480397) (SK.READ.ARC.ANGLE.POINT 480399 . 480906) (SK.SHOW.ARC 480908 .
|
||||
481518) (ARC.CREATE 481520 . 482875) (SK.UPDATE.ARC.AFTER.CHANGE 482877 . 483217) (ARC.MOVEFN 483219
|
||||
. 484802) (ARC.TRANSLATEPTS 484804 . 486689) (ARC.INSIDEFN 486691 . 486941) (ARC.REGIONFN 486943 .
|
||||
488079) (ARC.GLOBALREGIONFN 488081 . 489803) (ARC.TRANSLATE 489805 . 490787) (ARC.TRANSFORMFN 490789
|
||||
. 493739) (ARC.READCHANGEFN 493741 . 496785)) (496788 505867 (SK.COMPUTE.ARC.ANGLE.PT 496798 . 497724
|
||||
) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 497726 . 498719) (SK.COMPUTE.ARC.PTS 498721 . 502293) (
|
||||
SK.SET.ARC.DIRECTION 502295 . 502869) (SK.SET.ARC.DIRECTION.CW 502871 . 503045) (
|
||||
SK.SET.ARC.DIRECTION.CCW 503047 . 503320) (SK.COMPUTE.SLOPE.OF.LINE 503322 . 503814) (
|
||||
SK.CREATE.ARC.USING 503816 . 505053) (SET.ARC.SCALES 505055 . 505865)) (505868 506313 (
|
||||
SK.INSURE.DIRECTION 505878 . 506311)) (507715 553096 (GETSKETCHELEMENTPROP 507725 . 509033) (
|
||||
\SK.GET.ARC.ANGLEPT 509035 . 509596) (\GETSKETCHELEMENTPROP1 509598 . 509852) (\SK.GET.BRUSH 509854 .
|
||||
510778) (\SK.GET.FILLING 510780 . 511878) (\SK.GET.ARROWHEADS 511880 . 512659) (\SK.GET.FONT 512661 .
|
||||
513141) (\SK.GET.JUSTIFICATION 513143 . 513667) (\SK.GET.DIRECTION 513669 . 514146) (\SK.GET.DASHING
|
||||
514148 . 515167) (PUTSKETCHELEMENTPROP 515169 . 517438) (\SK.PUT.FILLING 517440 . 518710) (
|
||||
ADDSKETCHELEMENTPROP 518712 . 519517) (REMOVESKETCHELEMENTPROP 519519 . 520308) (\SK.PUT.FONT 520310
|
||||
. 521124) (\SK.PUT.JUSTIFICATION 521126 . 522137) (\SK.PUT.DIRECTION 522139 . 522746) (
|
||||
\SK.PUT.DASHING 522748 . 524083) (\SK.PUT.BRUSH 524085 . 526004) (\SK.PUT.ARROWHEADS 526006 . 527494)
|
||||
(SK.COPY.ELEMENT.PROPERTY.LIST 527496 . 528072) (SKETCH.UPDATE 528074 . 528804) (SKETCH.UPDATE1 528806
|
||||
. 530094) (\SKELT.GET.SCALE 530096 . 531084) (\SKELT.PUT.SCALE 531086 . 532393) (\SKELT.PUT.DATA
|
||||
532395 . 534192) (SK.REPLACE.TEXT.IN.ELEMENT 534194 . 535147) (\SKELT.GET.DATA 535149 . 536216) (
|
||||
\SK.GET.1STCONTROLPT 536218 . 537730) (\SK.PUT.1STCONTROLPT 537732 . 543205) (\SK.GET.2NDCONTROLPT
|
||||
543207 . 544122) (\SK.PUT.2NDCONTROLPT 544124 . 548312) (\SK.GET.3RDCONTROLPT 548314 . 549192) (
|
||||
\SK.PUT.3RDCONTROLPT 549194 . 553094)) (553097 553678 (LOWERLEFTCORNER 553107 . 553353) (
|
||||
UPPERRIGHTCORNER 553355 . 553676)))))
|
||||
(FILEMAP (NIL (14335 24749 (INIT.SKETCH.ELEMENTS 14345 . 21908) (CREATE.SKETCH.ELEMENT.TYPE 21910 .
|
||||
23436) (SKETCH.ELEMENT.TYPEP 23438 . 23826) (SKETCH.ELEMENT.NAMEP 23828 . 24091) (
|
||||
\CURSOR.IN.MIDDLE.MENU 24093 . 24747)) (24790 25467 (SKETCHINCOLORP 24800 . 25120) (READ.COLOR.CHANGE
|
||||
25122 . 25465)) (25976 28755 (SK.CREATE.DEFAULT.FILLING 25986 . 26287) (SKFILLINGP 26289 . 26922) (
|
||||
SK.INSURE.FILLING 26924 . 28352) (SK.INSURE.COLOR 28354 . 28753)) (28756 34366 (SK.TRANSLATE.MODE
|
||||
28766 . 29548) (SK.CHANGE.FILLING.MODE 29550 . 33133) (READ.FILLING.MODE 33135 . 34364)) (34367 65041
|
||||
(SKETCH.CREATE.CIRCLE 34377 . 35189) (CIRCLE.EXPANDFN 35191 . 38563) (CIRCLE.DRAWFN 38565 . 41566) (
|
||||
\CIRCLE.DRAWFN1 41568 . 44163) (CIRCLE.INPUTFN 44165 . 46014) (SK.UPDATE.CIRCLE.AFTER.CHANGE 46016 .
|
||||
46375) (SK.READ.CIRCLE.POINT 46377 . 46848) (SK.SHOW.CIRCLE 46850 . 47496) (CIRCLE.INSIDEFN 47498 .
|
||||
47763) (CIRCLE.REGIONFN 47765 . 49446) (CIRCLE.GLOBALREGIONFN 49448 . 50966) (CIRCLE.TRANSLATE 50968
|
||||
. 52829) (CIRCLE.READCHANGEFN 52831 . 57447) (CIRCLE.TRANSFORMFN 57449 . 59302) (CIRCLE.TRANSLATEPTS
|
||||
59304 . 60918) (SK.CIRCLE.CREATE 60920 . 61763) (SET.CIRCLE.SCALE 61765 . 62531) (SK.BRUSH.READCHANGE
|
||||
62533 . 65039)) (65042 65771 (SK.INSURE.BRUSH 65052 . 65446) (SK.INSURE.DASHING 65448 . 65769)) (67023
|
||||
96517 (SKETCH.CREATE.ELLIPSE 67033 . 67632) (ELLIPSE.EXPANDFN 67634 . 71246) (ELLIPSE.DRAWFN 71248 .
|
||||
75425) (ELLIPSE.INPUTFN 75427 . 77867) (SK.READ.ELLIPSE.MAJOR.PT 77869 . 78448) (
|
||||
SK.SHOW.ELLIPSE.MAJOR.RADIUS 78450 . 79205) (SK.READ.ELLIPSE.MINOR.PT 79207 . 79900) (
|
||||
SK.SHOW.ELLIPSE.MINOR.RADIUS 79902 . 80734) (ELLIPSE.INSIDEFN 80736 . 81006) (ELLIPSE.CREATE 81008 .
|
||||
82383) (SK.UPDATE.ELLIPSE.AFTER.CHANGE 82385 . 82753) (ELLIPSE.REGIONFN 82755 . 84955) (
|
||||
ELLIPSE.GLOBALREGIONFN 84957 . 86770) (ELLIPSE.TRANSLATEFN 86772 . 89318) (ELLIPSE.TRANSFORMFN 89320
|
||||
. 90597) (ELLIPSE.TRANSLATEPTS 90599 . 92640) (MARK.SPOT 92642 . 93893) (DISTANCEBETWEEN 93895 .
|
||||
94490) (SK.DISTANCE.TO 94492 . 94877) (SQUARE 94879 . 94921) (COMPUTE.ELLIPSE.ORIENTATION 94923 .
|
||||
95642) (SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 95644 . 96515)) (97642 138698 (SKETCH.CREATE.OPEN.CURVE
|
||||
97652 . 98205) (OPENCURVE.INPUTFN 98207 . 99075) (SK.CURVE.CREATE 99077 . 100822) (MAXXEXTENT 100824
|
||||
. 101683) (MAXYEXTENT 101685 . 102545) (KNOT.SET.SCALE.FIELD 102547 . 103349) (OPENCURVE.DRAWFN
|
||||
103351 . 104482) (OPENCURVE.EXPANDFN 104484 . 107799) (OPENCURVE.READCHANGEFN 107801 . 111003) (
|
||||
OPENCURVE.TRANSFORMFN 111005 . 113503) (OPENCURVE.TRANSLATEFN 113505 . 113927) (
|
||||
OPENCURVE.TRANSLATEPTSFN 113929 . 115310) (SKETCH.CREATE.CLOSED.CURVE 115312 . 115818) (
|
||||
CLOSEDCURVE.DRAWFN 115820 . 116604) (CLOSEDCURVE.EXPANDFN 116606 . 119719) (CLOSEDCURVE.REGIONFN
|
||||
119721 . 120518) (CLOSEDCURVE.GLOBALREGIONFN 120520 . 121953) (READ.LIST.OF.POINTS 121955 . 123934) (
|
||||
CLOSEDCURVE.INPUTFN 123936 . 124581) (CLOSEDCURVE.READCHANGEFN 124583 . 127478) (
|
||||
CLOSEDCURVE.TRANSFORMFN 127480 . 129280) (CLOSEDCURVE.TRANSLATEPTSFN 129282 . 130627) (INVISIBLEPARTP
|
||||
130629 . 130982) (SHOWSKETCHPOINT 130984 . 131289) (SHOWSKETCHXY 131291 . 131809) (KNOTS.REGIONFN
|
||||
131811 . 132712) (OPENWIRE.GLOBALREGIONFN 132714 . 133578) (CURVE.REGIONFN 133580 . 134521) (
|
||||
OPENCURVE.GLOBALREGIONFN 134523 . 135930) (KNOTS.TRANSLATEFN 135932 . 136975) (REGION.CONTAINING.PTS
|
||||
136977 . 138696)) (138699 160975 (CHANGE.ELTS.BRUSH.SIZE 138709 . 139319) (CHANGE.ELTS.BRUSH 139321 .
|
||||
139838) (CHANGE.ELTS.BRUSH.SHAPE 139840 . 140241) (SK.CHANGE.BRUSH.SHAPE 140243 . 143755) (
|
||||
SK.CHANGE.BRUSH.COLOR 143757 . 148203) (SK.CHANGE.BRUSH.SIZE 148205 . 153163) (SK.CHANGE.ANGLE 153165
|
||||
. 156145) (SK.CHANGE.ARC.DIRECTION 156147 . 158526) (SK.SET.DEFAULT.BRUSH.SIZE 158528 . 159227) (
|
||||
READSIZECHANGE 159229 . 160973)) (160976 162595 (SK.CHANGE.ELEMENT.KNOTS 160986 . 162593)) (162596
|
||||
163243 (SK.INSURE.POINT.LIST 162606 . 163059) (SK.INSURE.POSITION 163061 . 163241)) (164623 196946 (
|
||||
SKETCH.CREATE.WIRE 164633 . 165123) (CLOSEDWIRE.EXPANDFN 165125 . 167813) (KNOTS.INSIDEFN 167815 .
|
||||
168536) (OPEN.WIRE.DRAWFN 168538 . 169130) (WIRE.EXPANDFN 169132 . 172379) (
|
||||
SK.UPDATE.WIRE.ELT.AFTER.CHANGE 172381 . 172902) (OPENWIRE.READCHANGEFN 172904 . 175397) (
|
||||
OPENWIRE.TRANSFORMFN 175399 . 177522) (OPENWIRE.TRANSLATEFN 177524 . 177948) (OPENWIRE.TRANSLATEPTSFN
|
||||
177950 . 179229) (WIRE.INPUTFN 179231 . 180862) (SK.READ.WIRE.POINTS 180864 . 181395) (
|
||||
SK.READ.POINTS.WITH.FEEDBACK 181397 . 184164) (OPENWIRE.FEEDBACKFN 184166 . 184920) (
|
||||
CLOSEDWIRE.FEEDBACKFN 184922 . 186278) (CLOSEDWIRE.REGIONFN 186280 . 187265) (
|
||||
CLOSEDWIRE.GLOBALREGIONFN 187267 . 188319) (SK.WIRE.CREATE 188321 . 190084) (WIRE.ADD.POINT.TO.END
|
||||
190086 . 191002) (READ.ARROW.CHANGE 191004 . 196480) (CHANGE.ELTS.ARROWHEADS 196482 . 196944)) (196947
|
||||
207953 (SKETCH.CREATE.CLOSED.WIRE 196957 . 197518) (CLOSED.WIRE.INPUTFN 197520 . 197875) (
|
||||
CLOSED.WIRE.DRAWFN 197877 . 199922) (CLOSEDWIRE.READCHANGEFN 199924 . 204829) (CLOSEDWIRE.TRANSFORMFN
|
||||
204831 . 206625) (CLOSEDWIRE.TRANSLATEPTSFN 206627 . 207951)) (207954 260660 (SK.EXPAND.ARROWHEADS
|
||||
207964 . 208314) (SK.COMPUTE.ARC.ARROWHEAD.POINTS 208316 . 209697) (ARC.ARROWHEAD.POINTS 209699 .
|
||||
210922) (SET.ARC.ARROWHEAD.POINTS 210924 . 211905) (SET.OPENCURVE.ARROWHEAD.POINTS 211907 . 212808) (
|
||||
SK.COMPUTE.CURVE.ARROWHEAD.POINTS 212810 . 214080) (SET.WIRE.ARROWHEAD.POINTS 214082 . 214835) (
|
||||
SK.COMPUTE.WIRE.ARROWHEAD.POINTS 214837 . 216102) (SK.EXPAND.ARROWHEAD 216104 . 217287) (CHANGED.ARROW
|
||||
217289 . 220461) (SK.CHANGE.ARROWHEAD 220463 . 220916) (SK.CHANGE.ARROWHEAD1 220918 . 226173) (
|
||||
SK.CREATE.ARROWHEAD 226175 . 226695) (SK.ARROWHEAD.CREATE 226697 . 228271) (SK.ARROWHEAD.END.TEST
|
||||
228273 . 229197) (READ.ARROWHEAD.END 229199 . 231224) (ARROW.HEAD.POSITIONS 231226 . 233066) (
|
||||
ARROWHEAD.POINTS.LIST 233068 . 237040) (CURVE.ARROWHEAD.POINTS 237042 . 237905) (LEFT.MOST.IS.BEGINP
|
||||
237907 . 238788) (WIRE.ARROWHEAD.POINTS 238790 . 240316) (DRAWARROWHEADS 240318 . 242688) (
|
||||
\SK.DRAW.TRIANGLE.ARROWHEAD 242690 . 244350) (\SK.ENDPT.OF.ARROW 244352 . 246609) (
|
||||
\SK.ADJUST.FOR.ARROWHEADS 246611 . 249116) (SK.SET.ARROWHEAD.LENGTH 249118 . 250262) (
|
||||
SK.SET.ARROWHEAD.ANGLE 250264 . 251360) (SK.SET.ARROWHEAD.TYPE 251362 . 254651) (SK.SET.LINE.ARROWHEAD
|
||||
254653 . 257066) (SK.UPDATE.ARROWHEAD.FORMAT 257068 . 259178) (SK.SET.LINE.LENGTH.MODE 259180 .
|
||||
260658)) (260661 262462 (SK.INSURE.ARROWHEADS 260671 . 261853) (SK.ARROWHEADP 261855 . 262460)) (
|
||||
265266 327592 (SKETCH.CREATE.TEXT 265276 . 265790) (TEXT.CHANGEFN 265792 . 266184) (TEXT.READCHANGEFN
|
||||
266186 . 274257) (\SK.READ.FONT.SIZE1 274259 . 276155) (SK.TEXT.ELT.WITH.SAME.FIELDS 276157 . 277797)
|
||||
(SK.READFONTFAMILY 277799 . 279345) (CLOSE.PROMPT.WINDOW 279347 . 279771) (TEXT.DRAWFN 279773 . 280494
|
||||
) (TEXT.DRAWFN1 280496 . 283998) (TEXT.INSIDEFN 284000 . 284389) (TEXT.EXPANDFN 284391 . 286516) (
|
||||
SK.TEXT.LINE.REGIONS 286518 . 288392) (TEXT.UPDATE.GLOBAL.REGIONS 288394 . 289626) (REL.MOVE.REGION
|
||||
289628 . 290165) (LTEXT.LINE.REGIONS 290167 . 293585) (TEXT.INPUTFN 293587 . 294097) (READ.TEXT 294099
|
||||
. 294847) (TEXT.POSITION.AND.CREATE 294849 . 297160) (CREATE.TEXT.ELEMENT 297162 . 297980) (
|
||||
SK.UPDATE.TEXT.AFTER.CHANGE 297982 . 298384) (SK.TEXT.FROM.TEXTBOX 298386 . 302192) (
|
||||
TEXT.SET.GLOBAL.REGIONS 302194 . 303487) (TEXT.REGIONFN 303489 . 304259) (TEXT.GLOBALREGIONFN 304261
|
||||
. 304949) (TEXT.TRANSLATEFN 304951 . 306266) (TEXT.TRANSFORMFN 306268 . 307391) (TEXT.TRANSLATEPTSFN
|
||||
307393 . 307910) (TEXT.UPDATEFN 307912 . 312568) (SK.CHANGE.TEXT 312570 . 325658) (TEXT.SET.SCALES
|
||||
325660 . 326628) (BREAK.AT.CARRIAGE.RETURNS 326630 . 327590)) (327593 346117 (ADD.KNOWN.SKETCH.FONT
|
||||
327603 . 328594) (SK.PICK.FONT 328596 . 334128) (SK.CHOOSE.TEXT.FONT 334130 . 338078) (SK.NEXTSIZEFONT
|
||||
338080 . 339347) (SK.DECREASING.FONT.LIST 339349 . 341222) (SK.GUESS.FONTSAVAILABLE 341224 . 346115))
|
||||
(346544 360687 (SK.SET.FONT 346554 . 348121) (SK.SET.TEXT.FONT 348123 . 349125) (SK.SET.TEXT.SIZE
|
||||
349127 . 349814) (SK.SET.TEXT.HORIZ.ALIGN 349816 . 351390) (SK.READFONTSIZE 351392 . 353622) (
|
||||
SK.COLLECT.FONT.SIZES 353624 . 356542) (SK.SET.TEXT.VERT.ALIGN 356544 . 358586) (SK.SET.TEXT.LOOKS
|
||||
358588 . 360045) (SK.SET.DEFAULT.TEXT.FACE 360047 . 360685)) (360688 361274 (CREATE.SKETCH.TERMTABLE
|
||||
360698 . 361272)) (361275 363041 (SK.FONT.LIST 361285 . 361611) (SK.INSURE.FONT 361613 . 362135) (
|
||||
SK.INSURE.STYLE 362137 . 362655) (SK.INSURE.TEXT 362657 . 363039)) (363611 420904 (
|
||||
SKETCH.CREATE.TEXTBOX 363621 . 365263) (SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 365265 . 367342) (
|
||||
SK.BREAK.INTO.LINES 367344 . 378530) (SK.BRUSH.SIZE 378532 . 378913) (SK.TEXTBOX.CREATE 378915 .
|
||||
379712) (SK.TEXTBOX.CREATE1 379714 . 380778) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 380780 . 381320) (
|
||||
SK.TEXTBOX.POSITION.IN.BOX 381322 . 383233) (TEXTBOX.CHANGEFN 383235 . 383709) (TEXTBOX.DRAWFN 383711
|
||||
. 385747) (SK.TEXTURE.AROUND.REGIONS 385749 . 391822) (ALL.EMPTY.REGIONS 391824 . 392314) (
|
||||
TEXTBOX.EXPANDFN 392316 . 399472) (TEXTBOX.INPUTFN 399474 . 401087) (TEXTBOX.INSIDEFN 401089 . 401502)
|
||||
(TEXTBOX.REGIONFN 401504 . 402358) (TEXTBOX.GLOBALREGIONFN 402360 . 402688) (
|
||||
TEXTBOX.SET.GLOBAL.REGIONS 402690 . 404021) (TEXTBOX.TRANSLATEFN 404023 . 405864) (
|
||||
TEXTBOX.TRANSLATEPTSFN 405866 . 408649) (TEXTBOX.TRANSFORMFN 408651 . 410319) (TEXTBOX.UPDATEFN 410321
|
||||
. 412214) (TEXTBOX.READCHANGEFN 412216 . 417105) (SK.TEXTBOX.TEXT.POSITION 417107 . 417528) (
|
||||
SK.TEXTBOX.FROM.TEXT 417530 . 420135) (ADD.EOLS 420137 . 420902)) (421472 424973 (
|
||||
SK.SET.TEXTBOX.VERT.ALIGN 421482 . 423362) (SK.SET.TEXTBOX.HORIZ.ALIGN 423364 . 424971)) (425356
|
||||
469831 (SKETCH.CREATE.BOX 425366 . 425849) (SK.BOX.DRAWFN 425851 . 427010) (BOX.DRAWFN1 427012 .
|
||||
429851) (KNOTS.OF.REGION 429853 . 431087) (SK.DRAWAREABOX 431089 . 437690) (SK.DRAWBOX 437692 . 438881
|
||||
) (SK.BOX.EXPANDFN 438883 . 442631) (SK.BOX.GETREGIONFN 442633 . 443819) (BOX.SET.SCALES 443821 .
|
||||
445061) (SK.BOX.INPUTFN 445063 . 446996) (SK.BOX.CREATE 446998 . 447699) (SK.UPDATE.BOX.AFTER.CHANGE
|
||||
447701 . 448212) (SK.BOX.INSIDEFN 448214 . 448604) (SK.BOX.REGIONFN 448606 . 449319) (
|
||||
SK.BOX.GLOBALREGIONFN 449321 . 450059) (SK.BOX.READCHANGEFN 450061 . 453782) (SK.CHANGE.FILLING 453784
|
||||
. 457732) (SK.CHANGE.FILLING.COLOR 457734 . 461390) (SK.BOX.TRANSLATEFN 461392 . 462571) (
|
||||
SK.BOX.TRANSFORMFN 462573 . 463518) (SK.BOX.TRANSLATEPTSFN 463520 . 465888) (UNSCALE.REGION.TO.GRID
|
||||
465890 . 466815) (INCREASEREGION 466817 . 467408) (INSUREREGIONSIZE 467410 . 468581) (EXPANDREGION
|
||||
468583 . 469463) (REGION.FROM.COORDINATES 469465 . 469829)) (470371 496726 (SKETCH.CREATE.ARC 470381
|
||||
. 471190) (ARC.DRAWFN 471192 . 472919) (ARC.EXPANDFN 472921 . 475254) (ARC.INPUTFN 475256 . 479474) (
|
||||
SK.INVERT.CIRCLE 479476 . 480336) (SK.READ.ARC.ANGLE.POINT 480338 . 480845) (SK.SHOW.ARC 480847 .
|
||||
481457) (ARC.CREATE 481459 . 482814) (SK.UPDATE.ARC.AFTER.CHANGE 482816 . 483156) (ARC.MOVEFN 483158
|
||||
. 484741) (ARC.TRANSLATEPTS 484743 . 486628) (ARC.INSIDEFN 486630 . 486880) (ARC.REGIONFN 486882 .
|
||||
488018) (ARC.GLOBALREGIONFN 488020 . 489742) (ARC.TRANSLATE 489744 . 490726) (ARC.TRANSFORMFN 490728
|
||||
. 493678) (ARC.READCHANGEFN 493680 . 496724)) (496727 505806 (SK.COMPUTE.ARC.ANGLE.PT 496737 . 497663
|
||||
) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 497665 . 498658) (SK.COMPUTE.ARC.PTS 498660 . 502232) (
|
||||
SK.SET.ARC.DIRECTION 502234 . 502808) (SK.SET.ARC.DIRECTION.CW 502810 . 502984) (
|
||||
SK.SET.ARC.DIRECTION.CCW 502986 . 503259) (SK.COMPUTE.SLOPE.OF.LINE 503261 . 503753) (
|
||||
SK.CREATE.ARC.USING 503755 . 504992) (SET.ARC.SCALES 504994 . 505804)) (505807 506252 (
|
||||
SK.INSURE.DIRECTION 505817 . 506250)) (507654 553513 (GETSKETCHELEMENTPROP 507664 . 508972) (
|
||||
\SK.GET.ARC.ANGLEPT 508974 . 509535) (\GETSKETCHELEMENTPROP1 509537 . 509791) (\SK.GET.BRUSH 509793 .
|
||||
510717) (\SK.GET.FILLING 510719 . 511817) (\SK.GET.ARROWHEADS 511819 . 512598) (\SK.GET.FONT 512600 .
|
||||
513080) (\SK.GET.JUSTIFICATION 513082 . 513606) (\SK.GET.DIRECTION 513608 . 514085) (\SK.GET.DASHING
|
||||
514087 . 515106) (PUTSKETCHELEMENTPROP 515108 . 517377) (\SK.PUT.FILLING 517379 . 518649) (
|
||||
ADDSKETCHELEMENTPROP 518651 . 519456) (REMOVESKETCHELEMENTPROP 519458 . 520247) (\SK.PUT.FONT 520249
|
||||
. 521063) (\SK.PUT.JUSTIFICATION 521065 . 522076) (\SK.PUT.DIRECTION 522078 . 522685) (
|
||||
\SK.PUT.DASHING 522687 . 524022) (\SK.PUT.BRUSH 524024 . 525943) (\SK.PUT.ARROWHEADS 525945 . 527911)
|
||||
(SK.COPY.ELEMENT.PROPERTY.LIST 527913 . 528489) (SKETCH.UPDATE 528491 . 529221) (SKETCH.UPDATE1 529223
|
||||
. 530511) (\SKELT.GET.SCALE 530513 . 531501) (\SKELT.PUT.SCALE 531503 . 532810) (\SKELT.PUT.DATA
|
||||
532812 . 534609) (SK.REPLACE.TEXT.IN.ELEMENT 534611 . 535564) (\SKELT.GET.DATA 535566 . 536633) (
|
||||
\SK.GET.1STCONTROLPT 536635 . 538147) (\SK.PUT.1STCONTROLPT 538149 . 543622) (\SK.GET.2NDCONTROLPT
|
||||
543624 . 544539) (\SK.PUT.2NDCONTROLPT 544541 . 548729) (\SK.GET.3RDCONTROLPT 548731 . 549609) (
|
||||
\SK.PUT.3RDCONTROLPT 549611 . 553511)) (553514 554095 (LOWERLEFTCORNER 553524 . 553770) (
|
||||
UPPERRIGHTCORNER 553772 . 554093)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user