(FILECREATED "19-Aug-85 16:48:38" ("compiled on " {PHYLUM}SKETCHOBJ.;56) "19-Mar-85 14:34:17" recompiled changes: MAKE.IMAGE.OBJECT.OF.SKETCH SK.ELEMENT.FROM.IMAGEOBJ SKETCH.IMAGE.OBJECT.ELEMENT SKETCH.IMAGEOBJ.OF.ELEMENT SKETCH.SCALE.OF.ELEMENT SKETCH.POSITION.OF.ELEMENT CREATE.SKIMAGEOBJ.TYPE SK.IMAGEOBJ.TRANSLATEFN SK.IMAGEOBJ.CHANGEFN in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED "19-Aug-85 16:48:19" {PHYLUM}SKETCHOBJ.;56 33921 changes to: (FNS SK.IMAGEOBJ.TRANSLATEFN CREATE.SKIMAGEOBJ.TYPE MAKE.IMAGE.OBJECT.OF.SKETCH SKETCH.IMAGEOBJ.OF.ELEMENT SKETCH.SCALE.OF.ELEMENT SKETCH.POSITION.OF.ELEMENT SK.ELEMENT.FROM.IMAGEOBJ SKETCH.IMAGE.OBJECT.ELEMENT SK.IMAGEOBJ.CHANGEFN) (VARS SKETCHOBJCOMS) previous date: "19-Jul-85 15:07:51" {PHYLUM}SKETCHOBJ.;52) MAKE.IMAGE.OBJECT.OF.SKETCH D1 (I 3 GRIDSIZE I 2 SCALE I 1 REGION I 0 SKETCH) O@ A µ!Aµ:` ¿o` ¿jdn,lÈ Bd¥d¡µoCµo o °Ý(113Q ERROR 103Q SKETCH.IMAGEOBJ 50Q CREATEREGION 35Q PRIN1 22Q TERPRI 7 REGIONP 3 INSURE.SKETCH) (32Q PROMPTWINDOW 17Q PROMPTWINDOW) ( 110Q " illegal argument." 100Q 8.0 71Q 1.0 27Q "For now, MAKE.IMAGE.OBJECT.OF.SKETCH must have a region.") SK.ELEMENT.FROM.IMAGEOBJ D1 (I 2 ORGPOS I 1 SKETCHW I 0 IMAGEOBJ) @A B (10Q SKETCH.IMAGE.OBJECT.ELEMENT 4 SKETCHW.SCALE) NIL () SKETCHIMAGEOBJ.FROM.VIEWER D1 (I 0 SKETCHW) @ @ @ @ (25Q SKETCH.IMAGEOBJ 22Q SK.GRIDFACTOR 16Q WINDOW.SCALE 12Q SK.REGION.VIEWED 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SKETCH.IMAGEOBJ D1 (I 3 GRID I 2 SCALE I 1 REGION I 0 SKETCH) @ABhCh` (20Q IMAGEOBJCREATE) (15Q SKETCHIMAGEFNS) () SKIO.DISPLAYFN D1 (P 15Q SKYOFFSET P 14Q SKXOFFSET P 13Q SKTOSTRMSCALE P 12Q STRMSCALE P 11Q SKSCALE P 10Q NEWYOFFSET P 7 NEWXOFFSET P 6 YOFFSETSAV P 5 XOFFSETSAV P 4 SCALE P 3 CLIPPINGSAV P 2 TYPE P 1 REGION P 0 SKIO I 1 STREAM I 0 BMOBJ)  @g !HYA Zgð®J¢±’gJ¢±‰hA HBgA ¿hA IL×_Õ A ½hA IL×_Õ A ¾KO O A ¿HµHHILAi AIL L ¿MA ¿NA ¿KA °\HhA 2 OO×_¿hA OÖIÕ_¿hA OÖIÕ_¿H jOÙjOÙ IOO YOA AIO h(406Q DRAW.LOCAL.SKETCH 403Q SCALE.REGION 374Q MAKE.LOCAL.SKETCH 365Q TRANSLATE.REGION 355Q TRANSLATE.SKETCH 342Q COPY 323Q DSPYPOSITION 305Q DSPXPOSITION 265Q DSPSCALE 251Q DSPCLIPPINGREGION 243Q DSPYOFFSET 235Q DSPXOFFSET 227Q DRAW.LOCAL.SKETCH 223Q SCALE.REGION 213Q MAKE.LOCAL.SKETCH 165Q DSPCLIPPINGREGION 161Q TRANSLATE.REGION 156Q FIXR 151Q FIXR 142Q DSPYOFFSET 136Q FIXR 123Q DSPYPOSITION 115Q DSPXOFFSET 111Q FIXR 77Q DSPXPOSITION 71Q DSPOPERATION 53Q DSPCLIPPINGREGION 21Q IMAGESTREAMTYPE 6 IMAGEOBJPROP) (65Q PAINT 40Q DISPLAY 25Q DISPLAY 3 OBJECTDATUM) () SKIO.IMAGEBOXFN D1 (P 4 SCALEFACTOR P 3 SKH P 2 SKW P 1 SKREG P 0 SKOBJ I 1 STREAM I 0 IMAGEOBJ) 8@g AHhA ×\HYLë ZILë [JKjdh(53Q FIXR 40Q FIXR 22Q DSPSCALE 6 IMAGEOBJPROP) (3 OBJECTDATUM) () SKIO.GETFN.2 D1 (P 0 READSKETCH I 0 STREAM) +@ Hd£ ˆHd @ @ @ (50Q SKETCH.IMAGEOBJ 45Q READ 41Q READ 35Q READ 26Q LAST 16Q SKIO.UPDATE.FROM.OLD.FORM 3 HREAD) NIL () SKIO.UPDATE.FROM.OLD.FORM D1 (I 0 OLDSKETCH) @g g@h@d (25Q LAST 7 MAPGLOBALSKETCHELEMENTS) (12Q SKETCH 4 SK.UPDATE.ARROWHEAD.FORMAT) () SKIO.GETFN D1 (I 0 STREAM) #oi ¿oi ¿oi o (40Q ERROR 31Q PRIN1 20Q PRIN1 7 PRIN1) NIL ( 35Q "old format Sketch object" 25Q "load this file into a Harmony sysout and do a 'Put' from there." 14Q "To update it to the new format, " 3 "This file contains sketch that is in an old format. ") SKIO.PUTFN D1 (P 1 SKETCH P 0 SKETCHIMAGEOBJ I 1 STREAM I 0 IMAGEOBJ) 4@g HYdIAi HA HA HA h(60Q PRINT 46Q PRINT 36Q PRINT 27Q HPRINT 6 IMAGEOBJPROP) (3 OBJECTDATUM) () SKIO.COPYFN D1 (P 0 SKETCHOBJ I 0 IMAGEOBJ) $@g H H HH (41Q SKETCH.IMAGEOBJ 24Q COPY 16Q COPY 6 IMAGEOBJPROP) (3 OBJECTDATUM) () SKIO.BUTTONEVENTINFN D1 (P 5 SKW P 4 SKETCH P 3 SCALE P 2 SKREG P 0 OBJ I 1 WINDOW I 0 IMAGEOBJ) Ÿ@g `do¿dg ¿dg¿jdnÿdh¹dI ¿ gð´aHHHggL L d JdKë JKë i hKiH ]g@Ah h(233Q PUTWINDOWPROP 217Q SKETCHW.CREATE 202Q GETBOXREGION 177Q HEIGHTIFWINDOW 173Q FIXR 161Q WIDTHIFWINDOW 156Q FIXR 142Q LAST 136Q COPY 126Q COPY 67Q MENU 6 IMAGEOBJPROP) (223Q DOCUMENTINFO 117Q a% figure% from% a% document 114Q SKETCH 72Q EDIT 40Q DEFAULTMENUHELDFN 31Q CLRPROMPT 14Q MENUTYPE# 3 OBJECTDATUM) ( 22Q ((Edit% sketch (QUOTE EDIT) "opens a window in which this sketch can be changed."))) TRANSLATE.REGION D1 (I 2 NEWBOTTOM I 1 NEWLEFT I 0 REGION) @AÔ@BÔ@@ (24Q CREATEREGION) NIL () UPDATE.IMAGE.IN.DOCUMENT D1 (P 5 POS P 4 OLDIMAGEOBJ P 3 TEXTOBJ P 2 DOCINFO I 0 SKW) ˜`do¿do¿di ¿dg ¿dg¿jdnÿdhHdI ¿ dgð²E¿@g 1J [µ o hJ\ ]¨o hK [Mk @ KM hd£ggð´h(206Q TEDIT.INSERT.OBJECT 201Q SKETCHIMAGEOBJ.FROM.VIEWER 175Q TEDIT.DELETE 167Q TEXTSTREAM 161Q PROMPTPRINT 150Q TEDIT.FIND.OBJECT 140Q PROMPTPRINT 126Q TEXTOBJ 115Q GETWINDOWUSERPROP 76Q MENU) (221Q NO 215Q DON'T 112Q DOCUMENTINFO 102Q YES 43Q DEFAULTMENUHELDFN 34Q CLRPROMPT 2 MENUTYPE#) ( 156Q "Can't find this sketch in the document it came from." 135Q "Can't find the edit window for the source document." 20Q ((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.")) 10Q "Put changes back into Document?") SK.COPY.IMAGEOBJ D1 (P 3 NEWSKELT P 2 FN P 1 IMAGEOBJ P 0 INDVGELT I 2 CALLWHENCOPIEDFN I 1 WINDOW I 0 GELT) hP@XYg Zµ%@ [B™Ig ZµKgð³úIAlJ¿°ðgð³ÙgIkJHHHH¼@Lh°²(40Q IMAGEOBJPROP 26Q COPY 17Q IMAGEOBJPROP) (76Q SKIMAGEOBJ 70Q NILL 50Q NILL 35Q WHENCOPIEDFN 14Q COPYFN) () \CREATE.SKETCH.IMAGEFNS D1 NIL ,` µ$gggggggdddddd (46Q IMAGEFNSCREATE 5 IMAGEFNSP) (51Q SKETCHIMAGEFNS 34Q NILL 31Q SKIO.BUTTONEVENTINFN 26Q SKIO.COPYFN 23Q SKIO.GETFN.2 20Q SKIO.PUTFN 15Q SKIO.IMAGEBOXFN 12Q SKIO.DISPLAYFN 2 SKETCHIMAGEFNS) () SKETCH.IMAGE.OBJECT.ELEMENT D1 (P 0 IMOBJSIZE I 2 GLOBALPOS I 1 SCALE I 0 IMAGEOBJ) X0@ XA¦ob¿g@Bµ>jBµ7jHAÖHAÖ AHHh¹A`ÖºA`×JhhIh°Ë°Ä(50Q CREATEREGION 6 IMAGEBOXSIZE) (104Q DEFAULT.VISIBLE.SCALE.FACTOR 76Q MINIMUM.VISIBLE.SCALE.FACTOR 23Q SKIMAGEOBJ) ( 15Q 1.0) SKETCH.IMAGEOBJ.OF.ELEMENT D1 (L (0 ELEMENT)) @NIL NIL () SKETCH.SCALE.OF.ELEMENT D1 (L (0 ELEMENT)) @NIL NIL () SKETCH.POSITION.OF.ELEMENT D1 (P 0 REG I 0 ELEMENT) @HH (20Q CREATEPOSITION) NIL () CREATE.SKIMAGEOBJ.TYPE D1 NIL 9g ³0ghoggggggggggg h(64Q CREATE.SKETCH.ELEMENT.TYPE 5 SKETCH.ELEMENT.TYPEP) (60Q SK.IMAGEOBJ.TRANSFORMFN 55Q SK.IMAGEOBJ.READCHANGEFN 52Q NILL 47Q SK.IMAGEOBJ.TRANSLATEFN 44Q SK.IMAGEOBJ.REGIONFN 41Q SK.IMAGEOBJ.INSIDEFN 36Q NILL 33Q SK.IMAGEOBJ.CHANGEFN 30Q OBSOLETE 25Q SK.IMAGEOBJ.EXPANDFN 22Q SK.IMAGEOBJ.DRAWFN 12Q SKIMAGEOBJ 2 SKIMAGEOBJ) ( 17Q "functions for using image objects in sketches") IMAGEBOXSIZE D1 (I 0 IMAGEOBJ) @ÉÉ@kHNIL (10Q IMAGEFNS 3 IMAGEOBJ) () SK.IMAGEOBJ.DRAWFN D1 (P 3 LOCALOFFSET P 2 LOCALPOS P 1 LOCALIMOBJ P 0 IMAGEOBJ I 2 REGION I 1 WINDOW I 0 IMAGEOBJELT) R@@2IZI[JKÔJKÔA Hg `ðŸHAd hI ¿ŽHg ¼HAlLh(106Q IMAGEOBJPROP 75Q ANNO.DISPLAYFN 65Q IMAGESTREAMTYPE 51Q IMAGEOBJPROP 42Q MOVETO) (103Q DISPLAYFN 55Q ANNOTYPE# 46Q OBJECTDATUM) () SK.IMAGEOBJ.REGIONFN D1 (L (0 IMAGEOJBELT)) @NIL NIL () SK.IMAGEOBJ.TRANSLATEFN D1 (P 2 FN P 1 IMAGEOBJ P 0 INDIMAGEOBJELT I 2 WINDOW I 1 DELTAPOS I 0 GIMAGEOBJ) R@!HYg Zµ/@gHHAA HHHhgð³ÏIBdlJ¿°Ä(45Q TRANSLATE.REGION 17Q IMAGEOBJPROP) (102Q NILL 27Q SKIMAGEOBJ 14Q WHENMOVEDFN) () SK.IMAGEOBJ.EXPANDFN D1 (P 3 IMAGESIZE P 2 LOCALPOS P 1 LOCALREG P 0 GIMAGEOBJ I 1 SCALE I 0 GIMAGEOBJPART) 2@1HA YdIhAH×IHA h@(50Q SK.SCALE.POSITION.INTO.VIEWER 15Q SCALE.REGION) NIL () SK.IMAGEOBJ.INSIDEFN D1 (I 1 WREG I 0 GIMAGEOBJ) @A (11Q REGIONSINTERSECTP) NIL () SK.IMAGEOBJ.MOVEFN D1 (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) I@BC BH[ZKIIJJ K]g \µHgð³úMClL¿°ð(62Q IMAGEOBJPROP 47Q CREATEREGION 11Q SK.MAP.INPUT.PT.TO.GLOBAL 6 WINDOW.SCALE) (72Q NILL 57Q WHENMOVEDFN) () SK.IMAGEOBJ.CHANGEFN D1 (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) S@aHZd\dg Yd²:gð³3Lg ¾LAlN[d²!`ð‘K€LJJ]M hh(114Q SKETCH.IMAGE.OBJECT.ELEMENT 45Q IMAGEOBJPROP 24Q IMAGEOBJPROP) (65Q IMAGEOBJTYPE# 42Q BUTTONEVENTINFN 33Q NILL 21Q BUTTONEVENTINFN) () SK.IMAGEOBJ.READCHANGEFN D1 (L (0 SKW)) iNIL NIL () SK.IMAGEOBJ.TRANSFORMFN D1 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) F@@@@@gHHAB HHH@(50Q SK.TRANSFORM.REGION) (34Q SKIMAGEOBJ) () READ.IMAGEOBJ D1 (P 0 GETFN I 0 INFILE F 2 HPRINTRDTBL) "@R Hµ oH ³öH¹@kI(23Q ERROR 4 READ) NIL ( 17Q "incorrect format for image object") WRITE.IMAGEOBJ D1 (I 1 STREAM I 0 IMAGEOBJ F 1 HPRINTRDTBL) *@ÉÉhAQ @ÉÉ@AlHi(21Q PRIN2) (32Q IMAGEFNS 25Q IMAGEOBJ 10Q IMAGEFNS 3 IMAGEOBJ) () (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 SKIO.DISPLAYFN 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 \CREATE.SKETCH.IMAGEFNS) (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) (FNS SK.IMAGEOBJ.DRAWFN SK.IMAGEOBJ.REGIONFN SK.IMAGEOBJ.TRANSLATEFN SK.IMAGEOBJ.EXPANDFN SK.IMAGEOBJ.INSIDEFN SK.IMAGEOBJ.MOVEFN SK.IMAGEOBJ.CHANGEFN SK.IMAGEOBJ.READCHANGEFN SK.IMAGEOBJ.TRANSFORMFN) (RECORDS LOCALSKIMAGEOBJ SKIMAGEOBJ) (FNS READ.IMAGEOBJ WRITE.IMAGEOBJ) (P ( CREATE.SKIMAGEOBJ.TYPE)) (ADDVARS (HPRINTMACROS (IMAGEOBJ . WRITE.IMAGEOBJ)))))) (\CREATE.SKETCH.IMAGEFNS) (ADDTOVAR IMAGEOBJGETFNS SKIO.GETFN) (RECORD LOCALSKIMAGEOBJ ((SKIMOBJLOCALPOS) SKIMOBJLOCALSCALE SKIMOBJLOCALREGION SKIMOBJLOCALOFFSETPOS) ) (TYPERECORD SKIMAGEOBJ (SKIMAGEOBJ SKIMOBJ.GLOBALREGION SKIMOBJ.ORIGSCALE SKIMOBJ.OFFSETPOS)) (CREATE.SKIMAGEOBJ.TYPE) (ADDTOVAR HPRINTMACROS (IMAGEOBJ . WRITE.IMAGEOBJ)) (PUTPROPS SKETCHOBJ COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL