(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "16-Jul-2022 15:54:44" ("compiled on " {DSK}larry>medley>library>SKETCHOBJ.;2) "15-Jul-2022 18:06:23" bcompl'd in "FULL 15-Jul-2022 ..." dated "15-Jul-2022 18:06:26") (FILECREATED "15-Jul-2022 14:33:25" {DSK}larry>winhome>DROPBOX>TEDIT-VERSIONS>SKETCHOBJ.;1 55347 :CHANGES-TO (FNS SKETCH.DISPLAYFN) :PREVIOUS-DATE "20-Jan-93 14:48:59" {DSK}larry>medley>library>SKETCHOBJ.;1) MAKE.IMAGE.OBJECT.OF.SKETCH :D8 (I 3 GRIDSIZE I 2 SCALE I 1 REGION I 0 SKETCH) \@ A A@ B3#@ @ o oC3@ @ o (89 SKETCH.IMAGEOBJ 78 SK.GRIDFACTOR 71 WINDOWP 53 ERROR 41 VIEWER.SCALE 33 WINDOWP 22 SKETCH.REGION.VIEWED 11 REGIONP 5 INSURE.SKETCH) NIL ( 84 8.0 60 1.0 48 " illegal argument.") SK.ELEMENT.FROM.IMAGEOBJ :D8 (I 2 ORGPOS I 1 SKETCHW I 0 IMAGEOBJ) @A BA (13 SKETCH.IMAGE.OBJECT.ELEMENT 6 VIEWER.SCALE) NIL () SKETCHIMAGEOBJ.FROM.VIEWER :D8 (I 0 SKETCHW) $@ @ @ @ (33 SKETCH.IMAGEOBJ 28 SK.GRIDFACTOR 22 VIEWER.SCALE 16 SKETCH.REGION.VIEWED 10 INSURE.SKETCH 5 SKETCH.FROM.VIEWER) NIL () SKETCH.IMAGEOBJ :D8 (I 3 GRID I 2 SCALE I 1 REGION I 0 SKETCH) 6@A @ B3ohC3oh` (51 IMAGEOBJCREATE 14 SKETCH.REGION.OF.SKETCH 6 REGIONP) (46 SKETCHIMAGEFNS) ( 35 8.0 24 1.0) SKETCH.DISPLAYFN :D8 (P 7 SKYOFFSET P 6 SKXOFFSET P 5 SKTOSTRMSCALE P 4 STRMSCALE P 3 SKSCALE P 2 TYPE P 1 REGION P 0 SKIO I 1 STREAM I 0 SKETCHIMAGEOBJ) @g !HYA ZgJ>gJ5HHHIH jdAhA hA rHhA 2KL׽hA MIվhA MI_hA H jNjO INO YMAi AIM A h(207 DSPFONT 200 DRAW.LOCAL.SKETCH 195 SK.SCALE.REGION 187 MAKE.LOCAL.SKETCH 177 TRANSLATE.REGION 168 TRANSLATE.SKETCH 156 COPY 149 DSPFONT 133 DSPYPOSITION 120 DSPXPOSITION 106 DSPSCALE 92 BITBLT 86 DSPYPOSITION 79 DSPXPOSITION 67 SKETCH.BITMAP.IMAGE 23 IMAGESTREAMTYPE 10 IMAGEOBJPROP) (40 DISPLAY 29 DISPLAY 5 OBJECTDATUM) () SKETCH.BITMAP.IMAGEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 DSP F 1 SCALE F 2 SKETCH F 3 REGION) RSQPi PhP Q (24 DRAW.LOCAL.SKETCH 18 DSPCLIPPINGREGION 10 MAKE.LOCAL.SKETCH) NIL () SKETCH.BITMAP.IMAGE :D8 (P 2 SI::*RESETFORMS* P 1 DSP P 0 BITMAP I 2 SCALE I 1 REGION I 0 SKETCH) @ bA @ bB3ob ABkABk Xd YjABI jABI g` hhhg $H(138 SI::RESETUNWIND 133 \MVLIST 128 SKETCH.BITMAP.IMAGEA0001 108 CURSOR 93 DSPYOFFSET 80 DSPXOFFSET 67 DSPCREATE 60 BITMAPCREATE 20 SKETCH.REGION.OF.SKETCH 13 REGIONP 5 INSURE.SKETCH) (123 SI::RESETUNWIND 103 WAITINGCURSOR 98 CURSOR) ( 32 1.0) SKIO.IMAGEBOXFN :D8 (P 4 SCALEFACTOR P 3 SKH P 2 SKW P 1 SKREG P 0 SKOBJ I 1 STREAM I 0 IMAGEOBJ) l@g QHhA \HYL ZIL [AK #JhA lսl MMl jdhJKjdh(71 DSPCLIPPINGREGION 61 \SKIO.IN.TOO.SMALL.TEDITP 53 FIXR 40 FIXR 24 DSPSCALE 10 IMAGEOBJPROP) (5 OBJECTDATUM) () SKIO.GETFN.2 :D8 (P 0 READSKETCH I 0 STREAM) >@ Hd Hd  @ @ @ (59 SKETCH.IMAGEOBJ 54 READ 48 READ 42 READ 35 SK.CHECK.SKETCH.VERSION 28 LAST 18 SKIO.UPDATE.FROM.OLD.FORM 5 HREAD) NIL () SKIO.UPDATE.FROM.OLD.FORM :D8 (I 0 OLDSKETCH) ;@g ghglgjdh@d d@(47 LAST 11 MAPGLOBALSKETCHELEMENTS) (29 PRIRANGE 22 VERSION 16 SKETCH 6 SK.UPDATE.ARROWHEAD.FORMAT) () SKIO.GETFN :D8 (I 0 STREAM) /oi oi oi o (44 ERROR 34 PRIN1 22 PRIN1 10 PRIN1) NIL ( 39 "old format Sketch object" 28 "load this file into a Harmony sysout and do a 'Put' from there." 16 "To update it to the new format, " 4 "This file contains sketch that is in an old format. ") SKIO.PUTFN :D8 (P 1 SKETCH P 0 SKETCHIMAGEOBJ I 1 STREAM I 0 IMAGEOBJ) @@g HYdIAi HA HA HA h(60 PRINT 48 PRINT 38 PRINT 29 HPRINT 10 IMAGEOBJPROP) (5 OBJECTDATUM) () SKIO.COPYFN :D8 (P 0 SKETCHOBJ I 0 IMAGEOBJ) .@g H H HH (43 SKETCH.IMAGEOBJ 28 COPY 20 COPY 10 IMAGEOBJPROP) (5 OBJECTDATUM) () SKIO.BUTTONEVENTINFN :D8 (P 9 TITLE P 8 SKW P 7 SKETCH P 6 SCALE P 5 SKREG P 0 OBJ I 1 WINDOW I 0 IMAGEOBJ) K @g A`dodg dgjdndhdI gHHH# ghglgjdhZOJAg _oO g_O d \dKLO MdN MN i ONiH _g@Ah O . gOddi3 gOhh h(327 ADD.PROCESS 290 TTY.PROCESS 283 \INSUREWINDOW 275 PUTWINDOWPROP 258 SKETCHW.CREATE 242 GETBOXREGION 237 HEIGHTIFWINDOW 231 FIXR 219 WIDTHIFWINDOW 214 FIXR 200 COPY 178 LAST 172 COPY 154 CONCAT 139 GETWINDOWUSERPROP 68 MENU 10 IMAGEOBJPROP) (314 QUOTE 296 TOTOPW 265 DOCUMENTINFO 160 |a figure from a document| 134 TEDIT.ICON.TITLE 110 PRIRANGE 103 VERSION 97 SKETCH 73 EDIT 43 DEFAULTMENUHELDFN 34 CLRPROMPT 18 |MENUTYPE#| 5 OBJECTDATUM) ( 147 "figure from " 25 ((Edit% sketch (QUOTE EDIT) "opens a window in which this sketch can be changed."))) TRANSLATE.REGION :D8 (I 2 NEWBOTTOM I 1 NEWLEFT I 0 REGION) @A@B@@ (22 CREATEREGION) NIL () UPDATE.IMAGE.IN.DOCUMENT :D8 (P 5 POS P 4 OLDIMAGEOBJ P 3 TEXTOBJ P 2 DOCINFO I 0 SKW) `dododi dg dgjdndhHdI  dg[@g 1J [o hJ\ ]o hK [Mk @ KM hdggh(168 TEDIT.INSERT.OBJECT 161 SKETCHIMAGEOBJ.FROM.VIEWER 155 TEDIT.DELETE 147 TEXTSTREAM 139 PROMPTPRINT 127 TEDIT.FIND.OBJECT 117 PROMPTPRINT 104 TEXTOBJ 93 GETWINDOWUSERPROP 72 \CURSOR.IN.MIDDLE.MENU) (183 NO 177 DON'T 88 DOCUMENTINFO 78 YES 43 DEFAULTMENUHELDFN 34 CLRPROMPT 4 |MENUTYPE#|) ( 134 "Can't find this sketch in the document it came from." 112 "Can't find the edit window for the source document." 20 ((Yes (QUOTE YES) "this image used in the document instead of the one that is there.") (No (QUOTE NO) "the changes made to this image will not be put into the document.")) 11 "Put changes back into Document?") SK.COPY.IMAGEOBJ :D8 (P 3 NEWSKELT P 2 FN P 1 IMAGEOBJ P 0 INDVGELT I 2 CALLWHENCOPIEDFN I 1 WINDOW I 0 GELT) `@AgHY HHHH@ Lh[BIg ZKgIAlJ(71 IMAGEOBJPROP 53 COPY 19 COPY.IMAGE.OBJECT) (81 NILL 66 WHENCOPIEDFN 10 SKIMAGEOBJ) () COPY.IMAGE.OBJECT :D8 (P 0 FN I 0 IMAGEOBJ) '@g X @ g@kH(22 COPY 13 IMAGEOBJPROP) (28 NILL 8 COPYFN) () \CREATE.SKETCH.IMAGEFNS :D8 NIL B` 6gggggggdddddd (58 IMAGEFNSCREATE 9 IMAGEFNSP) (63 SKETCHIMAGEFNS 46 NILL 41 SKIO.BUTTONEVENTINFN 36 SKIO.COPYFN 31 SKIO.GETFN.2 26 SKIO.PUTFN 21 SKIO.IMAGEBOXFN 16 SKETCH.DISPLAYFN 4 SKETCHIMAGEFNS) () \SKIO.IN.TOO.SMALL.TEDITP :D8 (I 1 HEIGHT I 0 STREAM) 8@ 0h@ !@ g Ah@ (48 DSPCLIPPINGREGION 38 GETWINDOWUSERPROP 28 WFROMDS 19 SCREENBITMAP 14 DSPDESTINATION 5 DISPLAYSTREAMP) (33 TEXTOBJ) () SKETCH.VIEWER.GRID :D8 (P 0 SKINFO I 1 NEWGRID I 0 VIEWER) q@ T@g H3H-Hg!HAAd3HA o@ h@ @A @ (110 \ILLEGAL.ARG 103 SK.GRIDFACTOR 95 WINDOWP 87 ERROR 74 \ILLEGAL.ARG 18 IMAGEOBJPROP 5 IMAGEOBJP) (42 SKETCH 13 OBJECTDATUM) ( 81 "not a sketch image object") SKETCH.VIEWER.SCALE :D8 (P 0 SKINFO I 1 NEWSCALE I 0 VIEWER) @ R@g H1H+HgHAA HAA o@ h@ -@g AA @gA @ @ (144 \ILLEGAL.ARG 136 SK.UPDATE.AFTER.SCALE.CHANGE 129 PUTWINDOWPROP 115 SK.INSURE.SCALE 106 GETWINDOWUSERPROP 93 WINDOWP 85 ERROR 72 \ILLEGAL.ARG 58 SK.INSURE.SCALE 18 IMAGEOBJPROP 5 IMAGEOBJP) (123 SCALE 101 SCALE 42 SKETCH 13 OBJECTDATUM) ( 79 "not a sketch image object") SKETCH.IMAGE.OBJECT.ELEMENT :D8 (I 3 VIEWER I 2 GLOBALPOS I 1 SCALE I 0 IMAGEOBJ) @BA C (13 SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE 7 SKETCH.CREATE.IMAGE.OBJECT1) NIL () SKETCH.IMAGEOBJ.OF.ELEMENT :D8 (L (0 ELEMENT)) @NIL NIL () SKETCH.SCALE.OF.ELEMENT :D8 (L (0 ELEMENT)) @NIL NIL () SKETCH.POSITION.OF.ELEMENT :D8 (P 0 REG I 0 ELEMENT) @HH (18 CREATEPOSITION) NIL () CREATE.SKIMAGEOBJ.TYPE :D8 NIL ^g Qghoggggggggggghg h(89 CREATE.SKETCH.ELEMENT.TYPE 9 SKETCH.ELEMENT.TYPEP) (83 SK.IMAGEOBJ.GLOBALREGIONFN 77 SK.IMAGEOBJ.TRANSFORMFN 72 SK.IMAGEOBJ.READCHANGEFN 67 NILL 62 SK.IMAGEOBJ.TRANSLATEFN 57 SK.IMAGEOBJ.REGIONFN 52 SK.IMAGEOBJ.INSIDEFN 47 NILL 42 SK.IMAGEOBJ.CHANGEFN 37 OBSOLETE 32 SK.IMAGEOBJ.EXPANDFN 27 SK.IMAGEOBJ.DRAWFN 16 SKIMAGEOBJ 4 SKIMAGEOBJ) ( 22 "functions for using image objects in sketches") IMAGEBOXSIZE :D8 (I 1 IMAGESTREAM I 0 IMAGEOBJ) @@AlHNIL (12 IMAGEFNS 5 IMAGEOBJ) () SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE :D8 (P 2 SCALE P 1 IMAGEOBJ P 0 IMOBJSIZE I 1 VIEWER I 0 IMOBJELT) M0@YA XIZIIIHJHJIIHH@(14 IMAGEBOXSIZE) NIL () SKETCH.CREATE.IMAGE.OBJECT :D8 (I 2 SCALE I 1 POSITION I 0 IMAGEOBJ) @AB h (13 SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE 7 SKETCH.CREATE.IMAGE.OBJECT1) NIL () SKETCH.CREATE.IMAGE.OBJECT1 :D8 (I 2 SCALE I 1 POSITION I 0 IMAGEOBJ) hB3B ob AA A  g@A4jA-jkd BhdB`ֹB`IhdHh(61 CREATEREGION 36 \ILLEGAL.ARG 29 POSITIONP 20 \ILLEGAL.ARG) (84 DEFAULT.VISIBLE.SCALE.FACTOR 76 MINIMUM.VISIBLE.SCALE.FACTOR 45 SKIMAGEOBJ) ( 12 1.0) SK.IMAGEOBJ.DRAWFN :D8 (P 3 LOCALOFFSET P 2 LOCALPOS P 1 LOCALIMOBJ P 0 IMAGEOBJ I 2 REGION I 1 WINDOW I 0 IMAGEOBJELT) d@@2IZI[JKJKA Hg HAd hI Hg HAlLh(88 IMAGEOBJPROP 74 ANNO.DISPLAYFN 63 IMAGESTREAMTYPE 48 IMAGEOBJPROP 37 MOVETO) (83 DISPLAYFN 53 ANNO 43 OBJECTDATUM) () SK.IMAGEOBJ.REGIONFN :D8 (L (0 IMAGEOJBELT)) @NIL NIL () SK.IMAGEOBJ.GLOBALREGIONFN :D8 (L (0 GIMOBJELT)) @NIL NIL () SK.IMAGEOBJ.TRANSLATEFN :D8 (P 2 FN P 1 IMAGEOBJ P 0 INDIMAGEOBJELT I 2 WINDOW I 1 DELTAPOS I 0 GIMAGEOBJ) b@!HYg Z9@h gHHAA HHHhgIBdlJ(51 TRANSLATE.REGION 30 \APPEND2 19 IMAGEOBJPROP) (82 NILL 35 SKIMAGEOBJ 14 WHENMOVEDFN) () SK.IMAGEOBJ.EXPANDFN :D8 (P 3 IMAGESIZE P 2 LOCALPOS P 1 LOCALREG P 0 GIMAGEOBJ I 1 SCALE I 0 GIMAGEOBJPART) 8@1HA YdIhhAHIHA h@(45 SK.SCALE.POSITION.INTO.VIEWER 15 SK.SCALE.REGION) NIL () SK.IMAGEOBJ.INSIDEFN :D8 (I 1 WREG I 0 GIMAGEOBJ) @A (11 REGIONSINTERSECTP) NIL () SK.IMAGEOBJ.MOVEFN :D8 (P 5 IMAGEOBJ P 4 FN P 3 GINDV P 2 GREG P 1 SCALEDNEWPOS P 0 GIMOBJ I 3 WINDOW I 2 NEWINPUTPT I 1 SELPOS I 0 IMAGEOBJELT) U@BC BH[ZKIIJJ K]g \HgMClL(60 IMAGEOBJPROP 45 CREATEREGION 13 SK.MAP.INPUT.PT.TO.GLOBAL 8 VIEWER.SCALE) (70 NILL 55 WHENMOVEDFN) () SK.IMAGEOBJ.CHANGEFN :D8 (P 5 OLDREG P 4 IMAGEOBJ P 3 NEWIMAGEOBJ P 2 SKIMOBJELT P 1 FN P 0 IMAGEOBJELT I 2 HOW I 1 WINDOW I 0 IMAGEOBJELTS) t@qHZd\dg YdWgNLg LAlN[d8KLJJ]MA _HOgKLhhh(89 SKETCH.IMAGE.OBJECT.ELEMENT 47 IMAGEOBJPROP 24 IMAGEOBJPROP) (101 DATA 64 IMAGEOBJ 42 BUTTONEVENTINFN 33 NILL 19 BUTTONEVENTINFN) () SK.IMAGEOBJ.READCHANGEFN :D8 (L (0 SKW)) iNIL NIL () SK.IMAGEOBJ.TRANSFORMFN :D8 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) <@@h gHHAB HHHh(32 SK.TRANSFORM.REGION 13 \APPEND2) (18 SKIMAGEOBJ) () (PRETTYCOMPRINT SKETCHOBJCOMS) (RPAQQ SKETCHOBJCOMS ((COMS (* the stuff to support sketch images in documents.) (FNS MAKE.IMAGE.OBJECT.OF.SKETCH SK.ELEMENT.FROM.IMAGEOBJ SKETCHIMAGEOBJ.FROM.VIEWER SKETCH.IMAGEOBJ SKETCH.DISPLAYFN SKETCH.BITMAP.IMAGE SKIO.IMAGEBOXFN SKIO.GETFN.2 SKIO.UPDATE.FROM.OLD.FORM SKIO.GETFN SKIO.PUTFN SKIO.COPYFN SKIO.BUTTONEVENTINFN TRANSLATE.REGION UPDATE.IMAGE.IN.DOCUMENT SK.COPY.IMAGEOBJ COPY.IMAGE.OBJECT \CREATE.SKETCH.IMAGEFNS \SKIO.IN.TOO.SMALL.TEDITP SKETCH.VIEWER.GRID SKETCH.VIEWER.SCALE) (DECLARE%: DONTCOPY DOEVAL@COMPILE (RECORDS SKETCHIMAGEOBJ SKETCHDOCUMENTINFO)) (P (\CREATE.SKETCH.IMAGEFNS)) (ADDVARS (IMAGEOBJGETFNS (SKIO.GETFN)))) (COMS (* stuff to support image objects as elements in a sketch) (FNS SKETCH.IMAGE.OBJECT.ELEMENT SKETCH.IMAGEOBJ.OF.ELEMENT SKETCH.SCALE.OF.ELEMENT SKETCH.POSITION.OF.ELEMENT CREATE.SKIMAGEOBJ.TYPE IMAGEBOXSIZE SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE SKETCH.CREATE.IMAGE.OBJECT SKETCH.CREATE.IMAGE.OBJECT1 ) (FNS SK.IMAGEOBJ.DRAWFN SK.IMAGEOBJ.REGIONFN SK.IMAGEOBJ.GLOBALREGIONFN SK.IMAGEOBJ.TRANSLATEFN SK.IMAGEOBJ.EXPANDFN SK.IMAGEOBJ.INSIDEFN SK.IMAGEOBJ.MOVEFN SK.IMAGEOBJ.CHANGEFN SK.IMAGEOBJ.READCHANGEFN SK.IMAGEOBJ.TRANSFORMFN) (RECORDS LOCALSKIMAGEOBJ SKIMAGEOBJ ANNO) (P ( CREATE.SKIMAGEOBJ.TYPE))))) (\CREATE.SKETCH.IMAGEFNS) (ADDTOVAR IMAGEOBJGETFNS (SKIO.GETFN)) (RECORD LOCALSKIMAGEOBJ ((SKIMOBJLOCALPOS) LOCALHOTREGION SKIMOBJLOCALSCALE SKIMOBJLOCALREGION SKIMOBJLOCALOFFSETPOS)) (TYPERECORD SKIMAGEOBJ (SKIMAGEOBJ SKIMOBJ.GLOBALREGION SKIMOBJ.ORIGSCALE SKIMOBJ.OFFSETPOS)) (DATATYPE ANNO (ANNO\SUBSTANCE ANNO\ID ANNO\WINDOW ANNO\DATE ANNO\PARENTS ANNO\NEXTSUBID ANNO\TYPE ANNO\SUMMARIZED\IN ANNO\UPDATE\DATE ANNO\CREATE\BY ANNO\UPDATE\BY ANNO\FONT)) (/DECLAREDATATYPE (QUOTE ANNO) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((ANNO 0 POINTER) (ANNO 2 POINTER) (ANNO 4 POINTER) (ANNO 6 POINTER) (ANNO 8 POINTER) (ANNO 10 POINTER) (ANNO 12 POINTER) (ANNO 14 POINTER) (ANNO 16 POINTER) ( ANNO 18 POINTER) (ANNO 20 POINTER) (ANNO 22 POINTER))) (QUOTE 24)) (CREATE.SKIMAGEOBJ.TYPE) (PUTPROPS SKETCHOBJ COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1990 1993)) NIL