(FILECREATED " 9-Aug-85 17:36:18" ("compiled on " {PHYLUM}SKETCHSTREAM.;20) "19-Mar-85 14:34:17" recompiled changes: \SKETCHSTREAM.POSITION.CHANGED \DSPFONT.SKETCH \DSPXPOSITION.SKETCH \DSPYPOSITION.SKETCH \DRAWCURVE.SKETCH \DRAWCIRCLE.SKETCH \FILLCIRCLE.SKETCH \DRAWELLIPSE.SKETCH \DRAWLINE.SKETCH \NEWPAGE.SKETCH in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED " 9-Aug-85 17:35:19" {PHYLUM}SKETCHSTREAM.;20 24633 changes to: (FNS \DRAWCIRCLE.SKETCH \FILLCIRCLE.SKETCH \DSPFONT.SKETCH \DSPXPOSITION.SKETCH \DSPYPOSITION.SKETCH \DRAWCURVE.SKETCH \DRAWELLIPSE.SKETCH \DRAWLINE.SKETCH \SKETCHSTREAM.POSITION.CHANGED \NEWPAGE.SKETCH) (VARS SKETCHSTREAMCOMS) previous date: "18-Jul-85 16:52:30" {PHYLUM}SKETCHSTREAM.;16) INSURE.BRUSH D1 (L (0 BRUSH)) @dddg@lhNIL (20Q ROUND) () OPENSKETCHSTREAM D1 (P 0 SKW I 1 OPTIONS I 0 TITLE) hAg Ag @ Hg Hg `d`dj0dg d`&dh(dH dg.dg,dg"djd`djd`dhdldjRdk@dhdg (244Q \SETACCESS 51Q SK.SET.FONT 46Q FONTNAMELIST 43Q DEFAULTFONT 34Q SK.SET.TEXT.HORIZ.ALIGN 22Q SKETCHW.CREATE 16Q LISTGET 7 LISTGET) (241Q OUTPUT 175Q \STREAM.DEFAULT.MAXBUFFERS 161Q FILELINELENGTH 144Q \EOSERROR 135Q \STREAM.NOT.OPEN 126Q \STREAM.NOT.OPEN 105Q \SKETCHIMAGEOPS 76Q \BOUT.SKETCH 61Q SketchFDEV 54Q STREAMTYPE# 40Q DISPLAY 31Q LEFT 13Q REGION 4 SKETCHREGION) () \SKETCHSTREAM.POSITION.CHANGED D1 (I 0 SKW) @ @ (7 SKED.CLEAR.SELECTION 3 RESET.LINE.BEING.INPUT) NIL () \SKETCHSTREAMINITA0028 D1 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) ABdgh@ A gh@ A Bd@ A h@ A  (76Q \ILLEGAL.ARG 70Q BITMAPHEIGHT 64Q DSPSCALE 56Q BITMAPWIDTH 52Q DSPSCALE 40Q BITMAPHEIGHT 34Q DSPSCALE 20Q BITMAPWIDTH 14Q DSPSCALE) (25Q HEIGHT 4 WIDTH) () \SKETCHSTREAMINITA0030 D1 (I 0 STREAM) @ @l lHNIL (3 STREAM) () \SKETCHSTREAMINITA0033 D1 (I 2 Y I 1 X I 0 STREAM) +@&@AlH@&@BlHNIL (35Q IMAGEOPS 30Q STREAM 10Q IMAGEOPS 3 STREAM) () \SKETCHSTREAMINITA0050 D1 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @NIL NIL () \SKETCHSTREAMINITA0057 D1 (L (2 FDEV 1 RECOG 0 NAME)) @NIL NIL () \SKETCHSTREAMINITA0059 D1 (L (0 NAME)) @NIL NIL () \SKETCHSTREAMINIT D1 NIL `dgdgdg dg dgdgdgdgdgdgdgdgdgdgdgdgdg"dg*dg,dg0dg8dg.dg2dg4dgdgFdg:dg$dg `dgdjdjdj0dgdgdg dgdgdgdg dgdgdgdgdgdgdgdgdg dg"dg&dg6dg8dg:dg4dg2dg0dg.dg*dg$h` (674Q \DEFINEDEVICE) (671Q SketchFDEV 665Q SketchFDEV 657Q \GENERIC.READP 650Q NILL 641Q \IS.NOT.RANDACCESSP 632Q \ILLEGAL.DEVICEOP 623Q \IS.NOT.RANDACCESSP 614Q \ILLEGAL.DEVICEOP 605Q \GENERIC.RENAMEFILE 576Q \ILLEGAL.DEVICEOP 567Q \ILLEGAL.DEVICEOP 560Q \ILLEGAL.DEVICEOP 551Q \ILLEGAL.DEVICEOP 542Q \BOUT.SKETCH 533Q \ILLEGAL.DEVICEOP 524Q NILL 515Q NILL 506Q NILL 477Q \SKETCHSTREAMINITA0059 470Q \SKETCHSTREAMINITA0057 461Q \ILLEGAL.DEVICEOP 452Q NILL 443Q \GENERATENOFILES 434Q NILL 425Q \ILLEGAL.DEVICEOP 416Q \SKETCHSTREAMINITA0050 407Q NILL 400Q NILL 371Q NILL 340Q SKETCH 333Q FDEVTYPE# 330Q \SKETCHIMAGEOPS 322Q \SKETCHSTREAMINITA0033 313Q \SKETCHSTREAMINITA0030 304Q \SKETCHSTREAMINITA0028 275Q NILL 266Q \DSPRESET.SKETCH 257Q \DSPCLIPPINGREGION.SKETCH 250Q \CHARWIDTH.SKETCH 241Q \STRINGWIDTH.SKETCH 232Q \DSPOPERATION.SKETCH 223Q \DSPBACKCOLOR.SKETCH 214Q \DSPCOLOR.SKETCH 205Q DISPLAY 176Q \DSPSPACEFACTOR.DISPLAY 167Q \DSPSCALE.SKETCH 160Q \NEWPAGE.SKETCH 151Q \BLTSHADE.1BITSKETCH 142Q \BITBLT.1BITSKETCH 133Q \DRAWCIRCLE.SKETCH 124Q \DRAWELLIPSE.SKETCH 115Q \DRAWLINE.SKETCH 106Q \FILLCIRCLE.SKETCH 77Q \DRAWCURVE.SKETCH 70Q NILL 61Q \DSPYPOSITION.SKETCH 52Q \DSPXPOSITION.SKETCH 43Q \DSPLINEFEED.SKETCH 34Q \DSPRIGHTMARGIN.SKETCH 25Q \DSPLEFTMARGIN.SKETCH 16Q \DSPFONT.SKETCH 7 SKETCH 2 IMAGEOPSTYPE#) () \SK.SET.FONT D1 (I 1 SKW I 0 FONTDESC) Ag @ (13Q FONTNAMELIST 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) () \SKSTRM.WINDOW.FROM.STREAM D1 (L (0 SKSTRM)) @ NIL (3 STREAM) () ZOOM.SKETCH.STREAM D1 (I 1 SKSTREAM I 0 REGION) A @@ A @ @ (34Q \ILLEGAL.ARG 26Q SKETCH.GLOBAL.REGION.ZOOM 22Q \SKSTRM.WINDOW.FROM.STREAM 15Q REGIONP 6 SK.REGION.VIEWED 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPFONT.SKETCH D1 (P 1 RESULT P 0 SKETCHWINDOW I 1 FONT I 0 SKETCHSTREAM) @ AH YAH hH H I(34Q \SK.SET.FONT 30Q DSPFONT 22Q \SKETCHSTREAM.POSITION.CHANGED 13Q DSPFONT 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPLEFTMARGIN.SKETCH D1 (I 1 LEFTMARGIN I 0 SKSTRM) A@ (7 DSPLEFTMARGIN 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPRIGHTMARGIN.SKETCH D1 (I 1 RIGHTMARGIN I 0 SKSTRM) A@ (7 DSPRIGHTMARGIN 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPLINEFEED.SKETCH D1 (I 1 LINEFEED I 0 SKSTRM) A@ (7 DSPLINEFEED 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPXPOSITION.SKETCH D1 (P 1 RESULT P 0 SKW I 1 XPOSITION I 0 SKSTRM) @ AH YAH I(22Q \SKETCHSTREAM.POSITION.CHANGED 13Q DSPXPOSITION 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPYPOSITION.SKETCH D1 (P 1 RESULT P 0 SKW I 1 YPOSITION I 0 SKSTRM) @ AH YAH I(22Q \SKETCHSTREAM.POSITION.CHANGED 13Q DSPYPOSITION 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DRAWCURVE.SKETCH D1 (P 0 SKW I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 SKSTRM) 3@ H ABC Hg DHg  H (60Q SK.ADD.ELEMENT 54Q SK.CURVE.CREATE 44Q GETWINDOWUSERPROP 31Q GETWINDOWUSERPROP 20Q INSURE.BRUSH 12Q \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) (41Q SKETCHCONTEXT 26Q SKETCHCONTEXT) () \DRAWCIRCLE.SKETCH D1 (P 1 SKCONTEXT P 0 SKW I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 SKSTRM) C@ H Hg YABACBD IEIH I H (100Q SK.ADD.ELEMENT 74Q SK.CIRCLE.CREATE 57Q WINDOW.SCALE 36Q INSURE.BRUSH 21Q GETWINDOWUSERPROP 12Q \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) (16Q SKETCHCONTEXT) () \FILLCIRCLE.SKETCH D1 (P 0 SKW I 4 STREAM I 3 TEXTURE I 2 RADIUS I 1 CENTERY I 0 CENTERX F 1 SKSTRM F 2 DASHING) IQ H @A@BAhjhhRHg H CHg  H (106Q SK.ADD.ELEMENT 102Q SK.CIRCLE.CREATE 66Q GETWINDOWUSERPROP 54Q WINDOW.SCALE 43Q GETWINDOWUSERPROP 12Q \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) (63Q SKETCHCONTEXT 40Q SKETCHCONTEXT) () \DRAWELLIPSE.SKETCH D1 (P 0 SKW I 7 DASHING I 6 BRUSH I 5 ORIENTATION I 4 SEMIMAJORRADIUS I 3 SEMIMINORRADIUS I 2 CENTERY I 1 CENTERX I 0 SKSTRM) b@ H ABACElZ BCElZ ADE BDE F Hg GHg H H (137Q SK.ADD.ELEMENT 133Q ELLIPSE.CREATE 127Q WINDOW.SCALE 116Q GETWINDOWUSERPROP 102Q GETWINDOWUSERPROP 71Q INSURE.BRUSH 62Q SIN 52Q COS 41Q SIN 26Q COS 12Q \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) (113Q SKETCHCONTEXT 77Q SKETCHCONTEXT) () \DRAWLINE.SKETCH D1 (P 0 SKW I 7 COLOR I 6 OPERATION I 5 WIDTH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 SKETCHSTREAM) #@ H HABCDhhEk H (40Q SK.ADD.ELEMENT 34Q WIRE.INPUTFN 12Q \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \BOUT.SKETCH D1 (P 0 SKW I 1 CHARCODE I 0 SKETCHSTREAM) )@ Hg hH hH H AhH A(45Q SKED.INSERT 35Q SKED.SET.SELECTION 30Q DSPYPOSITION 23Q DSPXPOSITION 15Q GETWINDOWUSERPROP 3 \SKSTRM.WINDOW.FROM.STREAM) (12Q SELECTION) () \DSPCOLOR.SKETCH D1 (I 1 COLOR I 0 SKSTRM) A@ (7 DSPCOLOR 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPBACKCOLOR.SKETCH D1 (I 1 COLOR I 0 SKSTRM) A@ (7 DSPBACKCOLOR 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPOPERATION.SKETCH D1 (I 1 OPERATION I 0 SKSTRM) A@ (7 DSPOPERATION 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \STRINGWIDTH.SKETCH D1 (I 2 RDTBL I 1 STR I 0 SKSTRM) @ AB (15Q \STRINGWIDTH.DISPLAY 6 \INSUREWINDOW 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \BLTSHADE.1BITSKETCH D1 (I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 STREAM I 0 TEXTURE) @A BCDEFG (24Q \BLTSHADE.1BITDISPLAY 7 \INSUREWINDOW 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \NEWPAGE.SKETCH D1 (I 0 SKSTRM) @ (3 \DSPRESET.SKETCH) NIL () \CHARWIDTH.SKETCH D1 (I 1 CHARCODE I 0 SKSTRM) @ A (14Q \CHARWIDTH.DISPLAY 6 \INSUREWINDOW 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \BITBLT.1BITSKETCH D1 (P 3 BM P 2 BMHEIGHT P 1 BMWIDTH P 0 SKW I 15Q CLIPPEDSOURCEBOTTOM I 14Q CLIPPEDSOURCELEFT I 13Q CLIPPINGREGION I 12Q TEXTURE I 11Q OPERATION I 10Q SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTSTRM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) m@d`DBC F@ G@ IJ [@ABKjdFGhg Kkj HDE H hABC DEFGGGGGGG (152Q \BITBLT.1BITDISPLAY 123Q \INSUREWINDOW 120Q \SKSTRM.WINDOW.FROM.STREAM 110Q SK.ADD.ELEMENT 104Q SK.ELEMENT.FROM.IMAGEOBJ 75Q BITMAPTEDITOBJ 67Q BITBLT 45Q BITMAPCREATE 35Q BITMAPHEIGHT 25Q BITMAPWIDTH 16Q \SKSTRM.WINDOW.FROM.STREAM) (63Q REPLACE 5 BITMAPTYPE#) () \DSPCLIPPINGREGION.SKETCH D1 (I 1 REGION I 0 SKSTRM) A@ (7 DSPCLIPPINGREGION 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPRESET.SKETCH D1 (P 2 OLDSKETCH P 1 SKETCH P 0 W I 0 SKSTRM) ~@ !H HgHg ZdJJhd  Y H @hH @hH Hg` H IH H HgH Hg Hg h(172Q PUTWINDOWPROP 163Q PUTWINDOWPROP 154Q PUTWINDOWPROP 151Q SK.DEFAULT.GRIDFACTOR 141Q SK.CREATE.HOTSPOT.CACHE 135Q MAP.SKETCHSPEC.INTO.VIEWER 130Q SK.UPDATE.REGION.VIEWED 124Q PUTWINDOWPROP 112Q \DSPYPOSITION.SKETCH 107Q DSPYPOSITION 101Q \DSPXPOSITION.SKETCH 76Q DSPXPOSITION 70Q DSPRESET 64Q PUTWINDOWPROP 60Q SKETCH.CREATE 52Q LAST 25Q GETWINDOWUSERPROP 12Q SKED.CLEAR.SELECTION 3 \SKSTRM.WINDOW.FROM.STREAM) (167Q SKETCHCHANGED 160Q USEGRID 145Q GRIDFACTOR 121Q INITIAL.SCALE 116Q SCALE 22Q SKETCH 16Q SKETCH) () \DSPSCALE.SKETCH D1 (P 4 NEWHEIGHT P 3 NEWWIDTH P 2 CENTERPT P 1 OLDSCALE P 0 SKWINDOW I 1 SCALE I 0 SKSTRM) b@ H YASAdddAdA =H !AHg ֻAHg ּHJKlJLlKL  (136Q \ILLEGAL.ARG 131Q SKETCH.GLOBAL.REGION.ZOOM 126Q CREATEREGION 100Q GETWINDOWPROP 66Q GETWINDOWPROP 53Q REGION.CENTER 50Q SK.REGION.VIEWED 42Q EQP 12Q WINDOW.SCALE 3 \SKSTRM.WINDOW.FROM.STREAM) (75Q HEIGHT 63Q WIDTH) () (PRETTYCOMPRINT SKETCHSTREAMCOMS) (RPAQQ SKETCHSTREAMCOMS ((* contains the functions needed to support sketch streams. Sketch streams allow a user program to print, draw, etc. to a stream and builds a sketch of the result.) (FNS INSURE.BRUSH OPENSKETCHSTREAM \SKETCHSTREAM.POSITION.CHANGED \SKETCHSTREAMINIT \SK.SET.FONT \SKSTRM.WINDOW.FROM.STREAM ZOOM.SKETCH.STREAM) (* fns to support stream operations on sketches) (FNS \DSPFONT.SKETCH \DSPLEFTMARGIN.SKETCH \DSPRIGHTMARGIN.SKETCH \DSPLINEFEED.SKETCH \DSPXPOSITION.SKETCH \DSPYPOSITION.SKETCH \DRAWCURVE.SKETCH \DRAWCIRCLE.SKETCH \FILLCIRCLE.SKETCH \DRAWELLIPSE.SKETCH \DRAWLINE.SKETCH \BOUT.SKETCH \DSPCOLOR.SKETCH \DSPBACKCOLOR.SKETCH \DSPOPERATION.SKETCH \STRINGWIDTH.SKETCH \BLTSHADE.1BITSKETCH \NEWPAGE.SKETCH \CHARWIDTH.SKETCH \BITBLT.1BITSKETCH \DSPCLIPPINGREGION.SKETCH \DSPRESET.SKETCH \DSPSCALE.SKETCH) (ALISTS (IMAGESTREAMTYPES SKETCH)) ( GLOBALVARS SketchFDEV) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\SKETCHSTREAMINIT))))) (ADDTOVAR IMAGESTREAMTYPES (SKETCH (OPENSTREAM OPENSKETCHSTREAM) (FONTCREATE \CREATEDISPLAYFONT))) (\SKETCHSTREAMINIT) (PUTPROPS SKETCHSTREAM COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL