(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 3-May-2023 21:06:36" ("compiled on " {DSK}larry>il>medley>library>SKETCHOPS.;7) " 3-May-2023 13:46:41" bcompl'd in "Medley 3-May-2023 ..." dated " 3-May-2023 13:46:42") (FILECREATED " 3-May-2023 21:06:28" {DSK}larry>il>medley>library>SKETCHOPS.;7 221663 :EDIT-BY "lmm" :PREVIOUS-DATE " 2-May-2023 15:53:16" {DSK}larry>il>medley>library>SKETCHOPS.;2) SK.FONTNAMELIST :D8 (I 0 FONTDESC) '@g @g @g h(32 FONTPROP 21 FONTPROP 10 FONTPROP) (27 FACE 16 SIZE 5 FAMILY) () SCALE.REGION.OUT :D8 (P 0 ROUNDINGFACTOR I 1 SCALE I 0 REGION) 5Ado×Õ@A×jØ@A×jØ@HÔA×jØ@HÔA×jØ(50 CREATEREGION) NIL ( 6 20000.0) SK.SCALE.POSITION.INTO.VIEWER :D8 (I 1 SCALE I 0 POS) $Ak –@ @A× @A× (32 FIXR 23 FIXR 13 SK.MAKE.POSITION.INTEGER 6 EQP) NIL () SK.SCALE.POSITION.INTO.VIEWER.EXACT :D8 (L (1 SCALE 0 POS)) @A×@A×NIL NIL () SK.MAKE.POSITION.INTEGER :D8 (I 0 POS) @d3 •d3 @ (24 FIXR 17 FIXR) NIL () SCALE.POSITION.INTO.SKETCHW :D8 (I 1 SKETCHW I 0 POS) @A (11 SK.SCALE.POSITION.INTO.VIEWER 6 VIEWER.SCALE) NIL () UNSCALE :D8 (I 1 SCALE I 0 COORD) @AÖNIL NIL () UNSCALE.REGION :D8 (I 1 SCALE I 0 REGION) A@ÖA@ÖA@ÖA@Ö(26 CREATEREGION) NIL () STATUSPRINT :D8 (P 4 X P 2 WIN P 1 BEG P 0 NEXPS F 5 \TERM.OFD) ŽeHjðµQkka l¹kal °*ka ²6l¹ka žka Zµ`ºHILdKó²*h °íkaið•l¹U°â` ²ÑU °ÎaJ ¿LkÔ\°Ç(133 PRIN1 124 GETPROMPTWINDOW 116 HASTTYWINDOWP 93 GETPROMPTWINDOW 66 OPENWP 61 PROCESS.TTY 53 HASTTYWINDOWP 41 PROCESSP 32 MYGETPROMPTWINDOW 19 WINDOWP) (111 \RUNNING.PROCESS 74 PROMPTWINDOW) () CLEARPROMPTWINDOW :D8 (P 0 PWIN I 0 W) -@ ² @hdiXd ´ H h(42 CLRPROMPT 35 CLEARW 27 OPENWP 19 GETPROMPTWINDOW 5 WINDOWP) NIL () CLOSEPROMPTWINDOW :D8 (P 0 PROMPTW I 0 WINDOW) +@hdi Hd² ¿H ¿H h(39 CLOSEW 32 DETACHWINDOW 25 CLEARW 13 OPENWP 8 GETPROMPTWINDOW) NIL () MYGETPROMPTWINDOW :D8 (P 0 PROMPTW I 3 DONTCREATE I 2 FONT I 1 NLINES I 0 MAINW) 8gk lBµg CHdŸggH(52 WINDOWADDPROP 31 GETPROMPTWINDOW 25 DEFAULTFONT 10 ARG) (47 DETACHWINDOW 42 CLOSEFN 20 DISPLAY 4 NEXPS) () PROMPT.GETINPUT :D8 (P 0 PROMPTWIN I 3 DELIMITER.LIST I 2 DEFAULTSTRING I 1 PROMPTSTRING I 0 WINDOW) ;@µ `Xµ&ABhHhdCµoh X ¿°Þ ¿°Ö(54 CLEARW 46 FRESHLINE 40 GETPROMPTWINDOW 34 PROMPTFORWORD) (10 PROMPTWINDOW) ( 27 (13 10 9 27)) SK.SEND.TO.BOTTOM :D8 (I 0 W) %g@d´dið¬3µg@hh@ (34 SK.EVAL.AS.PROCESS) (21 QUOTE 4 SK.SEL.AND.CHANGE.PRIORITY) () SK.BRING.TO.TOP :D8 (I 0 W) 'g@d²dið¬3µg@hih@ (36 SK.EVAL.AS.PROCESS) (21 QUOTE 4 SK.SEL.AND.CHANGE.PRIORITY) () SK.SWITCH.PRIORITIES :D8 (I 0 W) %g@d´dið¬3µg@hh@ (34 SK.EVAL.AS.PROCESS) (21 QUOTE 4 SK.SEL.AND.SWITCH.PRIORITIES) () SK.SEL.AND.CHANGE.PRIORITY :D8 (P 0 SELELTS I 1 TOTOPFLG I 0 W) (@i Hd XA—d@ †H@ h(36 SK.SEND.ELEMENTS.TO.BOTTOM 28 SK.BRING.ELEMENTS.TO.TOP 18 SK.SORT.ELTS.BY.PRIORITY 6 SK.SELECT.MULTIPLE.ITEMS) NIL () SK.SEL.AND.SWITCH.PRIORITIES :D8 (P 11 TOELT P 10 ELT P 4 PRIORITY P 3 NEWGELT P 2 GELT P 1 SKETCH P 0 SELELTS I 0 W) š@i AH´;@ Y´2H Xd HRNµ‡_¿MµO@id@ h_¿OZ [O \ ¿JKgLJ h_¿OµOh__¿N¾M½°™O&_¿°ò(114 SK.ELEMENT.PRIORITY 99 SK.SET.ELEMENT.PRIORITY 93 SK.ELEMENT.PRIORITY 84 SK.COPY.GLOBAL.ELEMENT.AND.PROPERTY.LIST 69 REDISPLAYW 63 SK.DO.AND.RECORD.CHANGES 35 REVERSE 28 SK.SORT.ELTS.BY.PRIORITY 19 INSURE.SKETCH 6 SK.SELECT.MULTIPLE.ITEMS) (107 PRIORITY) () SK.SORT.ELTS.BY.PRIORITYA0001 :D8 (I 1 B I 0 A) @ A ó(13 SK.ELEMENT.PRIORITY 6 SK.ELEMENT.PRIORITY) NIL () SK.SORT.ELTS.BY.PRIORITY :D8 (I 0 LOCALELTS) @g (10 SORT) (5 SK.SORT.ELTS.BY.PRIORITYA0001) () SK.SORT.GELTS.BY.PRIORITYA0001 :D8 (I 1 B I 0 A) @ A ýó(11 SK.ELEMENT.PRIORITY 5 SK.ELEMENT.PRIORITY) NIL () SK.SORT.GELTS.BY.PRIORITY :D8 (I 0 GLOBALELTS) @g (10 SORT) (5 SK.SORT.GELTS.BY.PRIORITYA0001) () SORT.CHANGESPECS.BY.NEW.PRIORITYA0001 :D8 (I 1 B I 0 A) @ A ýó(15 SK.ELEMENT.PRIORITY 7 SK.ELEMENT.PRIORITY) NIL () SORT.CHANGESPECS.BY.NEW.PRIORITY :D8 (I 0 CHANGESPECLST) @g (10 SORT) (5 SORT.CHANGESPECS.BY.NEW.PRIORITYA0001) () SORT.CHANGESPECS.BY.OLD.PRIORITYA0001 :D8 (I 1 B I 0 A) @ A ýó(13 SK.ELEMENT.PRIORITY 6 SK.ELEMENT.PRIORITY) NIL () SORT.CHANGESPECS.BY.OLD.PRIORITY :D8 (I 0 CHANGESPECLST) @g (10 SORT) (5 SORT.CHANGESPECS.BY.OLD.PRIORITYA0001) () SK.SEND.ELEMENTS.TO.BOTTOM :D8 (P 7 ELT P 3 NEWGELT P 2 GELT P 1 LOWEST P 0 SKETCH I 1 VIEWER I 0 ELEMENTS) qA 1Hd²d Y@@°=d_¿IkÙ¹OZ [I ¿JKgIJ h¼MµLh^L&½µÄNAidHI A h(109 REDISPLAYW 103 SK.LOW.PRIORITY 96 SK.DO.AND.RECORD.CHANGES 64 SK.ELEMENT.PRIORITY 49 SK.SET.ELEMENT.PRIORITY 42 SK.COPY.GLOBAL.ELEMENT.AND.PROPERTY.LIST 17 SK.LOW.PRIORITY 5 INSURE.SKETCH) (57 PRIORITY) () SK.BRING.ELEMENTS.TO.TOP :D8 (P 7 ELT P 3 NEWGELT P 2 GELT P 1 HIGHEST P 0 SKETCH I 1 W I 0 ELEMENTS) wA 1Hd²j Y0@ °>dIkØ¹OZ [I ¿JKgIJ h¼MµLh^L&½µÃNAidHI A h(115 REDISPLAYW 109 SK.HIGH.PRIORITY 102 SK.DO.AND.RECORD.CHANGES 69 SK.ELEMENT.PRIORITY 54 SK.SET.ELEMENT.PRIORITY 47 SK.COPY.GLOBAL.ELEMENT.AND.PROPERTY.LIST 27 REVERSE 17 SK.HIGH.PRIORITY 5 INSURE.SKETCH) (62 PRIORITY) () SK.COPY.GLOBAL.ELEMENT.AND.PROPERTY.LIST :D8 (P 0 COMGLOBPART I 0 GELT) @HHHh h@h(19 \APPEND2) NIL () SK.ELEMENT.PRIORITY :D8 (I 0 GELEMENT) @g'µjNIL (9 PRI) () SK.SET.ELEMENT.PRIORITY :D8 (L (1 PRIORITY 0 GELEMENT)) 6@Hµ@gAhAgð”HA°ò@gAH°ãNIL (48 PRI 32 PRI 19 PRI) () SK.POP.NEXT.PRIORITY :D8 (P 0 PRIORITYCELL I 0 SKETCH) @ HdkØ(5 SK.PRIORITY.CELL) NIL () SK.PRIORITY.CELL :D8 (I 0 SKETCH) @g µ@gjd(26 PUTSKETCHPROP 10 GETSKETCHPROP) (18 PRIRANGE 5 PRIRANGE) () SK.HIGH.PRIORITY :D8 (I 1 VALUE I 0 SKETCH) @ HA3“HA¿(5 SK.PRIORITY.CELL) NIL () SK.LOW.PRIORITY :D8 (I 1 VALUE I 0 SKETCH) @ HA3“HA¿(5 SK.PRIORITY.CELL) NIL () DRAW.LOCAL.SKETCH :D8 (I 3 SCALE I 2 STREAMREGION I 1 STREAM I 0 LOCALSPECS) 1Ak @gABC3µA ´A Aj (46 SET.PRIORITYIMPORTANT 39 MAPSKETCHSPECS 33 VIEWER.SCALE 25 WINDOWP 6 SET.PRIORITYIMPORTANT) (12 SK.DRAWFIGURE) () SET.PRIORITYIMPORTANT :D8 (I 1 TOVAL I 0 STREAM) @g ´@A @l (27 ISET.IP 19 APPENDINTEGER.IP 10 IMAGESTREAMTYPEP) (5 INTERPRESS) () SK.FIGUREIMAGEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 7 SCITEM P 5 LIMITDIM P 4 BOTTOM P 3 LEFT P 2 BITMAP P 1 DSPSTREAM P 0 REGION I 0 SI::*CLEANUP-FORMS* F 8 SCRITEMS F 9 LIMITREGION F 10 REGIONOFINTEREST) pWd¢± ™W ¸°6W ¸W°dHO XµêW c¿W›HW µH¸W²LHW]ó²HdMHÕl×Ô¿HM¿HW]ó²HHMHÕl×Ô¿HM¿HkØHkØ Z YjH [ÙI jH \ÙI HI gI ldHHØmÿØÔI WIHKL¾JNh(274 DRAW.LOCAL.SKETCH 265 DSPRIGHTMARGIN 246 DSPOPERATION 235 DSPCLIPPINGREGION 228 DSPYOFFSET 220 FIXR 211 DSPXOFFSET 203 FIXR 194 DSPCREATE 188 BITMAPCREATE 88 INTERSECTREGIONS 74 REVERSE 69 SK.SORT.ELTS.BY.PRIORITY 56 SK.UNIONREGIONS 51 SK.ITEM.REGION 33 SK.ITEM.REGION 22 SK.ITEM.REGION 14 SCREENELEMENTP) (240 PAINT) () SK.FIGUREIMAGE :D8 (P 0 SI::*RESETFORMS* I 2 REGIONOFINTEREST I 1 LIMITREGION I 0 SCRITEMS) 3g` hhhg ¿$(44 SI::RESETUNWIND 39 \MVLIST 34 SK.FIGUREIMAGEA0001 14 CURSOR) (29 SI::RESETUNWIND 9 WAITINGCURSOR 4 CURSOR) () SKETCHW.HARDCOPYFN :D8 (P 8 SKETCHX P 7 PAGETOSKETCHFACTOR P 6 PAGEBOTTOMSPACE P 5 PAGELEFTSPACE P 4 SKETCHREGIONINPAGECOORDS P 3 SCALE P 2 SKETCHREGION P 1 PAGEREGION P 0 SKETCH I 1 OPENIMAGESTREAM I 0 SKETCHW) Ï@ hA @ @ t H¡hIdjó‘¿jA Idjó‘¿jA IIØmÿØ_¿oOó•oOA IIØmÿØ_¿oOó•oOA @o Agg@ µohAg KhA ë_JO \Ag ²^LIó²SLLó²GAÉ,o ¿AlZ ¿A ¿Ajo¿A ¿I YA ¿ILÕl×]ILÕl×^HjIMÔ]LÕOÖÕjINÔ^LÕOÖÕ_dMOÖNOÖJJOA_dAMNLL@o A(459 STATUSPRINT 448 DRAW.LOCAL.SKETCH 443 CREATEREGION 423 MAKE.LOCAL.SKETCH 415 CREATEREGION 390 TRANSLATE.SKETCH 327 DSPCLIPPINGREGION 320 SK.SWITCH.REGION.X.AND.Y 313 CONCATT.IP 306 TRANSLATE.IP 293 CONCATT.IP 286 ROTATE.IP 277 \NCONC2 234 IMAGESTREAMTYPEP 222 SCALE.REGION.OUT 211 DSPSCALE 203 STREAMPROP 198 \APPEND2 193 STREAMPROP 172 SKETCH.TITLE 155 STATUSPRINT 144 DSPRIGHTMARGIN 108 DSPTOPMARGIN 70 DSPBOTTOMMARGIN 55 DSPLEFTMARGIN 41 SPAWN.MOUSE 29 VIEWER.SCALE 23 SKETCH.REGION.VIEWED 17 DSPCLIPPINGREGION 10 INSURE.SKETCH 5 SKETCH.FROM.VIEWER) (265 STREAM 229 INTERPRESS 188 PRINTOPTIONS 166 DOCUMENT.NAME 161 PRINTOPTIONS) ( 454 " done." 301 -21590 272 (PRINTERMODE LANDSCAPE) 179 "A Sketch" 150 "Hardcopying ..." 135 2147483647 126 2147483647 99 2147483647 90 2147483647) SK.LIST.IMAGE :D8 (P 29 PGCOL P 28 PGLEFT P 25 PGROW P 24 PGN P 23 PGBOTTOM P 21 SKELT P 15 PAGEWIDTHINSKETCHCOORDS P 14 PAGEHEIGHTINSKETCHCOORDS P 13 PAGETOSKETCHFACTOR P 12 BOTTOMEND P 11 RIGHTEND P 10 BOTTOMSTART P 9 LEFTSTART P 8 SKETCHREGIONINPAGECOORDS P 7 SKETCHLOCALELTS P 6 SKETCHREGION P 5 PAGEOVERLAPMARGIN P 4 OPENIMAGESTREAM P 3 PAGEREGION P 2 SCALE P 1 VIEWREGION P 0 SKETCH I 3 DONTLISTFLG I 2 IMAGETYPE I 1 FILE I 0 SKETCHW) (@ h@ @ óH¡h@o AB \hL [ddjó‘¿jL Kdjó‘¿jL KKØmÿØ_ ¿oO ó•oO L KKØmÿØ_"¿oO"ó•oO"L @H°"d_*@J_$¿O&µ O$h_(‚O$&_&¿µßO(_dJ ^JhL ë_NO _dKýñ²WdKýñ²IKOÕl×_¿KOÕl×_¿LNOOOOOOJ ¿±Àl$hL Ö½KKKMÕKMÕ[OÖ_¿KOÖ_¿NO _jð³O—O ªOOÕl×_¿NOÕ_¿NO _jð³O—O ªOOÕl×_¿NNØmÿØOÔOÕ_¿NOÕ_¿NNØmÿØ_¿@OOkÙÔOÕOÛOOkÙÔOÕOÛÖo¿OOjkO4²-O4jð’±ÆO4šO4 ’±¶jO4ó”OO.ƒO.Oó’±£O2kð¦L ¿OOkO<²'O@BóžBdBB@AhBd@ð™Ah HYµB@Ahh h²)I@ðœIAh B@Ió›I@AhIBI°Á(84 \NCONC2 61 \NCONC2 39 \NCONC2) NIL () SK.SET.GRID :D8 (I 0 SKETCHW) @g –@ @ (24 SK.TURN.GRID.ON 17 SK.TURN.GRID.OFF 10 GETWINDOWUSERPROP) (5 USEGRID) () SK.DISPLAY.GRID :D8 (I 0 SKETCHW) (@g §@i ¿@gi@ (37 SK.DISPLAY.GRID.POINTS 31 PUTWINDOWPROP 18 SK.TURN.GRID.ON 10 GETWINDOWUSERPROP) (25 GRIDUP 5 USEGRID) () SK.DISPLAY.GRID.POINTS :D8 (I 1 NEWFLG I 0 SKETCHW) @ @A(12 SK.SHOW.GRID 5 SK.GRIDFACTOR) NIL () SK.REMOVE.GRID.POINTS :D8 (I 0 SKETCHW) 7o@ @ ëó³!@g@gh@ ¿h(50 PUTWINDOWPROP 44 REDISPLAYW 38 PUTWINDOWPROP 16 VIEWER.SCALE 10 SK.GRIDFACTOR) (32 GRIDUP 26 GRIDUP) ( 4 3.0) SK.TAKE.DOWN.GRID :D8 (I 0 SKETCHW) @gh´@ (19 SK.REMOVE.GRID.POINTS 11 PUTWINDOWPROP) (5 GRIDUP) () SK.SHOW.GRID :D8 (P 17 Y P 14 X P 12 SKREGLIMIT P 11 SKREGLEFT P 10 GRIDLEFT P 9 WLEFT P 8 WWIDTH P 7 HORIZPATTERN P 6 SCALEDWLEFT P 5 SCALEDWREG P 4 WREG P 1 REGION P 0 SCALE I 2 NEWFLG I 1 SKW I 0 GRID) A A "o@Hëó´ AB•o„oo@Hëo±MA L_¿L_¿Ok _¿LH ]^@ _¿NMÔ_OO²,Ojð³CO˜O ³5jOó•OOóˆOO ³OONÕHë jkû¿O@_è_¿°·MMÔ_M@ O$²,O$jð³UO$˜O$ ³GjO$ó•OO"óˆO"O ³1OjdAOO"Hë Okgg ¿O"@_$è_"¿°¥@HëAg Ag »ºKdJó‘¿Jl×ó´-AB•o„oo@Hë o h(395 STATUSPRINT 390 CONCAT 380 FIXR 338 GETWINDOWPROP 327 GETWINDOWPROP 299 BKBITBLT 280 FIXR 262 FGTP 240 \FZEROP 215 NEAREST.ON.GRID 178 FIXR 163 FGTP 141 \FZEROP 103 NEAREST.ON.GRID 94 UNSCALE.REGION 84 BITMAPCREATE 61 DSPCLIPPINGREGION 11 SKETCH.REGION.VIEWED 5 VIEWER.SCALE) (333 WIDTH 322 HEIGHT 293 PAINT 288 INPUT) ( 385 " screen points." 372 " grid has a position every " 367 "Current" 361 "New" 52 " screen points." 44 " grid has a position every " 39 "Current" 33 "New" 19 3.0) SK.GRIDFACTOR :D8 (I 1 GRIDSIZE I 0 SKETCHW) 3Ad3¿@gAµ@g @g (48 GETWINDOWUSERPROP 37 \ILLEGAL.ARG 31 GETWINDOWUSERPROP 17 PUTWINDOWPROP) (43 GRIDFACTOR 26 GRIDFACTOR 11 GRIDFACTOR) () SK.TURN.GRID.ON :D8 (I 1 QUIETFLG I 0 SKETCHW) @gi´Aµ @o (27 STATUSPRINT 11 PUTWINDOWPROP) (5 USEGRID) ( 22 "The grid was already in use.") SK.TURN.GRID.OFF :D8 (I 0 SKETCHW) !@gh–@ @o (30 STATUSPRINT 18 SK.TAKE.DOWN.GRID 11 PUTWINDOWPROP) (5 USEGRID) ( 25 "The grid was not is use.") SK.MAKE.GRID.LARGER :D8 (P 0 NOWGRID I 0 SKETCHW) $@ Ho ‘kƒHlÖ@ (33 SK.CHANGE.GRID 19 EQP 5 SK.GRIDFACTOR) NIL ( 14 0.5) SK.MAKE.GRID.SMALLER :D8 (I 0 SKETCHW) @ dkð–¿o‚l×@ (25 SK.CHANGE.GRID 5 SK.GRIDFACTOR) NIL ( 15 0.5) SK.CHANGE.GRID :D8 (I 1 SKETCHW I 0 NEWGRID) 7Ai Ag –A ¿A@ Ag ´ Ai (52 SK.DISPLAY.GRID.POINTS 43 GETWINDOWUSERPROP 32 SK.GRIDFACTOR 24 SK.REMOVE.GRID.POINTS 17 GETWINDOWUSERPROP 6 SK.TURN.GRID.ON) (38 GRIDUP 12 GRIDUP) () GRID.FACTOR1 :D8 (I 2 NPTS I 1 HEIGHTONSCREEN I 0 REALHEIGHT) B@êAë (9 LEASTPOWEROF2GT) NIL () LEASTPOWEROF2GT :D8 (P 0 LOG2 I 0 FLOATP) M@ oëHoò²(HdjØô˜oHjØ‰oHjØkØ jØoHjØ (74 EXPT 58 EXPT 5 LOG) (32 FLOATP) ( 66 2.0 48 2.0 39 2.0 20 0.0 10 0.6931472) GREATESTPOWEROF2LT :D8 (P 0 LOG2 I 0 FLOATP) M@ oëHoòoHjØ HdjØôoHjØ oHkÙ (74 EXPT 60 EXPT 35 EXPT 5 LOG) (45 FLOATP) ( 66 2.0 52 2.0 27 2.0 20 0.0 10 0.6931472) SK.DEFAULT.GRIDFACTOR :D8 (I 0 SKETCHW F 0 DEFAULTGRIDSIZE) @ @g P(26 GRID.FACTOR1 20 GETWINDOWPROP 5 SKETCH.REGION.VIEWED) (15 HEIGHT) () SK.PUT.ON.GRID :D8 (I 1 GRID I 0 GPOSITION) @A @A (15 NEAREST.ON.GRID 7 NEAREST.ON.GRID) NIL () MAP.WINDOW.ONTO.GRID :D8 (I 2 GRID I 1 SCALE I 0 X) @AÖB A× (15 FIXR 8 NEAREST.ON.GRID) NIL () MAP.SCREEN.ONTO.GRID :D8 (I 3 WOFFSET I 2 GRID I 1 SCALE I 0 X) "BŸBjð«Bo ‘@@CÙABCØ(29 MAP.WINDOW.ONTO.GRID 16 EQP) NIL ( 11 0.0) MAP.GLOBAL.PT.ONTO.GRID :D8 (I 1 SKW I 0 PT) Ag œ@A @(23 SK.PUT.ON.GRID 18 SK.GRIDFACTOR 10 GETWINDOWUSERPROP) (5 USEGRID) () MAP.GLOBAL.REGION.ONTO.GRID :D8 (P 3 NEWBOTTOM P 2 NEWLEFT P 1 HALFGRID P 0 GRID I 1 SKW I 0 GREGION) hAg ²ZA 1Ho×Y@IÕH Z@IÕH [@@ØmÿØIÔH JÕ@@ØmÿØIÔH KÕ@(99 CREATEREGION 92 NEAREST.ON.GRID 70 NEAREST.ON.GRID 51 NEAREST.ON.GRID 39 NEAREST.ON.GRID 18 SK.GRIDFACTOR 10 GETWINDOWUSERPROP) (5 USEGRID) ( 27 2.0) MAP.WINDOW.POINT.ONTO.GLOBAL.GRID :D8 (I 2 GRID I 1 SCALE I 0 PT) @AB@AB(17 MAP.WINDOW.ONTO.GLOBAL.GRID 8 MAP.WINDOW.ONTO.GLOBAL.GRID) NIL () MAP.WINDOW.ONTO.GLOBAL.GRID :D8 (I 2 GRID I 1 SCALE I 0 X) @AÖB (8 NEAREST.ON.GRID) NIL () SK.UPDATE.GRIDFACTOR :D8 (P 1 X P 0 OLDGRID I 1 OLDSCALE I 0 SKW F 3 DEFAULTMAXGRIDSIZE) 7@ !@d @g SHAëºdJñ‘¿J h(51 SK.GRIDFACTOR 46 GRID.FACTOR1 30 GETWINDOWPROP 15 SKETCH.REGION.VIEWED 5 SK.GRIDFACTOR) (25 HEIGHT) () SK.MAP.FROM.WINDOW.TO.GLOBAL.GRID :D8 (I 1 SKETCHW I 0 POSITION) .Ag ²@A A @A (43 SK.UNSCALE.POSITION.FROM.VIEWER 38 VIEWER.SCALE 30 MAP.WINDOW.POINT.ONTO.GLOBAL.GRID 25 SK.GRIDFACTOR 19 VIEWER.SCALE 10 GETWINDOWUSERPROP) (5 USEGRID) () SK.MAP.INPUT.PT.TO.GLOBAL :D8 (I 1 SKETCHW I 0 POSSPEC) 9@d²5dgð“d²A A A i(54 SK.MAP.FROM.WINDOW.TO.NEAREST.GRID 48 VIEWER.SCALE 39 MAP.WINDOW.POINT.ONTO.GLOBAL.GRID 34 SK.GRIDFACTOR 28 VIEWER.SCALE) (10 GLOBAL) () SK.MAP.FROM.WINDOW.TO.NEAREST.GRID :D8 (P 0 GRID I 2 NOMOVEFLG I 1 SCALE I 0 POSITION) ,B–A ˆAlÖ @AÖH @AÖH (40 NEAREST.ON.GRID 30 NEAREST.ON.GRID 17 LEASTPOWEROF2GT 7 GREATESTPOWEROF2LT) NIL () SK.ADD.HISTEVENT :D8 (P 0 HISTLST I 2 SKETCHW I 1 EVENTARGS I 0 EVENTTYPE) 9Bg Bg@Ahd`H ó‘H…H h(53 PUTWINDOWPROP 47 REMOVE.LAST 37 LENGTH 10 GETWINDOWUSERPROP) (31 SKETCH.#.UNDO.ITEMS 19 SKETCHHISTORY 5 SKETCHHISTORY) () SK.SEL.AND.UNDOA0005 :D8 (I 2 BUTTON I 1 MENU I 0 ITEM) o (9 PROMPTPRINT) NIL ( 4 "Will undo this event.") SK.SEL.AND.UNDO :D8 (P 8 EVENT P 2 UNDOFN P 1 EVENT P 0 HISTLST I 0 SKW) û @ @g AH¬@o h`0H°"dO Oh½NµMh_M&¾µßO»dK¿dg¿do¿dg¿dg ¿jdnÿdh¼dL ¿ Yd²*d¿@o h Z¬@o hI@IlJ²Ii¿gI@¿°ßJgð³Ö@o ¿°È(246 STATUSPRINT 223 SK.ADD.HISTEVENT 191 STATUSPRINT 177 SKEVENTTYPEFNS 169 STATUSPRINT 148 \CURSOR.IN.MIDDLE.MENU 58 SK.UNDO.NAME 32 STATUSPRINT 16 GETWINDOWUSERPROP 5 SKED.CLEAR.SELECTION) (232 SK.UNDO.UNDO 216 UNDO 123 CLRPROMPT 114 SK.SEL.AND.UNDOA0005 96 CADR 39 |MENUTYPE#| 11 SKETCHHISTORY) ( 241 "Element subsequently modified, can't undo" 186 "Can't undo that event." 164 "That event has already been undone." 105 "Select event to undo" 27 "Nothing to undo.") SK.UNDO.LAST :D8 (P 4 HISTEVENT P 2 UNDOFN P 1 EVENT P 0 HISTLST I 0 SKW) ¬@ @g !Hµ@o hKµJhYµ@ooh@IlJ²J@I o¿Ii¿gI@°Ï\gð³L¬L Z’L°žK[°•Jgð³¤@o °—(168 STATUSPRINT 137 SKEVENTTYPEFNS 112 SK.ADD.HISTEVENT 93 STATUSPRINT 83 SK.UNDO.NAME 63 STATUSPRINT 33 STATUSPRINT 16 GETWINDOWUSERPROP 5 SKED.CLEAR.SELECTION) (154 SK.UNDO.UNDO 122 UNDO 105 UNDO 11 SKETCHHISTORY) ( 163 "Element subsequently modified, can't undo" 88 " event undone." 58 "All events have been undone. Use the '?UNDO' subcommand to undo an UNDO command." 53 " " 28 "Nothing to undo.") SK.UNDO.NAME :D8 (I 0 HISTEVENT) @ @kH(6 SKEVENTTYPEFNS) NIL () SKEVENTTYPEFNS :D8 (I 0 EVENTTYPE) @g (10 GETPROP) (5 EVENTFNS) () SK.TYPE.OF.FIRST.ARG :D8 (P 1 TYPE P 0 ARGS I 1 NOMARKUNDOFLG I 0 HISTEVENT) x@@Aª@•o„oIoH–o°IIgð³Igð³Igð©Idgð—¿o°gð§Igð’H€H (117 CONCAT 112 SK.LABEL.FROM.TYPE) (97 CHANGE 89 MOVE 74 UNFREEZE 65 FREEZE 56 UNGROUP 47 GROUP) ( 82 "" 39 "a group" 31 " " 25 " " 19 "*") SK.DELETE.UNDO :D8 (P 1 GELT P 0 CHANGED? I 1 SKW I 0 EVENTARGS) @ŒdYA ‘i¸µòH(13 SK.ADD.ELEMENT) NIL () SK.ADD.UNDO :D8 (I 1 SKW I 0 EVENTARGS) @Ag(11 SK.DELETE.ELEMENT2) (6 DON'T) () SK.CHANGE.UNDO :D8 (P 4 EVENT P 3 PREVELT P 2 NOWELT P 1 CHANGED? P 0 WHENCHANGEDFN I 1 SKW I 0 EVENTARGS) ]A g A@°Cd\ºL»H²(JA ²AJLLLlHgðJKAhi ‘i¹µ¾I(82 SK.UPDATE.ELEMENT 40 SK.ELT.IN.SKETCH? 15 GETSKETCHPROP 5 INSURE.SKETCH) (69 DON'T 10 WHENCHANGEDFN) () SK.ELT.IN.SKETCH? :D8 (I 1 SKETCH I 0 ELEMENT) @A (11 MEMBER 6 SKETCH.ELEMENTS.OF.SKETCH) NIL () SK.CHANGE.REDO :D8 (P 4 EVENT P 3 OLDELT P 2 NEWELT P 1 CHANGED? P 0 WHENCHANGEDFN I 1 SKW I 0 EVENTARGS) nA g 1@°GdLºL»H²(KA ²AKLLLlHgðKJAhi ‘i¹µºIªAo h(106 STATUSPRINT 85 SK.UPDATE.ELEMENT 43 SK.ELT.IN.SKETCH? 15 GETSKETCHPROP 5 INSURE.SKETCH) (72 DON'T 10 WHENCHANGEDFN) ( 101 "That sketch element has been changed by something else, can't redo.") SK.MOVE.UNDO :D8 (P 4 EVENT P 3 PREVELT P 2 NOWELT P 1 CHANGED? P 0 WHENMOVEDFN I 1 SKW I 0 EVENTARGS) TA g A@°:d\ºL»H²JA ²AiJLlHgðJKAhi ‘i¹µÇI(73 SK.UPDATE.ELEMENT 40 SK.ELT.IN.SKETCH? 15 GETSKETCHPROP 5 INSURE.SKETCH) (60 DON'T 10 WHENMOVEDFN) () SK.MOVE.REDO :D8 (P 4 EVENT P 3 OLDELT P 2 NEWELT P 1 CHANGED? P 0 WHENMOVEDFN I 1 SKW I 0 EVENTARGS) cA g 1@°O˜O ³0H``³Ogð™WJi¿W h`låjð³¦W W ]Ö»W MÖ¼W Y¾I_¿I_¿I_¿`dlåjð³1¿KdNÕ`ÖéL`LOÕÖéO`ÖO`Ö°6kåjð³/KdNÕ`×éLdOÕ`×éO`×O`×€hZ¢±þø`låjð¥`„` ¿WJi_¿W ¿±þÅ(337 CURSOR 327 SKETCH.GLOBAL.REGION.ZOOM 317 CURSOR 283 CREATEREGION 231 CREATEREGION 149 SKETCH.REGION.VIEWED 139 LASTMOUSEY 129 VIEWER.SCALE 122 LASTMOUSEX 101 CLOSEPROMPTWINDOW 93 SKETCH.GLOBAL.REGION.ZOOM 73 INSIDE? 55 \FZEROP 28 GETMOUSESTATE 23 STATUSPRINT 6 \INSUREWINDOW) (312 ZOOMOUTCURSOR 306 ZOOMINCURSOR 295 LASTMOUSEBUTTONS 277 AUTOZOOM.FACTOR 269 AUTOZOOM.FACTOR 260 AUTOZOOM.FACTOR 248 AUTOZOOM.FACTOR 225 AUTOZOOM.FACTOR 217 AUTOZOOM.FACTOR 204 AUTOZOOM.FACTOR 196 AUTOZOOM.FACTOR 178 LASTMOUSEBUTTONS 108 LASTMOUSEBUTTONS 82 STOPPED 68 LASTMOUSEY 63 LASTMOUSEX 34 LASTMOUSEBUTTONS) ( 18 "left button enlarges; middle reduces.") SKETCH.AUTOZOOM :D8 (P 0 SI::*RESETFORMS* I 0 SKW F 1 AUTOZOOMCURSOR) /gQ hhhg ¿$(40 SI::RESETUNWIND 35 \MVLIST 30 SKETCH.AUTOZOOMA0001 10 CURSOR) (25 SI::RESETUNWIND 4 CURSOR) () SKETCH.GLOBAL.REGION.ZOOM :D8 (P 7 NEWBOTTOM P 6 NEWSCALE P 5 NEWLEFT P 4 NEWSCALE P 3 HEIGHTSCALE P 2 WIDTHSCALE P 1 WINDOWREG P 0 OLDSCALE I 2 STOPIFMOUSEDOWN I 1 NEWREGION I 0 SKETCHW) @ h@ b@ AIë[AIëZó‘K€J¼AILÖAÕl×ÕLë ]AILÖAÕl×ÕLë _HLô²@MIÕOIÕ@gL¿M@ ¿O@ ¿@H ¿@B (170 SK.UPDATE.AFTER.SCALE.CHANGE 162 SK.UPDATE.GRIDFACTOR 154 SK.ABSWYOFFSET 145 SK.ABSWXOFFSET 137 PUTWINDOWPROP 124 SKETCHW.SCROLLFN 101 FIXR 73 FIXR 21 SKED.CLEAR.SELECTION 12 DSPCLIPPINGREGION 5 VIEWER.SCALE) (131 SCALE) () SKETCH.HOME :D8 (I 0 SKW) 3@goh@ @ h@ @ @ h(47 SK.UPDATE.AFTER.SCALE.CHANGE 41 WYOFFSET 35 WYOFFSET 28 WXOFFSET 22 WXOFFSET 15 PUTWINDOWPROP) (5 SCALE) ( 10 1.0) SK.FRAME.IT :D8 (P 0 SKETCH I 0 SKW) (@ H«@o ‹@H h(36 SKETCH.GLOBAL.REGION.ZOOM 31 SKETCH.REGION.OF.SKETCH 23 STATUSPRINT 5 INSURE.SKETCH) NIL ( 18 "There is nothing in this sketch.") SK.FRAME.WINDOW.TO.SKETCH :D8 (P 14 HOWAT P 13 ATW P 10 ATW P 6 BORDER P 5 WREGION P 4 WININTERIOR P 3 HOWATTED P 2 ATWINS P 1 LOCALREGION P 0 SKETCH I 0 SKW) 5@ Hd¯¿@o ¿±ö @ k QI@ ó³I@ lÕóž@o ¿±§@ ¿0 @ Z°$d O _¿Oµ Oh_‚O&_¿µÝO»h@ ¼@ É½@LIÕLIÕ¿@MMIMLÕÔIMLÕÔ ¿KJ"Oµˆ_¿Oµh_¿O@OO¿O_¿O_¿°Ð(292 ATTACHWINDOW 251 SHAPEW 246 CREATEREGION 203 SCROLLW 182 \INSUREWINDOW 175 DSPCLIPPINGREGION 139 DETACHWINDOW 124 ATTACHEDWINDOWS 114 CLOSEPROMPTWINDOW 104 STATUSPRINT 88 BITMAPHEIGHT 83 SCREENBITMAP 69 BITMAPWIDTH 64 SCREENBITMAP 51 INCREASEREGION 45 SK.SCALE.REGION 40 VIEWER.SCALE 34 SKETCH.REGION.OF.SKETCH 25 STATUSPRINT 5 INSURE.SKETCH) NIL ( 99 "The window would have to be larger than the screen." 20 "There is nothing in this sketch.") SK.MOVE.TO.VIEW :D8 (P 3 SKREGHEIGHT P 2 SKREGWIDTH P 1 OLDSCALE P 0 NEWSCALE I 1 VIEW I 0 SKW) ‡A@g "@gHh@ @ jA@g l×HÖÕH×Ù@ h@ @ jA@g l×HÖÕH×Ù@ @I @ h(131 SK.UPDATE.AFTER.SCALE.CHANGE 125 SK.UPDATE.GRIDFACTOR 118 WYOFFSET 103 GETWINDOWPROP 86 WYOFFSET 80 WYOFFSET 73 WXOFFSET 58 GETWINDOWPROP 41 WXOFFSET 35 WXOFFSET 28 PUTWINDOWPROP 13 GETWINDOWUSERPROP) (98 HEIGHT 53 WIDTH 22 SCALE 8 SCALE) () SK.NAME.CURRENT.VIEW :D8 (P 1 NAME P 0 SKETCH I 0 SKW) ^@ @o I´BHgHg I@ @ hh ¿@o h(90 STATUSPRINT 78 PUTSKETCHPROP 73 \APPEND2 62 REGION.CENTER 57 SKETCH.REGION.VIEWED 51 VIEWER.SCALE 44 GETSKETCHPROP 21 MKATOM 16 PROMPT.GETINPUT 5 INSURE.SKETCH) (39 VIEWS 33 VIEWS) ( 85 " ... done." 11 "Name for this view: ") SKETCH.ADD.VIEW :D8 (P 0 SKETCH I 3 CENTERPOSITION I 2 SCALE I 1 NAME I 0 SKETCH) I@ A´=HgHg ABd3¤ C µC hh h(69 PUTSKETCHPROP 64 \APPEND2 53 \ILLEGAL.ARG 45 POSITIONP 39 \ILLEGAL.ARG 28 GETSKETCHPROP 5 INSURE.SKETCH) (23 VIEWS 17 VIEWS) () SK.RESTORE.VIEW :D8 (P 4 VIEW I 0 SKW) ¹`o@@ g °1d[Kd²dið¬3µgKhoh¸IµHhZH&¹µÐJHdI¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ Ldgð—¿@ ˆ´ @L h(181 SK.MOVE.TO.VIEW 171 SKETCH.HOME 152 \CURSOR.IN.MIDDLE.MENU 29 GETSKETCHPROP 19 INSURE.SKETCH) (162 HOME 123 DEFAULTMENUHELDFN 114 CLRPROMPT 52 QUOTE 24 VIEWS 4 |MENUTYPE#|) ( 100 "Which view?" 61 "returns the view to this location." 10 (Home (QUOTE HOME) "returns to the origin at the original scale")) SK.FORGET.VIEW :D8 (P 2 ONETOFORGET P 1 VIEWS P 0 SKETCH I 0 SKW) × @ QHg Yd¬@o h`0I°5d[Kd²dið¬3µgKhoh¾OµNh_N&_¿µÌO¼dL¿do¿di¿dg ¿dg¿jdnÿdh½dM ¿ Zd´‚±ÿyHgJI ¿@oJo¿±ÿO(209 STATUSPRINT 190 PUTSKETCHPROP 185 REMOVE 164 MENU 33 STATUSPRINT 19 GETSKETCHPROP 5 INSURE.SKETCH) (178 VIEWS 139 DEFAULTMENUHELDFN 130 CLRPROMPT 68 QUOTE 40 |MENUTYPE#| 14 VIEWS) ( 204 " forgotten." 197 "View " 116 "Which view?" 77 "removes this view." 28 "There are no saved views. They are created with the 'Save view' command.") (PRETTYCOMPRINT SKETCHOPSCOMS) (RPAQQ SKETCHOPSCOMS ((* ; "functions that used to be on SKETCH") (COMS (* ;; "miscellaneous utility functions") (FNS SK.FONTNAMELIST SCALE.REGION.OUT SK.SCALE.POSITION.INTO.VIEWER SK.SCALE.POSITION.INTO.VIEWER.EXACT SK.MAKE.POSITION.INTEGER SCALE.POSITION.INTO.SKETCHW UNSCALE UNSCALE.REGION) (* ;; "misc IO functions") (FNS STATUSPRINT CLEARPROMPTWINDOW CLOSEPROMPTWINDOW MYGETPROMPTWINDOW PROMPT.GETINPUT)) (COMS (* ;; "fns for dealing with display priorities") (FNS SK.SEND.TO.BOTTOM SK.BRING.TO.TOP SK.SWITCH.PRIORITIES SK.SEL.AND.CHANGE.PRIORITY SK.SEL.AND.SWITCH.PRIORITIES SK.SORT.ELTS.BY.PRIORITY SK.SORT.GELTS.BY.PRIORITY SORT.CHANGESPECS.BY.NEW.PRIORITY SORT.CHANGESPECS.BY.OLD.PRIORITY SK.SEND.ELEMENTS.TO.BOTTOM SK.BRING.ELEMENTS.TO.TOP SK.COPY.GLOBAL.ELEMENT.AND.PROPERTY.LIST) (FNS SK.ELEMENT.PRIORITY SK.SET.ELEMENT.PRIORITY SK.POP.NEXT.PRIORITY SK.PRIORITY.CELL SK.HIGH.PRIORITY SK.LOW.PRIORITY)) (COMS (* ;; "functions for dealing with display elements.") (FNS DRAW.LOCAL.SKETCH SET.PRIORITYIMPORTANT SK.FIGUREIMAGE) (COMS (* ;; "functions for hardcopying") (FNS SKETCHW.HARDCOPYFN SK.LIST.IMAGE SK.HARDCOPYIMAGEW) (FNS SK.DO.HARDCOPYIMAGEW.TOFILE SK.HARDCOPYIMAGEW.TOFILE SK.HARDCOPYIMAGEW.TOPRINTER SK.LIST.IMAGE.ON.FILE) (FNS \SK.LIST.PAGE.IMAGE SK.GetImageFile SK.PRINTER.FILE.CANDIDATE.NAME SK.SET.HARDCOPY.MODE SK.UNSET.HARDCOPY.MODE SK.UPDATE.AFTER.HARDCOPY DEFAULTPRINTINGIMAGETYPE SK.SWITCH.REGION.X.AND.Y) (CONSTANTS MICASPERPT IMICASPERPT PTSPERMICA))) ( COMS (* ;; "fns to implement transformations on the elements") (FNS SK.SEL.AND.TRANSFORM SK.TRANSFORM.ELEMENTS SK.TRANSFORM.ITEM SK.TRANSFORM.ELEMENT SK.TRANSFORM.POINT SK.TRANSFORM.POINT.LIST SK.TRANSFORM.REGION SK.PUT.ELTS.ON.GRID SK.TRANSFORM.GLOBAL.ELEMENTS GLOBALELEMENTP SKETCH.LIST.OF.ELEMENTSP SK.TRANSFORM.SCALE.FACTOR SK.TRANSFORM.BRUSH SK.TRANSFORM.ARROWHEADS SCALE.BRUSH) (FNS TWO.PT.TRANSFORMATION.INPUTFN SK.TWO.PT.TRANSFORM.ELTS SK.SEL.AND.TWO.PT.TRANSFORM SK.APPLY.AFFINE.TRANSFORM SK.COMPUTE.TWO.PT.TRANSFORMATION SK.COMPUTE.SLOPE SK.THREE.PT.TRANSFORM.ELTS SK.COMPUTE.THREE.PT.TRANSFORMATION SK.SEL.AND.THREE.PT.TRANSFORM THREE.PT.TRANSFORMATION.INPUTFN) (FNS SK.COPY.AND.TWO.PT.TRANSFORM.ELTS SK.SEL.COPY.AND.TWO.PT.TRANSFORM SK.COPY.AND.THREE.PT.TRANSFORM.ELTS SK.SEL.COPY.AND.THREE.PT.TRANSFORM SK.COPY.AND.TRANSFORM.ELEMENTS SK.COPY.AND.TRANSFORM.ITEM) ( DECLARE%: DONTCOPY (RECORDS AFFINETRANSFORMATION)) (UGLYVARS FIRSTPTMARK SECONDPTMARK THIRDPTMARK NEWFIRSTPTMARK NEWSECONDPTMARK) (GLOBALVARS FIRSTPTMARK SECONDPTMARK THIRDPTMARK NEWFIRSTPTMARK NEWSECONDPTMARK) (FILES MATMULT)) (COMS (* ; "functions for marking") (FNS SK.SHOWMARKS MARKPOINT SK.MARKHOTSPOTS SK.MARK.SELECTION) (UGLYVARS POINTMARK SPOTMARKER) (GLOBALVARS POINTMARK SPOTMARKER) ( CURSORS POINTREADINGCURSOR) (* ; "hit detection functions.") (FNS SK.SELECT.ITEM IN.SKETCH.ELT? SK.MARK.HOTSPOT SK.MARK.POSITION SK.SELECT.ELT SK.DESELECT.ELT) (CONSTANTS (SK.POINT.WIDTH 4)) (* ; "fns to support caching of hotspots.") (FNS SK.HOTSPOT.CACHE SK.HOTSPOT.CACHE.FOR.OPERATION SK.BUILD.CACHE SK.ELEMENT.PROTECTED? SK.HAS.SOME.HOTSPOTS SK.SET.HOTSPOT.CACHE SK.CREATE.HOTSPOT.CACHE SK.ELTS.FROM.HOTSPOT SK.ADD.HOTSPOTS.TO.CACHE SK.ADD.HOTSPOTS.TO.CACHE1 SK.ADD.HOTSPOT.TO.CACHE SK.REMOVE.HOTSPOTS.FROM.CACHE SK.REMOVE.HOTSPOTS.FROM.CACHE1 SK.REMOVE.HOTSPOT.FROM.CACHE SK.REMOVE.VALUE.FROM.CACHE.BUCKET SK.FIND.CACHE.BUCKET SK.ADD.VALUE.TO.CACHE.BUCKET)) (COMS (* ; "grid stuff") (FNS SK.SET.GRID SK.DISPLAY.GRID SK.DISPLAY.GRID.POINTS SK.REMOVE.GRID.POINTS SK.TAKE.DOWN.GRID SK.SHOW.GRID SK.GRIDFACTOR SK.TURN.GRID.ON SK.TURN.GRID.OFF SK.MAKE.GRID.LARGER SK.MAKE.GRID.SMALLER SK.CHANGE.GRID GRID.FACTOR1 LEASTPOWEROF2GT GREATESTPOWEROF2LT SK.DEFAULT.GRIDFACTOR SK.PUT.ON.GRID MAP.WINDOW.ONTO.GRID MAP.SCREEN.ONTO.GRID MAP.GLOBAL.PT.ONTO.GRID MAP.GLOBAL.REGION.ONTO.GRID MAP.WINDOW.POINT.ONTO.GLOBAL.GRID MAP.WINDOW.ONTO.GLOBAL.GRID SK.UPDATE.GRIDFACTOR SK.MAP.FROM.WINDOW.TO.GLOBAL.GRID SK.MAP.INPUT.PT.TO.GLOBAL SK.MAP.FROM.WINDOW.TO.NEAREST.GRID) (INITVARS (DEFAULTGRIDSIZE 8) (DEFAULTMINGRIDSIZE 4) ( DEFAULTMAXGRIDSIZE 32))) (COMS (* ; "history and undo stuff") (FNS SK.ADD.HISTEVENT SK.SEL.AND.UNDO SK.UNDO.LAST SK.UNDO.NAME SKEVENTTYPEFNS SK.TYPE.OF.FIRST.ARG) (FNS SK.DELETE.UNDO SK.ADD.UNDO) (FNS SK.CHANGE.UNDO SK.ELT.IN.SKETCH? SK.CHANGE.REDO SK.MOVE.UNDO SK.MOVE.REDO) (FNS SK.UNDO.UNDO SK.UNDO.MENULABEL SK.LABEL.FROM.TYPE) (DECLARE%: DONTCOPY (RECORDS SKHISTEVENT SKEVENTTYPE)) (INITVARS (SKETCH.#.UNDO.ITEMS 30)) (GLOBALVARS SKETCH.#.UNDO.ITEMS) (IFPROP EVENTFNS ADD DELETE CHANGE UNDO MOVE COPY ZOOM ANNOTATE LINK)) (COMS (* ; "functions for displaying the global coordinate space values.") (FNS SHOW.GLOBAL.COORDS LOCATOR.CLOSEFN SKETCHW.FROM.LOCATOR SKETCHW.UPDATE.LOCATORS LOCATOR.UPDATE UPDATE.GLOBAL.LOCATOR UPDATE.GLOBALCOORD.LOCATOR ADD.GLOBAL.DISPLAY ADD.GLOBAL.GRIDDED.DISPLAY CREATE.GLOBAL.DISPLAYER UPDATE.GLOBAL.GRIDDED.COORD.LOCATOR) (VARS (SKETCHW.LASTCURSORPTX 0) (SKETCHW.LASTCURSORY 0)) ( GLOBALVARS SKETCHW.LASTCURSORPTX SKETCHW.LASTCURSORPTY)) (COMS (* ; "fns for reading colors") (FNS DISPLAYREADCOLORHLSLEVELS DISPLAYREADCOLORLEVEL DRAWREADCOLORBOX READ.CHANGE.COLOR READCOLOR1 READCOLORCOMMANDMENUSELECTEDFN READCOLOR2) (FNS CREATE.CNS.MENU) (VARS COLORMENUHEIGHT COLORMENUWIDTH) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP) LLCOLOR))) (COMS (* ;; "functions that used to be taken from GRAPHZOOM. Renamed and defined here so GRAPHZOOM isn't loaded." ) (FNS SK.ABSWXOFFSET SK.ABSWYOFFSET SK.UNSCALE.POSITION.FROM.VIEWER SK.SCALE.REGION)) (COMS (* ; "functions for zooming") (FNS VIEWER.SCALE SKETCH.ZOOM SAME.ASPECT.RATIO SKETCH.DO.ZOOM SKETCH.NEW.VIEW ZOOM.UPDATE.ELT SK.UPDATE.AFTER.SCALE.CHANGE SKETCH.AUTOZOOM SKETCH.GLOBAL.REGION.ZOOM ) (INITVARS (AUTOZOOM.FACTOR 0.8) (AUTOZOOM.REPAINT.TIME 3000)) (CURSORS AUTOZOOMCURSOR ZOOMINCURSOR ZOOMOUTCURSOR) (GLOBALVARS AUTOZOOM.FACTOR AUTOZOOM.REPAINT.TIME ZOOMINCURSOR ZOOMOUTCURSOR)) (COMS (* ; "fns for changing the view") (FNS SKETCH.HOME SK.FRAME.IT SK.FRAME.WINDOW.TO.SKETCH SK.MOVE.TO.VIEW SK.NAME.CURRENT.VIEW SKETCH.ADD.VIEW SK.RESTORE.VIEW SK.FORGET.VIEW) (DECLARE%: DONTCOPY (RECORDS SKETCHVIEW))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP) SKETCH SKETCHELEMENTS SKETCHOBJ SKETCHEDIT INTERPRESS)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA) (NLAML) (LAMA STATUSPRINT))))) (RPAQQ MICASPERPT 35.27778) (RPAQQ IMICASPERPT 35) (RPAQQ PTSPERMICA 0.02834646) (CONSTANTS MICASPERPT IMICASPERPT PTSPERMICA) (READVARS-FROM-STRINGS (QUOTE (FIRSTPTMARK SECONDPTMARK THIRDPTMARK NEWFIRSTPTMARK NEWSECONDPTMARK)) "({(READBITMAP)(25 25 %"AOCNB@@@%" %"AA@HF@@@%" %"AA@HB@@@%" %"AN@HB@@@%" %"A@@HB@@@%" %"A@@HB@@@%" %"A@@HOH@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@GO@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%")} {(READBITMAP)(25 25 %"AOCNG@@@%" %"AA@HHH@@%" %"AA@HAH@@%" %"AN@HG@@@%" %"A@@HL@@@%" %"A@@HH@@@%" %"A@@HOH@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@GO@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%")} {(READBITMAP)(25 25 %"AOCNG@@@%" %"AA@HHH@@%" %"AA@HAH@@%" %"AN@HF@@@%" %"A@@HAH@@%" %"A@@HHH@@%" %"A@@HG@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@GO@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@@@@@@%")} {(READBITMAP)(25 25 %"AAGJB@@@%" %"AIDBJ@@@%" %"AEDBJ@@@%" %"AEGBJ@@@%" %"ACDBJ@@@%" %"ACDBJ@@@%" %"AAGID@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@GO@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"AOCNB@@@%" %"AA@HF@@@%" %"AA@HB@@@%" %"AN@HB@@@%" %"A@@HB@@@%" %"A@@HB@@@%" %"A@@HOH@@%")} {(READBITMAP)(25 25 %"AAGJB@@@%" %"AIDBJ@@@%" %"AEDBJ@@@%" %"AEGBJ@@@%" %"ACDBJ@@@%" %"ACDBJ@@@%" %"AAGID@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@GO@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@H@@@@%" %"@@@@@@@@%" %"@@@@@@@@%" %"AOCNCH@@%" %"AA@HDD@@%" %"AA@H@D@@%" %"AN@HAH@@%" %"A@@HF@@@%" %"A@@HD@@@%" %"A@@HGL@@%")}) ") (FILESLOAD MATMULT) (READVARS-FROM-STRINGS (QUOTE (POINTMARK SPOTMARKER)) "({(READBITMAP)(7 7 %"HB@@%" %"DD@@%" %"BH@@%" %"A@@@%" %"BH@@%" %"DD@@%" %"HB@@%")} {(READBITMAP)(12 12 %"@B@@%" %"@G@@%" %"@G@@%" %"@G@@%" %"CHN@%" %"GHO@%" %"CHN@%" %"@G@@%" %"@G@@%" %"@G@@%" %"@B@@%" %"@@@@%")}) ") (RPAQ POINTREADINGCURSOR (CURSORCREATE (QUOTE #*(16 16)@@@@@GL@ALG@C@AHF@@LD@@DL@@FH@@BHA@BH@@BL@@FD@@DF@@LC@AHALG@@GL@ ) (QUOTE NIL) 7 7)) (RPAQQ SK.POINT.WIDTH 4) (CONSTANTS (SK.POINT.WIDTH 4)) (RPAQ? DEFAULTGRIDSIZE 8) (RPAQ? DEFAULTMINGRIDSIZE 4) (RPAQ? DEFAULTMAXGRIDSIZE 32) (RPAQ? SKETCH.#.UNDO.ITEMS 30) (PUTPROPS ADD EVENTFNS (SK.ADD.UNDO SK.TYPE.OF.FIRST.ARG SK.DELETE.UNDO)) (PUTPROPS DELETE EVENTFNS (SK.DELETE.UNDO SK.TYPE.OF.FIRST.ARG SK.ADD.UNDO)) (PUTPROPS CHANGE EVENTFNS (SK.CHANGE.UNDO SK.TYPE.OF.FIRST.ARG SK.CHANGE.REDO)) (PUTPROPS UNDO EVENTFNS (SK.UNDO.UNDO SK.UNDO.MENULABEL SHOULDNT)) (PUTPROPS MOVE EVENTFNS (SK.MOVE.UNDO SK.TYPE.OF.FIRST.ARG SK.MOVE.REDO)) (PUTPROPS COPY EVENTFNS (SK.ADD.UNDO SK.TYPE.OF.FIRST.ARG SK.DELETE.UNDO)) (RPAQQ SKETCHW.LASTCURSORPTX 0) (RPAQQ SKETCHW.LASTCURSORY 0) (RPAQQ COLORMENUHEIGHT 320) (RPAQQ COLORMENUWIDTH 360) (RPAQ? AUTOZOOM.FACTOR 0.8) (RPAQ? AUTOZOOM.REPAINT.TIME 3000) (RPAQ AUTOZOOMCURSOR (CURSORCREATE (QUOTE #*(16 16)O@@ON@@GO@@OKJEMANGH@NG@AOOH@BD@@BD@COOH@NG@ANGHKJEMOB@ON@@GO@@O ) (QUOTE NIL) 7 8)) (RPAQ ZOOMINCURSOR (CURSORCREATE (QUOTE #*(16 16)OLCON@@GN@@GI@@IHHAAHDBA@BD@@@@@@@@@@BD@HDBAHHAAI@@IN@@GN@@GOLCO ) (QUOTE NIL) 7 8)) (RPAQ ZOOMOUTCURSOR (CURSORCREATE (QUOTE #*(16 16)H@@ADBDBBBDDABDH@NG@@NG@GNGN@@@@@@@@GNGN@NG@@NG@ABDHBBDDDBDBH@@A ) (QUOTE NIL) 7 8)) NIL