(FILECREATED "13-Nov-85 17:53:37" ("compiled on " {ERIS}KOTO>IRISSTREAM.;10) "12-Nov-85 14:59:23" recompiled changes: \FONTSAVAILABLE.IRIS \RESET.IRIS \DRAWPOLYGON.IRIS in "INTERLISP-D 12-Nov-85 ..." dated "12-Nov-85 15:14:37") (FILECREATED "13-Nov-85 17:32:54" {ERIS}KOTO>IRISSTREAM.;10 57695 changes to: (FNS \DRAWPOLYGON.IRIS \RESET.IRIS \FONTSAVAILABLE.IRIS) (VARS IRISSTREAMCOMS) previous date: "12-Nov-85 23:20:23" {ERIS}KOTO>IRISSTREAM.;8) BOXSCREEN D1 (F 0 \IRISSTREAM F 1 IRISCONN) <jd`kjhdP `k`khdP j`khdP jdhdP Q (71Q FLUSHOUTPUT 65Q DRAWTO 54Q DRAWTO 37Q DRAWTO 16Q DRAWLINE) (43Q SCREENHEIGHT 26Q SCREENHEIGHT 21Q SCREENWIDTH 4 SCREENWIDTH) () CLEARIRIS D1 (I 1 IRISSTREAM I 0 IRISCONN F 0 \IRISSTREAM F 1 \IRIS.VERSION F 2 \BEZIERBASIS.IRIS) APb@P(b @ `A j`j`on@ gA k@ @ @ gA Qdgl @ kR@ k@ goQ A @ (205Q SPP.FORCEOUTPUT 201Q DSPRESET 174Q ERROR 156Q IRIS.CURVEBASIS 150Q IRIS.DEFBASIS 141Q IRIS.CURVEPRECISION 122Q DSPCOLOR 113Q IRIS.CLEAR 107Q IRIS.CURSOFF 103Q IRIS.LINEWIDTH 76Q DSPCOLOR 67Q IRIS.ORTHO 43Q DSPCLIPPINGREGION 34Q IRIS.GCONFIG 30Q IRIS.SINGLEBUFFER) (162Q GL1 127Q GL2 116Q BLUE 72Q WHITE 53Q SCREENHEIGHT 47Q SCREENWIDTH 37Q WHOLESCREEN 21Q IRISDATA 14Q STREAM) ( 170Q "Unknown version of IRIS: " 57Q -1750Q) DRAWBITMAP D1 (P 16Q END P 15Q START P 14Q BASE P 13Q STATE P 12Q X P 10Q YBASE P 7 Y P 5 SLEFT P 4 SBOTTOM P 3 HEIGHT P 2 WIDTH P 1 DESTLEFT P 0 DESTBOTTOM I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 OUTPUTSTREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 BITMAP F 17Q ROW) EdC DdC F@ G@ BjAjBKBjONHOcMJMgj$OOtOdgj@OOhjLO__g_=g.Od@OOh_&IOWIOWkhC g_oO Ok_Ok_OgIOWIOWkhC Ok_Ok_BIHC (367Q MOVETO 335Q DRAWLINE 261Q SHOULDNT 241Q DRAWLINE 34Q BITMAPHEIGHT 24Q BITMAPWIDTH 15Q DSPXPOSITION 6 DSPYPOSITION) (307Q COLLECT1S 245Q SKIP0S 171Q COLLECT1S 162Q COLLECT1S 126Q SKIP0S 105Q SKIP0S) ( 254Q "Unknown state: ") IRISBITMAP D1 (P 0 IRISSTREAM I 5 TITLE I 4 ROTATION I 3 REGION I 2 SCALEFACTOR I 1 BITMAP I 0 FILE) ,gg ACCHhH hH CC (51Q BKBITBLT 34Q DSPYPOSITION 27Q DSPXPOSITION 10Q OPENIMAGESTREAM) (5 IRIS 2 {LPT}Iris.IRIS) () FILLPOLYGON D1 (I 2 STREAM I 1 TEXTURE I 0 POINTS) Bg b&BB@AlH(6 \GETSTREAM) (20Q IMAGEOPS 13Q STREAM 3 OUTPUT) () INSTALL.OBJFONT D1 (P 16Q I P 10Q STREAM P 7 WIDTHARRAY P 6 CHARDESC P 5 FONTBASE P 4 OBJ# P 3 SPACEWIDTH P 2 MAXHEIGHT P 1 IRISDATA P 0 FONTARRAY I 6 CSINFO I 5 IRISSTREAM I 4 SCALE I 3 HIGHESTCHARCODE I 2 LOWCHARCODE I 1 CHARSET I 0 FAMILY F 17Q \IRIS.DEBUG) oWlableBkbClb@A E(j I_Ho@Ah @AI ]Wo MIIn_Ol _`o@ jO _jOO jO O O CBOO]HO(^@MO\O NhjdDE O LO _j!OO ` Ok_ o O @AIM Ml \dO _jO.O 'OClLO KjE O OK @MOJh(533Q IRIS.CLOSEOBJ 525Q MOVETO 516Q IRIS.MAKEOBJ 473Q \FZEROP 453Q IRIS.ISOBJ 440Q \IRISSETFONTBASE 431Q ALIGN 426Q SPP.FORCEOUTPUT 416Q ERROR 405Q \FZEROP 371Q PRIN1 363Q CHARACTER 342Q IRIS.ISOBJ 333Q ALIGN 327Q IRIS.CLOSEOBJ 321Q SFDRAW 306Q IRIS.MAKEOBJ 250Q IRIS.CLOSEOBJ 242Q IRIS.CURSOFF 234Q IRIS.MAKEOBJ 224Q \FZEROP 204Q IRIS.ISOBJ 175Q PROMPTPRINT 156Q \ALLOCBLOCK 121Q SHOULDNT 105Q \IRISFONTBASE 76Q ERROR 36Q \LOOKUPSPLINEFONT) (366Q PROMPTWINDOW 164Q \IRIS.VERBOSE 133Q IRISDATA 127Q IRISDATA 54Q IRISDATA 42Q STREAM) ( 413Q "(OBJECT FONT CHARACTER IS UNDEFINED DIRECTLY AFTER DEFINING INSIDE INSTALL.OBJFONT)" 171Q "Installing font on IRIS: " 116Q "font being redefined" 66Q "Charset for spline font not in core:") OPENIRISSTREAM D1 (P 5 TEMPCONN P 4 IRISSTREAM P 3 HOST P 2 IRISDATA I 1 OPTIONS I 0 NSHOSTNUMBER F 6 IRISCONN F 7 \IRIS.BITPLANES F 10Q \IRISSTREAM F 11Q \IRISCOLORMAPCACHE) w`hW HdIdmhhHdI hddddddddhHdI djdjdj@`ggglg Ko AgcAgAYV SKMK dgKl V l ,dgKV l gK g'gWKdl g'gh[K ]oK Lgg Lg L`&LJ(JMJM JWJhW JmJ`  Jc d VL Lc(561Q CLEARIRIS 554Q IRIS.GINIT 536Q COPY 512Q COLORMAPCREATE 466Q SPPOUTPUTSTREAM 416Q STREAMADDPROP 403Q ERROR 371Q OPEN.IRISCONN 351Q UNPACKFILENAME 333Q NILL 317Q UNPACKFILENAME 303Q \LOADNSHOSTNUMBER 275Q SPP.DESTADDRESS 256Q \LOADNSHOSTNUMBER 250Q SPP.DESTADDRESS 244Q \LOADNSHOSTNUMBER 225Q TYPENAME 214Q SPP.OPENP 166Q ERROR 152Q OPENSTREAM 11Q COLORMAPCREATE) (544Q IRISDATA 533Q WHOLESCREEN 530Q IRISDATA 520Q IRISDATA 504Q IRISDATA 474Q IRISDATA 462Q IRISDATA 453Q IRISDATA 444Q STREAM 436Q \IRISIMAGEOPS 433Q STREAM 425Q \OUTCHARFN.IRIS 422Q STREAM 413Q \CLOSEF.IRIS 410Q BEFORECLOSE 360Q LPT 354Q HOST 326Q LPT 322Q HOST 311Q LITATOM 265Q LISTP 231Q NSADDRESS 204Q RECONNECT 173Q RECONNECT 146Q BINARY 141Q NEW 136Q OUTPUT 133Q {NODIRCORE}IRIS.SCRATCH 130Q IRISNSHOSTNUMBER 2 IRISDATATYPE#) ( 377Q "Iris did not respond to connection attempt" 163Q "IRISNSHOSTNUMBER must be supplied") \CLOSEF.IRIS D1 (I 0 IRISSTREAM) @( g (23Q RETFROM 15Q FORCEOUTPUT) (20Q CLOSEF 10Q IRISDATA 3 STREAM) () R D1 NIL ho (7 OPENIRISSTREAM) NIL ( 4 (DONTCONNECT)) SPPINPUTSTREAM D1 (L (0 OUTPUTSTREAM)) @ d6NIL (12Q SPPCON 3 STREAM) () TRYGRAPHER D1 (P 0 vars... I 0 DONTSETUP? F 1 G F 2 BLUE F 3 WHITE F 4 \IRISSTREAM) _ohdglhdg  c@:lxkon jdnu0jddd l R S QT h(133Q DISPLAYGRAPH 125Q IRIS.COLOR 120Q CLEAR 113Q IRIS.LINEWIDTH 105Q IRIS.LOOKAT 67Q IRIS.PERSPECTIVE 51Q IRIS.GCONFIG 45Q IRIS.SINGLEBUFFER 41Q IRIS.GRESET 31Q LAYOUTSEXPR 26Q FONTCREATE) (22Q IRIS 13Q GACHA) ( 61Q -1750Q 6 (stu (wxy xxx) (xyzzy))) \BACKCOLOR.IRIS D1 (L (1 COLOR 0 STREAM)) A@(AA@(NIL (30Q IRISDATA 23Q STREAM 12Q IRISDATA 5 STREAM) () \BITBLT.IRIS D1 (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 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP F 0 \IRISSTREAM) /C goC @ABCDEFG P( (54Q FLUSHOUTPUT 36Q DRAWBITMAP 20Q ERROR 3 IMAGESTREAMTYPE) (47Q IRISDATA 42Q STREAM 6 IRIS) ( 14Q "Destination not IRIS stream: ") \BLTSHADE.IRIS D1 (P 3 PUSHED P 2 ECOLOR P 1 SPPOUT P 0 IRISDATA I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 IRISSTREAM I 0 TEXTURE) dA(H@JdA ZiA J7lBC BDC BDCE BCE hI KA I A (137Q IRIS.COLOR 132Q FORCEOUTPUT 124Q IRIS.POPATTRIBUTES 115Q IRIS.POLF2 104Q CREATEPOSITION 75Q CREATEPOSITION 64Q CREATEPOSITION 55Q CREATEPOSITION 42Q IRIS.PUSHATTRIBUTES 32Q \IRIS.ASSURE.COLOR) (14Q IRISDATA 3 STREAM) () \FONTCREATE.IRIS D1 (P 0 WIDTHS I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 5 FONTDESC F 6 CSINFO F 7 SCALE) Pkc`dgd@dAdBdCni dI(c d(jUi c dhUAV V Z JcVXljLKHLHLWjLk\UAUWV jUWV jU(100Q \CREATECHARSET 53Q \ALLOCBLOCK) (254Q CHARSETINFO 246Q FONTDESCRIPTOR 233Q CHARSETINFO 225Q FONTDESCRIPTOR 216Q FONTDESCRIPTOR 147Q CHARSETINFO 130Q CHARSETINFO 122Q CHARSETINFO 116Q FLOATP 112Q FONTDESCRIPTOR 15Q IRIS 10Q FONTDESCRIPTORTYPE#) () \FONTSAVAILABLE.IRIS D1 (P 12Q SSIZE P 7 FFAMILY P 3 ROTATIONS P 2 FACES P 1 SIZES P 0 FAMILIES I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY F 23Q IRISFONTFAMILIES F 24Q IRISFONTSIZES F 25Q IRISFONTROTATIONS) @W& @AdgW(Bdgo hCdgW*H!MNM_hM_MNI! O O O_hO_O_O0 J dKAO-O_OO__O _ _OO_$hO_$O_OOLO$gh_"O O"h_ _O"&_ (250Q LAST 240Q \NCONC2 131Q \NCONC2 42Q \FONTFACE 5 MEMB) (316Q IRIS 51Q * 27Q * 15Q *) ( 36Q ((MEDIUM REGULAR REGULAR) (MEDIUM ITALIC REGULAR) (BOLD REGULAR REGULAR) (BOLD ITALIC REGULAR))) \LEFTMARGIN.IRIS D1 (L (1 STREAM 0 MARGIN)) jNIL NIL () \RESET.IRIS D1 (I 0 IRISSTREAM) *h@ h@ HHkh@ @ (47Q MOVETO 35Q DSPFONT 11Q DSPCLIPPINGREGION 4 DSPLEFTMARGIN) (40Q FONTDESCRIPTOR) () \LOOKUPRGB D1 (P 4 CM P 3 I P 1 INDEX P 0 CACHE I 1 IRISDATA I 0 RGB F 5 LEVELS F 6 COLORMAPCACHE F 7 \IRIS.BITPLANES) nA@H Y'lW jAKJhYd @IVc ILKg U$LKg ULKg UKiKk[(132Q COLORLEVEL 114Q COLORLEVEL 77Q COLORLEVEL 27Q EXPT 15Q SASSOC) (127Q BLUE 111Q GREEN 74Q RED 34Q IRISDATA 3 IRISDATA) () \PSPLINE.TO.BEZIER.GEOMETRY D1 (L (1 KNOT# 0 SPLINE)) @A(@A(jhhdjhhdjhhdjhhHH@A(lHH@A(lHH@A(@A(lHH@A(@A(lHH@A(@A(@A(HH@A(@A(@A(HNIL NIL () \SCALE.IRIS D1 (I 1 SCALE I 0 STREAM) Ak(6 ERROR) NIL () \SCALE.SPLINE.BY.DERIVS D1 (L (0 SPLINE)) f@k@@@@IH8JIJI(o*KIKI(o*LILI(o*MIMI(o*IkYhNIL NIL ( 131Q 6.0 115Q 6.0 101Q 2.0 65Q 2.0) \STRINGWIDTH.IRIS D1 (P 3 CH P 0 STRING I 2 RDTBL I 1 FONT I 0 STR) i@ HjRIkٽIMIؼICjhi_Mk]L7ONMNM»JA A(KKA KljԺJ(125Q \CREATECHARSET 3 MKSTRING) (102Q FONTDESCRIPTOR) () \TERPRI.IRIS D1 (I 0 STREAM) 6h@ h@ h@ @ jh@ @ @( (63Q FLUSHOUTPUT 44Q DSPRESET 36Q DSPYPOSITION 30Q MOVETO 16Q DSPFONT 11Q DSPYPOSITION 4 DSPLEFTMARGIN) (56Q IRISDATA 51Q STREAM 21Q FONTDESCRIPTOR) () \FONT.IRIS D1 (P 0 IRISDATA I 1 FONTDESC I 0 IRISSTREAM) CA5@(Ad`gAg bHA@j A@((63Q \CHANGECHARSET.IRIS 44Q \COERCEFONTDESC) (76Q IRISDATA 71Q STREAM 53Q IRISDATA 41Q IRIS 33Q IRIS 26Q FONTDESCRIPTOR 21Q FONTDESCRIPTORTYPE# 6 STREAM) () \CREATECHARSET.IRIS D1 (P 14Q CHARDESC P 13Q I P 4 FONTARRAY P 3 CSINFO P 2 WIDTHS P 1 MAXHEIGHT P 0 FONTARRAY I 7 NOSLUG? I 6 FONTDESC I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 15Q FILES F 16Q IRISFONTDIRECTORIES F 17Q \IRIS.DEBUG F 20Q SCALE)  @E k HLW@g g cGhjdd `oW WWW@E @E Xo `l dMl dN[dZlk OO@HO(_(JOgOIgO_dOOYJOjOk_KIoj KIoj F ,lj__OOJOJOW jOk_K(151Q \ALLOCBLOCK 136Q \ALLOCBLOCK 124Q SHOULDNT 113Q \LOOKUPSPLINEFONT 105Q READ.SPLINE.FONT 66Q PROMPTPRINT 50Q \BUILDSLUGCSINFO 32Q DIRECTORY 24Q PACK* 4 \LOOKUPSPLINEFONT) (343Q FONTDESCRIPTOR 325Q CHARSETINFO 307Q CHARSETINFO 237Q FIDUCIAL 223Q WIDTH 164Q CHARSETINFO 130Q CHARSETINFOTYPE# 54Q \IRIS.VERBOSE 27Q COLLECT 21Q *.*SF) ( 332Q .3 314Q .7 121Q "Inside \FONTCREATE.IRIS, some SFFONTS were found, but reading them did not produce an entry in \SPLINEFONTSINCORE" 61Q "Reading the following spline font files: ") \IRISSETFONTBASE D1 (I 3 FONTBASE I 2 IRISDATA I 1 CHARSET I 0 FAMILY) @ACB (14Q PUTASSOC) (7 IRISDATA) () \IRISFONTBASE D1 (I 2 IRISDATA I 1 CHARSET I 0 FAMILY) @AB (13Q SASSOC) (6 IRISDATA) () \CHANGECHARSET.IRIS D1 (P 3 FONTDESC P 2 BASE P 1 CSINFO P 0 IRISDATA I 1 CHARSET I 0 IRISSTREAM) h@(1H[HK(AAK YKAH ZdKAhdd@I KAH HJHAA(125Q \IRISFONTBASE 111Q INSTALL.OBJFONT 65Q \IRISFONTBASE 42Q \CREATECHARSET) (141Q IRISDATA 132Q IRISDATA 116Q FONTDESCRIPTOR 75Q FONTDESCRIPTOR 56Q FONTDESCRIPTOR 46Q CHARSETINFO 23Q IRISDATA 14Q IRISDATA 3 STREAM) () \CHARWIDTH.IRIS D1 (I 1 FONT I 0 CHARCODE) %A A(@@A @lj(26Q \CREATECHARSET) (3 FONTDESCRIPTOR) () \OUTCHARFN.IRIS D1 (P 5 SCALE P 4 PUSHEDATTRIBUTES P 3 FONTDESC P 2 OBJNO P 1 SPPOUT P 0 IRISDATA I 1 CHARCODE I 0 IRISSTREAM F 6 WIDTH F 7 ZAXIS)  @(QHH[gl hdg @ HA@A HAZAl @ g oJ HAlc jVI h@ h@ jI K ]ddI KgiI lI KgmWI LI JI I HAjj@ @(  |g(400Q \FZEROP 374Q FLUSHOUTPUT 356Q RELMOVETO 335Q IRIS.POPMATRIX 331Q IRIS.CALLOBJ 323Q IRIS.POPATTRIBUTES 314Q IRIS.ROTATE 266Q IRIS.LINEWIDTH 257Q IRIS.PUSHATTRIBUTES 235Q IRIS.SCALE 220Q IRIS.TRANSLATE 213Q DSPYPOSITION 206Q DSPXPOSITION 201Q IRIS.PUSHMATRIX 136Q SHOULDNT 125Q NILL 116Q \TERPRI.IRIS 73Q \CHANGECHARSET.IRIS 52Q DSPFONT 46Q FONTCREATE) (407Q the 367Q IRISDATA 362Q STREAM 341Q IRISDATA 302Q ITALIC 273Q FONTDESCRIPTOR 247Q BOLD 241Q FONTDESCRIPTOR 224Q FONTDESCRIPTOR 143Q IRISDATA 122Q ZEROP 100Q IRISDATA 57Q IRISDATA 42Q IRIS 33Q GACHA 23Q IRISDATA 14Q IRISDATA 3 STREAM) ( 132Q "\CHANGECHARSET.IRIS has not guaranteed that char 0 is defined. Obj = ") \CLIPPINGREGION.IRIS D1 (L (1 REGION 0 STREAM)) A@(AA@(NIL (30Q IRISDATA 23Q STREAM 12Q IRISDATA 5 STREAM) () \CLOSEFN.IRIS D1 (I 0 STR F 0 IRISCONN) P (3 FORCEOUTPUT) NIL () \COLOR.IRIS D1 (I 1 COLOR I 0 STREAM) &A@( @ @( (43Q IRIS.COLOR 25Q \IRIS.ASSURE.COLOR 20Q IRIS.GETCOLOR) (36Q IRISDATA 31Q STREAM 13Q IRISDATA 6 STREAM) () \IRIS.ASSURE.COLOR D1 (P 0 LEVELS I 1 IRISSTREAM I 0 COLOR#) @d3 ll@ X o@ b@ l@b@ @ X8@ @X/@d`# kjJIK@JkhԻJkZKl HA( @o (217Q ERROR 205Q \LOOKUPRGB 171Q \ILLEGAL.ARG 130Q BITMAPWIDTH 107Q RGBP 100Q HLSTORGB 73Q HLSP 53Q LENGTH 40Q ERROR 25Q \LOOKUPCOLORNAME) (200Q STREAM 122Q BITMAPTYPE#) ( 214Q "not available in color map" 34Q "Unknown color name") \DRAWCIRCLE.IRIS D1 (P 4 PUSHED P 3 EDASHING P 2 EWIDTH P 1 ECOLOR P 0 SPPOUT I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 Y I 1 X I 0 IRISSTREAM F 5 \IRIS.VERSION) @(DDk DhEId@ YKd [IJdUiH IJ2UdgJH "H gJllH oU KkKH kH jH ABCH LH (231Q IRIS.POPATTRIBUTES 222Q IRIS.CIRC 212Q IRIS.RESETLS 204Q IRIS.SETLINESTYLE 176Q IRIS.DEFLINESTYLE 164Q ERROR 153Q IRIS.LINEWIDTH 130Q IRIS.COLOR 122Q IRIS.LINEWIDTH 76Q IRIS.PUSHATTRIBUTES 60Q \CONVERTLINESTYLE.IRIS 51Q \IRIS.ASSURE.COLOR 30Q EQP) (136Q GL1 112Q GL2 10Q IRISDATA 3 STREAM) ( 160Q "UNKNOWN VERSION") \DRAWCURVE.IRIS D1 (P 7 KNOT# P 5 PUSHED P 4 EDASHING P 3 EWIDTH P 2 ECOLOR P 1 SPLINE P 0 SPPOUT I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 IRISSTREAM F 10Q \IRIS.VERSION F 11Q GEOMETRY F 12Q \BEZIERBASIS.IRIS) @(CCk ChDJd@ Ld JKLXiH JK5WdgKH $H gKllH oW LkLH kH jH AB@( Y IkkON>IO cWdgl WWH gWH oW Ok_MH I(364Q IRIS.POPATTRIBUTES 344Q ERROR 332Q IRIS.CRV 315Q IRIS.CURVE 267Q \PSPLINE.TO.BEZIER.GEOMETRY 242Q \SCALE.SPLINE.BY.DERIVS 236Q PARAMETRICSPLINE 215Q IRIS.RESETLS 207Q IRIS.SETLINESTYLE 201Q IRIS.DEFLINESTYLE 167Q ERROR 155Q IRIS.LINEWIDTH 131Q IRIS.COLOR 123Q IRIS.LINEWIDTH 76Q IRIS.PUSHATTRIBUTES 60Q \CONVERTLINESTYLE.IRIS 51Q \IRIS.ASSURE.COLOR 30Q EQP) (322Q GL2 300Q GL1 231Q IRISDATA 224Q STREAM 137Q GL1 113Q GL2 10Q IRISDATA 3 STREAM) ( 337Q "UNKNOWN IRIS VERSION" 162Q "UNKNOWN VERSION") \DRAWLINE.IRIS D1 (P 6 PUSHED P 5 EDASHING P 4 EWIDTH P 3 ECOLOR P 2 SPPOUT P 1 PUSHEDATTRIBUTES P 0 IRISDATA I 10Q DASHING I 7 COLOR I 6 OPERATION I 5 WIDTH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 IRISSTREAM F 7 \IRIS.VERSION)  @(!HZGEGKd@ Md KLMXi@ KL5WdgL@ $@ gLll@ oW MkM@ kJ jJ ABHJ HCCHDDHJ N@ h(264Q IRIS.POPATTRIBUTES 254Q IRIS.DRAW 217Q IRIS.MOVE 202Q IRIS.RESETLS 174Q IRIS.SETLINESTYLE 166Q IRIS.DEFLINESTYLE 154Q ERROR 142Q IRIS.LINEWIDTH 116Q IRIS.COLOR 110Q IRIS.LINEWIDTH 63Q IRIS.PUSHATTRIBUTES 45Q \CONVERTLINESTYLE.IRIS 36Q \IRIS.ASSURE.COLOR) (246Q IRISDATA 235Q IRISDATA 224Q IRISDATA 211Q IRISDATA 124Q GL1 100Q GL2 14Q IRISDATA 3 STREAM) ( 147Q "UNKNOWN VERSION") \CONVERTLINESTYLE.IRIS D1 (P 3 PIX P 2 FLAG P 1 RESULT I 0 DASHING) 3@jkHll kIIK JlK kHkJٺ(43Q EXPT 34Q LLSH 20Q EXPT) NIL () \IRISSTREAMINITA0034 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) () \IRISSTREAMINIT D1 (F 0 \FACT.IRIS) :`dgdgdg dgdgdgdg,dgdg dg dgdgdgdgdgdg2dg4dgdgdgdg"dg$dg&dg(dg8dg0dgdg@dgBdgHdgFdgDdg:dg6dg.dg*ljoj cdjo*Pko*Plo*Plo*`(424Q ARRAY) (467Q \IRISIMAGEOPS 411Q \IRISIMAGEOPS 403Q NILL 374Q NILL 365Q NILL 356Q \IRISSTREAMINITA0034 347Q NILL 340Q NILL 331Q NILL 322Q \FILLPOLYGON.IRIS 313Q \DRAWPOLYGON.IRIS 304Q \RESET.IRIS 275Q \CLIPPINGREGION.IRIS 266Q \COLOR.IRIS 257Q \BACKCOLOR.IRIS 250Q \ILLEGALARG 241Q \ILLEGALARG 232Q \TERPRI.IRIS 223Q \SCALE.IRIS 214Q \ILLEGALARG 205Q \BITBLT.IRIS 176Q \BLTSHADE.IRIS 167Q \CHARWIDTH.IRIS 160Q \STRINGWIDTH.IRIS 151Q \FILLCIRCLE.IRIS 142Q \DRAWELLIPSE.IRIS 133Q \DRAWCIRCLE.IRIS 124Q \DRAWCURVE.IRIS 115Q \ILLEGALARG 106Q \ILLEGALARG 77Q \LEFTMARGIN.IRIS 70Q \DRAWLINE.IRIS 61Q IRIS 52Q \FONT.IRIS 43Q \YPOSITION.IRIS 34Q \XPOSITION.IRIS 25Q \MOVETO.IRIS 16Q \CLOSEFN.IRIS 7 IRIS 2 IMAGEOPSTYPE#) ( 463Q 6.0 453Q 2.0 443Q 1.0 434Q 1.0 420Q 0.0) \MOVETO.IRIS D1 (P 0 IRISDATA I 2 YPOS I 1 XPOS I 0 IRISSTREAM) ,@(HAAHBBHH (51Q IRIS.MOVE) (44Q IRISDATA 36Q IRISDATA 25Q IRISDATA 14Q IRISDATA 3 STREAM) () \XPOSITION.IRIS D1 (P 0 IRISDATA I 1 XPOS I 0 IRISSTREAM F 2 \IRISSTREAM) H@(A"HAAHHH AHHhdddR YI(100Q IRIS.GETGPOS 51Q IRIS.MOVE) (67Q IRISDATA 57Q IRISDATA 44Q IRISDATA 36Q IRISDATA 30Q IRISDATA 17Q IRISDATA 3 STREAM) () \YPOSITION.IRIS D1 (P 0 IRISDATA I 1 YPOS I 0 IRISSTREAM) 4@(A"HHAAHH AH(51Q IRIS.MOVE) (57Q IRISDATA 44Q IRISDATA 36Q IRISDATA 25Q IRISDATA 17Q IRISDATA 3 STREAM) () \FILLCIRCLE.IRIS D1 (P 3 PUSHED P 2 ECOLOR P 1 SPPOUT P 0 IRISDATA I 4 TEXTURE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 IRISSTREAM) PCd3jC bC @(1HDZd@ Zdi@ JABCI K@ @ (113Q IRIS.COLOR 106Q IRIS.POPATTRIBUTES 77Q IRIS.CIRCF 64Q IRIS.PUSHATTRIBUTES 53Q \IRIS.ASSURE.COLOR 22Q \ILLEGAL.ARG 12Q FIXR) (40Q IRISDATA 27Q STREAM) () \DRAWELLIPSE.IRIS D1 (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 IRISSTREAM) fE_oESo@AIDBHD AHCBIC AIDBHD AHCBIC hiFG AB@ h (142Q SIN 135Q COS 130Q MOVETO 122Q \DRAWCURVE.IRIS 105Q CREATEPOSITION 70Q CREATEPOSITION 53Q CREATEPOSITION 36Q CREATEPOSITION) NIL ( 15Q 1.0 6 0.0) \FILLPOLYGON.IRIS D1 (P 6 POLY P 3 SPPOUT P 2 PUSHEDATTRIBUTES P 1 COLOR P 0 IRISDATA I 3 CONVEX? I 2 TEXTURE I 1 POINTS I 0 IRISSTREAM) @(QB@ YH[IiK IK CFA ;dN 0 N d\Lh_O Oh_O&_OK ư5A 0 A d]Mh_O Oh_O&_OK JK (245Q IRIS.POPATTRIBUTES 235Q IRIS.POLF2 157Q LENGTH 144Q IRIS.POLF2 66Q LENGTH 53Q TRAPLOOP 43Q IRIS.COLOR 35Q IRIS.PUSHATTRIBUTES 15Q \IRIS.ASSURE.COLOR) (22Q IRISDATA 3 STREAM) () \IRIS.BITBLT D1 (P 13Q STREAM P 12Q VALUE P 11Q ALONG P 10Q X P 6 STREAM P 5 VALUE P 4 Y P 2 NLONGS P 1 SPPOUT P 0 COLOR 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 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE) d hC C(EGELKBDELI Il!IlV!Il"!IFl!IFl!FkZIM dg$jMNl!NlNj!Nj!NM!NMl(dgMj°dgMkgMl…NMl!AFkA OO@OLhH@OkLhH_OlljIl.!OI O dg-jOOl!OlOj!Oj!OO!OOl.dgOj°"dgOk°gOl‡OOl!Ol_]Lk\h(356Q TYPENAME 126Q TYPENAME 51Q IRIS.CMOV2I 4 DSPCOLOR) (475Q IRIS.SEND8 461Q IRIS.SEND8 444Q IRIS.SEND8 362Q SMALLP 231Q IRIS.SEND8 217Q IRIS.SEND8 203Q IRIS.SEND8 132Q SMALLP 15Q IRISDATA 10Q STREAM) () \DRAWPOLYGON.IRIS D1 (P 2 SPPOUT P 1 COLOR P 0 IRISDATA I 2 TEXTURE I 1 POINTS I 0 IRISSTREAM F 3 PUSHEDATTRIBUTES F 4 INDEX) J@(!BB BH cYHZIicJ IJ A AJ SJ h(106Q IRIS.POPATTRIBUTES 77Q IRIS.POLY2 72Q LENGTH 65Q IRIS.COLOR 57Q IRIS.PUSHATTRIBUTES 33Q \LOOKUPRGB 22Q RGBP) (42Q IRISDATA 3 STREAM) () ALIGN D1 (I 0 STREAM F 0 \IRISSTREAM) @ P( (20Q IRIS.GETCOLOR) (13Q IRISDATA 6 STREAM) () (PRETTYCOMPRINT IRISSTREAMCOMS) (RPAQQ IRISSTREAMCOMS ((FILES SFFONT COLOR) (ADDVARS (IMAGESTREAMTYPES (IRIS (OPENSTREAM OPENIRISSTREAM) (FONTCREATE \FONTCREATE.IRIS) (FONTSAVAILABLE \FONTSAVAILABLE.IRIS) (CREATECHARSET \CREATECHARSET.IRIS)))) (GLOBALVARS \IRIS.VERBOSE IRISNSHOSTNUMBER) (INITVARS (\IRIS.VERBOSE T) ( IRISFONTDIRECTORIES (QUOTE {ERIS}SF>)) (\CHARSEGMENTS.IRIS 10) (\IRIS.VERSION (QUOTE GL2)) ( \IRIS.BITPLANES 4) (IRISFONTFAMILIES (QUOTE (GACHA TIMESROMAN))) (IRISFONTROTATIONS (QUOTE (0))) ( IRISFONTSIZES (QUOTE (8 10 12 14 18 24)))) (VARS ZAXIS \BEZIERBASIS.IRIS (\IRISSTREAMS NIL) \IRIS.DEBUG \IRISCOLORMAPCACHE) (FNS BOXSCREEN CLEARIRIS DRAWBITMAP IRISBITMAP FILLPOLYGON INSTALL.OBJFONT OPENIRISSTREAM \CLOSEF.IRIS R SPPINPUTSTREAM TRYGRAPHER \BACKCOLOR.IRIS \BITBLT.IRIS \BLTSHADE.IRIS \FONTCREATE.IRIS \FONTSAVAILABLE.IRIS \LEFTMARGIN.IRIS \RESET.IRIS \LOOKUPRGB \PSPLINE.TO.BEZIER.GEOMETRY \SCALE.IRIS \SCALE.SPLINE.BY.DERIVS \STRINGWIDTH.IRIS \TERPRI.IRIS \FONT.IRIS \CREATECHARSET.IRIS \IRISSETFONTBASE \IRISFONTBASE \CHANGECHARSET.IRIS \CHARWIDTH.IRIS \OUTCHARFN.IRIS \CLIPPINGREGION.IRIS \CLOSEFN.IRIS \COLOR.IRIS \IRIS.ASSURE.COLOR \DRAWCIRCLE.IRIS \DRAWCURVE.IRIS \DRAWLINE.IRIS \CONVERTLINESTYLE.IRIS \IRISSTREAMINIT \MOVETO.IRIS \XPOSITION.IRIS \YPOSITION.IRIS \FILLCIRCLE.IRIS \DRAWELLIPSE.IRIS \FILLPOLYGON.IRIS \IRIS.BITBLT \DRAWPOLYGON.IRIS ALIGN) (* * test functions) (DECLARE: EVAL@LOAD DONTCOPY (P (LOADDEF (QUOTE SPLINE) (QUOTE RECORD) ( QUOTE ADISPLAY)))) (RECORDS BEZIER IRISDATA IRISSTREAM SPLINE) (CONSTANTS (\ALTLINESTYLE.IRIS 1) ( \IRIS.ITALICS.ROTATION -100) (\PRIMARYLINESTLE.IRIS 0) (\IRIS.BOLD.LINEWIDTH 2)) (P (\IRISSTREAMINIT) (SETFONTCLASSCOMPONENT DEFAULTFONT (QUOTE IRIS) (QUOTE (GACHA 12)))) (ADDVARS (DEFAULTPRINTINGHOST ( IRIS Iris)) (PRINTERTYPES (IRIS (CANPRINT (IRIS)) (BITMAPFILE (IRISBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))) (P (PUTPROP (QUOTE Iris) (QUOTE PRINTERTYPE) (QUOTE IRIS))) (PROP PRINTERTYPE Iris) (MACROS WITH.IRIS.ATTR))) (FILESLOAD SFFONT COLOR) (ADDTOVAR IMAGESTREAMTYPES (IRIS (OPENSTREAM OPENIRISSTREAM) (FONTCREATE \FONTCREATE.IRIS) ( FONTSAVAILABLE \FONTSAVAILABLE.IRIS) (CREATECHARSET \CREATECHARSET.IRIS))) (RPAQ? \IRIS.VERBOSE T) (RPAQ? IRISFONTDIRECTORIES (QUOTE {ERIS}SF>)) (RPAQ? \CHARSEGMENTS.IRIS 10) (RPAQ? \IRIS.VERSION (QUOTE GL2)) (RPAQ? \IRIS.BITPLANES 4) (RPAQ? IRISFONTFAMILIES (QUOTE (GACHA TIMESROMAN))) (RPAQ? IRISFONTROTATIONS (QUOTE (0))) (RPAQ? IRISFONTSIZES (QUOTE (8 10 12 14 18 24))) (RPAQQ ZAXIS 90) (RPAQQ \BEZIERBASIS.IRIS ((-1.0 3.0 -3.0 1.0) (3.0 -6.0 3.0 0.0) (-3.0 3.0 0.0 0.0) (1.0 0.0 0.0 0.0)) ) (RPAQQ \IRISSTREAMS NIL) (RPAQQ \IRIS.DEBUG NIL) (RPAQQ \IRISCOLORMAPCACHE (((0 0 0) . 0) ((255 255 255) . 7) ((0 255 0) . 2) ((0 0 255) . 4) ((255 0 0 ) . 1) ((255 255 0) . 3) ((255 0 255) . 5) ((0 255 255) . 6))) (RECORD BEZIER ((B0X B0Y B0Z) (B1X B1Y B1Z) (B2X B2Y B2Z) (B3X B3Y B3Z)) B0Z _ 0 B1Z _ 0 B2Z _ 0 B3Z _ 0) (DATATYPE IRISDATA (IRISX IRISY IRISZ SPPOUTSTREAM SPPINSTREAM SCRATCHSPLINE FONTSINIRIS CURRENTFONTDESC HIFONT# CURRENTFONTBASE BACKCOLOR IRISCLIPPINGREGION IRISCOLORMAP IRISCOLORMAPCACHE IRISCHARSET IRISWIDTHSCACHE IRISPAGE) FONTSINIRIS _ (LIST NIL) IRISX _ 0 IRISY _ 0 IRISZ _ 0 SCRATCHSPLINE _ (create SPLINE) HIFONT# _ -255 IRISCOLORMAP _ (COLORMAPCREATE NIL \IRIS.BITPLANES)) (RECORD IRISSTREAM STREAM (SUBRECORD STREAM) (ACCESSFNS ((IRISDATA (FETCH (STREAM IMAGEDATA) OF DATUM) (REPLACE (STREAM IMAGEDATA) OF DATUM WITH NEWVALUE)))) (TYPE? (TYPE? IRISDATA OF (FETCH (STREAM IMAGEDATA) OF DATUM)))) (RECORD SPLINE (#KNOTS SPLINEX SPLINEY SPLINEDX SPLINEDY SPLINEDDX SPLINEDDY SPLINEDDDX SPLINEDDDY)) (/DECLAREDATATYPE (QUOTE IRISDATA) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((IRISDATA 0 POINTER) (IRISDATA 2 POINTER) (IRISDATA 4 POINTER) (IRISDATA 6 POINTER) (IRISDATA 8 POINTER) (IRISDATA 10 POINTER) (IRISDATA 12 POINTER) (IRISDATA 14 POINTER) (IRISDATA 16 POINTER) (IRISDATA 18 POINTER) ( IRISDATA 20 POINTER) (IRISDATA 22 POINTER) (IRISDATA 24 POINTER) (IRISDATA 26 POINTER) (IRISDATA 28 POINTER) (IRISDATA 30 POINTER) (IRISDATA 32 POINTER))) (QUOTE 34)) (RPAQQ \ALTLINESTYLE.IRIS 1) (RPAQQ \IRIS.ITALICS.ROTATION -100) (RPAQQ \PRIMARYLINESTLE.IRIS 0) (RPAQQ \IRIS.BOLD.LINEWIDTH 2) (CONSTANTS (\ALTLINESTYLE.IRIS 1) (\IRIS.ITALICS.ROTATION -100) (\PRIMARYLINESTLE.IRIS 0) ( \IRIS.BOLD.LINEWIDTH 2)) (\IRISSTREAMINIT) (SETFONTCLASSCOMPONENT DEFAULTFONT (QUOTE IRIS) (QUOTE (GACHA 12))) (ADDTOVAR DEFAULTPRINTINGHOST (IRIS Iris)) (ADDTOVAR PRINTERTYPES (IRIS (CANPRINT (IRIS)) (BITMAPFILE (IRISBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (PUTPROP (QUOTE Iris) (QUOTE PRINTERTYPE) (QUOTE IRIS)) (PUTPROPS Iris PRINTERTYPE IRIS) (DEFMACRO WITH.IRIS.ATTR (FORM SPPOUT IRISSTREAM &KEY (COLOR NIL COLORSET) (WIDTH NIL WIDTHSET) ( DASHING NIL DASHINGSET)) (BQUOTE (LET (PUSHED ., (if COLORSET then (BQUOTE ((ECOLOR , COLOR)))) ., (if WIDTHSET then (BQUOTE ((EWIDTH , WIDTH)))) ., (if DASHINGSET then (BQUOTE ((EDASHING , DASHING))))) ., (if COLORSET then (BQUOTE ((SETQ ECOLOR (AND ECOLOR (\IRIS.ASSURE.COLOR ECOLOR IRISSTREAM)))))) ., (if DASHINGSET then (BQUOTE ((SETQ EDASHING (AND EDASHING (\CONVERTLINESTYLE.IRIS EDASHING)))))) (IF ( OR ., (if COLORSET then (QUOTE (ECOLOR))) ., (if WIDTHSET then (QUOTE (EWIDTH))) ., (if DASHINGSET then (QUOTE (EDASHING)))) THEN (SETQ PUSHED T) (IRIS.PUSHATTRIBUTES , SPPOUT) ., (IF COLORSET THEN ( BQUOTE ((IF ECOLOR THEN (IRIS.COLOR ECOLOR , SPPOUT))))) ., (IF WIDTHSET THEN (BQUOTE ((IF EWIDTH THEN (SELECTQ \IRIS.VERSION (GL2 (IRIS.LINEWIDTH EWIDTH , SPPOUT)) (GL1 (if (IGREATERP EWIDTH 2) then NIL else (IRIS.LINEWIDTH 2 , SPPOUT))) (ERROR "UNKNOWN VERSION" \IRIS.VERSION)))))) ., (IF DASHINGSET THEN (BQUOTE ((IF EDASHING THEN (IRIS.DEFLINESTYLE \ALTLINESTYLE.IRIS EDASHING , SPPOUT) ( IRIS.SETLINESTYLE \ALTLINESTYLE.IRIS SPPOUT) (IRIS.RESETLS 0 SPPOUT)))))) , FORM (IF PUSHED THEN ( IRIS.POPATTRIBUTES , SPPOUT))))) NIL