(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "21-Jan-93 17:10:53" ("compiled on " {DSK}lde>lispcore>library>SKETCHSTREAM.;1) " 7-Oct-92 12:15:13" bcompl'd in "Medley 7-Oct-92 ..." dated " 7-Oct-92 15:18:52") (FILECREATED "12-Jun-90 15:21:13" {DSK}local>lde>lispcore>library>SKETCHSTREAM.;2 34014 changes to%: (VARS SKETCHSTREAMCOMS) previous date%: "17-Aug-88 12:36:19" {DSK}local>lde>lispcore>library>SKETCHSTREAM.;1) OPENSKETCHSTREAM :D8 (P 0 SKW I 1 OPTIONS I 0 TITLE F 3 \SKETCHIMAGEOPS) àhAg'Ag'@ !Hg Hg l d` ¿djÏ0¿dg(¿dS.¿dh0¿dH¿dnÿÿÍ5¿`¹dIÍ4¿dh2¿dg*¿dg&¿dg$¿`ºdJÍ¿dj¿dj¿djÏ 0¿djÏ ¿dkÏ ¿djÍ¿dlÏ¿dh¿djÏ¿dg ¿(220 \SETACCESS 55 SK.SET.FONT 50 FONTNAMELIST 45 DEFAULTFONT 34 SK.SET.TEXT.HORIZ.ALIGN 20 SKETCHW.CREATE) (215 OUTPUT 152 FILELINELENGTH 144 \STREAM.NOT.OPEN 135 \STREAM.NOT.OPEN 126 \EOSERROR 109 \STREAM.DEFAULT.MAXBUFFERS 79 \BOUT.SKETCH 64 SketchFDEV 40 DISPLAY 29 LEFT 13 REGION 6 SKETCHREGION) () \SKETCHSTREAM.POSITION.CHANGED :D8 (I 0 SKW) @ @ (11 SKED.CLEAR.SELECTION 5 RESET.LINE.BEING.INPUT) NIL () \SKETCHSTREAMINITA0040 :D8 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) YBdgðŸ¿h@ A ÖdgðŸ¿h@ A Ö³ h@ A Öh@ A ÖB (86 \ILLEGAL.ARG 77 BITMAPHEIGHT 71 DSPSCALE 63 BITMAPWIDTH 57 DSPSCALE 46 BITMAPHEIGHT 40 DSPSCALE 22 BITMAPWIDTH 16 DSPSCALE) (30 HEIGHT 6 WIDTH) () \SKETCHSTREAMINITA0045 :D8 (P 0 A1811 I 0 STREAM) @É(@l lHNIL NIL () \SKETCHSTREAMINITA0047 :D8 (P 1 A1813 P 0 A1812 I 2 Y I 1 X I 0 STREAM) @É.É@AlH@É.É@BlINIL NIL () \SKETCHSTREAMINITA0062 :D8 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @NIL NIL () \SKETCHSTREAMINITA0069 :D8 (L (2 FDEV 1 RECOG 0 NAME)) @NIL NIL () \SKETCHSTREAMINITA0071 :D8 (L (0 NAME)) @NIL NIL () \SKETCHSTREAMINIT :D8 NIL  `dg¿dg¿dg ¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dgB¿dg@¿dg¿dg¿dg¿dg¿dg¿dg¿dg"¿dg*¿dg,¿dg0¿dg8¿dg.¿dg2¿dg4¿dg<¿dg>¿dgL¿dgX¿dgV¿dgT¿dgR¿dgP¿dgN¿dgJ¿dgH¿dgF¿dgD¿dg:¿dg6¿dg(¿dg&¿dg$¿dg ¿`dg¿djÏ¿djÏ¿djÏ0¿dg¿dg¿dgD¿dg¿dg^¿dgF¿dg¿dgb¿dg`¿dg¿dg¿dg ¿dg ¿dg¿dg,¿dg.¿dg0¿dgT¿dg>¿dg@¿dgh¿dgR¿dgP¿dgN¿dgH¿dgB¿dg<¿dg:¿dg8¿dg6¿dg4¿dg2¿dg*¿dg ¿dg¿dg¿dg¿h` (797 \DEFINEDEVICE) (792 SketchFDEV 786 SketchFDEV 778 \GENERIC.RENAMEFILE 769 NILL 760 NILL 751 NILL 742 NILL 733 \GENERIC.READCHAR 724 \GENERIC.WRITECHAR 715 \GENERIC.PEEKCHAR 706 \GENERIC.UNREADCHAR 697 \GENERIC.READP 688 \ILLEGAL.DEVICEOP 679 NILL 670 \GENERIC.CHARSET 661 \ILLEGAL.DEVICEOP 652 \IS.NOT.RANDACCESSP 643 \IS.NOT.RANDACCESSP 634 \GENERIC.READCCODE 625 \ILLEGAL.DEVICEOP 616 \ILLEGAL.DEVICEOP 607 \ILLEGAL.DEVICEOP 598 \ILLEGAL.DEVICEOP 589 \BOUT.SKETCH 580 \ILLEGAL.DEVICEOP 571 NILL 562 NILL 553 NILL 544 \SKETCHSTREAMINITA0071 535 \SKETCHSTREAMINITA0069 526 \ILLEGAL.DEVICEOP 517 NILL 508 \GENERATENOFILES 499 NILL 490 \ILLEGAL.DEVICEOP 481 \SKETCHSTREAMINITA0062 472 NILL 463 NILL 454 NILL 427 SKETCH 420 |FDEVTYPE#| 415 \SKETCHIMAGEOPS 407 \SKETCHSTREAMINITA0047 398 \SKETCHSTREAMINITA0045 389 NILL 380 NILL 371 NILL 362 \SKETCHSTREAMINITA0040 353 NILL 344 NILL 335 NILL 326 NILL 317 NILL 308 NILL 299 NILL 290 NILL 281 NILL 272 \DRAWPOINT.GENERIC 263 \DRAWARC.SKETCH 254 \DSPRESET.SKETCH 245 \DSPCLIPPINGREGION.SKETCH 236 \CHARWIDTH.SKETCH 227 \STRINGWIDTH.SKETCH 218 \DSPOPERATION.SKETCH 209 \DSPBACKCOLOR.SKETCH 200 \DSPCOLOR.SKETCH 191 DISPLAY 182 \DSPSPACEFACTOR.DISPLAY 173 \DSPSCALE.SKETCH 164 \NEWPAGE.SKETCH 155 \BLTSHADE.1BITSKETCH 146 \BITBLT.1BITSKETCH 137 \DRAWCIRCLE.SKETCH 128 \DRAWELLIPSE.SKETCH 119 \DRAWLINE.SKETCH 110 \DRAWPOLYGON.SKETCH 101 \FILLPOLYGON.SKETCH 92 \FILLCIRCLE.SKETCH 83 \DRAWCURVE.SKETCH 74 NILL 65 \DSPYPOSITION.SKETCH 56 \DSPXPOSITION.SKETCH 47 \DSPLINEFEED.SKETCH 38 \DSPRIGHTMARGIN.SKETCH 29 \DSPLEFTMARGIN.SKETCH 20 \DSPFONT.SKETCH 11 SKETCH 4 |IMAGEOPSTYPE#|) () \SK.SET.FONT :D8 (I 1 SKW I 0 FONTDESC) Ag @ (17 FONTNAMELIST 10 GETWINDOWUSERPROP) (5 SKETCHCONTEXT) () \SKSTRM.WINDOW.FROM.STREAM :D8 (L (0 SKSTRM)) @ÉNIL NIL () ZOOM.SKETCH.STREAM :D8 (I 1 SKSTREAM I 0 REGION) ,A @²@ A @ ¿@ ¿(40 \ILLEGAL.ARG 32 SKETCH.GLOBAL.REGION.ZOOM 26 \SKSTRM.WINDOW.FROM.STREAM 19 REGIONP 10 SKETCH.REGION.VIEWED 5 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPFONT.SKETCH :D8 (P 1 RESULT P 0 SKETCHWINDOW I 1 FONT I 0 SKETCHSTREAM) +@ AH YA²H ¿hH H I(39 \SK.SET.FONT 33 DSPFONT 25 \SKETCHSTREAM.POSITION.CHANGED 15 DSPFONT 5 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPLEFTMARGIN.SKETCH :D8 (I 1 LEFTMARGIN I 0 SKSTRM) A@ (11 DSPLEFTMARGIN 6 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPRIGHTMARGIN.SKETCH :D8 (I 1 RIGHTMARGIN I 0 SKSTRM) A@ (11 DSPRIGHTMARGIN 6 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPLINEFEED.SKETCH :D8 (I 1 LINEFEED I 0 SKSTRM) A@ (11 DSPLINEFEED 6 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPXPOSITION.SKETCH :D8 (P 1 RESULT P 0 SKW I 1 XPOSITION I 0 SKSTRM) @ AH YA•H I(24 \SKETCHSTREAM.POSITION.CHANGED 15 DSPXPOSITION 5 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPYPOSITION.SKETCH :D8 (P 1 RESULT P 0 SKW I 1 YPOSITION I 0 SKSTRM) @ AH YA•H I(24 \SKETCHSTREAM.POSITION.CHANGED 15 DSPYPOSITION 5 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DRAWCURVE.SKETCH :D8 (P 0 SKW I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 SKSTRM) '@ H ABCDH H (36 SK.ADD.ELEMENT 30 SK.CURVE.CREATE 24 SK.INPUT.SCALE 14 \SKETCHSTREAM.POSITION.CHANGED 5 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DRAWCIRCLE.SKETCH :D8 (P 1 SKCONTEXT P 0 SKW I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 SKSTRM) B@ H Hg YABACÔBDEH I H (63 SK.ADD.ELEMENT 57 SK.CIRCLE.CREATE 42 SK.INPUT.SCALE 25 GETWINDOWUSERPROP 14 \SKETCHSTREAM.POSITION.CHANGED 5 \SKSTRM.WINDOW.FROM.STREAM) (20 SKETCHCONTEXT) () \FILLCIRCLE.SKETCH :D8 (P 0 SKW I 4 TEXTURE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 SKSTRM) L@ H ABACÔBgjhdHg H D H (73 SK.ADD.ELEMENT 67 SK.CIRCLE.CREATE 61 SK.INSURE.FILLING 55 SK.INPUT.SCALE 44 GETWINDOWUSERPROP 14 \SKETCHSTREAM.POSITION.CHANGED 5 \SKSTRM.WINDOW.FROM.STREAM) (39 SKETCHCONTEXT 27 ROUND) () \FILLPOLYGON.SKETCH :D8 (P 0 SKW I 2 TEXTURE I 1 KNOTS I 0 SKSTRM) H@ H AgjhdHg iH hBH H (69 SK.ADD.ELEMENT 63 SK.WIRE.CREATE 57 SK.INSURE.FILLING 49 SK.INPUT.SCALE 37 GETWINDOWUSERPROP 14 \SKETCHSTREAM.POSITION.CHANGED 5 \SKSTRM.WINDOW.FROM.STREAM) (32 SKETCHCONTEXT 20 ROUND) () \DRAWELLIPSE.SKETCH :D8 (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) Y@ H ABACElZÔ ÖÔBCElZÔ ÖÔADE ÖÔBDE ÖÔFGH H (86 SK.ADD.ELEMENT 80 ELLIPSE.CREATE 74 SK.INPUT.SCALE 62 SIN 52 COS 41 SIN 28 COS 14 \SKETCHSTREAM.POSITION.CHANGED 5 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DRAWARC.SKETCH :D8 (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) [@ H ABACD ÖÔBCD ÖÔACDEÔ ÖÔBCDEÔ ÖÔFGH hjEó H (88 SK.ADD.ELEMENT 82 ARC.CREATE 72 SK.INPUT.SCALE 60 SIN 48 COS 35 SIN 25 COS 14 \SKETCHSTREAM.POSITION.CHANGED 5 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DRAWLINE.SKETCH :D8 (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) 4 @ H HABCDhhEµkH G H (49 SK.ADD.ELEMENT 43 WIRE.INPUTFN 35 SK.INPUT.SCALE 14 \SKETCHSTREAM.POSITION.CHANGED 5 \SKSTRM.WINDOW.FROM.STREAM) NIL () \BOUT.SKETCH :D8 (P 0 SKW I 1 CHARCODE I 0 SKETCHSTREAM) >@ Hg ³hH hH H ¿AhHd A(58 SKED.INSERT 53 SK.INPUT.SCALE 42 SKED.SET.SELECTION 35 DSPYPOSITION 28 DSPXPOSITION 19 GETWINDOWUSERPROP 5 \SKSTRM.WINDOW.FROM.STREAM) (14 SELECTION) () \DSPCOLOR.SKETCH :D8 (I 1 COLOR I 0 SKSTRM) A@ (11 DSPCOLOR 6 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPBACKCOLOR.SKETCH :D8 (I 1 COLOR I 0 SKSTRM) A@ (11 DSPBACKCOLOR 6 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPOPERATION.SKETCH :D8 (I 1 OPERATION I 0 SKSTRM) A@ (11 DSPOPERATION 6 \SKSTRM.WINDOW.FROM.STREAM) NIL () \STRINGWIDTH.SKETCH :D8 (I 2 RDTBL I 1 STR I 0 SKSTRM) @ ÉAB (19 \STRINGWIDTH.DISPLAY 10 \INSUREWINDOW 5 \SKSTRM.WINDOW.FROM.STREAM) NIL () \BLTSHADE.1BITSKETCH :D8 (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) 3A BCDE gjhdhH @ H (48 SK.ADD.ELEMENT 42 SK.BOX.CREATE 35 SK.INPUT.SCALE 17 CREATEREGION 5 \SKSTRM.WINDOW.FROM.STREAM) (22 ROUND) () \NEWPAGE.SKETCH :D8 (I 0 SKSTRM) @ (5 \DSPRESET.SKETCH) NIL () \CHARWIDTH.SKETCH :D8 (I 1 CHARCODE I 0 SKSTRM) @ ÉA (18 \CHARWIDTH.DISPLAY 10 \INSUREWINDOW 5 \SKSTRM.WINDOW.FROM.STREAM) NIL () \BITBLT.1BITSKETCH :D8 (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) ƒ@òX@´VC Fµ@ Gµ@ IJ [@ABKjdFGhgh Kkj HDE H h@ABC ÉDEFGGGGG (128 BKBITBLT 107 \INSUREWINDOW 102 \SKSTRM.WINDOW.FROM.STREAM 91 SK.ADD.ELEMENT 85 SK.ELEMENT.FROM.IMAGEOBJ 76 BITMAPTEDITOBJ 68 BKBITBLT 45 BITMAPCREATE 35 BITMAPHEIGHT 25 BITMAPWIDTH 16 \SKSTRM.WINDOW.FROM.STREAM) (61 REPLACE 5 BITMAP) () \DSPCLIPPINGREGION.SKETCH :D8 (I 1 REGION I 0 SKSTRM) h@ (11 DSPCLIPPINGREGION 6 \SKSTRM.WINDOW.FROM.STREAM) NIL () \DSPRESET.SKETCH :D8 (P 2 OLDSKETCH P 1 SKETCH P 0 W I 0 SKSTRM) Ú@ 1H HgHg Z´?ghglgjdh[J¿KJ¿KJ¿Khd „ Y H @hH @hH Hg` H IH H HgH Hgh Hgh h(214 PUTWINDOWPROP 202 PUTWINDOWPROP 190 PUTWINDOWPROP 185 SK.DEFAULT.GRIDFACTOR 173 SK.CREATE.HOTSPOT.CACHE 167 MAP.SKETCHSPEC.INTO.VIEWER 160 SK.UPDATE.REGION.VIEWED 154 PUTWINDOWPROP 138 \DSPYPOSITION.SKETCH 133 DSPYPOSITION 125 \DSPXPOSITION.SKETCH 120 DSPXPOSITION 112 DSPRESET 106 PUTWINDOWPROP 100 SKETCH.CREATE 92 LAST 31 GETWINDOWUSERPROP 14 SKED.CLEAR.SELECTION 5 \SKSTRM.WINDOW.FROM.STREAM) (208 SKETCHCHANGED 196 USEGRID 179 GRIDFACTOR 149 INITIAL.SCALE 144 SCALE 52 PRIRANGE 45 VERSION 39 SKETCH 26 SKETCH 20 SKETCH) () \DSPSCALE.SKETCH :D8 (P 4 NEWHEIGHT P 3 NEWWIDTH P 2 CENTERPT P 1 OLDSCALE P 0 SKWINDOW I 1 SCALE I 0 SKSTRM) r@ H YA²_Ad3²S¿dA ³OH !AHg Ö»AHg Ö¼HJKl×ÕJLl×ÕKL  ¿(110 \ILLEGAL.ARG 103 SKETCH.GLOBAL.REGION.ZOOM 98 CREATEREGION 74 GETWINDOWPROP 60 GETWINDOWPROP 45 REGION.CENTER 40 SKETCH.REGION.VIEWED 32 EQP 14 VIEWER.SCALE 5 \SKSTRM.WINDOW.FROM.STREAM) (69 HEIGHT 55 WIDTH) () \DRAWPOLYGON.SKETCH :D8 (P 0 SKW I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 POINTS I 0 SKETCHSTREAM) )@ H ACDiH hd H (38 SK.ADD.ELEMENT 32 SK.WIRE.CREATE 24 SK.INPUT.SCALE 14 \SKETCHSTREAM.POSITION.CHANGED 5 \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 ("Venue & Xerox Corporation" 1984 1985 1987 1988 1990)) NIL