(FILECREATED "30-MAR-83 11:32:34" ("compiled on " {PHYLUM}ORB>NEWSKETCH.;12) "26-MAR-83 17:07:31" recompiled exprs: SKETCHW.CREATE MAP.SKETCHSPEC.INTO.VIEWER SKETCH.ADD.AND.DISPLAY INIT.SKETCH.ELEMENTS ELT.INSIDE.SKETCHWP SK.INSIDE.REGION SKETCH.NEW.VIEW SK.UPDATE.AFTER.SCALE.CHANGE CIRCLE.INSIDEFN ELLIPSE.INSIDEFN CURVE.INSIDEFN TEXT.INSIDEFN IMAGE.INSIDEFN SCALE.POSITION GETDRAWPOSITION SK.INSIDEFN in WORK dated "26-MAR-83 17:14:21") (FILECREATED "30-MAR-83 11:31:44" {PHYLUM}ORB>NEWSKETCH.;12 61309 changes to: (FNS GETDRAWPOSITION SCALE.POSITION SKETCHW.CREATE SKETCH.NEW.VIEW MAP.SKETCHSPEC.INTO.VIEWER SK.UPDATE.AFTER.SCALE.CHANGE INIT.SKETCH.ELEMENTS SK.INSIDEFN SKETCH.ADD.AND.DISPLAY ELT.INSIDE.SKETCHWP CIRCLE.INSIDEFN ELLIPSE.INSIDEFN CURVE.INSIDEFN TEXT.INSIDEFN IMAGE.INSIDEFN SK.INSIDE.REGION ELLIPSE.MOVEFN CREATE.SKETCHW.COMMANDMENU SK.DRAWFIGURE SKETCH.ZOOM ZOOM.UPDATE.ELT GETWREGION SKETCH.HOME UNSCALE.POSITION ABSWYOFFSET ABSWXOFFSET SAME.ASPECT.RATIO) (VARS NEWSKETCHCOMS ) previous date: "24-MAR-83 16:01:55" {PHYLUM}ORB>NEWSKETCH.;10) SKETCHW.CREATE D1 (P 2 SK P 1 SKETCHNAME P 0 W I 3 SCALE I 2 TITLE I 1 REGION I 0 SKETCH) AB @ g l@@ @l@nH BHgoI HgI Ig IgIh ZHgCddd`oC JH H HgH Hgg Hgg Hgg Hgg H Hgg Hgg Hgg IH H H(342Q FIGUREW.REPAINTFN 336Q ADD.SKETCH.VIEWER 331Q PUTWINDOWPROP 317Q PUTWINDOWPROP 305Q PUTWINDOWPROP 273Q FIGUREW.MOVEFN 267Q PUTWINDOWPROP 255Q PUTWINDOWPROP 243Q PUTWINDOWPROP 231Q PUTWINDOWPROP 217Q PUTWINDOWPROP 214Q CREATE.SKETCHW.COMMANDMENU 204Q SK.UPDATE.REGION.VIEWED 200Q MAP.SKETCHSPEC.INTO.VIEWER 173Q PUTWINDOWPROP 170Q ERROR 131Q /PUTPROP 110Q PUTWINDOWPROP 77Q PUTWINDOWPROP 74Q CONCAT 56Q DSPRIGHTMARGIN 15Q GENSYM 4 CREATEW) (326Q SCROLLBYREPAINTFN 323Q SCROLLFN 314Q FIGUREW.OPENFN 311Q OPENFN 302Q FIGUREW.CLOSEFN 277Q CLOSEFN 264Q RESHAPEBYREPAINTANDMOVEFN 261Q RESHAPEFN 252Q FIGUREW.MOVEFN 247Q MOVEFN 240Q SKETCHW.REPAINTFN 235Q REPAINTFN 226Q FIGUREW.BUTTON.HANDLER 223Q BUTTONEVENTFN 210Q COMMANDMENU 157Q INITIAL.SCALE 136Q SCALE 123Q SKETCH 114Q SKETCH 104Q SKETCH 64Q TITLE 12Q SK) (164Q "unkonwn SCALE" 70Q "Viewer onto ") MAP.SKETCHSPEC.INTO.VIEWER D1 (P 3 SKELT I 1 SKW I 0 SKETCH) +Ag@@@d[A IHhZH&J (50Q PUTWINDOWPROP 22Q SK.LOCAL.FROM.GLOBAL) (3 SKETCHSPECS) NIL SKETCHW.REPAINTFN D1 (I 1 REG I 0 W) g@ @ g@A (22Q MAPSKETCHSPECS 12Q LOCALSPECS.FROM.VIEWER 6 DSPOPERATION) (15Q SK.DRAWFIGURE 2 PAINT) NIL CREATE.SKETCHW.COMMANDMENU D1 (P 4 CMENU I 0 WINDOW) `ooo@`"d[KdhIHhZH&Joo HdIdi dgg@hHdI"dodg dgjdndhHdI LhL@ \dg@ L(273Q PUTWINDOWPROP 262Q ADDMENU 257Q UPPERLEFTMENUPOSITION 123Q \APPEND2 120Q \APPEND2 115Q \APPEND2 112Q \APPEND2 107Q \APPEND2) (267Q SKETCHW 215Q DEFAULTMENUHELDFN 206Q CLRPROMPT 154Q SKETCHW 146Q SKETCHW.SELECTIONFN 44Q SKETCHTYPE 35Q SKETCHTYPE 25Q SKETCH.ELEMENT.TYPES 2 MENUTYPE#) (177Q (GACHA 14Q BOLD) 104Q ((inspect INSPECT.SKETCH "Calls the Inspector on the figure data structures.")) 100Q (("" NILL)) 17Q (("" NILL)) 13Q ((Move SK.MOVE.ELT "Moves one of the pieces.")) 7 ((Delete SK.DELETE.ELT "Deletes a piece."))) SKETCHW.SELECTIONFN D1 (P 1 SKETCHW P 0 COMMAND I 1 MENU I 0 ITEM) $@A g H`HI IkH(33Q SKETCHW.ADD.INSTANCE 14Q GETWINDOWPROP 6 WFROMMENU) (24Q SKETCHTYPETYPE# 11Q SKETCHW) NIL ADD.ELEMENT.TO.SKETCH D1 (P 0 SKETCHDATA I 1 SKETCH I 0 GELT) "A Hd@h Hghg h(36Q MARKASCHANGED 17Q \NCONC2 3 INSURE.SKETCH) (33Q PROPS 25Q SKETCH) NIL ADD.SKETCH.VIEWER D1 (P 0 VIEWERS I 1 VIEWER I 0 SKETCH) !@ X@Ah`hAh (35Q \NCONC2 6 ALL.SKETCH.VIEWERS) (25Q ALL.SKETCHES 21Q ALL.SKETCHES) NIL ALL.SKETCH.VIEWERS D1 (I 0 SKETCH) @` (6 FASSOC) (3 ALL.SKETCHES) NIL ELT.INSIDE.REGION? D1 (I 1 WORLDREG I 0 GLOBALPART) @ @AlH(3 SK.INSIDEFN) NIL NIL ELT.INSIDE.SKWP D1 (I 1 SKETCHW I 0 GLOBALPART) @A (7 ELT.INSIDE.REGION? 4 SK.REGION.VIEWED) NIL NIL SCALE.FROM.SKW D1 (I 0 WINDOW) @g (6 GETWINDOWPROP) (3 SCALE) NIL SK.ADDELT.TO.WINDOW D1 (I 1 SKETCHW I 0 PELT) @ Ag@ (12Q WINDOWADDPROP) (6 SKETCHSPECS) NIL SK.CALC.REGION.VIEWED D1 (I 1 SCALE I 0 WINDOW) h@ A (10Q SCALE.REGION 4 DSPCLIPPINGREGION) NIL NIL SK.DRAWFIGURE D1 (P 1 GLOBALPART P 0 LONGSCALE I 3 SCALE I 2 REGION I 1 SKW I 0 SCREENELT) FCA ddC CoC @HIhHIh@AB (103Q SK.DRAWFIGURE1 44Q ERROR 30Q POSITIONP 6 SCALE.FROM.SKW) NIL (40Q "illegal SCALE") SK.DRAWFIGURE1 D1 (I 2 REGION I 1 SKW I 0 ELT) @ @ABlH(5 SK.DRAWFN) NIL NIL SK.LOCAL.FROM.GLOBAL D1 (I 1 SKW I 0 GELT) @ @AlH(4 SK.EXPANDFN) NIL NIL SK.REGION.VIEWED D1 (I 0 SKETCHW) @g (6 GETWINDOWPROP) (3 REGION.VIEWED) NIL SK.UPDATE.REGION.VIEWED D1 (I 0 SKW) @g@d (16Q PUTWINDOWPROP 13Q SK.CALC.REGION.VIEWED 10Q SKETCHW.SCALE) (3 REGION.VIEWED) NIL SKETCH.ADD.AND.DISPLAY D1 (P 1 SKW P 0 SKETCH I 1 SKETCHW I 0 GELT) 7@4A @H @A H dIA@I @I h(55Q SKETCH.ADD.AND.DISPLAY1 47Q ELT.INSIDE.SKETCHWP 27Q ALL.SKETCH.VIEWERS 23Q SKETCH.ADD.AND.DISPLAY1 16Q ADD.ELEMENT.TO.SKETCH 6 SKETCH.FROM.VIEWER) NIL NIL SKETCH.ADD.AND.DISPLAY1 D1 (P 0 ELT I 2 SCALE I 1 SKETCHW I 0 GELT) @dA HAhB HA h(26Q SK.ADDELT.TO.WINDOW 21Q SK.DRAWFIGURE 7 SK.LOCAL.FROM.GLOBAL) NIL NIL SKETCH.FROM.VIEWER D1 (I 0 SKETCHW) @g (6 GETWINDOWPROP) (3 SKETCH) NIL SKETCHW.ADD.INSTANCE D1 (P 0 ELT I 1 SKW I 0 TYPE) @A HdA H(16Q SKETCH.ADD.AND.DISPLAY 4 SK.INPUT) NIL NIL SK.SEL.AND.DELETE D1 (P 0 SELELT I 0 W) @i Hd@ H(16Q SK.DELETE.ELEMENT 4 SK.SELECT.ITEM) NIL NIL SK.ERASE.AND.DELETE.ITEM D1 (I 1 SKW I 0 SELELT) @dA @A (13Q SK.DELETE.ITEM 6 SK.ERASE.ELT) NIL NIL REMOVE.ELEMENT.FROM.SKETCH D1 (P 0 SKETCHDATA I 1 SKETCH I 0 GELT) A H@H Hghg h(34Q MARKASCHANGED 15Q REMOVE 3 INSURE.SKETCH) (31Q PROPS 23Q SKETCH) NIL SK.DELETE.ELEMENT D1 (P 3 SKW P 2 LOCALELT P 1 SKETCH P 0 GLOBALPART I 1 SKETCHW I 0 OLDELT) 7@A HI @A I dKAHK ZJK h(55Q SK.ERASE.AND.DELETE.ITEM 46Q SK.LOCAL.ELT.FROM.GLOBALPART 26Q ALL.SKETCH.VIEWERS 22Q SK.ERASE.AND.DELETE.ITEM 15Q REMOVE.ELEMENT.FROM.SKETCH 5 SKETCH.FROM.VIEWER) NIL NIL SK.ERASE.ELT D1 (I 2 REGION I 1 WINDOW I 0 ELT) gA @AB gA (23Q DSPOPERATION 14Q SK.DRAWFIGURE 6 DSPOPERATION) (17Q PAINT 2 ERASE) NIL SK.DELETE.ELT D1 (I 0 W) g@h (11Q EVAL.AS.PROCESS) (2 SK.SEL.AND.DELETE) NIL SK.DELETE.ITEM D1 (I 1 SKETCHW I 0 ELT) @ Ag@ (12Q WINDOWDELPROP) (6 SKETCHSPECS) NIL SK.MOVE.ELT D1 (I 0 W) g@h (11Q EVAL.AS.PROCESS) (2 SK.SEL.AND.MOVE) NIL SK.SEL.AND.MOVE D1 (P 1 NEWPOS P 0 SELPOS I 0 W) @ Hd@ @ HI@ H(32Q SK.MOVE.THING 23Q GETDRAWPOSITION 16Q CURSORPOSITION 3 SK.SELECT.ITEM) NIL NIL SK.MOVE.THING D1 (P 0 SKETCHELT I 2 W I 1 NEWPOS I 0 SELPOS) )A&B @ Hdd H@ABlIB h(45Q SK.UPDATE.ELEMENT 27Q SK.MOVEFN 12Q IN.SKETCH.ELT? 6 LOCALSPECS.FROM.VIEWER) NIL NIL UPDATE.ELEMENT.IN.SKETCH D1 (P 0 SKETCHDATA I 2 SKETCH I 1 NEWGELT I 0 OLDGELT) /B @AHYHghg h@IAI(35Q MARKASCHANGED 3 INSURE.SKETCH) (32Q PROPS 24Q SKETCH) NIL SK.UPDATE.ELEMENT D1 (P 3 SKW P 2 LOCALELT P 1 SKETCH P 0 GLOBALPART I 2 SKETCHW I 1 NEWGLOBAL I 0 OLDELT) :@B HAI @AB I dKBHK ZJAK h(60Q SK.UPDATE.ELEMENT1 50Q SK.LOCAL.ELT.FROM.GLOBALPART 30Q ALL.SKETCH.VIEWERS 24Q SK.UPDATE.ELEMENT1 16Q UPDATE.ELEMENT.IN.SKETCH 5 SKETCH.FROM.VIEWER) NIL NIL SK.UPDATE.ELEMENT1 D1 (I 2 SKETCHW I 1 NEWGELT I 0 OLDELT) @B AB (11Q SKETCH.ADD.AND.DISPLAY1 4 SK.ERASE.AND.DELETE.ITEM) NIL NIL LOCALSPECS.FROM.VIEWER D1 (I 0 SKW) @g (6 GETWINDOWPROP) (3 SKETCHSPECS) NIL SK.LOCAL.ELT.FROM.GLOBALPART D1 (I 1 SKW I 0 GLOBALPART) A Hhd@HX(3 LOCALSPECS.FROM.VIEWER) NIL NIL INSURE.SKETCH D1 (I 0 SK) @dlg @o (24Q ERROR) (11Q SKETCH) (21Q "not a SKETCH") INSPECT.SKETCH D1 (I 0 SKW) @ (6 INSPECT/TOP/LEVEL/LIST 3 LOCALSPECS.FROM.VIEWER) NIL NIL INIT.SKETCH.ELEMENTS D1 (F 0 CIRCLEICON F 1 ELLIPSEICON F 2 OPENCURVEICON) gg`dPdodgdgdgdh dg dg `g`gg`dQdodgdgdgdh dg dh `g`gg`dRdodhdhdhdh dh dh `g`(333Q PUTPROP 222Q PUTPROP 101Q PUTPROP) (354Q SKETCH.ELEMENT.TYPE.NAMES 350Q SKETCH.ELEMENT.TYPE.NAMES 345Q OPENCURVE 342Q SKETCH.ELEMENT.TYPES 336Q SKETCH.ELEMENT.TYPES 254Q SKETCHTYPETYPE# 251Q SKETCHTYPE 246Q OPENCURVE 243Q SKETCH.ELEMENT.TYPE.NAMES 237Q SKETCH.ELEMENT.TYPE.NAMES 234Q ELLIPSE 231Q SKETCH.ELEMENT.TYPES 225Q SKETCH.ELEMENT.TYPES 207Q ELLIPSE.INPUTFN 173Q ELLIPSE.MOVEFN 164Q ELLIPSE.EXPANDFN 155Q ELLIPSE.DRAWFN 133Q SKETCHTYPETYPE# 130Q SKETCHTYPE 125Q ELLIPSE 122Q SKETCH.ELEMENT.TYPE.NAMES 116Q SKETCH.ELEMENT.TYPE.NAMES 113Q CIRCLE 110Q SKETCH.ELEMENT.TYPES 104Q SKETCH.ELEMENT.TYPES 73Q CIRCLE.INSIDEFN 64Q CIRCLE.INPUTFN 50Q CIRCLE.MOVEFN 41Q CIRCLE.EXPANDFN 32Q CIRCLE.DRAWFN 10Q SKETCHTYPETYPE# 5 SKETCHTYPE 2 CIRCLE) (267Q "Adds a curve by accepting points the curve goes through." 146Q "Adds a circle to the figure." 23Q "Adds a circle to the figure.") SKETCH.ELEMENT.NAMEP D1 (L (0 X)) @`NIL (3 SKETCH.ELEMENT.TYPE.NAMES) NIL MAPSKETCHSPECS D1 (P 1 FIGSPEC P 0 X I 3 DATUM2 I 2 DATUM I 1 SPECFN I 0 SKSPECS) ;@8@X@(o@  @BClAdIABC h(62Q MAPSKETCHSPECS 33Q SKETCH.ELEMENT.NAMEP 26Q ERROR) NIL (22Q "unknown figure specification") MAPSKETCHSPECSUNTIL D1 (P 2 VALUE P 1 FIGSPEC I 3 DATUM2 I 2 DATUM I 1 SPECFN I 0 SKETCHSPECS) :@d& @BClA@ o@ !HhYABC ZHX(60Q MAPSKETCHSPECSUNTIL 36Q ERROR 10Q SKETCH.ELEMENT.NAMEP) NIL (32Q "unknown figure specification") SK.SHOWMARKS D1 (I 1 ELEMENTS I 0 W) A@ g@ (15Q MAPSKETCHSPECS 6 LOCALSPECS.FROM.VIEWER) (11Q SK.MARKSELECTIONSPOTS) NIL MARKPOINT D1 (P 1 HALFWIDTH P 0 MARKWIDTH I 2 MARK I 1 WINDOW I 0 PT) *B`b BjdA@HY@IHdgg (47Q BKBITBLT 12Q BITMAPWIDTH) (43Q INVERT 40Q INPUT 5 SK.SELECTEDMARK) NIL SK.MARKHOTSPOTS D1 (I 2 MARK I 1 W I 0 SKETCHELT) @AB (7 MARKSPOTS) NIL NIL SK.MARKSELECTIONSPOTS D1 (I 1 W I 0 SKETCHELT) @A` (7 SK.MARKHOTSPOTS) (4 SK.LOCATEMARK) NIL MARKSPOTS D1 (P 0 PT I 2 MARK I 1 WINDOW I 0 PTS) @dHAB h(14Q MARKPOINT) NIL NIL SK.MARK.SELECTION D1 (I 1 SKW I 0 ELT) @ @A` @A` (25Q SK.MARKHOTSPOTS 14Q MARKPOINT 3 POSITIONP) (22Q SK.SELECTEDMARK 11Q SK.SELECTEDMARK) NIL IN.SKETCH.ELT? D1 (I 2 PTFLG I 1 POS I 0 ITEMS) @gAB (10Q MAPSKETCHSPECSUNTIL) (3 SK.ON.HOT.SPOT) NIL SK.ON.HOT.SPOT D1 (P 2 PT P 0 NEARPT I 2 PTFLG I 1 POS I 0 SKETCHELT) &0@Y hdBZA JiI@(27Q FIGW.NEARPT) NIL NIL SK.SELECT.ITEM D1 (P 4 BUTTON P 3 OLDPOS P 2 PREVIOUS P 1 NOW P 0 SELECTABLEITEMS I 1 ITEMFLG I 0 WINDOW) @ AHh@ @H `lj`dkjgljgHh@ [Ah J@ IZ@ `dkjgljgh\J@ @H JJHh@K Ah Y𲷰(221Q IN.SKETCH.ELT? 213Q CURSORPOSITION 201Q SK.SHOWMARKS 173Q SK.DESELECT.ELT 132Q GETMOUSESTATE 126Q SK.SELECT.ELT 117Q SK.DESELECT.ELT 111Q IN.SKETCH.ELT? 102Q CURSORPOSITION 30Q GETMOUSESTATE 24Q SK.SHOWMARKS 16Q TOTOPW 3 LOCALSPECS.FROM.VIEWER) (162Q LEFT 150Q MIDDLE 136Q LASTMOUSEBUTTONS 73Q LEFT 60Q MIDDLE 46Q LASTMOUSEBUTTONS 34Q LASTMOUSEBUTTONS) NIL SK.SELECT.ELT D1 (I 1 FIGW I 0 ELT) @dA (6 SK.MARK.SELECTION) NIL NIL SK.DESELECT.ELT D1 (I 1 SKW I 0 ELT) @dA (6 SK.MARK.SELECTION) NIL NIL ELT.INSIDE.SKETCHWP D1 (I 1 SKW I 0 ELT) @Ag (12Q SK.INSIDE.REGION 7 GETWINDOWPROP) (4 REGION.VIEWED) NIL SK.INSIDE.REGION D1 (I 1 REGION I 0 ELT) @ @AlH(5 SK.INSIDEFN) NIL NIL SKETCH.ZOOM D1 (P 3 NEWSCALE P 2 NEWREG P 1 OLDREG P 0 OLDSCALE I 0 SKW) f@ h@ "o @g@ ZHJIj[kHko @gK JHKj@ JHKj@ @ h(142Q SK.UPDATE.AFTER.SCALE.CHANGE 136Q ABSWYOFFSET 121Q ABSWXOFFSET 105Q PUTWINDOWPROP 74Q PROMPTPRINT 36Q CLRPROMPT 32Q GETWREGION 22Q PROMPTPRINT 10Q DSPCLIPPINGREGION 3 SKETCHW.SCALE) (101Q SCALE 26Q SAME.ASPECT.RATIO) (71Q "Can't zoom out any farther." 17Q "Specify the part of this figure that will be seen after the zoom. It can be either larger or smaller than the present window size.") SAME.ASPECT.RATIO D1 (P 5 WID P 4 YFIX P 3 XMOVE P 2 XFIX P 1 YMOVE P 0 REG I 2 WIN I 1 MOVEPT I 0 FIXPT) 4A@hB A@A@HILH ]JdKMفMI(44Q ABS 10Q DSPCLIPPINGREGION) NIL NIL ABSWXOFFSET D1 (I 1 W I 0 NEWX) hA @A (12Q WXOFFSET 4 WXOFFSET) NIL NIL ABSWYOFFSET D1 (I 1 W I 0 NEWY) hA @A (12Q WYOFFSET 4 WYOFFSET) NIL NIL SKETCH.HOME D1 (I 0 SKW) #@g` h@ @ h@ @ @ h(37Q SK.UPDATE.AFTER.SCALE.CHANGE 33Q WYOFFSET 27Q WYOFFSET 22Q WXOFFSET 16Q WXOFFSET 11Q PUTWINDOWPROP) (6 INITIAL.SCALE 3 SCALE) NIL SKETCH.NEW.VIEW D1 (I 0 SKW) @ hd@ (14Q SKETCHW.CREATE 11Q SKETCHW.SCALE 3 SKETCH.FROM.VIEWER) NIL NIL ZOOM.UPDATE.ELT D1 (I 1 SKW I 0 ELT) @dA (6 SK.LOCAL.FROM.GLOBAL) NIL NIL SK.UPDATE.AFTER.SCALE.CHANGE D1 (I 0 SKETCHW) @ g@ @ hdg@ @ (33Q SKETCHW.REPAINTFN 27Q DSPFILL 16Q SK.UPDATE.REGION.VIEWED 12Q MAPSKETCHSPECS 3 LOCALSPECS.FROM.VIEWER) (23Q REPLACE 6 ZOOM.UPDATE.ELT) NIL CIRCLE.EXPANDFN D1 (P 1 RADIUSPT P 0 CENTER I 1 SKETCHW I 0 GCIRCLE) ' @A X@A YhHI h@(37Q DISTANCEBETWEEN 26Q SCALE.POSITION.INTO.SKETCHW 13Q SCALE.POSITION.INTO.SKETCHW) NIL NIL CIRCLE.DRAWFN D1 (P 2 CPOS P 1 LCIRCLE P 0 GCIRCLE I 2 REGION I 1 WINDOW I 0 CIRCLEELT) (@@IZdJIHHA (45Q DRAWCIRCLE) NIL NIL CIRCLE.MOVEFN D1 (P 3 RADIUSPT P 2 CENTERPT P 1 GCIRCLE P 0 LCIRCLE I 3 WINDOW I 2 NEWPOS I 1 SELPOS I 0 CIRCLESPEC) E@@"HZH[AJ IBC IKBJ AK IBC I(100Q UNSCALE.POSITION.FROM.SKETCHW 65Q EQUAL 57Q PTPLUS 54Q PTDIFFERENCE 37Q UNSCALE.POSITION.FROM.SKETCHW 24Q EQUAL) NIL NIL CIRCLE.INPUTFN D1 (P 2 P2 P 1 P1 P 0 SCALE I 0 WINDOW F 4 DEFAULT.VISIBLE.SCALE.FACTOR F 5 CIRCLE.CENTER F 6 CIRCLE.EDGE F 7 CURRENTFIGUREWDASHING F 10Q CURRENTFIGUREWBRUSH) d@ 1` o` @U Ydh@ ` o` @V ZIh@ gHTֻHTKI@ J@ WWh(125Q UNSCALE.POSITION.FROM.SKETCHW 120Q UNSCALE.POSITION.FROM.SKETCHW 100Q MARK.SPOT 71Q GETPOSITION 64Q PRIN1 51Q TERPRI 43Q MARK.SPOT 34Q GETPOSITION 27Q PRIN1 14Q TERPRI 3 SKETCHW.SCALE) (103Q CIRCLE 61Q PROMPTWINDOW 46Q PROMPTWINDOW 24Q PROMPTWINDOW 11Q PROMPTWINDOW) (56Q "Indicate a point of the circumference of the circle" 21Q "Indicate center of circle") CIRCLE.INSIDEFN D1 (I 1 WREG I 0 GCIRCLE) A@ A@ (24Q INSIDEP 10Q INSIDEP) NIL NIL ELLIPSE.EXPANDFN D1 (P 2 MAJRAD P 1 MINRAD P 0 CENTER I 1 SKETCHW I 0 GELLIPSE) :0@A X@A Y@A ZhHI HJ h@(61Q DISTANCEBETWEEN 54Q DISTANCEBETWEEN 42Q SCALE.POSITION.INTO.SKETCHW 26Q SCALE.POSITION.INTO.SKETCHW 13Q SCALE.POSITION.INTO.SKETCHW) NIL NIL ELLIPSE.DRAWFN D1 (P 2 CPOS P 1 LELLIPSE P 0 GELLIPSE I 2 REGION I 1 WINDOW I 0 ELLIPSEELT) 8@@IZdJIIHHHA (65Q DRAWELLIPSE) NIL NIL ELLIPSE.MOVEFN D1 (P 4 MAJRADPT P 3 MINRADPT P 2 CENTERPT P 1 GLOBALEL P 0 LOCALEL I 3 WINDOW I 2 NEWPOS I 1 SELPOS I 0 ELLIPSEELT) @@2HZH[H\AJ 2IBC IKBJ C ILBJ AK IAL IBC III I(174Q COMPUTE.ELLIPSE.ORIENTATION 145Q UNSCALE.POSITION.FROM.SKETCHW 131Q EQUAL 121Q EQUAL 112Q PTPLUS 107Q PTDIFFERENCE 71Q UNSCALE.POSITION.FROM.SKETCHW 65Q PTPLUS 62Q PTDIFFERENCE 45Q UNSCALE.POSITION.FROM.SKETCHW 32Q EQUAL) NIL NIL ELLIPSE.INPUTFN D1 (P 3 ANGLE P 2 MINRAD P 1 MAJRAD P 0 CENTER I 0 WINDOW F 4 ELLIPSE.CENTER F 5 ELLIPSE.SEMI.MAJOR F 6 CURRENTFIGUREWDASHING F 7 ELLIPSE.SEMI.MINOR F 10Q CURRENTFIGUREWBRUSH) n@` o` @T Xdh@ ` o` @U Ydh@ ` o` @W ZIh@ Hh@ HJIWV@ (153Q ELLIPSE.CREATE 140Q MARK.SPOT 132Q MARK.SPOT 123Q GETPOSITION 115Q PRIN1 102Q TERPRI 74Q MARK.SPOT 65Q GETPOSITION 60Q PRIN1 45Q TERPRI 37Q MARK.SPOT 30Q GETPOSITION 23Q PRIN1 10Q TERPRI) (112Q PROMPTWINDOW 77Q PROMPTWINDOW 55Q PROMPTWINDOW 42Q PROMPTWINDOW 20Q PROMPTWINDOW 5 PROMPTWINDOW) (107Q "Indicate semi-minor axis" 52Q "Indicate semi-major axis" 15Q "Indicate center of ellipse") ELLIPSE.INSIDEFN D1 (I 1 WREG I 0 GELLIPSE) $A@ A@ A@ (41Q INSIDEP 24Q INSIDEP 10Q INSIDEP) NIL NIL ELLIPSE.CREATE D1 (P 0 SCALE I 5 SKETCHW I 4 DASHING I 3 BRUSH I 2 MAJRAD I 1 MINRAD I 0 CENTER F 5 DEFAULT.VISIBLE.SCALE.FACTOR F 6 CURRENTFIGUREWDASHING F 7 CURRENTFIGUREWBRUSH) DE @gHUּHUL@A DVCW@E AE BE KJIh(64Q UNSCALE.POSITION.FROM.SKETCHW 57Q UNSCALE.POSITION.FROM.SKETCHW 52Q UNSCALE.POSITION.FROM.SKETCHW 31Q COMPUTE.ELLIPSE.ORIENTATION 3 SKETCHW.SCALE) (14Q ELLIPSE) NIL CURVE.INSIDEFN D1 (P 1 PT I 1 WREG I 0 GCURVE) @HhAI iHX(24Q INSIDEP) NIL NIL TEXT.INSIDEFN D1 (I 1 WREG I 0 GTEXT) A@ (10Q INSIDEP) NIL NIL IMAGE.INSIDEFN D1 (I 1 WREG I 0 GIMAGE) A@ (10Q INSIDEP) NIL NIL SCALE.POSITION.INTO.SKETCHW D1 (P 0 CLIPREG I 1 SKETCHW I 0 POS) hA @A HH (24Q SCALE.POSITION 14Q SKETCHW.SCALE 4 DSPCLIPPINGREGION) NIL NIL SKETCHW.SCALE D1 (I 0 SKETCHW) @g (6 GETWINDOWPROP) (3 SCALE) NIL SCALE.POSITION D1 (L (3 WBOTTOM 2 WLEFT 1 SCALE 0 POSITION)) @A@ANIL NIL NIL UNSCALE.POSITION.FROM.SKETCHW D1 (P 0 CLIPREG I 1 SKETCHW I 0 POS) hA @A HH (24Q UNSCALE.POSITION 14Q SKETCHW.SCALE 4 DSPCLIPPINGREGION) NIL NIL UNSCALE.POSITION D1 (L (3 WBOTTOM 2 WLEFT 1 SCALE 0 POSITION)) @BA@CANIL NIL NIL SCALE.REGION D1 (L (1 SCALE 0 REGION)) A@A@A@A@hNIL NIL NIL GETDRAWPOSITIONA0134 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 W F 1 MACROY) *`lj`ljP P ci(43Q LASTMOUSEY 37Q LASTMOUSEX 20Q GETMOUSESTATE 2 GETMOUSESTATE) (24Q LASTMOUSEBUTTONS 6 LASTMOUSEBUTTONS) NIL GETDRAWPOSITION D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 CURSOR I 0 W F 4 RESETVARSLST F 5 CROSSHAIRS) >AU 1gHhhTcYog gIcgI KJ(71Q ERROR! 64Q APPLY 41Q GETDRAWPOSITIONA0134 6 CURSOR) (55Q CURSOR 45Q ERROR 36Q INTERNAL 14Q CURSOR) (33Q (DUMMY.FOR.ERRORSET)) GETWREGION D1 (I 2 NEWREGIONFNDATA I 1 NEWREGIONFN I 0 W) 5hd@g AB H@H@HHh(16Q GETREGION 10Q GETWINDOWPROP) (41Q DISPLAYSTREAM 27Q DISPLAYSTREAM 5 REGION) NIL SK.DRAWFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) NIL SK.MOVEFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) NIL SK.EXPANDFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) NIL SK.INPUT D1 (I 1 SKETCHW I 0 ELEMENTTYPE) @ AkHNIL (3 SKETCHTYPE) NIL SK.INSIDEFN D1 (L (0 ELEMENTTYPE)) @gNIL (7 SKETCHTYPE 3 SKETCHTYPE) NIL (PRETTYCOMPRINT NEWSKETCHCOMS) (RPAQQ NEWSKETCHCOMS ((FNS SKETCHW.CREATE MAP.SKETCHSPEC.INTO.VIEWER SKETCHW.REPAINTFN CREATE.SKETCHW.COMMANDMENU SKETCHW.SELECTIONFN) (* fns for adding elements) (FNS ADD.ELEMENT.TO.SKETCH ADD.SKETCH.VIEWER ALL.SKETCH.VIEWERS ELT.INSIDE.REGION? ELT.INSIDE.SKWP SCALE.FROM.SKW SK.ADDELT.TO.WINDOW SK.CALC.REGION.VIEWED SK.DRAWFIGURE SK.DRAWFIGURE1 SK.LOCAL.FROM.GLOBAL SK.REGION.VIEWED SK.UPDATE.REGION.VIEWED SKETCH.ADD.AND.DISPLAY SKETCH.ADD.AND.DISPLAY1 SKETCH.FROM.VIEWER SKETCHW.ADD.INSTANCE) (* fns for deleting things) (FNS SK.SEL.AND.DELETE SK.ERASE.AND.DELETE.ITEM REMOVE.ELEMENT.FROM.SKETCH SK.DELETE.ELEMENT SK.ERASE.ELT SK.DELETE.ELT SK.DELETE.ITEM) (* fns for moving things.) (FNS SK.MOVE.ELT SK.SEL.AND.MOVE SK.MOVE.THING UPDATE.ELEMENT.IN.SKETCH SK.UPDATE.ELEMENT SK.UPDATE.ELEMENT1) (* utility routines for sketch windows. ) (FNS LOCALSPECS.FROM.VIEWER SK.LOCAL.ELT.FROM.GLOBALPART) (FNS INSURE.SKETCH INSPECT.SKETCH INIT.SKETCH.ELEMENTS SKETCH.ELEMENT.NAMEP) (FNS MAPSKETCHSPECS MAPSKETCHSPECSUNTIL) (* functions for marking) (FNS SK.SHOWMARKS MARKPOINT SK.MARKHOTSPOTS SK.MARKSELECTIONSPOTS MARKSPOTS SK.MARK.SELECTION ) (* hit detection functions.) (FNS IN.SKETCH.ELT? SK.ON.HOT.SPOT SK.SELECT.ITEM SK.SELECT.ELT SK.DESELECT.ELT) (* functions for determining what is inside of a window.) (FNS ELT.INSIDE.SKETCHWP SK.INSIDE.REGION) (FNS SKETCH.ZOOM SAME.ASPECT.RATIO ABSWXOFFSET ABSWYOFFSET SKETCH.HOME SKETCH.NEW.VIEW ZOOM.UPDATE.ELT SK.UPDATE.AFTER.SCALE.CHANGE) (COMS (* functions for the individual sketch element types.) (COMS (FNS CIRCLE.EXPANDFN CIRCLE.DRAWFN CIRCLE.MOVEFN CIRCLE.INPUTFN CIRCLE.INSIDEFN) (RECORDS LOCALCIRCLE)) (COMS (FNS ELLIPSE.EXPANDFN ELLIPSE.DRAWFN ELLIPSE.MOVEFN ELLIPSE.INPUTFN ELLIPSE.INSIDEFN ELLIPSE.CREATE) (RECORDS LOCALELLIPSE)) (COMS (FNS CURVE.INSIDEFN) ( RECORDS)) (COMS (FNS TEXT.INSIDEFN) (RECORDS)) (COMS (FNS IMAGE.INSIDEFN) (RECORDS))) (FNS SCALE.POSITION.INTO.SKETCHW SKETCHW.SCALE SCALE.POSITION UNSCALE.POSITION.FROM.SKETCHW UNSCALE.POSITION SCALE.REGION) (FNS GETDRAWPOSITION GETWREGION) (INITVARS (ALL.SKETCHES) ( INITIAL.SCALE 16) (SKETCH.ELEMENT.TYPES) (SKETCH.ELEMENT.TYPE.NAMES) (DEFAULT.VISIBLE.SCALE.FACTOR 10) ) (GLOBALVARS ALL.SKETCHES INITIAL.SCALE DEFAULT.VISIBLE.SCALE.FACTOR SKETCH.ELEMENT.TYPES SKETCH.ELEMENT.TYPE.NAMES SK.SELECTEDMARK SK.LOCATEMARK) (UGLYVARS SK.SELECTEDMARK SK.LOCATEMARK) (* accessing functions for the methods of a sketch type. (SKETCHW.CREATE)) (FNS SK.DRAWFN SK.MOVEFN SK.EXPANDFN SK.INPUT SK.INSIDEFN) (RECORDS GLOBALELEMENT LOCALPART SKETCH SKETCHTYPE) (P ( INIT.SKETCH.ELEMENTS)))) (RECORD LOCALCIRCLE ((CENTERPOSITION RADIUSPOSITION) RADIUS)) (RECORD LOCALELLIPSE ((ELLIPSECENTER MINORRADIUSPOSITION MAJORRADIUSPOSITION) SEMIMINORRADIUS SEMIMAJORRADIUS)) (RPAQ? ALL.SKETCHES) (RPAQ? INITIAL.SCALE 16) (RPAQ? SKETCH.ELEMENT.TYPES) (RPAQ? SKETCH.ELEMENT.TYPE.NAMES) (RPAQ? DEFAULT.VISIBLE.SCALE.FACTOR 10) (READVARS SK.SELECTEDMARK SK.LOCATEMARK) ({ (READBITMAP) (7 7 "ON@@" "ON@@" "ON@@" "ON@@" "ON@@" "ON@@" "ON@@") } { (READBITMAP) (11 11 "OON@" "OON@" "L@F@" "L@F@" "L@F@" "L@F@" "L@F@" "L@F@" "L@F@" "OON@" "OON@") }) (RECORD GLOBALELEMENT (GTYPE MINSCALE MAXSCALE . GOTHERINFO)) (RECORD LOCALPART (HOTSPOTS . OTHERLOCALINFO)) (RECORD SKETCH (SKETCHNAME . SKETCHELTS) (TYPE? (AND (LISTP DATUM) (LITATOM (CAR DATUM))))) (DATATYPE SKETCHTYPE (LABEL DOCSTR DRAWFN EXPANDFN MOVEFN CHANGEFN INPUTFN INSIDEFN)) (/DECLAREDATATYPE (QUOTE SKETCHTYPE) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER))) (INIT.SKETCH.ELEMENTS) (PUTPROPS NEWSKETCH COPYRIGHT ("Xerox Corporation" 1983)) NIL