(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 6-Apr-87 17:44:26" ("compiled on " {ERIS}LIBRARY>SKETCHOBJ.;6) "31-Mar-87 21:33:35" brecompiled changes%: nothing in "Xerox Lisp 31-Mar-87 ..." dated "31-Mar-87 21:58:30") (FILECREATED " 6-Apr-87 17:43:48" {ERIS}LIBRARY>SKETCHOBJ.;6 52580 changes to%: (VARS SKETCHOBJCOMS) previous date%: "27-Feb-87 18:21:13" {ERIS}LIBRARY>SKETCHOBJ.;5) MAKE.IMAGE.OBJECT.OF.SKETCH :D4 (I 3 GRIDSIZE I 2 SCALE I 1 REGION I 0 SKETCH) E@ A A@ B3@ @ o oC3@ @ o (66 SKETCH.IMAGEOBJ 58 SK.GRIDFACTOR 53 WINDOWP 38 ERROR 30 VIEWER.SCALE 25 WINDOWP 16 SKETCH.REGION.OF.SKETCH 7 REGIONP 3 INSURE.SKETCH) NIL ( 63 8.0 44 1.0 35 " illegal argument.") SK.ELEMENT.FROM.IMAGEOBJ :D4 (I 2 ORGPOS I 1 SKETCHW I 0 IMAGEOBJ) @A BA (9 SKETCH.IMAGE.OBJECT.ELEMENT 4 VIEWER.SCALE) NIL () SKETCHIMAGEOBJ.FROM.VIEWER :D4 (I 0 SKETCHW) @ @ @ @ (21 SKETCH.IMAGEOBJ 18 SK.GRIDFACTOR 14 VIEWER.SCALE 10 SKETCH.REGION.VIEWED 6 INSURE.SKETCH 3 SKETCH.FROM.VIEWER) NIL () SKETCH.IMAGEOBJ :D4 (I 3 GRID I 2 SCALE I 1 REGION I 0 SKETCH) ,@A @ B3ohC3oh` (41 IMAGEOBJCREATE 10 SKETCH.REGION.OF.SKETCH 4 REGIONP) (38 SKETCHIMAGEFNS) ( 29 8.0 19 1.0) SKETCH.DISPLAYFN :D4 (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 ZgJ4gJ-HHHIH jdAhA hA ZHhA 2KL׽hA MIվhA MI_hA H jNjO INO YMA AIM A h(165 DSPFONT 160 DRAW.LOCAL.SKETCH 157 SK.SCALE.REGION 151 MAKE.LOCAL.SKETCH 145 TRANSLATE.REGION 138 TRANSLATE.SKETCH 128 COPY 123 DSPFONT 109 DSPYPOSITION 98 DSPXPOSITION 86 DSPSCALE 74 BITBLT 70 DSPYPOSITION 65 DSPXPOSITION 55 SKETCH.BITMAP.IMAGE 17 IMAGESTREAMTYPE 6 IMAGEOBJPROP) (30 DISPLAY 21 DISPLAY 3 OBJECTDATUM) () SKETCH.BITMAP.IMAGEA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 DSP F 1 SCALE F 2 SKETCH F 3 REGION) RSQPi PhP Q (18 DRAW.LOCAL.SKETCH 14 DSPCLIPPINGREGION 8 MAKE.LOCAL.SKETCH) NIL () SKETCH.BITMAP.IMAGE :D4 (P 2 SI::*RESETFORMS* P 1 DSP P 0 BITMAP I 2 SCALE I 1 REGION I 0 SKETCH) u@ bA @ bB3ob ABkABk Xd YjABI jABI g` hhhg  H(113 CL:VALUES-LIST 109 SI::RESETUNWIND 106 \MVLIST 103 SKETCH.BITMAP.IMAGEA0001 87 CURSOR 78 DSPYOFFSET 67 DSPXOFFSET 56 DSPCREATE 51 BITMAPCREATE 14 SKETCH.REGION.OF.SKETCH 9 REGIONP 3 INSURE.SKETCH) (100 SI::RESETUNWIND 84 WAITINGCURSOR 81 CURSOR) ( 25 1.0) SKIO.IMAGEBOXFN :D4 (P 4 SCALEFACTOR P 3 SKH P 2 SKW P 1 SKREG P 0 SKOBJ I 1 STREAM I 0 IMAGEOBJ) ^@g QHhA \HYL ZIL [AK !JhA lսl MMl jdhJKjdh(57 DSPCLIPPINGREGION 49 \SKIO.IN.TOO.SMALL.TEDITP 43 FIXR 32 FIXR 18 DSPSCALE 6 IMAGEOBJPROP) (3 OBJECTDATUM) () SKIO.GETFN.2 :D4 (P 0 READSKETCH I 0 STREAM) .@ Hd Hd  @ @ @ (43 SKETCH.IMAGEOBJ 40 READ 36 READ 32 READ 27 SK.CHECK.SKETCH.VERSION 22 LAST 14 SKIO.UPDATE.FROM.OLD.FORM 3 HREAD) NIL () SKIO.UPDATE.FROM.OLD.FORM :D4 (I 0 OLDSKETCH) /@g ghglgjdh@d d@(35 LAST 7 MAPGLOBALSKETCHELEMENTS) (19 PRIRANGE 14 VERSION 10 SKETCH 4 SK.UPDATE.ARROWHEAD.FORMAT) () SKIO.GETFN :D4 (I 0 STREAM) #oi oi oi o (32 ERROR 25 PRIN1 16 PRIN1 7 PRIN1) NIL ( 29 "old format Sketch object" 21 "load this file into a Harmony sysout and do a 'Put' from there." 12 "To update it to the new format, " 3 "This file contains sketch that is in an old format. ") SKIO.PUTFN :D4 (P 1 SKETCH P 0 SKETCHIMAGEOBJ I 1 STREAM I 0 IMAGEOBJ) 4@g HYdIAi HA HA HA h(48 PRINT 38 PRINT 30 PRINT 23 HPRINT 6 IMAGEOBJPROP) (3 OBJECTDATUM) () SKIO.COPYFN :D4 (P 0 SKETCHOBJ I 0 IMAGEOBJ) $@g H H HH (33 SKETCH.IMAGEOBJ 20 COPY 14 COPY 6 IMAGEOBJPROP) (3 OBJECTDATUM) () SKIO.BUTTONEVENTINFN :D4 (P 9 TITLE P 8 SKW P 7 SKETCH P 6 SCALE P 5 SKREG P 0 OBJ I 1 WINDOW I 0 IMAGEOBJ)  @g A`dodg dgjdndhdI gHHH# ghglgjdhZOJAg _oO g_O d \dKLO MdN MN i ONiH _g@Ah O . gOddi3 gOhh h(265 ADD.PROCESS 234 TTY.PROCESS 229 \INSUREWINDOW 223 PUTWINDOWPROP 210 SKETCHW.CREATE 196 GETBOXREGION 193 HEIGHTIFWINDOW 189 FIXR 179 WIDTHIFWINDOW 176 FIXR 164 COPY 144 LAST 140 COPY 126 CONCAT 114 GETWINDOWUSERPROP 55 MENU 6 IMAGEOBJPROP) (254 QUOTE 238 TOTOPW 215 DOCUMENTINFO 130 |a figure from a document| 111 TEDIT.ICON.TITLE 89 PRIRANGE 84 VERSION 80 SKETCH 58 EDIT 32 DEFAULTMENUHELDFN 25 CLRPROMPT 12 |MENUTYPE#| 3 OBJECTDATUM) ( 121 "figure from " 18 ((Edit% sketch (QUOTE EDIT) "opens a window in which this sketch can be changed."))) TRANSLATE.REGION :D4 (I 2 NEWBOTTOM I 1 NEWLEFT I 0 REGION) @A@B@@ (20 CREATEREGION) NIL () UPDATE.IMAGE.IN.DOCUMENT :D4 (P 5 POS P 4 OLDIMAGEOBJ P 3 TEXTOBJ P 2 DOCINFO I 0 SKW) `dododi dg dgjdndhHdI  dgE@g 1J [ o hJ\ ]o hK [Mk @ KM hdggh(134 TEDIT.INSERT.OBJECT 129 SKETCHIMAGEOBJ.FROM.VIEWER 125 TEDIT.DELETE 119 TEXTSTREAM 113 PROMPTPRINT 104 TEDIT.FIND.OBJECT 96 PROMPTPRINT 86 TEXTOBJ 77 GETWINDOWUSERPROP 62 \CURSOR.IN.MIDDLE.MENU) (145 NO 141 DON'T 74 DOCUMENTINFO 66 YES 35 DEFAULTMENUHELDFN 28 CLRPROMPT 2 |MENUTYPE#|) ( 110 "Can't find this sketch in the document it came from." 93 "Can't find the edit window for the source document." 16 ((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.")) 8 "Put changes back into Document?") SK.COPY.IMAGEOBJ :D4 (P 3 NEWSKELT P 2 FN P 1 IMAGEOBJ P 0 INDVGELT I 2 CALLWHENCOPIEDFN I 1 WINDOW I 0 GELT) hP@XYg Z%@ [BIg ZKgIAlJggIkJHHHH@Lh(32 IMAGEOBJPROP 22 COPY 15 IMAGEOBJPROP) (62 SKIMAGEOBJ 56 NILL 40 NILL 29 WHENCOPIEDFN 12 COPYFN) () \CREATE.SKETCH.IMAGEFNS :D4 NIL ,` $gggggggdddddd (38 IMAGEFNSCREATE 5 IMAGEFNSP) (41 SKETCHIMAGEFNS 28 NILL 25 SKIO.BUTTONEVENTINFN 22 SKIO.COPYFN 19 SKIO.GETFN.2 16 SKIO.PUTFN 13 SKIO.IMAGEBOXFN 10 SKETCH.DISPLAYFN 2 SKETCHIMAGEFNS) () \SKIO.IN.TOO.SMALL.TEDITP :D4 (I 1 HEIGHT I 0 STREAM) @ @ g Ah@ (23 DSPCLIPPINGREGION 15 GETWINDOWUSERPROP 9 WFROMDS 3 DISPLAYSTREAMP) (12 TEXTOBJ) () SKETCH.IMAGE.OBJECT.ELEMENT :D4 (I 3 VIEWER I 2 GLOBALPOS I 1 SCALE I 0 IMAGEOBJ) @BA C (9 SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE 5 SKETCH.CREATE.IMAGE.OBJECT1) NIL () SKETCH.IMAGEOBJ.OF.ELEMENT :D4 (L (0 ELEMENT)) @NIL NIL () SKETCH.SCALE.OF.ELEMENT :D4 (L (0 ELEMENT)) @NIL NIL () SKETCH.POSITION.OF.ELEMENT :D4 (P 0 REG I 0 ELEMENT) @HH (16 CREATEPOSITION) NIL () CREATE.SKIMAGEOBJ.TYPE :D4 NIL =g 4ghoggggggggggghg h(56 CREATE.SKETCH.ELEMENT.TYPE 5 SKETCH.ELEMENT.TYPEP) (52 SK.IMAGEOBJ.GLOBALREGIONFN 48 SK.IMAGEOBJ.TRANSFORMFN 45 SK.IMAGEOBJ.READCHANGEFN 42 NILL 39 SK.IMAGEOBJ.TRANSLATEFN 36 SK.IMAGEOBJ.REGIONFN 33 SK.IMAGEOBJ.INSIDEFN 30 NILL 27 SK.IMAGEOBJ.CHANGEFN 24 OBSOLETE 21 SK.IMAGEOBJ.EXPANDFN 18 SK.IMAGEOBJ.DRAWFN 10 SKIMAGEOBJ 2 SKIMAGEOBJ) ( 15 "functions for using image objects in sketches") IMAGEBOXSIZE :D4 (I 1 IMAGESTREAM I 0 IMAGEOBJ) @@AlHNIL (8 IMAGEFNS 3 IMAGEOBJ) () SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE :D4 (P 2 SCALE P 1 IMAGEOBJ P 0 IMOBJSIZE I 1 VIEWER I 0 IMOBJELT) K0@YA XIZIIIHJHJIIHH@(12 IMAGEBOXSIZE) NIL () SKETCH.CREATE.IMAGE.OBJECT :D4 (I 2 SCALE I 1 POSITION I 0 IMAGEOBJ) @AB h (9 SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE 5 SKETCH.CREATE.IMAGE.OBJECT1) NIL () SKETCH.CREATE.IMAGE.OBJECT1 :D4 (I 2 SCALE I 1 POSITION I 0 IMAGEOBJ) XB3B ob AA A  g@A.jA'jkd BhdB`ֹB`IhdHh(49 CREATEREGION 28 \ILLEGAL.ARG 23 POSITIONP 16 \ILLEGAL.ARG) (68 DEFAULT.VISIBLE.SCALE.FACTOR 62 MINIMUM.VISIBLE.SCALE.FACTOR 35 SKIMAGEOBJ) ( 10 1.0) SK.IMAGEOBJ.DRAWFN :D4 (P 3 LOCALOFFSET P 2 LOCALPOS P 1 LOCALIMOBJ P 0 IMAGEOBJ I 2 REGION I 1 WINDOW I 0 IMAGEOBJELT) S@@2IZI[JKJKA Hg HAd hI Hg HAlLh(71 IMAGEOBJPROP 62 ANNO.DISPLAYFN 53 IMAGESTREAMTYPE 42 IMAGEOBJPROP 35 MOVETO) (68 DISPLAYFN 45 ANNO 39 OBJECTDATUM) () SK.IMAGEOBJ.REGIONFN :D4 (L (0 IMAGEOJBELT)) @NIL NIL () SK.IMAGEOBJ.GLOBALREGIONFN :D4 (L (0 GIMOBJELT)) @NIL NIL () SK.IMAGEOBJ.TRANSLATEFN :D4 (P 2 FN P 1 IMAGEOBJ P 0 INDIMAGEOBJELT I 2 WINDOW I 1 DELTAPOS I 0 GIMAGEOBJ) V@!HYg Z3@h gHHAA HHHhgIBdlJ(41 TRANSLATE.REGION 24 \APPEND2 15 IMAGEOBJPROP) (70 NILL 27 SKIMAGEOBJ 12 WHENMOVEDFN) () SK.IMAGEOBJ.EXPANDFN :D4 (P 3 IMAGESIZE P 2 LOCALPOS P 1 LOCALREG P 0 GIMAGEOBJ I 1 SCALE I 0 GIMAGEOBJPART) 4@1HA YdIhhAHIHA h@(41 SK.SCALE.POSITION.INTO.VIEWER 13 SK.SCALE.REGION) NIL () SK.IMAGEOBJ.INSIDEFN :D4 (I 1 WREG I 0 GIMAGEOBJ) @A (9 REGIONSINTERSECTP) NIL () SK.IMAGEOBJ.MOVEFN :D4 (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 \HgMClL(50 IMAGEOBJPROP 39 CREATEREGION 9 SK.MAP.INPUT.PT.TO.GLOBAL 6 VIEWER.SCALE) (58 NILL 47 WHENMOVEDFN) () SK.IMAGEOBJ.CHANGEFN :D4 (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) d@qHZd\dg YdKgDLg LAlN[d2KLJJ]MA _HOgKLhhh(75 SKETCH.IMAGE.OBJECT.ELEMENT 37 IMAGEOBJPROP 20 IMAGEOBJPROP) (85 DATA 52 IMAGEOBJ 34 BUTTONEVENTINFN 27 NILL 17 BUTTONEVENTINFN) () SK.IMAGEOBJ.READCHANGEFN :D4 (L (0 SKW)) iNIL NIL () SK.IMAGEOBJ.TRANSFORMFN :D4 (P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) 6@@h gHHAB HHHh(26 SK.TRANSFORM.REGION 11 \APPEND2) (14 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 \CREATE.SKETCH.IMAGEFNS \SKIO.IN.TOO.SMALL.TEDITP) (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 ("Xerox Corporation" 1984 1985 1986 1987)) NIL