(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Nov-2023 20:33:00" ("compiled on " {DSK}larry>il>medley>sources>IMAGEIO.;1) "11-Nov-2023 07:37:04" bcompl'd in "FULL 11-Nov-2023 ..." dated "11-Nov-2023 07:37:06") (FILECREATED "30-Oct-2021 19:09:48" {DSK}kaplan>Local>medley3.5>my-medley>sources>IMAGEIO.;7 80279 changes to%: (FNS \NOIMAGE.DSPFONT) previous date%: "25-Sep-2021 20:58:07" {DSK}kaplan>Local>medley3.5>my-medley>sources>IMAGEIO.;5) IMAGESTREAMP :D8 (P 2 STYPE P 1 STREAM P 0 NARGS F 5 \TERM.OFD F 6 *STANDARD-OUTPUT*) eeHjkadiUVka1IhI.ZHl(laKiKhKKLJJ LJJINIL (47 IMAGEOPS 40 STREAM 31 STREAM) () IMAGESTREAMTYPE :D8 (I 0 STREAM) @.NIL (17 IMAGEOPS 10 STREAM 5 STREAM) () IMAGESTREAMTYPEP :D8 (P 0 S I 1 STYPE I 0 STREAM) R@didgi AHAIiIhIIJH.[LLKLְ(17 \GETSTREAM) (61 IMAGEOPS 54 STREAM 26 STREAM 11 OUTPUT) () OPENIMAGESTREAM :D8 (P 12 STREAM P 11 P P 9 POS P 8 CL::$$TYPE-VALUE P 2 LPTP P 1 LPTNAME P 0 DEFPRINTER I 2 OPTIONS I 1 IMAGETYPE I 0 FILE F 13 DEFAULTPRINTINGHOST F 14 PRINTFILETYPES)  WWq@O@ @bdAgigbQ@ I@g g6i o@ _!@Oko@Ok jk AA@ 4I H*IH g ddh o@ beI@AI g [LKLKLCoIoAo  $J!W ORoAo gA`oAo _J@ Ag`@zO_hO_O_AO g ]NN}MNvO gggI bmg@gdAWA BlO IOgI O(503 STREAMPROP 478 PACKFILENAME 444 PACKFILENAME 422 PRINTERNAME 397 PRINTERPROP 387 PRINTERTYPE 345 STREAMP 334 ERROR 299 ERROR 294 CONCAT 263 ERROR 258 CONCAT 221 PRINTERPROP 211 PRINTERTYPE 196 ERROR 175 PRINTERPROP 165 PRINTERTYPE 144 PRINTFILETYPE.FROM.EXTENSION 133 SUBATOM 123 STRPOS 99 STRPOS 75 FILENAMEFIELD 62 STREAMP 28 INTERLISP-NAMESTRING) (497 PRINTERNAME 460 EXTENSION 454 BODY 438 NAME 433 LPT 428 HOST 392 CANPRINT 352 DISPLAY 311 IMAGESTREAMTYPES 305 OPENSTREAM 216 CANPRINT 170 CANPRINT 80 LPT 70 HOST 51 {LPT} 42 DISPLAY 21 PATHNAME) ( 329 " streams" 323 "No open function for " 289 " files" 283 "Can't find a printer on DEFAULTPRINTINGHOST that can print " 252 " files" 246 " can't print " 240 "Printer " 190 "Can't determine IMAGETYPE for " 113 "." 93 "}") \GOOD.DASHLST :D8 (P 7 NOWOFF P 6 NDASH P 1 BRUSHSIZE P 0 DASHLST I 1 BRUSH I 0 DASHING) @ Ad3@k/AAlA A lۍA3A AHRIkLH kjHd XHQJKOh_NI֋i_ NkIkؽL Mh\JZM&H(88 \APPEND2 76 LENGTH 55 FIXR 40 BITMAPWIDTH 33 BITMAPHEIGHT 5 INSURE.DASHING) (20 BITMAP) () DRAWDASHEDLINE :D8 (P 17 NOWOFF P 16 NDASH P 11 COSINE P 10 SINE P 9 LINELENGTH P 8 NEWY P 7 NEWX P 6 DASHLST P 5 DASHCNT P 4 DASHTAIL P 3 LENGTHDRAWN P 2 OPPOSITE P 1 ADJACENT P 0 DASHON I 8 DASHING I 7 COLOR I 6 STREAM I 5 OPERATION I 4 WIDTH I 3 Y2 I 2 X2 I 1 Y1 I 0 X1)  DjXiB@CAj IdJd j_GQO;O^JO_IO_KLOBH@ABCDEFG BCF _ D_OOh__O_O&_LLKMԻ@OM_AOM_H@AOODEFG HhObObLuNp(183 DRAWLINE 98 MOVETO 88 DRAWLINE 27 SQRT) NIL () DSPBACKCOLOR :D8 (P 0 A0034 I 1 STREAM I 0 COLOR) 'Agh b.8A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPBOTTOMMARGIN :D8 (P 0 A0035 I 1 STREAM I 0 YPOSITION) 'Agh b.(A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPCOLOR :D8 (P 0 A0036 I 1 STREAM I 0 COLOR) 'Agh b.0A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPCLIPPINGREGION :D8 (P 0 A0037 I 1 STREAM I 0 REGION) S@"@l @d3ih@ Ad'gh b.<A@lH (80 \ILLEGAL.ARG 49 \GETSTREAM 33 \ILLEGAL.ARG 10 EQLENGTH) (63 IMAGEOPS 56 STREAM 43 OUTPUT) () DSPRESET :D8 (P 0 A0038 I 0 STREAM) %@gh b.>@kH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPFONT :D8 (P 0 A0039 I 1 STREAM I 0 FONT) 'Agh b.A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPLEFTMARGIN :D8 (P 0 A0040 I 1 STREAM I 0 XPOSITION) 'Agh b. A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPLINEFEED :D8 (P 0 A0041 I 1 STREAM I 0 DELTAY) 'Agh b.A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPOPERATION :D8 (P 0 A0042 I 1 STREAM I 0 OPERATION) 'Agh b..A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPRIGHTMARGIN :D8 (P 0 A0043 I 1 STREAM I 0 XPOSITION) 'Agh b. A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPTOPMARGIN :D8 (P 0 A0044 I 1 STREAM I 0 YPOSITION) 'Agh b.&A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPSCALE :D8 (P 0 A0045 I 1 STREAM I 0 SCALE) 'Agh b."A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPSPACEFACTOR :D8 (P 0 A0046 I 1 STREAM I 0 FACTOR) 4@@j@ Agh b.*A@lH(24 \GETSTREAM 11 \ILLEGAL.ARG) (38 IMAGEOPS 31 STREAM 18 OUTPUT) () DSPXPOSITION :D8 (P 0 A0047 I 1 STREAM I 0 XPOSITION) 'Agh b.A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPYPOSITION :D8 (P 0 A0048 I 1 STREAM I 0 YPOSITION) 'Agh b.A@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPROTATE :D8 (P 0 A0049 I 1 STREAM I 0 ROTATION) 'Agh b.JA@lH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPPUSHSTATE :D8 (P 0 A0050 I 0 STREAM) %@gh b.R@kH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPPOPSTATE :D8 (P 0 A0051 I 0 STREAM) %@gh b.T@kH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPDEFAULTSTATE :D8 (P 0 A0052 I 0 STREAM) %@gh b.V@kH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPSCALE2 :D8 (P 0 A0053 I 2 STREAM I 1 Sy I 0 Sx) (Bgh b.PB@AlH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPTRANSLATE :D8 (P 0 A0054 I 2 STREAM I 1 Ty I 0 Tx) (Bgh b.NB@AlH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DSPNEWPAGE :D8 (P 1 A0056 I 0 STREAM) t@gh bg @g @kH@gh b.@kI@g @g @kH(105 STREAMPROP 92 STREAMPROP 57 \GETSTREAM 36 STREAMPROP 23 STREAMPROP 11 \GETSTREAM) (100 AFTERNEWPAGEFN 87 AFTERNEWPAGEFN 71 IMAGEOPS 64 STREAM 51 OUTPUT 31 BEFORENEWPAGEFN 18 BEFORENEWPAGEFN 5 OUTPUT) () DRAWBETWEEN :D8 (P 0 A0058 I 6 DASHING I 5 COLOR I 4 STREAM I 3 OPERATION I 2 WIDTH I 1 PT2 I 0 PT1) V@ o A o Dgh b.D@@AABCEFl H(47 \GETSTREAM 34 ERROR 23 POSITIONP 16 ERROR 5 POSITIONP) (61 IMAGEOPS 54 STREAM 41 OUTPUT) ( 29 "Point2 not POSITIONP" 11 "Point1 not POSITIONP") DRAWCIRCLE :D8 (P 0 A0059 I 5 STREAM I 4 DASHING I 3 BRUSH I 2 RADIUS I 1 CENTERY I 0 CENTERX) KjBB Bj hEgh b .E@ABCE D lH(68 INSURE.DASHING 62 INSURE.BRUSH 32 \GETSTREAM 17 EQP 9 \ILLEGAL.ARG) (46 IMAGEOPS 39 STREAM 26 OUTPUT) () DRAWARC :D8 (P 0 A0060 I 7 STREAM I 6 DASHING I 5 BRUSH I 4 NDEGREES I 3 STARTANGLE I 2 RADIUS I 1 CENTERY I 0 CENTERX) ;Ggh b.LG@ABCDEG F lH(52 INSURE.DASHING 46 INSURE.BRUSH 12 \GETSTREAM) (26 IMAGEOPS 19 STREAM 6 OUTPUT) () DRAWCURVE :D8 (P 1 A0061 P 0 VALIDBRUSH I 4 STREAM I 3 DASHING I 2 BRUSH I 1 CLOSED I 0 KNOTS F 2 \SYSTEMBRUSHES) NBB BD Dgh b.D@AHC lIHBHRch(59 INSURE.DASHING 30 \GETSTREAM 17 INSURE.BRUSH 9 BRUSHP) (44 IMAGEOPS 37 STREAM 24 OUTPUT) () DRAWELLIPSE :D8 (L (7 STREAM 6 DASHING 5 BRUSH 4 ORIENTATION 3 SEMIMAJORRADIUS 2 SEMIMINORRADIUS 1 CENTERY 0 CENTERX)) ;Ggh b.G@ABCDEG F lH(52 INSURE.DASHING 46 INSURE.BRUSH 12 \GETSTREAM) (26 IMAGEOPS 19 STREAM 6 OUTPUT) () DRAWLINE :D8 (P 0 A0063 I 8 DASHING I 7 COLOR I 6 STREAM I 5 OPERATION I 4 WIDTH I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) 0 Fgh b .F@ABCDEGGl H(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DRAWPOLYGON :D8 (P 0 A0064 I 4 STREAM I 3 DASHING I 2 BRUSH I 1 CLOSED I 0 POINTS) 5Dgh b.@D@ABD C lH(46 INSURE.DASHING 40 INSURE.BRUSH 11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () DRAWPOINT :D8 (P 0 A0065 I 4 OPERATION I 3 STREAM I 2 BRUSH I 1 Y I 0 X) :Cgh b.XC@ABB BC DlH(50 INSURE.BRUSH 11 \GETSTREAM) (39 BITMAP 25 IMAGEOPS 18 STREAM 5 OUTPUT) () FILLPOLYGON :D8 (P 0 A0066 I 4 WINDNUMBER I 3 OPERATION I 2 STREAM I 1 TEXTURE I 0 POINTS) >DjDkkbBgh b.BB@ACdB DlH(54 DSPOPERATION 23 \GETSTREAM) (37 IMAGEOPS 30 STREAM 17 OUTPUT) () DRAWTO :D8 (P 2 A0069 P 1 A0068 P 0 A0067 I 6 DASHING I 5 COLOR I 4 STREAM I 3 OPERATION I 2 WIDTH I 1 Y I 0 X) ZDgh b.Dd.DkID.DkJ@ABCEFl H(11 \GETSTREAM) (67 IMAGEOPS 60 STREAM 44 IMAGEOPS 37 STREAM 25 IMAGEOPS 18 STREAM 5 OUTPUT) () FILLCIRCLE :D8 (P 0 A0070 I 4 STREAM I 3 TEXTURE I 2 RADIUS I 1 CENTERY I 0 CENTERX) *Dgh b.D@ABClH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () MOVETO :D8 (P 0 A0071 I 2 STREAM I 1 Y I 0 X) (Bgh b. B@AlH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () RELDRAWTO :D8 (P 5 A0074 P 4 A0073 P 3 A0072 P 2 ORIGY P 1 ORIGX P 0 STRM I 6 DASHING I 5 COLOR I 4 STREAM I 3 OPERATION I 2 WIDTH I 1 DY I 0 DX) Dgh !@j@@ Aj`AA TH.Hd.HkLYH.HkMZI@JABCEFl Kh(46 \FZEROP 29 \FZEROP 11 \GETSTREAM) (104 IMAGEOPS 97 STREAM 80 IMAGEOPS 73 STREAM 61 IMAGEOPS 54 STREAM 5 OUTPUT) () BITMAPIMAGESIZE :D8 (P 0 A0075 I 2 STREAM I 1 DIMENSION I 0 BITMAP) B.:B@AlHNIL (12 IMAGEOPS 5 STREAM) () SCALEDBITBLT :D8 (P 0 A0076 I 12 SCALE 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 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE) = C.D@ABCDEFGGGGGddjG jGklHNIL (12 IMAGEOPS 5 STREAM) () \DRAWPOINT.GENERIC :D8 (I 4 OPERATION I 3 BRUSH I 2 Y I 1 X I 0 STREAM) ABABCD@C (18 DRAWLINE) NIL () \DRAWPOLYGON.GENERIC :D8 (P 2 PTAIL P 1 COLOR I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 POINTS I 0 STREAM) iAdeCHZJdA0AAC@h >JJJCh@ID JBAJJAACh@ID h(101 DRAWLINE 65 DRAWLINE 39 DRAWPOINT) NIL () \DRAWCIRCLE.GENERIC :D8 (P 0 R2RAD I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) uCo ACB AHBH ABC AHBH ACB AHBH ABC AHBH hiDE@ h(113 DRAWCURVE 94 CREATEPOSITION 83 CREATEPOSITION 74 CREATEPOSITION 63 CREATEPOSITION 54 CREATEPOSITION 43 CREATEPOSITION 34 CREATEPOSITION 23 CREATEPOSITION 11 FIXR) NIL ( 5 0.70710677) \DRAWELLIPSE.GENERIC :D8 (P 6 MINORYOFFSET P 5 MINORXOFFSET P 4 MAJORYOFFSET P 3 MAJORXOFFSET P 2 ROOT2DIV2 P 1 COSOR P 0 SINOR I 7 DASHING I 6 BRUSH I 5 ORIENTATION I 4 SEMIMAJORRADIUS I 3 SEMIMINORRADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM F 7 EXTRAXOFFSET F 8 EXTRAYOFFSET F 9 VERSOXOFFSET F 10 VERSOYOFFSET) EoEooCID[HD\HC]IC^JKMcJLNcJKMcJLNcAKBL AWBW AMBN AWBW AKBL AWBW AMBN AWBW hiFG@ AB@ h = A(214 COS 206 SIN 199 MOVETO 191 DRAWCURVE 171 CREATEPOSITION 158 CREATEPOSITION 147 CREATEPOSITION 134 CREATEPOSITION 123 CREATEPOSITION 110 CREATEPOSITION 99 CREATEPOSITION 86 CREATEPOSITION) NIL ( 28 0.70710677 23 1.0 11 0.0) \IMAGEIOINITA0002 :D8 (P 0 OPOS I 1 POS I 0 STREAM) @ HAAH@ (20 SPACES 5 POSITION) NIL () \IMAGEIOINITA0004 :D8 (I 1 N I 0 STREAM F 0 \#DISPLAYLINES F 1 \CURRENTDISPLAYLINE) P QmhPQA@g (26 \UNIMPIMAGEOP) (21 DSPYPOSITION) () \IMAGEIOINITA0008 :D8 (I 1 N I 0 STREAM) A@ (6 LINELENGTH) NIL () \IMAGEIOINITA0010 :D8 (I 1 DY I 0 STREAM) mAAmAo (20 ERROR) NIL ( 15 "Illegal DSPLINEFEED for terminal") \IMAGEIOINITA0012 :D8 (I 0 STREAM) @g (10 \UNIMPIMAGEOP) (5 DSPSPACEFACTOR) () \IMAGEIOINITA0014 :D8 (I 0 STREAM) @g (10 \UNIMPIMAGEOP) (5 FONTCREATE) () \IMAGEIOINITA0016 :D8 (I 2 RDTBL I 1 STR I 0 STREAM) ABd (7 NCHARS) NIL () \IMAGEIOINITA0018 :D8 NIL kNIL NIL () \IMAGEIOINITA0020 :D8 (I 1 CHARSET I 0 STREAM) 3@gi %@l Ai@l @j @A (48 \BOUT 40 \BOUT 33 \BOUT 21 \BOUT 11 \IOMODEP) (5 OUTPUT) () \IMAGEIOINITA0039 :D8 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) YBdgh@ A dgh@ 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) () \IMAGEIOINITA0047 :D8 (I 0 STREAM) @l (7 \OUTCHAR) NIL () \IMAGEIOINITA0050 :D8 (P 1 A0078 P 0 A0077 I 2 Y I 1 X I 0 STREAM) 3@.@AlH@.@BlINIL (37 IMAGEOPS 30 STREAM 12 IMAGEOPS 5 STREAM) () \IMAGEIOINITA0052 :D8 (I 0 STREAM) @l (7 \OUTCHAR) NIL () \IMAGEIOINIT :D8 NIL `dhdgdgdgdg dg dgdg*dg,dg2dg4dgHdg@dgXdg^dg\dgZdgVdgTdgRdgPdgNdgLdgJdgFdgDdgBdg>dgdgLdg@dgXdgZdg\dg^dgVdgTdgRdgPdgNdgJdgHdgFdg:dg6dg(dg&dg$dg `dgdjdjdj0dgdgdgDdgdg^dgFdgdgbdg`dgdgdg dg dgdg,dg.dg0dgTdg>dg@d`dd`fhdHdIdghdgRdgPdgNdgHdgBdgdgLdg@dgXdgZdg\dg^dgVdgTdgRdgPdgNdgJdgHdgFdgDdgBdg:dg6dg(dg&dg$dg `dgdjdjdj0dgdgdgDdgdg^dgFdgdgbdg`dgdgdg dg dgdg,dg.dg0dgTdg>dg@hdHdIdhddghdgRdgPdgNdgHdgBdgdgLdg@dgXdgZdg\dg^dgVdgTdgRdgPdgNdgJdgHdgFdgDdgBdg:dg6dg(dg&dg$dg `dgdjdjdj0dgdgdgDdgdg^dgFdgdgbdg`dgdgdg dg dgdg,dg.dg0dgTdg>dg@hdHdIdhddghdgRdgPdgNdgHdgBdgdgLdg@dgXdgZdg\dg^dgVdgTdgRdgPdgNdgJdgHdgFdgDdgBdg:dg6dg(dg&dg$dg `dgdjdjdj0dgdgdgDdgdg^dgFdgdgbdg`dgdgdg dg dgdg,dg.dg0dgTdg>dg@hdHdIdhddghdgRdgPdgNdgHdgBdg