(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 9-Jan-87 16:15:55" ("compiled on " {ERIS}LIBRARY>SKETCHSTREAM.;5) " 7-Jan-87 03:28:48" recompiled changes%: ZOOM.SKETCH.STREAM \BITBLT.1BITSKETCH \DSPSCALE.SKETCH in "Xerox Lisp 7-Jan-87 ..." dated " 7-Jan-87 03:56:58") (FILECREATED " 9-Jan-87 16:14:52" {ERIS}LIBRARY>SKETCHSTREAM.;5 33687 changes to%: (FNS ZOOM.SKETCH.STREAM \BITBLT.1BITSKETCH \DSPSCALE.SKETCH) previous date%: "31-Oct-85 09:35:21" {ERIS}LIBRARY>SKETCHSTREAM.;3) OPENSKETCHSTREAM :D4 (P 0 SKW I 1 OPTIONS I 0 TITLE) hAg'Ag'@ Hg Hg l d` dj0dg(d`.dh0dHd`4dh2dg*dg&dg$d`djdjdjQdk@djdldhdjRdg (169 \SETACCESS 37 SK.SET.FONT 34 FONTNAMELIST 31 DEFAULTFONT 24 SK.SET.TEXT.HORIZ.ALIGN 14 SKETCHW.CREATE) (166 OUTPUT 114 FILELINELENGTH 107 \STREAM.NOT.OPEN 100 \STREAM.NOT.OPEN 93 \EOSERROR 81 \STREAM.DEFAULT.MAXBUFFERS 64 \SKETCHIMAGEOPS 57 \BOUT.SKETCH 44 SketchFDEV 28 DISPLAY 21 LEFT 9 REGION 4 SKETCHREGION) () \SKETCHSTREAM.POSITION.CHANGED :D4 (I 0 SKW) @ @ (7 SKED.CLEAR.SELECTION 3 RESET.LINE.BEING.INPUT) NIL () \SKETCHSTREAMINITA0040 :D4 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) ABdgh@ A gh@ A Bd@ A h@ A  (62 \ILLEGAL.ARG 56 BITMAPHEIGHT 52 DSPSCALE 46 BITMAPWIDTH 42 DSPSCALE 32 BITMAPHEIGHT 28 DSPSCALE 16 BITMAPWIDTH 12 DSPSCALE) (21 HEIGHT 4 WIDTH) () \SKETCHSTREAMINITA0045 :D4 (I 0 STREAM) @(@l lHNIL (3 STREAM) () \SKETCHSTREAMINITA0048 :D4 (I 2 Y I 1 X I 0 STREAM) +@.@AlH@.@BlHNIL (29 IMAGEOPS 24 STREAM 8 IMAGEOPS 3 STREAM) () \SKETCHSTREAMINITA0065 :D4 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @NIL NIL () \SKETCHSTREAMINITA0072 :D4 (L (2 FDEV 1 RECOG 0 NAME)) @NIL NIL () \SKETCHSTREAMINITA0074 :D4 (L (0 NAME)) @NIL NIL () \SKETCHSTREAMINIT :D4 NIL g`dgdgdg dg dgdgdgdgdgdgdgBdg@dgdgdgdgdgdgdg"dg*dg,dg0dg8dg.dg2dg4dgdgLdgXdgVdgTdgRdgPdgNdgJdgHdgFdgDdg:dg6dg(dg&dg$dg `dgdjdjdj0dgdgdgBdg dg\dgDdgdg`dg^dgdgdgdg dgdg*dg,dg.dgRdgdgPdgNdgLdgFdg@dg:dg8dg6dg4dg2dg0dg(dgdgdgdgh` (612 \DEFINEDEVICE) (609 SketchFDEV 605 SketchFDEV 599 \GENERIC.RENAMEFILE 592 NILL 585 NILL 578 NILL 571 NILL 564 \GENERIC.READCHAR 557 \GENERIC.WRITECHAR 550 \GENERIC.PEEKCHAR 543 \GENERIC.UNREADCHAR 536 \GENERIC.READP 529 \ILLEGAL.DEVICEOP 522 NILL 515 \GENERIC.CHARSET 508 \ILLEGAL.DEVICEOP 501 \IS.NOT.RANDACCESSP 494 \IS.NOT.RANDACCESSP 487 \ILLEGAL.DEVICEOP 480 \ILLEGAL.DEVICEOP 473 \ILLEGAL.DEVICEOP 466 \ILLEGAL.DEVICEOP 459 \BOUT.SKETCH 452 \ILLEGAL.DEVICEOP 445 NILL 438 NILL 431 NILL 424 \SKETCHSTREAMINITA0074 417 \SKETCHSTREAMINITA0072 410 \ILLEGAL.DEVICEOP 403 NILL 396 \GENERATENOFILES 389 NILL 382 \ILLEGAL.DEVICEOP 375 \SKETCHSTREAMINITA0065 368 NILL 361 NILL 354 NILL 329 SKETCH 324 |FDEVTYPE#| 321 \SKETCHIMAGEOPS 315 \SKETCHSTREAMINITA0048 308 \SKETCHSTREAMINITA0045 301 NILL 294 NILL 287 NILL 280 \SKETCHSTREAMINITA0040 273 NILL 266 NILL 259 NILL 252 NILL 245 NILL 238 NILL 231 NILL 224 NILL 217 NILL 210 \DRAWPOINT.GENERIC 203 \DRAWARC.SKETCH 196 \DSPRESET.SKETCH 189 \DSPCLIPPINGREGION.SKETCH 182 \CHARWIDTH.SKETCH 175 \STRINGWIDTH.SKETCH 168 \DSPOPERATION.SKETCH 161 \DSPBACKCOLOR.SKETCH 154 \DSPCOLOR.SKETCH 147 DISPLAY 140 \DSPSPACEFACTOR.DISPLAY 133 \DSPSCALE.SKETCH 126 \NEWPAGE.SKETCH 119 \BLTSHADE.1BITSKETCH 112 \BITBLT.1BITSKETCH 105 \DRAWCIRCLE.SKETCH 98 \DRAWELLIPSE.SKETCH 91 \DRAWLINE.SKETCH 84 \DRAWPOLYGON.SKETCH 77 \FILLPOLYGON.SKETCH 70 \FILLCIRCLE.SKETCH 63 \DRAWCURVE.SKETCH 56 NILL 49 \DSPYPOSITION.SKETCH 42 \DSPXPOSITION.SKETCH 35 \DSPLINEFEED.SKETCH 28 \DSPRIGHTMARGIN.SKETCH 21 \DSPLEFTMARGIN.SKETCH 14 \DSPFONT.SKETCH 7 SKETCH 2 |IMAGEOPSTYPE#|) () \SK.SET.FONT :D4 (I 1 SKW I 0 FONTDESC) Ag @ (11 FONTNAMELIST 6 GETWINDOWUSERPROP) (3 SKETCHCONTEXT) () \SKSTRM.WINDOW.FROM.STREAM :D4 (I 0 SKSTRM) @NIL (3 STREAM) () ZOOM.SKETCH.STREAM :D4 (I 1 SKSTREAM I 0 REGION) A @@ A @ @ (28 \ILLEGAL.ARG 22 SKETCH.GLOBAL.REGION.ZOOM 18 \SKSTRM.WINDOW.FROM.STREAM 13 REGIONP 6 SKETCH.REGION.VIEWED 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPFONT.SKETCH :D4 (P 1 RESULT P 0 SKETCHWINDOW I 1 FONT I 0 SKETCHSTREAM) @ AH YAH hH H I(28 \SK.SET.FONT 24 DSPFONT 18 \SKETCHSTREAM.POSITION.CHANGED 11 DSPFONT 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPLEFTMARGIN.SKETCH :D4 (I 1 LEFTMARGIN I 0 SKSTRM) A@ (7 DSPLEFTMARGIN 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPRIGHTMARGIN.SKETCH :D4 (I 1 RIGHTMARGIN I 0 SKSTRM) A@ (7 DSPRIGHTMARGIN 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPLINEFEED.SKETCH :D4 (I 1 LINEFEED I 0 SKSTRM) A@ (7 DSPLINEFEED 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPXPOSITION.SKETCH :D4 (P 1 RESULT P 0 SKW I 1 XPOSITION I 0 SKSTRM) @ AH YAH I(18 \SKETCHSTREAM.POSITION.CHANGED 11 DSPXPOSITION 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPYPOSITION.SKETCH :D4 (P 1 RESULT P 0 SKW I 1 YPOSITION I 0 SKSTRM) @ AH YAH I(18 \SKETCHSTREAM.POSITION.CHANGED 11 DSPYPOSITION 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DRAWCURVE.SKETCH :D4 (P 0 SKW I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 SKSTRM) @ H ABCDH H (26 SK.ADD.ELEMENT 22 SK.CURVE.CREATE 18 SK.INPUT.SCALE 10 \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DRAWCIRCLE.SKETCH :D4 (P 1 SKCONTEXT P 0 SKW I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 SKSTRM) 4@ H Hg YABACBDEH I H (49 SK.ADD.ELEMENT 45 SK.CIRCLE.CREATE 32 SK.INPUT.SCALE 17 GETWINDOWUSERPROP 10 \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) (14 SKETCHCONTEXT) () \FILLCIRCLE.SKETCH :D4 (P 0 SKW I 4 TEXTURE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 SKSTRM) :@ H ABACBgjhhHg H D H (55 SK.ADD.ELEMENT 51 SK.CIRCLE.CREATE 47 SK.INSURE.FILLING 43 SK.INPUT.SCALE 34 GETWINDOWUSERPROP 10 \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) (31 SKETCHCONTEXT 21 ROUND) () \FILLPOLYGON.SKETCH :D4 (P 0 SKW I 2 TEXTURE I 1 KNOTS I 0 SKSTRM) 6@ H AgjhhHg iH hBH H (51 SK.ADD.ELEMENT 47 SK.WIRE.CREATE 43 SK.INSURE.FILLING 37 SK.INPUT.SCALE 27 GETWINDOWUSERPROP 10 \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) (24 SKETCHCONTEXT 14 ROUND) () \DRAWELLIPSE.SKETCH :D4 (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) G@ H ABACElZ BCElZ ADE BDE FGH H (68 SK.ADD.ELEMENT 64 ELLIPSE.CREATE 60 SK.INPUT.SCALE 50 SIN 42 COS 33 SIN 22 COS 10 \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DRAWARC.SKETCH :D4 (P 0 SKW I 7 DASHING I 6 BRUSH I 5 NDEGREES I 4 STARTANGLE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 SKSTRM) I@ H ABACD BCD ACDE BCDE FGH hjE H (70 SK.ADD.ELEMENT 66 ARC.CREATE 58 SK.INPUT.SCALE 48 SIN 38 COS 27 SIN 19 COS 10 \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DRAWLINE.SKETCH :D4 (P 0 SKW I 8 DASHING 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 HABCDhhEkH G H (39 SK.ADD.ELEMENT 35 WIRE.INPUTFN 29 SK.INPUT.SCALE 10 \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \BOUT.SKETCH :D4 (P 0 SKW I 1 CHARCODE I 0 SKETCHSTREAM) -@ Hg hH hH H AhHd A(41 SKED.INSERT 38 SK.INPUT.SCALE 29 SKED.SET.SELECTION 24 DSPYPOSITION 19 DSPXPOSITION 13 GETWINDOWUSERPROP 3 \SKSTRM.WINDOW.FROM.STREAM) (10 SELECTION) () \DSPCOLOR.SKETCH :D4 (I 1 COLOR I 0 SKSTRM) A@ (7 DSPCOLOR 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPBACKCOLOR.SKETCH :D4 (I 1 COLOR I 0 SKSTRM) A@ (7 DSPBACKCOLOR 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPOPERATION.SKETCH :D4 (I 1 OPERATION I 0 SKSTRM) A@ (7 DSPOPERATION 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \STRINGWIDTH.SKETCH :D4 (I 2 RDTBL I 1 STR I 0 SKSTRM) @ AB (13 \STRINGWIDTH.DISPLAY 6 \INSUREWINDOW 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \BLTSHADE.1BITSKETCH :D4 (P 0 SKW I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 SKETCHSTREAM I 0 TEXTURE) 'A BCDE gjhhhH @ H (36 SK.ADD.ELEMENT 32 SK.BOX.CREATE 27 SK.INPUT.SCALE 13 CREATEREGION 3 \SKSTRM.WINDOW.FROM.STREAM) (16 ROUND) () \NEWPAGE.SKETCH :D4 (I 0 SKSTRM) @ (3 \DSPRESET.SKETCH) NIL () \CHARWIDTH.SKETCH :D4 (I 1 CHARCODE I 0 SKSTRM) @ A (12 \CHARWIDTH.DISPLAY 6 \INSUREWINDOW 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () \BITBLT.1BITSKETCH :D4 (P 3 BM P 2 BMHEIGHT P 1 BMWIDTH P 0 SKW I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 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) h@E@CC F@ G@ IJ [@ABKjdFGhg Kkj HDE H h@ABC DEFGGGGG (101 BKBITBLT 82 \INSUREWINDOW 79 \SKSTRM.WINDOW.FROM.STREAM 70 SK.ADD.ELEMENT 66 SK.ELEMENT.FROM.IMAGEOBJ 59 BITMAPTEDITOBJ 53 BKBITBLT 35 BITMAPCREATE 27 BITMAPHEIGHT 19 BITMAPWIDTH 12 \SKSTRM.WINDOW.FROM.STREAM) (49 REPLACE 3 BITMAP) () \DSPCLIPPINGREGION.SKETCH :D4 (I 1 REGION I 0 SKSTRM) A@ (7 DSPCLIPPINGREGION 4 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPRESET.SKETCH :D4 (P 2 OLDSKETCH P 1 SKETCH P 0 W I 0 SKSTRM) @ 1H HgHg Z7ghglgjdh[JKJKJKhd  Y H @hH @hH Hg` H IH H HgH Hg Hg h(154 PUTWINDOWPROP 147 PUTWINDOWPROP 140 PUTWINDOWPROP 137 SK.DEFAULT.GRIDFACTOR 129 SK.CREATE.HOTSPOT.CACHE 125 MAP.SKETCHSPEC.INTO.VIEWER 120 SK.UPDATE.REGION.VIEWED 116 PUTWINDOWPROP 106 \DSPYPOSITION.SKETCH 103 DSPYPOSITION 97 \DSPXPOSITION.SKETCH 94 DSPXPOSITION 88 DSPRESET 84 PUTWINDOWPROP 80 SKETCH.CREATE 74 LAST 21 GETWINDOWUSERPROP 10 SKED.CLEAR.SELECTION 3 \SKSTRM.WINDOW.FROM.STREAM) (151 SKETCHCHANGED 144 USEGRID 133 GRIDFACTOR 113 INITIAL.SCALE 110 SCALE 36 PRIRANGE 31 VERSION 27 SKETCH 18 SKETCH 14 SKETCH) () \DSPSCALE.SKETCH :D4 (P 4 NEWHEIGHT P 3 NEWWIDTH P 2 CENTERPT P 1 OLDSCALE P 0 SKWINDOW I 1 SCALE I 0 SKSTRM) Z@ H YAKAd3AdA =H !AHg ֻAHg ּHJKlJLlKL  (86 \ILLEGAL.ARG 81 SKETCH.GLOBAL.REGION.ZOOM 78 CREATEREGION 56 GETWINDOWPROP 46 GETWINDOWPROP 35 REGION.CENTER 32 SKETCH.REGION.VIEWED 26 EQP 10 VIEWER.SCALE 3 \SKSTRM.WINDOW.FROM.STREAM) (53 HEIGHT 43 WIDTH) () \DRAWPOLYGON.SKETCH :D4 (P 0 SKW I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 POINTS I 0 SKETCHSTREAM) @ H ACDiH H (26 SK.ADD.ELEMENT 22 SK.WIRE.CREATE 18 SK.INPUT.SCALE 10 \SKETCHSTREAM.POSITION.CHANGED 3 \SKSTRM.WINDOW.FROM.STREAM) NIL () (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 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 \FILLPOLYGON.SKETCH \DRAWELLIPSE.SKETCH \DRAWARC.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 \DRAWPOLYGON.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 1987)) NIL