(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 8-Sep-94 20:14:38" ("compiled on " {DSK}lispusers>COURIERIMAGESTREAM.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "20-Jul-88 10:15:36" |{MCS:MCS:STANFORD}COURIERIMAGESTREAM.;7| 49756 changes to%: ( VARS COURIERIMAGESTREAMCOMS) (FNS \BITBLT.COURIER \SCALEDBITBLT.COURIER \COURIER.OPENIMAGESTREAM) previous date%: "16-Sep-87 17:41:23" |{MCS:MCS:STANFORD}COURIERIMAGESTREAM.;5|) \BACKCOLOR.COURIER :D8 (I 1 COLOR I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 BACKCOLOR 17 IMAGESTREAM 5 STREAM) () \BITBLT.COURIERA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 BULK.DATA.STREAM F 1 SI::*RESETFORMS* F 2 BITMAP) gPhhdQcRP (23 WRITEBINARYBITMAP) (4 CLOSEF?) () \BITBLT.COURIER :D8 (P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 1 BULK.DATA.STREAM P 0 BITMAP 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 STREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 6 LISPXHIST) _FG !@ABHCة0ZggJhDEFGGGGG ¹V!g ؟$h(87 SI::RESETUNWIND 82 \MVLIST 77 \BITBLT.COURIERA0001 62 COURIER.CALL 19 BKBITBLT 7 BITMAPCREATE) (72 SI::RESETUNWIND 39 BITBLT 34 IMAGESTREAM 25 STREAM) () \BLTSHADE.COURIER :D8 (I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 BOTTOM I 2 LEFT I 1 STREAM I 0 TEXTURE) 6Aة0Hgg@µj‡diً“؟nےےHBCDEFG (51 COURIER.CALL) (22 BLTSHADE 17 IMAGESTREAM 5 STREAM) () \BOTTOMMARGIN.COURIER :D8 (I 1 YPOSITION I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 BOTTOMMARGIN 17 IMAGESTREAM 5 STREAM) () \CHARSET.COURIER :D8 (I 1 CHARACTERSET I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 CHARSET 17 IMAGESTREAM 5 STREAM) () \CHARWIDTH.COURIER :D8 (I 1 CHARCODE I 0 STREAM) 5@ة0Hd›؟AH ggHA (50 COURIER.CALL 28 CHARWIDTH) (40 CHARWIDTH 35 IMAGESTREAM 5 STREAM) () \CHARWIDTHY.COURIER :D8 (I 1 CHARCODE I 0 STREAM) 5@ة0Hd›؟AH ggHA (50 COURIER.CALL 28 CHARWIDTHY) (40 CHARWIDTHY 35 IMAGESTREAM 5 STREAM) () \CLIPPINGREGION.COURIER :D8 (I 1 REGION I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 CLIPPINGREGION 17 IMAGESTREAM 5 STREAM) () \CLOSEFN.COURIER :D8 (I 0 STREAM) !@ة0HggH(30 COURIER.CALL) (22 CLOSE 17 IMAGESTREAM 5 STREAM) () \COLOR.COURIER :D8 (I 1 COLOR I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 COLOR 17 IMAGESTREAM 5 STREAM) () \COURIERIMAGESTREAM.BOUT :D8 (I 1 BYTE I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 OUTCHAR 17 IMAGESTREAM 5 STREAM) () \DEFAULTSTATE.COURIER :D8 (I 0 STREAM) !@ة0HggH(30 COURIER.CALL) (22 DEFAULTSTATE 17 IMAGESTREAM 5 STREAM) () \DRAWARC.COURIER :D8 (I 7 DASHING I 6 BRUSH I 5 DEGREES I 4 ANGLE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) *@ة0HggHABCDEFG (39 COURIER.CALL) (22 DRAWARC 17 IMAGESTREAM 5 STREAM) () \DRAWCIRCLE.COURIER :D8 (I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) '@ة0HggHABCDE (36 COURIER.CALL) (22 DRAWCIRCLE 17 IMAGESTREAM 5 STREAM) () \DRAWCURVE.COURIER :D8 (I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 STREAM) &@ة0HggHABCD (35 COURIER.CALL) (22 DRAWCURVE 17 IMAGESTREAM 5 STREAM) () \DRAWELLIPSE.COURIER :D8 (I 7 DASHING I 6 BRUSH I 5 ORIENTATION I 4 SEMIMAJORRADIUS I 3 SEMIMINORRADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) *@ة0HggHABCDEFG (39 COURIER.CALL) (22 DRAWELLIPSE 17 IMAGESTREAM 5 STREAM) () \DRAWLINE.COURIER :D8 (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 STREAM) , @ة0HggHABCDEFGG (41 COURIER.CALL) (22 DRAWLINE 17 IMAGESTREAM 5 STREAM) () \DRAWPOINT.COURIER :D8 (I 4 OPERATION I 3 BRUSH I 2 Y I 1 X I 0 STREAM) &@ة0HggHABCD (35 COURIER.CALL) (22 DRAWPOINT 17 IMAGESTREAM 5 STREAM) () \DRAWPOLYGON.COURIER :D8 (I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 POINTS I 0 STREAM) &@ة0HggHABCD (35 COURIER.CALL) (22 DRAWPOLYGON 17 IMAGESTREAM 5 STREAM) () \FILLCIRCLE.COURIER :D8 (I 4 TEXTURE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) &@ة0HggHABCD (35 COURIER.CALL) (22 FILLCIRCLE 17 IMAGESTREAM 5 STREAM) () \FILLPOLYGON.COURIER :D8 (I 2 TEXTURE I 1 POINTS I 0 STREAM) $@ة0HggHAB (33 COURIER.CALL) (22 FILLPOLYGON 17 IMAGESTREAM 5 STREAM) () \FONT.COURIER :D8 (I 1 FONT I 0 STREAM) 9@ة0HA²'AHً³HggHA ؟HA؟(47 COURIER.CALL) (37 FONT 32 IMAGESTREAM 5 STREAM) () \LEFTMARGIN.COURIER :D8 (I 1 XPOSITION I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 LEFTMARGIN 17 IMAGESTREAM 5 STREAM) () \LINEFEED.COURIER :D8 (I 1 DELTAY I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 LINEFEED 17 IMAGESTREAM 5 STREAM) () \MOVETO.COURIER :D8 (I 2 Y I 1 X I 0 STREAM) $@ة0HggHAB (33 COURIER.CALL) (22 MOVETO 17 IMAGESTREAM 5 STREAM) () \NEWPAGE.COURIER :D8 (I 0 STREAM) !@ة0HggH(30 COURIER.CALL) (22 NEWPAGE 17 IMAGESTREAM 5 STREAM) () \OPENIMAGESTREAM.COURIER :D8 (P 11 PAIR P 4 STREAM P 3 IMAGEOPS P 2 IMAGESTREAM P 1 TYPE P 0 FILE I 1 OPTIONS I 0 COURIERSTREAM) Lگ`’±ص`dg؟dgh؟dgR؟dgP؟dgN؟dgH؟dgB؟dg@؟dg>؟dg<؟dg:؟dg8؟dg6؟dg4؟dg2؟dg*؟dg ؟dg؟dg؟dg؟dg؟dg؟؟A!O_µ‚±$ObI¥g¹@ggHIAi Z`` @ggJ½dM,؟[l@J`Kة, ih¾dN0؟dK.؟dg(؟d` ؟dnےےح5؟`_؟dOح4؟dh2؟dg*؟dg&؟dg$؟`_؟dOح؟dj؟dj؟djد0؟djد؟dkد؟dkد0؟djح؟dlد؟dh؟djد؟dg ؟\dg&Ldgً—؟O¸hژgً–O¹h€i²OOOh _؟O±‏œ(576 \NCONC2 508 \SETACCESS 338 FONTCLASSCOMPONENT 308 COURIER.CALL 291 NCREATE2 275 COURIER.CALL 269 MKSTRING) (547 TYPE 532 FILE 521 \COURIERIMAGESTREAM.BOUT 516 STREAM 503 OUTPUT 431 FILELINELENGTH 423 \STREAM.NOT.OPEN 414 \STREAM.NOT.OPEN 405 \EOSERROR 385 \STREAM.DEFAULT.MAXBUFFERS 370 \NULLFDEV 361 \OUTCHAR.COURIER 331 IMAGEOPS 325 DEFAULTFONT 302 FONTTYPE 297 IMAGESTREAM 286 \COURIERIMAGEOPS 281 |IMAGEOPSTYPE#| 260 OPEN 255 IMAGESTREAM 248 DISPLAY 220 \NULLFDEV 212 NILL 203 NILL 194 \GENERIC.RENAMEFILE 185 NILL 176 NILL 167 NILL 158 NILL 149 \GENERIC.READCHAR 140 \GENERIC.WRITECHAR 131 \GENERIC.PEEKCHAR 122 \GENERIC.UNREADCHAR 113 \GENERIC.READP 104 \ILLEGAL.DEVICEOP 95 \GENERIC.BINS 86 \GENERIC.BOUTS 77 NILL 68 \GENERIC.CHARSET 59 \ILLEGAL.DEVICEOP 50 \IS.NOT.RANDACCESSP 41 \IS.NOT.RANDACCESSP 32 \GENERIC.READCCODE 23 NILL 16 |FDEVTYPE#| 7 \NULLFDEV) () \OPERATION.COURIER :D8 (I 1 OPERATION I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 OPERATION 17 IMAGESTREAM 5 STREAM) () \POPSTATE.COURIER :D8 (I 0 STREAM) !@ة0HggH(30 COURIER.CALL) (22 POPSTATE 17 IMAGESTREAM 5 STREAM) () \PUSHSTATE.COURIER :D8 (I 0 STREAM) !@ة0HggH(30 COURIER.CALL) (22 PUSHSTATE 17 IMAGESTREAM 5 STREAM) () \RESET.COURIER :D8 (I 0 STREAM) *@jح@ة0HggH(39 COURIER.CALL) (31 RESET 26 IMAGESTREAM 14 STREAM 5 STREAM) () \RIGHTMARGIN.COURIER :D8 (I 1 XPOSITION I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 RIGHTMARGIN 17 IMAGESTREAM 5 STREAM) () \ROTATE.COURIER :D8 (I 1 ROTATION I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 ROTATE 17 IMAGESTREAM 5 STREAM) () \SCALE.COURIER :D8 (I 1 SCALE I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 SCALE 17 IMAGESTREAM 5 STREAM) () \SCALEDBITBLT.COURIERA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 BULK.DATA.STREAM F 1 SI::*RESETFORMS* F 2 BITMAP) gPhhdQcRP (23 WRITEBINARYBITMAP) (4 CLOSEF?) () \SCALEDBITBLT.COURIER :D8 (P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 1 BITMAP P 0 BULK.DATA.STREAM I 14 SCALE 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 STREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 6 LISPXHIST) x0F¨@ b؟G¨@ b؟@ABFG YCة0ZggJhDEFGGGGGG ¸V!g ؟$h(112 SI::RESETUNWIND 107 \MVLIST 102 \SCALEDBITBLT.COURIERA0001 87 COURIER.CALL 42 BKBITBLT 36 BITMAPCREATE 22 BITMAPHEIGHT 10 BITMAPWIDTH) (97 SI::RESETUNWIND 62 SCALEDBITBLT 57 IMAGESTREAM 48 STREAM) () \SCALE2.COURIER :D8 (I 2 Y I 1 X I 0 STREAM) $@ة0HggHAB (33 COURIER.CALL) (22 SCALE2 17 IMAGESTREAM 5 STREAM) () \SPACEFACTOR.COURIER :D8 (I 1 FACTOR I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 SPACEFACTOR 17 IMAGESTREAM 5 STREAM) () \STRINGWIDTH.COURIER :D8 (I 2 RDTBL I 1 STRING I 0 STREAM) 5@ة0Hd›؟AH ggHA (50 COURIER.CALL 28 STRINGWIDTH) (40 STRINGWIDTH 35 IMAGESTREAM 5 STREAM) () \TERPRI.COURIER :D8 (I 0 STREAM) *@jح@ة0HggH(39 COURIER.CALL) (31 TERPRI 26 IMAGESTREAM 14 STREAM 5 STREAM) () \TOPMARGIN.COURIER :D8 (I 1 YPOSITION I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 TOPMARGIN 17 IMAGESTREAM 5 STREAM) () \TRANSLATE.COURIER :D8 (I 2 Y I 1 X I 0 STREAM) $@ة0HggHAB (33 COURIER.CALL) (22 TRANSLATE 17 IMAGESTREAM 5 STREAM) () \XPOSITION.COURIER :D8 (I 1 XPOSITION I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 XPOSITION 17 IMAGESTREAM 5 STREAM) () \YPOSITION.COURIER :D8 (I 1 YPOSITION I 0 STREAM) #@ة0HggHA (32 COURIER.CALL) (22 YPOSITION 17 IMAGESTREAM 5 STREAM) () \OUTCHAR.COURIER :D8 (I 1 CHARCODE I 0 STREAM) Al ً—@j†@dبkذسح؟@A (29 BOUT) (10 STREAM) () \COURIER.BACKCOLOR :D8 (P 0 A0253 I 4 COLOR I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة8CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.BITBLT :D8 (I 12 CLIPPINGREGION I 11 TEXTURE I 10 OPERATION I 9 SOURCETYPE I 8 HEIGHT I 7 WIDTH I 6 DESTINATIONBOTTOM I 5 DESTINATIONLEFT I 4 BULK.DATA.STREAM I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) ( GGDhdCEFGGGGGG o(32 BKBITBLT 9 READBINARYBITMAP) NIL ( 37 (RETURN)) \COURIER.BLTSHADE :D8 (P 0 A0254 I 10 CLIPPINGREGION I 9 OPERATION I 8 HEIGHT I 7 WIDTH I 6 BOTTOM I 5 LEFT I 4 IMAGESTREAM I 3 TEXTURE I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) -@ABDة.ةCDEFGGGGlHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.BOTTOMMARGIN :D8 (P 0 A0255 I 4 YPOSITION I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة(CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.CHARSET :D8 (P 0 A0256 I 4 CHARACTERSET I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ةHCDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.CHARWIDTH :D8 (P 0 A0257 I 4 CHARCODE I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة4CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.CHARWIDTHY :D8 (P 0 A0258 I 4 CHARCODE I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة6CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.CLIPPINGREGION :D8 (P 0 A0259 I 4 REGION I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة<CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.CLOSEIMAGESTREAM :D8 (P 0 PAIR I 3 HANDLE I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) >C`H` ؟Hg —H †H o(54 CLOSEF? 46 CLOSEW 38 IMAGESTREAMTYPEP 20 DREMOVE) (33 DISPLAY 25 IMAGESTREAMALST 15 IMAGESTREAMALST 5 IMAGESTREAMALST) ( 59 (RETURN)) \COURIER.COLOR :D8 (P 0 A0260 I 4 COLOR I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة0CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.DEFAULTSTATE :D8 (P 0 A0261 I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) !@ABCة.ةVCkHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.DRAWARC :D8 (P 0 A0262 I 10 DASHING I 9 BRUSH I 8 DEGREES I 7 ANGLE I 6 RADIUS I 5 Y I 4 X I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) -@ABCة.ةLCDEFGGGGlHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.DRAWCIRCLE :D8 (P 0 A0263 I 8 DASHING I 7 BRUSH I 6 RADIUS I 5 Y I 4 X I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) ) @ABCة.ةCDEFGGlHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.DRAWCURVE :D8 (P 0 A0264 I 7 DASHING I 6 BRUSH I 5 CLOSED I 4 KNOTS I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) '@ABCة.ةCDEFGlHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.DRAWELLIPSE :D8 (P 0 A0265 I 10 DASHING I 9 BRUSH I 8 ORIENTATION I 7 SEMIMAJORRADIUS I 6 SEMIMINORRADIUS I 5 CENTERY I 4 CENTERX I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) -@ABCة.ةCDEFGGGGlHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.DRAWLINE :D8 (P 0 A0266 I 11 DASHING I 10 COLOR I 9 OPERATION I 8 WIDTH I 7 Y2 I 6 X2 I 5 Y I 4 X I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) /@ABCة.ةCDEFGGGGGl Hh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.DRAWPOINT :D8 (P 0 A0267 I 7 OPERATION I 6 BRUSH I 5 Y I 4 X I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) '@ABCة.ةXCDEFGlHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.DRAWPOLYGON :D8 (P 0 A0268 I 7 DASHING I 6 BRUSH I 5 CLOSED I 4 POINTS I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) '@ABCة.ة@CDEFGlHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.FILLCIRCLE :D8 (P 0 A0269 I 7 TEXTURE I 6 RADIUS I 5 Y I 4 X I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) '@ABCة.ةCDEFGlHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.FILLPOLYGON :D8 (P 0 A0270 I 5 TEXTURE I 4 POINTS I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) $@ABCة.ةBCDElHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.FONT :D8 (P 0 A0271 I 4 FONT I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ةCDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.FONTTYPE :D8 (I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) gCة.ة,hNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.LEFTMARGIN :D8 (P 0 A0272 I 4 XPOSITION I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.LINEFEED :D8 (P 0 A0273 I 4 DELTAY I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ةCDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.MOVETO :D8 (P 0 A0274 I 5 Y I 4 X I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) $@ABCة.ة CDElHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.NEWPAGE :D8 (P 0 A0275 I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) !@ABCة.ةCkHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.OPERATION :D8 (P 0 A0276 I 4 OPERATION I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة.CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.OPENIMAGESTREAMA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 SI::NLSETQ-VALUE) i@R hcg(10 READ) (19 :NORMAL) () \COURIER.OPENIMAGESTREAMA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS* F 5 OPTIONS F 6 STREAM F 7 *CONDITION-HANDLER-BINDINGS* F 8 *PROCEED-CASES*) HgUg chhdTc`WioWI gً´H(57 \COURIER.OPENIMAGESTREAMA0001A0002 15 OPENSTRINGSTREAM) (63 :NORMAL 36 SI::NLSETQ-PROCEED-CASE 10 INPUT 4 CLOSEF?) ( 45 (CL:ERROR . SI::NLSETQHANDLER)) \COURIER.OPENIMAGESTREAM :D8 (P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 HANDLE P 0 STREAM I 5 OPTIONS I 4 IMAGETYPE I 3 FILE I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM F 8 LISPXHIST) q W!g ؟$b `µ'YdCDE`gIh!MµNkط°ص_؟N”ONَ’O¾M]°ه(56 OPENIMAGESTREAM 46 ZERO 27 SI::RESETUNWIND 22 \MVLIST 17 \COURIER.OPENIMAGESTREAMA0001) (73 RETURN 68 IMAGESTREAMALST 62 IMAGESTREAMALST 39 IMAGESTREAMALST 12 SI::RESETUNWIND) () \COURIER.OUTCHAR :D8 (P 0 A0277 I 4 CHARCODE I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) @ABCة(CDlHh(7 COURIER.RETURN) (13 STREAM) () \COURIER.POPSTATE :D8 (P 0 A0278 I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) !@ABCة.ةTCkHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.PUSHSTATE :D8 (P 0 A0279 I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) !@ABCة.ةRCkHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.RESET :D8 (P 0 A0280 I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) !@ABCة.ة>CkHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.RIGHTMARGIN :D8 (P 0 A0281 I 4 XPOSITION I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ةCDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.ROTATE :D8 (P 0 A0282 I 5 ROTATION I 4 COLOR I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ةJCElHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.SCALE :D8 (P 0 A0283 I 4 SCALE I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة"CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.SCALEDBITBLT :D8 (I 13 SCALE I 12 CLIPPINGREGION I 11 TEXTURE I 10 OPERATION I 9 SOURCETYPE I 8 HEIGHT I 7 WIDTH I 6 DESTINATIONBOTTOM I 5 DESTINATIONLEFT I 4 BULK.DATA.STREAM I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) *GGDhdCEFGGGGGGG o(34 SCALEDBITBLT 9 READBINARYBITMAP) NIL ( 39 (RETURN)) \COURIER.SCALE2 :D8 (P 0 A0284 I 5 Y I 4 X I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) $@ABCة.ةPCDElHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.SPACEFACTOR :D8 (P 0 A0285 I 4 FACTOR I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة*CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.STRINGWIDTH :D8 (P 0 A0286 I 4 STRING I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة2CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.TERPRI :D8 (P 0 A0287 I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) !@ABCة.ة$CkHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.TOPMARGIN :D8 (P 0 A0288 I 4 YPOSITION I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ة&CDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.TRANSLATE :D8 (P 0 A0289 I 5 Y I 4 X I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) $@ABCة.ةNCDElHh(7 COURIER.RETURN) (20 IMAGEOPS 13 STREAM) () \COURIER.XPOSITION :D8 (P 0 A0290 I 4 XPOSITION I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ةCDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \COURIER.YPOSITION :D8 (P 0 A0291 I 4 YPOSITION I 3 IMAGESTREAM I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) #gCة.ةCDlHhNIL (17 IMAGEOPS 10 STREAM 4 RETURN) () \INITCOURIERIMAGESTREAMA0048 :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) () \INITCOURIERIMAGESTREAM :D8 NIL ½`dg؟dg؟dg؟dg؟dg؟dg ؟dg؟dg؟dg؟dg؟dg؟dg؟dgB؟dg؟dg؟dg ؟dg"؟dg$؟dg,؟dg0؟dg8؟dg2؟dg4؟dg6؟dg>؟dg@؟dgD؟dg&؟dg(؟dg؟dg؟dg<؟dg.؟dg*؟dgH؟dgJ؟dgL؟dgN؟dgP؟dgR؟dgT؟dgV؟dgX؟dg^؟dg\؟dgZ؟dgF؟dg:؟NIL (442 \COURIERIMAGEOPS 434 \INITCOURIERIMAGESTREAMA0048 425 NILL 416 \MEDW.BLTCHAR 407 \MEDW.XOFFSET 398 \MEDW.YOFFSET 389 \DRAWPOINT.COURIER 380 \DEFAULTSTATE.COURIER 371 \POPSTATE.COURIER 362 \PUSHSTATE.COURIER 353 \SCALE2.COURIER 344 \TRANSLATE.COURIER 335 \DRAWARC.COURIER 326 \ROTATE.COURIER 317 \CHARSET.COURIER 308 \SPACEFACTOR.COURIER 299 \OPERATION.COURIER 290 \CLIPPINGREGION.COURIER 281 \DRAWELLIPSE.COURIER 272 \NEWPAGE.COURIER 263 \BOTTOMMARGIN.COURIER 254 \TOPMARGIN.COURIER 245 \SCALEDBITBLT.COURIER 236 \DRAWPOLYGON.COURIER 227 \RESET.COURIER 218 \CHARWIDTHY.COURIER 209 \CHARWIDTH.COURIER 200 \STRINGWIDTH.COURIER 191 \BACKCOLOR.COURIER 182 \COLOR.COURIER 173 DISPLAY 164 \TERPRI.COURIER 155 \SCALE.COURIER 146 \MOVETO.COURIER 137 \BLTSHADE.COURIER 128 \BITBLT.COURIER 119 \FILLPOLYGON.COURIER 110 \FILLCIRCLE.COURIER 101 \DRAWCIRCLE.COURIER 92 \DRAWCURVE.COURIER 83 \DRAWLINE.COURIER 74 \LINEFEED.COURIER 65 \RIGHTMARGIN.COURIER 56 \LEFTMARGIN.COURIER 47 \FONT.COURIER 38 \YPOSITION.COURIER 29 \XPOSITION.COURIER 20 \CLOSEFN.COURIER 11 COURIER 4 |IMAGEOPSTYPE#|) () READSTREAMHANDLE :D8 (I 2 TYPE I 1 PROGRAM I 0 STREAM) @Ag`(11 COURIER.READ) (16 IMAGESTREAMALST 6 UNSPECIFIED) () WRITESTREAMHANDLE :D8 (I 3 TYPE I 2 PROGRAM I 1 ITEM I 0 STREAM) @ABg(12 COURIER.WRITE) (7 UNSPECIFIED) () (PRETTYCOMPRINT COURIERIMAGESTREAMCOMS) (RPAQQ COURIERIMAGESTREAMCOMS ((* * ImageOp Functions) (FNS \BACKCOLOR.COURIER \BITBLT.COURIER \BLTSHADE.COURIER \BOTTOMMARGIN.COURIER \CHARSET.COURIER \CHARWIDTH.COURIER \CHARWIDTHY.COURIER \CLIPPINGREGION.COURIER \CLOSEFN.COURIER \COLOR.COURIER \COURIERIMAGESTREAM.BOUT \DEFAULTSTATE.COURIER \DRAWARC.COURIER \DRAWCIRCLE.COURIER \DRAWCURVE.COURIER \DRAWELLIPSE.COURIER \DRAWLINE.COURIER \DRAWPOINT.COURIER \DRAWPOLYGON.COURIER \FILLCIRCLE.COURIER \FILLPOLYGON.COURIER \FONT.COURIER \LEFTMARGIN.COURIER \LINEFEED.COURIER \MOVETO.COURIER \NEWPAGE.COURIER \OPENIMAGESTREAM.COURIER \OPERATION.COURIER \POPSTATE.COURIER \PUSHSTATE.COURIER \RESET.COURIER \RIGHTMARGIN.COURIER \ROTATE.COURIER \SCALE.COURIER \SCALEDBITBLT.COURIER \SCALE2.COURIER \SPACEFACTOR.COURIER \STRINGWIDTH.COURIER \TERPRI.COURIER \TOPMARGIN.COURIER \TRANSLATE.COURIER \XPOSITION.COURIER \YPOSITION.COURIER \OUTCHAR.COURIER) (* * Courier Server Functions) (FNS \COURIER.BACKCOLOR \COURIER.BITBLT \COURIER.BLTSHADE \COURIER.BOTTOMMARGIN \COURIER.CHARSET \COURIER.CHARWIDTH \COURIER.CHARWIDTHY \COURIER.CLIPPINGREGION \COURIER.CLOSEIMAGESTREAM \COURIER.COLOR \COURIER.DEFAULTSTATE \COURIER.DRAWARC \COURIER.DRAWCIRCLE \COURIER.DRAWCURVE \COURIER.DRAWELLIPSE \COURIER.DRAWLINE \COURIER.DRAWPOINT \COURIER.DRAWPOLYGON \COURIER.FILLCIRCLE \COURIER.FILLPOLYGON \COURIER.FONT \COURIER.FONTTYPE \COURIER.LEFTMARGIN \COURIER.LINEFEED \COURIER.MOVETO \COURIER.NEWPAGE \COURIER.OPERATION \COURIER.OPENIMAGESTREAM \COURIER.OUTCHAR \COURIER.POPSTATE \COURIER.PUSHSTATE \COURIER.RESET \COURIER.RIGHTMARGIN \COURIER.ROTATE \COURIER.SCALE \COURIER.SCALEDBITBLT \COURIER.SCALE2 \COURIER.SPACEFACTOR \COURIER.STRINGWIDTH \COURIER.TERPRI \COURIER.TOPMARGIN \COURIER.TRANSLATE \COURIER.XPOSITION \COURIER.YPOSITION) (* * etc.) (FNS \INITCOURIERIMAGESTREAM READSTREAMHANDLE WRITESTREAMHANDLE) (INITVARS \COURIERIMAGEOPS \NULLFDEV IMAGESTREAMALST) (PROP COURIERDEF STREAMHANDLE) (GLOBALVARS \COURIERIMAGEOPS \NULLFDEV IMAGESTREAMALST) (DECLARE%: DONTCOPY ( RECORDS COURIERIMAGEDATA)) (ADDVARS (IMAGESTREAMTYPES (COURIER (OPENSTREAM \OPENIMAGESTREAM.COURIER))) ) (FILES BITMAPFNS COURIERDEFS COURIERSERVE) (COURIERPROGRAMS IMAGESTREAM OLDIMAGESTREAM) (P ( \INITCOURIERIMAGESTREAM) (COURIER.START.SERVER)))) (RPAQ? \COURIERIMAGEOPS NIL) (RPAQ? \NULLFDEV NIL) (RPAQ? IMAGESTREAMALST NIL) (PUTPROPS STREAMHANDLE COURIERDEF (READSTREAMHANDLE WRITESTREAMHANDLE)) (ADDTOVAR IMAGESTREAMTYPES (COURIER (OPENSTREAM \OPENIMAGESTREAM.COURIER))) (FILESLOAD BITMAPFNS COURIERDEFS COURIERSERVE) (COURIERPROGRAM IMAGESTREAM (1111 1) TYPES ((X1 INTEGER) (Y1 INTEGER) (X2 INTEGER) (Y2 INTEGER) (ANGLE INTEGER) (RADIUS INTEGER) (SEMIMINORRADIUS INTEGER) (SEMIMAJORRADIUS INTEGER) (X NUMBER) (Y NUMBER) ( LEFT NUMBER) (BOTTOM NUMBER) (WIDTH NUMBER) (HEIGHT NUMBER) (SCALE NUMBER) (COLOR NUMBER) (ROTATION NUMBER) (ORIENTATION NUMBER) (CHARACTERSET NUMBER) (CHARACTER CARDINAL) (CLOSED BOOLEAN) (FILE ATOM) ( IMAGETYPE ATOM) (OPTIONS STRING) (DASHING (SEQUENCE CARDINAL)) (KNOTS (SEQUENCE POSITION)) (SOURCETYPE (ENUMERATION (NIL 0) (INPUT 1) (INVERT 2) (TEXTURE 3)))) INHERITS (INTERLISP) PROCEDURES ((OPEN 0 ( FILE IMAGETYPE OPTIONS) RETURNS (CARDINAL) REPORTS NIL IMPLEMENTEDBY \COURIER.OPENIMAGESTREAM) (CLOSE 1 (CARDINAL) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.CLOSEIMAGESTREAM) (DRAWLINE 2 ( STREAMHANDLE X1 Y1 X2 Y2 WIDTH OPERATION COLOR DASHING) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.DRAWLINE) (DRAWCIRCLE 3 (STREAMHANDLE X1 Y1 RADIUS BRUSH DASHING) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.DRAWCIRCLE) (OUTCHAR 4 (STREAMHANDLE CHARACTER) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.OUTCHAR) (DRAWCURVE 5 (STREAMHANDLE KNOTS CLOSED BRUSH DASHING) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.DRAWCURVE) (DRAWPOLYGON 6 (STREAMHANDLE KNOTS CLOSED BRUSH DASHING) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.DRAWPOLYGON) (SCALE 7 (STREAMHANDLE SCALE) RETURNS ( SCALE) REPORTS NIL IMPLEMENTEDBY \COURIER.SCALE) (XPOSITION 8 (STREAMHANDLE X) RETURNS (X) REPORTS NIL IMPLEMENTEDBY \COURIER.XPOSITION) (YPOSITION 9 (STREAMHANDLE Y) RETURNS (Y) REPORTS NIL IMPLEMENTEDBY \COURIER.YPOSITION) (COLOR 10 (STREAMHANDLE COLOR) RETURNS (COLOR) REPORTS NIL IMPLEMENTEDBY \COURIER.COLOR) (FILLCIRCLE 11 (STREAMHANDLE X1 Y1 RADIUS TEXTURE) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.FILLCIRCLE) (MOVETO 12 (STREAMHANDLE X1 Y1) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.MOVETO) (RESET 13 (STREAMHANDLE) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.RESET) (BLTSHADE 14 (TEXTURE STREAMHANDLE LEFT BOTTOM WIDTH HEIGHT OPERATION REGION) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.BLTSHADE) (RIGHTMARGIN 15 (STREAMHANDLE X) RETURNS (X) REPORTS NIL IMPLEMENTEDBY \COURIER.RIGHTMARGIN) (LEFTMARGIN 16 (STREAMHANDLE X) RETURNS (X) REPORTS NIL IMPLEMENTEDBY \COURIER.LEFTMARGIN) (TERPRI 17 (STREAMHANDLE) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.TERPRI) (STRINGWIDTH 18 (STREAMHANDLE STRING) RETURNS (WIDTH) REPORTS NIL IMPLEMENTEDBY \COURIER.STRINGWIDTH) (LINEFEED 19 (STREAMHANDLE Y) RETURNS (Y) REPORTS NIL IMPLEMENTEDBY \COURIER.LINEFEED) (FONT 20 (STREAMHANDLE FONT) RETURNS (FONT) REPORTS NIL IMPLEMENTEDBY \COURIER.FONT ) (DRAWELLIPSE 21 (STREAMHANDLE X1 Y1 SEMIMINORRADIUS SEMIMAJORRADIUS ORIENTATION BRUSH DASHING) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.DRAWELLIPSE) (NEWPAGE 22 (STREAMHANDLE) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.NEWPAGE) (TOPMARGIN 23 (STREAMHANDLE Y) RETURNS (Y) REPORTS NIL IMPLEMENTEDBY \COURIER.TOPMARGIN) (BOTTOMMARGIN 24 (STREAMHANDLE Y) RETURNS (Y) REPORTS NIL IMPLEMENTEDBY \COURIER.BOTTOMMARGIN) (SPACEFACTOR 25 (STREAMHANDLE X) RETURNS (WIDTH) REPORTS NIL IMPLEMENTEDBY \COURIER.SPACEFACTOR) (OPERATION 26 (STREAMHANDLE OPERATION) RETURNS (OPERATION) REPORTS NIL IMPLEMENTEDBY \COURIER.OPERATION) (CHARWIDTH 27 (STREAMHANDLE CHARACTER) RETURNS (WIDTH) REPORTS NIL IMPLEMENTEDBY \COURIER.CHARWIDTH) (CHARWIDTHY 28 (STREAMHANDLE CHARACTER) RETURNS (WIDTH) REPORTS NIL IMPLEMENTEDBY \COURIER.CHARWIDTHY) (CLIPPINGREGION 29 (STREAMHANDLE REGION) RETURNS (REGION) REPORTS NIL IMPLEMENTEDBY \COURIER.CLIPPINGREGION) (BACKCOLOR 30 (STREAMHANDLE COLOR) RETURNS (COLOR) REPORTS NIL IMPLEMENTEDBY \COURIER.BACKCOLOR) (FILLPOLYGON 31 (STREAMHANDLE KNOTS TEXTURE) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.FILLPOLYGON) (BITBLT 32 (STREAMHANDLE BULK.DATA.SOURCE LEFT BOTTOM WIDTH HEIGHT SOURCETYPE OPERATION TEXTURE REGION) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.BITBLT) (SCALEDBITBLT 33 (STREAMHANDLE BULK.DATA.SOURCE LEFT BOTTOM WIDTH HEIGHT SOURCETYPE OPERATION TEXTURE REGION NUMBER) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.SCALEDBITBLT) (CHARSET 34 (STREAMHANDLE CHARACTERSET) RETURNS (CHARACTERSET) REPORTS NIL IMPLEMENTEDBY \COURIER.CHARSET) ( FONTTYPE 35 (STREAMHANDLE) RETURNS (ATOM) REPORTS NIL IMPLEMENTEDBY \COURIER.FONTTYPE) (ROTATE 36 ( STREAMHANDLE ROTATION) RETURNS (ROTATION) REPORTS NIL IMPLEMETEDBY \COURIER.ROTATE) (DRAWARC 37 ( STREAMHANDLE X1 Y1 RADIUS ANGLE ROTATION BRUSH DASHING) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.DRAWARC) (TRANSLATE 38 (STREAMHANDLE X Y) RETURNS NIL REPORTS NIL IMPLEMETEDBY \COURIER.TRANSLATE) (SCALE2 39 (STREAMHANDLE X Y) RETURNS NIL REPORTS NIL IMPLEMETEDBY \COURIER.SCALE2 ) (PUSHSTATE 40 (STREAMHANDLE) RETURNS NIL REPORTS NIL IMPLEMETEDBY \COURIER.PUSHSTATE) (POPSTATE 41 ( STREAMHANDLE) RETURNS NIL REPORTS NIL IMPLEMETEDBY \COURIER.POPSTATE) (DEFAULTSTATE 42 (STREAMHANDLE) RETURNS NIL REPORTS NIL IMPLEMETEDBY \COURIER.DEFAULTSTATE) (DRAWPOINT 43 (STREAMHANDLE X1 Y1 BRUSH OPERATION) RETURNS NIL REPORTS NIL IMPLEMETEDBY \COURIER.DRAWPOINT)) ERRORS NIL) (COURIERPROGRAM OLDIMAGESTREAM (1111 0) TYPES ((X NUMBER) (Y NUMBER) (X1 INTEGER) (Y1 INTEGER) (X2 INTEGER) (Y2 INTEGER) (COLOR NUMBER) (RADIUS CARDINAL) (DASHING (SEQUENCE CARDINAL)) (SCALE NUMBER) ( LEFT NUMBER) (BOTTOM NUMBER) (WIDTH NUMBER) (HEIGHT NUMBER) (SEMIMINORRADIUS NUMBER) (SEMIMAJORRADIUS NUMBER) (ORIENTATION NUMBER)) INHERITS (INTERLISP IMAGESTREAM) PROCEDURES ((DRAWLINE 2 (STREAMHANDLE X1 Y1 X2 Y2 CARDINAL OPERATION COLOR DASHING) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.DRAWLINE) (DRAWCIRCLE 3 (STREAMHANDLE X Y RADIUS BRUSH DASHING) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.DRAWCIRCLE) (SCALE 7 (STREAMHANDLE SCALE) RETURNS (CARDINAL) REPORTS NIL IMPLEMENTEDBY \COURIER.SCALE) (XPOSITION 8 (STREAMHANDLE NUMBER) RETURNS (CARDINAL) REPORTS NIL IMPLEMENTEDBY \COURIER.XPOSITION) (YPOSITION 9 (STREAMHANDLE NUMBER) RETURNS (CARDINAL) REPORTS NIL IMPLEMENTEDBY \COURIER.YPOSITION) (COLOR 10 (STREAMHANDLE COLOR) RETURNS (CARDINAL) REPORTS NIL IMPLEMENTEDBY \COURIER.COLOR) (FILLCIRCLE 11 (STREAMHANDLE X Y RADIUS TEXTURE) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.FILLCIRCLE) (MOVETO 12 (STREAMHANDLE CARDINAL CARDINAL) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.MOVETO) (DRAWELLIPSE 21 (STREAMHANDLE X Y SEMIMINORRADIUS SEMIMAJORRADIUS ORIENTATION BRUSH DASHING) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.DRAWELLIPSE) (BITBLT 32 ( STREAMHANDLE BULK.DATA.SOURCE LEFT BOTTOM WIDTH HEIGHT ATOM OPERATION TEXTURE REGION) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.BITBLT) (SCALEDBITBLT 33 (STREAMHANDLE BULK.DATA.SOURCE LEFT BOTTOM WIDTH HEIGHT ATOM OPERATION TEXTURE REGION NUMBER) RETURNS NIL REPORTS NIL IMPLEMENTEDBY \COURIER.SCALEDBITBLT) (CHARSET 34 (STREAMHANDLE NUMBER) RETURNS (CARDINAL) REPORTS NIL IMPLEMENTEDBY \COURIER.CHARSET)) ERRORS NIL) (\INITCOURIERIMAGESTREAM) (COURIER.START.SERVER) (PUTPROPS COURIERIMAGESTREAM COPYRIGHT ("Xerox Corporation & Stanford University" 1985 1986 1987 1988) ) NIL