(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 4-Feb-87 19:51:05" ("compiled on " {ERIS}NEXT>IRISSTREAM.;10) "21-Jan-87 21:13:09" brecompiled changes%: BOXSCREEN CLEARIRIS DRAWBITMAP IRIS.CONS.OBJNO IRISBITMAP 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 \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 in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 21:48:22") (FILECREATED " 4-Feb-87 19:48:57" {ERIS}NEXT>IRISSTREAM.;10 68566 changes to%: (RECORDS IRISDATA ) (FNS OPENIRISSTREAM CLEARIRIS DRAWBITMAP TRYGRAPHER \FONTCREATE.IRIS \OUTCHARFN.IRIS \IRISSTREAMINIT \IRIS.ASSURE.COLOR \LOOKUPRGB BOXSCREEN IRIS.CONS.OBJNO IRISBITMAP FILLPOLYGON INSTALL.OBJFONT \CLOSEF.IRIS R SPPINPUTSTREAM \BACKCOLOR.IRIS \BITBLT.IRIS \BLTSHADE.IRIS \FONTSAVAILABLE.IRIS \LEFTMARGIN.IRIS \RESET.IRIS \PSPLINE.TO.BEZIER.GEOMETRY \SCALE.IRIS \SCALE.SPLINE.BY.DERIVS \STRINGWIDTH.IRIS \TERPRI.IRIS \FONT.IRIS \CREATECHARSET.IRIS \IRISSETFONTBASE \IRISFONTBASE \CHANGECHARSET.IRIS \CHARWIDTH.IRIS \CLIPPINGREGION.IRIS \CLOSEFN.IRIS \COLOR.IRIS \DRAWCIRCLE.IRIS \DRAWCURVE.IRIS \DRAWLINE.IRIS \CONVERTLINESTYLE.IRIS \MOVETO.IRIS \XPOSITION.IRIS \YPOSITION.IRIS \FILLCIRCLE.IRIS \DRAWELLIPSE.IRIS \FILLPOLYGON.IRIS \IRIS.BITBLT \DRAWPOLYGON.IRIS ALIGN) (VARS IRISSTREAMCOMS \BEZIERBASIS.IRIS) previous date%: "16-Jan-87 18:14:11" {ERIS}NEXT>IRISSTREAM.;5) BOXSCREEN :D4 NIL Fjd`kjhd` `k`khd` j`khd` jdhd` ` (67 FLUSHOUTPUT 61 DRAWTO 50 DRAWTO 35 DRAWTO 16 DRAWLINE) (64 IRISCONN 57 \IRISSTREAM 46 \IRISSTREAM 39 SCREENHEIGHT 31 \IRISSTREAM 24 SCREENHEIGHT 19 SCREENWIDTH 12 \IRISSTREAM 4 SCREENWIDTH) () CLEARIRIS :D4 (I 1 IRISSTREAM I 0 IRIS-CONNECTION) A`b@`0b @ `A j`j`on@ gA k@ @ @ gA `dgl @ k`@ k@ go` A @ (143 SPP.FORCEOUTPUT 139 DSPRESET 134 ERROR 118 IRIS.CURVEBASIS 112 IRIS.DEFBASIS 103 IRIS.CURVEPRECISION 86 DSPCOLOR 79 IRIS.CLEAR 75 IRIS.CURSOFF 71 IRIS.LINEWIDTH 66 DSPCOLOR 59 IRIS.ORTHO 39 DSPCLIPPINGREGION 32 IRIS.GCONFIG 28 IRIS.SINGLEBUFFER) (131 \IRIS.VERSION 122 GL1 108 \BEZIERBASIS.IRIS 93 GL2 89 \IRIS.VERSION 82 BLUE 62 WHITE 47 SCREENHEIGHT 43 SCREENWIDTH 35 WHOLESCREEN 21 IRISDATA 16 STREAM 13 \IRISSTREAM 4 \IRISSTREAM) ( 128 "Unknown version of IRIS: " 51 -1000) DRAWBITMAP :D4 (P 15 END P 14 START P 13 BASE P 12 STATE P 11 X P 9 YBASE P 8 Y P 6 ROW 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) EdC DdC F@ G@ BjAjBKBj OOHOؾMJMgj$OOrOdgj@OOhjJO__g_;g,Od@OOh_$IONIONkhC g_oO Ok_Ok_OgIONIONkhC Ok_Ok_GIHC (242 MOVETO 216 DRAWLINE 174 SHOULDNT 158 DRAWLINE 28 BITMAPHEIGHT 20 BITMAPWIDTH 13 DSPXPOSITION 6 DSPYPOSITION) (196 COLLECT1S 162 SKIP0S 120 COLLECT1S 113 COLLECT1S 85 SKIP0S 68 SKIP0S) ( 169 "Unknown state: ") IRIS.CONS.OBJNO :D4 NIL `kNIL (7 \IV.HIGHOBJNO 2 \IV.HIGHOBJNO) () IRISBITMAP :D4 (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 (41 BKBITBLT 28 DSPYPOSITION 23 DSPXPOSITION 8 OPENIMAGESTREAM) (5 IRIS 2 {LPT}Iris.IRIS) () INSTALL.OBJFONT :D4 (P 14 I P 8 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) s`lableBkbClb@A E0j I_Ho@Ah @AI ]`o 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(351 IRIS.CLOSEOBJ 345 MOVETO 338 IRIS.MAKEOBJ 319 \FZEROP 303 IRIS.ISOBJ 292 \IRISSETFONTBASE 285 ALIGN 282 SPP.FORCEOUTPUT 274 ERROR 265 \FZEROP 253 PRIN1 247 CHARACTER 230 IRIS.ISOBJ 223 ALIGN 219 IRIS.CLOSEOBJ 213 SFDRAW 202 IRIS.MAKEOBJ 189 ELT 170 IRIS.CLOSEOBJ 164 IRIS.CURSOFF 158 IRIS.MAKEOBJ 150 \FZEROP 134 IRIS.ISOBJ 127 PROMPTPRINT 112 \ALLOCBLOCK 83 SHOULDNT 70 \IRISFONTBASE 63 ERROR 31 \LOOKUPSPLINEFONT) (250 PROMPTWINDOW 118 \IRIS.VERBOSE 93 IRISDATA 89 IRISDATA 75 \IRIS.DEBUG 45 IRISDATA 35 STREAM 2 \IRIS.DEBUG) ( 271 "(OBJECT FONT CHARACTER IS UNDEFINED DIRECTLY AFTER DEFINING INSIDE INSTALL.OBJFONT)" 123 "Installing font on IRIS: " 80 "font being redefined" 55 "Charset for spline font not in core:") OPENIRISSTREAM :D4 (P 5 TEMPCONN P 4 IRISSTREAM P 3 HOST P 2 IRISDATA I 1 OPTIONS I 0 NSHOSTNUMBER) g`dmhhHdI hddddddddhHdI djdjdj@`ggglg Ko AgkAgAa` YKRK dgKl ` l /dgK` l gK g'g`KK g'gh[K ]oK Lgg Lg(L`.LJ0JMJM J`JmJ`  Jd `L L(352 CLEARIRIS 345 IRIS.GINIT 330 COPY 301 SPPOUTPUTSTREAM 261 STREAMADDPROP 250 ERROR 240 OPEN.IRISCONN 224 UNPACKFILENAME 210 NILL 198 UNPACKFILENAME 186 \LOADNSHOSTNUMBER 180 SPP.DESTADDRESS 162 \LOADNSHOSTNUMBER 156 SPP.DESTADDRESS 150 \LOADNSHOSTNUMBER 135 TYPENAME 126 SPP.OPENP 102 ERROR 90 OPENSTREAM) (356 \IRISSTREAM 348 IRISCONN 341 IRISCONN 336 IRISDATA 327 WHOLESCREEN 324 IRISDATA 316 IRISDATA 310 \IRISCOLORMAPCACHE 307 IRISDATA 297 IRISDATA 290 IRISDATA 283 STREAM 277 \IRISIMAGEOPS 274 STREAM 268 \OUTCHARFN.IRIS 265 STREAM 258 \CLOSEF.IRIS 255 BEFORECLOSE 231 LPT 227 HOST 219 LITATOM 214 \IRISSTREAM 205 LPT 201 HOST 192 LITATOM 177 IRISCONN 169 LISTP 153 IRISCONN 139 NSADDRESS 123 IRISCONN 116 RECONNECT 107 RECONNECT 86 BINARY 81 NEW 78 OUTPUT 75 {NODIRCORE}IRIS.SCRATCH 72 IRISNSHOSTNUMBER 2 |IRISDATATYPE#|) ( 246 "Iris did not respond to connection attempt" 99 "IRISNSHOSTNUMBER must be supplied") \CLOSEF.IRIS :D4 (I 0 IRISSTREAM) @0 g (19 RETFROM 13 FORCEOUTPUT) (16 CLOSEF 8 IRISDATA 3 STREAM) () R :D4 NIL ho (7 OPENIRISSTREAM) NIL ( 4 (DONTCONNECT)) SPPINPUTSTREAM :D4 (P 0 CON I 0 OUTPUTSTREAM) @Hd6NIL (14 SPPCON 3 STREAM) () TRYGRAPHER :D4 (P 0 G I 0 DONTSETUP?) dohdglhdg  X@>lxkon jdnu0jddd l g g H` h(96 DISPLAYGRAPH 88 IRIS.COLOR 81 CLEAR 74 IRIS.LINEWIDTH 68 IRIS.LOOKAT 54 IRIS.PERSPECTIVE 40 IRIS.GCONFIG 36 IRIS.SINGLEBUFFER 32 IRIS.GRESET 25 LAYOUTSEXPR 22 FONTCREATE) (93 \IRISSTREAM 85 WHITE 78 BLUE 18 IRIS 11 GACHA) ( 48 -1000 6 (stu (wxy xxx) (xyzzy))) \BACKCOLOR.IRIS :D4 (I 1 COLOR I 0 STREAM) A@0AA@0NIL (24 IRISDATA 19 STREAM 10 IRISDATA 5 STREAM) () \BITBLT.IRIS :D4 (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 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) 1C goC @ABCDEFG `0 (46 FLUSHOUTPUT 30 DRAWBITMAP 16 ERROR 3 IMAGESTREAMTYPE) (41 IRISDATA 36 STREAM 33 \IRISSTREAM 6 IRIS) ( 12 "Destination not IRIS stream: ") \BLTSHADE.IRIS :D4 (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) dA0H@JdA ZiA J7lBC BDC BDCE BCE hI KA I A (95 IRIS.COLOR 90 FORCEOUTPUT 84 IRIS.POPATTRIBUTES 77 IRIS.POLF2 68 CREATEPOSITION 61 CREATEPOSITION 52 CREATEPOSITION 45 CREATEPOSITION 34 IRIS.PUSHATTRIBUTES 26 \IRIS.ASSURE.COLOR) (12 IRISDATA 3 STREAM) () \FONTCREATE.IRIS :D4 (P 3 CSINFO P 2 FONTDESC P 1 WIDTHS P 0 SCALE I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) kqkX`dgd@dAdBdCni dL(Zd(jJi [dhJAK K ] MXKYlj_ONIOIOHjOk_JAJHK jJHK jJ(63 \CREATECHARSET 43 \ALLOCBLOCK) (173 CHARSETINFO 168 FONTDESCRIPTOR 157 CHARSETINFO 152 FONTDESCRIPTOR 145 FONTDESCRIPTOR 100 CHARSETINFO 86 CHARSETINFO 80 CHARSETINFO 76 FLOATP 72 FONTDESCRIPTOR 13 IRIS 8 |FONTDESCRIPTORTYPE#|) () \FONTSAVAILABLE.IRIS :D4 (P 10 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 19 IRISFONTFAMILIES F 20 IRISFONTSIZES F 21 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"&_ (168 LAST 160 \NCONC2 89 \NCONC2 34 \FONTFACE 5 MEMB) (206 IRIS 41 * 23 * 13 *) ( 30 ((MEDIUM REGULAR REGULAR) (MEDIUM ITALIC REGULAR) (BOLD REGULAR REGULAR) (BOLD ITALIC REGULAR))) \LEFTMARGIN.IRIS :D4 (L (1 STREAM 0 MARGIN)) jNIL NIL () \RESET.IRIS :D4 (I 0 IRISSTREAM) *h@ h@ HHkh@ @ (39 MOVETO 29 DSPFONT 9 DSPCLIPPINGREGION 4 DSPLEFTMARGIN) (32 FONTDESCRIPTOR) () \LOOKUPRGBA0001 :D4 (L (1 Y 0 X)) @AjHHjHNIL NIL () \LOOKUPRGB :D4 (P 7 A1056 P 4 PAIR P 1 INDEX P 0 CACHE I 1 IRISDATA I 0 RGB) YA@H IHQJKYA@IHIg_g O@L MMNNLJZ(71 APPLY 68 CL:MAPCAR 60 CL:SYMBOL-FUNCTION 13 SASSOC) (57 + 51 \LOOKUPRGBA0001 35 IRISDATA 3 IRISDATA) () \PSPLINE.TO.BEZIER.GEOMETRY :D4 (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 H(254 ELT 240 ELT 228 ELT 204 ELT 191 ELT 180 ELT 157 ELT 145 ELT 119 ELT 108 ELT 86 ELT 63 ELT 14 ELT 6 ELT) NIL () \SCALE.IRIS :D4 (I 1 SCALE I 0 STREAM) Ak(6 ERROR) NIL () \SCALE.SPLINE.BY.DERIVS :D4 (L (0 SPLINE)) v@k@@@@IHHJIJI o KIKI o LILI o MIMI o IkYh(107 SETA 99 ELT 91 SETA 83 ELT 75 SETA 67 ELT 59 SETA 51 ELT) NIL ( 103 6.0 87 6.0 71 2.0 55 2.0) \TERPRI.IRIS :D4 (I 0 STREAM) 6h@ h@ h@ @ jh@ @ @0 (51 FLUSHOUTPUT 36 DSPRESET 30 DSPYPOSITION 24 MOVETO 14 DSPFONT 9 DSPYPOSITION 4 DSPLEFTMARGIN) (46 IRISDATA 41 STREAM 17 FONTDESCRIPTOR) () \FONT.IRIS :D4 (P 0 IRISDATA I 1 FONTDESC I 0 IRISSTREAM) AA3@0AAgAg bHA@j A@0(49 \CHANGECHARSET.IRIS 34 \COERCEFONTDESC) (60 IRISDATA 55 STREAM 41 IRISDATA 31 IRIS 25 IRIS 20 FONTDESCRIPTOR 15 FONTDESCRIPTOR 6 STREAM) () \CREATECHARSET.IRIS :D4 (P 14 CHARDESC P 13 I P 6 FILES P 5 SCALE 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) @E k HJ`@g g ^Ghjdd `oN `NN@E @E Xo `l _dOl _dO[dZlkOOBHO _(JOgOIgO_dOOYJOjOk_KIoj KIoj F ]+lj__OOJOJOMjOk_K(142 ELT 106 \ALLOCBLOCK 92 \ALLOCBLOCK 82 SHOULDNT 73 \LOOKUPSPLINEFONT 67 READ.SPLINE.FONT 53 PROMPTPRINT 40 \BUILDSLUGCSINFO 27 DIRECTORY 21 PACK* 4 \LOOKUPSPLINEFONT) (233 FONTDESCRIPTOR 219 CHARSETINFO 205 CHARSETINFO 165 FIDUCIAL 153 WIDTH 120 CHARSETINFO 86 |CHARSETINFOTYPE#| 57 \IRIS.DEBUG 44 \IRIS.VERBOSE 24 COLLECT 18 *.*SF 14 IRISFONTDIRECTORIES) ( 224 0.3 210 0.7 79 "Inside \FONTCREATE.IRIS, some SFFONTS were found, but reading them did not produce an entry in \SPLINEFONTSINCORE" 49 "Reading the following spline font files: ") \IRISSETFONTBASE :D4 (I 3 FONTBASE I 2 IRISDATA I 1 CHARSET I 0 FAMILY) @ACB (12 PUTASSOC) (7 IRISDATA) () \IRISFONTBASE :D4 (I 2 IRISDATA I 1 CHARSET I 0 FAMILY) @AB (11 SASSOC) (6 IRISDATA) () \CHANGECHARSET.IRIS :D4 (P 3 FONTDESC P 2 BASE P 1 CSINFO P 0 IRISDATA I 1 CHARSET I 0 IRISSTREAM) h@01H[HK(AAK YKAH ZdKAhdd@I KAH HJHAA(85 \IRISFONTBASE 73 INSTALL.OBJFONT 53 \IRISFONTBASE 34 \CREATECHARSET) (97 IRISDATA 90 IRISDATA 78 FONTDESCRIPTOR 61 FONTDESCRIPTOR 46 FONTDESCRIPTOR 38 CHARSETINFO 19 IRISDATA 12 IRISDATA 3 STREAM) () \CHARWIDTH.IRIS :D4 (I 1 FONT I 0 CHARCODE) %A A(@@A @lj(22 \CREATECHARSET) (3 FONTDESCRIPTOR) () \OUTCHARFN.IRIS :D4 (P 5 SCALE P 4 PUSHEDATTRIBUTES P 3 FONTDESC P 2 OBJNO P 1 SPPOUT P 0 IRISDATA I 1 CHARCODE I 0 IRISSTREAM)  @0aHhHh\Kgl hdg @ HA@A HAZAl @ oJ HAl^jNI h@ h@ jI K ]ddI KgiI lI KgmlZI LI JI I HAjj@ @0  |h(258 \FZEROP 254 FLUSHOUTPUT 240 RELMOVETO 223 IRIS.POPMATRIX 219 IRIS.CALLOBJ 213 IRIS.POPATTRIBUTES 206 IRIS.ROTATE 184 IRIS.LINEWIDTH 177 IRIS.PUSHATTRIBUTES 159 IRIS.SCALE 146 IRIS.TRANSLATE 141 DSPYPOSITION 136 DSPXPOSITION 131 IRIS.PUSHMATRIX 97 SHOULDNT 88 NILL 84 \TERPRI.IRIS 65 \CHANGECHARSET.IRIS 48 DSPFONT 44 FONTCREATE) (249 IRISDATA 244 STREAM 227 IRISDATA 196 ITALIC 189 FONTDESCRIPTOR 169 BOLD 163 FONTDESCRIPTOR 150 FONTDESCRIPTOR 102 IRISDATA 70 IRISDATA 53 IRISDATA 40 IRIS 33 GACHA 21 IRISDATA 12 IRISDATA 3 STREAM) ( 93 "\CHANGECHARSET.IRIS has not guaranteed that char 0 is defined. Obj = ") \CLIPPINGREGION.IRIS :D4 (I 1 REGION I 0 STREAM) A@0AA@0NIL (24 IRISDATA 19 STREAM 10 IRISDATA 5 STREAM) () \CLOSEFN.IRIS :D4 (I 0 STR) ` (5 FORCEOUTPUT) (2 IRISCONN) () \COLOR.IRIS :D4 (I 1 COLOR I 0 STREAM) &A@0 @ @0 (35 IRIS.COLOR 21 \IRIS.ASSURE.COLOR 16 IRIS.GETCOLOR) (30 IRISDATA 25 STREAM 11 IRISDATA 6 STREAM) () \IRIS.ASSURE.COLOR :D4 (P 2 I P 0 LEVELS I 1 IRISSTREAM I 0 COLOR#) @dzd3 l dl X o@ b @ XI@ @X@@d @b@$@ kjJIK@JkhԻJkZKl@ HA0 @o (148 ERROR 138 \LOOKUPRGB 126 \ILLEGAL.ARG 92 BITMAPWIDTH 73 RGBP 59 RGBP 52 HLSTORGB 47 HLSP 37 ERROR 26 \LOOKUPCOLORNAME 15 IMOD) (133 STREAM 86 BITMAP) ( 145 "not available in color map" 33 "Unknown color name") \DRAWCIRCLE.IRIS :D4 (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) @0DDk DhEId@ YKd [IJdZiH IJ7`dgJH %H gJllH o` KkKH kH jH ABCH LH (158 IRIS.POPATTRIBUTES 151 IRIS.CIRC 143 IRIS.RESETLS 137 IRIS.SETLINESTYLE 131 IRIS.DEFLINESTYLE 121 ERROR 110 IRIS.LINEWIDTH 90 IRIS.COLOR 84 IRIS.LINEWIDTH 62 IRIS.PUSHATTRIBUTES 48 \CONVERTLINESTYLE.IRIS 41 \IRIS.ASSURE.COLOR 24 EQP) (118 \IRIS.VERSION 96 GL1 76 GL2 72 \IRIS.VERSION 8 IRISDATA 3 STREAM) ( 115 "UNKNOWN VERSION") \DRAWCURVE.IRIS :D4 (P 8 KNOT# P 6 PUSHED P 5 EDASHING P 4 EWIDTH P 3 ECOLOR P 2 SPLINE P 1 GEOMETRY P 0 SPPOUT I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 IRISSTREAM) @0!CCk ChDKd@ Md KLMZiH KL7`dgLH %H gLllH o` MkMH kH jH AB@0 Z JkkOO=JO `dgl `IH gIH o` Ok_NH J(246 IRIS.POPATTRIBUTES 230 ERROR 219 IRIS.CRV 207 IRIS.CURVE 186 \PSPLINE.TO.BEZIER.GEOMETRY 164 \SCALE.SPLINE.BY.DERIVS 160 PARAMETRICSPLINE 143 IRIS.RESETLS 137 IRIS.SETLINESTYLE 131 IRIS.DEFLINESTYLE 121 ERROR 110 IRIS.LINEWIDTH 90 IRIS.COLOR 84 IRIS.LINEWIDTH 62 IRIS.PUSHATTRIBUTES 48 \CONVERTLINESTYLE.IRIS 41 \IRIS.ASSURE.COLOR 24 EQP) (227 \IRIS.VERSION 212 GL2 202 \BEZIERBASIS.IRIS 194 GL1 190 \IRIS.VERSION 155 IRISDATA 150 STREAM 118 \IRIS.VERSION 96 GL1 76 GL2 72 \IRIS.VERSION 8 IRISDATA 3 STREAM) ( 224 "UNKNOWN IRIS VERSION" 115 "UNKNOWN VERSION") \DRAWLINE.IRIS :D4 (P 6 PUSHED P 5 EDASHING P 4 EWIDTH P 3 ECOLOR P 2 SPPOUT P 1 PUSHEDATTRIBUTES P 0 IRISDATA 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 IRISSTREAM)  @0!HZGEGKd@ Md KLMZi@ KL7`dgL@ %@ gLll@ o` MkM@ kJ jJ ABHJ HCCHDDHJ N@ h(182 IRIS.POPATTRIBUTES 174 IRIS.DRAW 145 IRIS.MOVE 132 IRIS.RESETLS 126 IRIS.SETLINESTYLE 120 IRIS.DEFLINESTYLE 110 ERROR 99 IRIS.LINEWIDTH 79 IRIS.COLOR 73 IRIS.LINEWIDTH 51 IRIS.PUSHATTRIBUTES 37 \CONVERTLINESTYLE.IRIS 30 \IRIS.ASSURE.COLOR) (168 IRISDATA 159 IRISDATA 150 IRISDATA 139 IRISDATA 107 \IRIS.VERSION 85 GL1 65 GL2 61 \IRIS.VERSION 12 IRISDATA 3 STREAM) ( 104 "UNKNOWN VERSION") \CONVERTLINESTYLE.IRIS :D4 (P 3 PIX P 2 FLAG P 1 RESULT I 0 DASHING) 3@jkHll kIIK JlK kHkJٺ(35 EXPT 28 LLSH 16 EXPT) NIL () \IRISSTREAMINITA0042 :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) () \IRISSTREAMINIT :D4 NIL `dgdgdg dgdgdgdg,dgdg dg dgdgdgdgdgdg2dg4dgdgdgdg"dg$dg&dg(dg8dg0dgdg@dgBdgXdgVdgTdgRdgPdgNdgLdgJdgHdgFdgDdg:dg6dg.dg*ljoj djo `ko `lo `lo `(379 SETA 367 SETA 355 SETA 344 SETA 332 ARRAY) (382 \IRISIMAGEOPS 370 \FACT.IRIS 358 \FACT.IRIS 347 \FACT.IRIS 335 \FACT.IRIS 321 \IRISIMAGEOPS 315 NILL 308 NILL 301 NILL 294 \IRISSTREAMINITA0042 287 NILL 280 NILL 273 NILL 266 NILL 259 NILL 252 NILL 245 NILL 238 NILL 231 NILL 224 NILL 217 \DRAWPOINT.GENERIC 210 \FILLPOLYGON.IRIS 203 \DRAWPOLYGON.IRIS 196 \RESET.IRIS 189 \CLIPPINGREGION.IRIS 182 \COLOR.IRIS 175 \BACKCOLOR.IRIS 168 NILL 161 NILL 154 \TERPRI.IRIS 147 \SCALE.IRIS 140 NILL 133 \BITBLT.IRIS 126 \BLTSHADE.IRIS 119 \CHARWIDTH.IRIS 112 \STRINGWIDTH.IRIS 105 \FILLCIRCLE.IRIS 98 \DRAWELLIPSE.IRIS 91 \DRAWCIRCLE.IRIS 84 \DRAWCURVE.IRIS 77 HELP 70 NILL 63 \LEFTMARGIN.IRIS 56 \DRAWLINE.IRIS 49 IRIS 42 \FONT.IRIS 35 \YPOSITION.IRIS 28 \XPOSITION.IRIS 21 \MOVETO.IRIS 14 \CLOSEFN.IRIS 7 IRIS 2 |IMAGEOPSTYPE#|) ( 376 6.0 364 2.0 352 1.0 341 1.0 328 0.0) \MOVETO.IRIS :D4 (P 0 IRISDATA I 2 YPOS I 1 XPOS I 0 IRISSTREAM) ,@0HAAHBBHH (41 IRIS.MOVE) (36 IRISDATA 30 IRISDATA 21 IRISDATA 12 IRISDATA 3 STREAM) () \XPOSITION.IRIS :D4 (P 0 IRISDATA I 1 XPOS I 0 IRISSTREAM) J@0A"HAAHHH AHHhddd` YI(66 IRIS.GETGPOS 41 IRIS.MOVE) (62 \IRISSTREAM 55 IRISDATA 47 IRISDATA 36 IRISDATA 30 IRISDATA 24 IRISDATA 15 IRISDATA 3 STREAM) () \YPOSITION.IRIS :D4 (P 0 IRISDATA I 1 YPOS I 0 IRISSTREAM) 4@0A"HHAAHH AH(41 IRIS.MOVE) (47 IRISDATA 36 IRISDATA 30 IRISDATA 21 IRISDATA 15 IRISDATA 3 STREAM) () \FILLCIRCLE.IRIS :D4 (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) RCd3jC bC @01HDhZd@ Zdi@ JABCI K@ @ (77 IRIS.COLOR 72 IRIS.POPATTRIBUTES 65 IRIS.CIRCF 54 IRIS.PUSHATTRIBUTES 45 \IRIS.ASSURE.COLOR 18 \ILLEGAL.ARG 10 FIXR) (32 IRISDATA 23 STREAM) () \DRAWELLIPSE.IRIS :D4 (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 (98 SIN 93 COS 88 MOVETO 82 \DRAWCURVE.IRIS 69 CREATEPOSITION 56 CREATEPOSITION 43 CREATEPOSITION 30 CREATEPOSITION) NIL ( 13 1.0 6 0.0) \FILLPOLYGON.IRIS :D4 (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) @0QB@ YH[IiK IK CFA ;dN 0 N d\Lh_O Oh_O&_OK ư5A 0 A d]Mh_O Oh_O&_OK JK (165 IRIS.POPATTRIBUTES 157 IRIS.POLF2 111 LENGTH 100 IRIS.POLF2 54 LENGTH 43 TRAPLOOP 35 IRIS.COLOR 29 IRIS.PUSHATTRIBUTES 13 \IRIS.ASSURE.COLOR) (18 IRISDATA 3 STREAM) () \IRIS.BITBLT :D4 (P 11 STREAM P 10 VALUE P 9 ALONG P 8 X P 6 STREAM P 5 VALUE P 4 Y P 2 NLONGS P 1 SPPOUT P 0 COLOR 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)  hC C0EGELKDELI Il IlV Il" IFl IFl FkZIM dg2jMNl NlNj Nj NMl NMl 2g$NMj NMk NMl NMl Mo AFkA OO@OLhH@OkLhH_OlljIl. OI O dg;jOOl OlOj Oj OOl OOl ;g,OOj OOk OOl OOl Oo Ol_ALk\h(394 ERROR 384 BOUT 373 BOUT 362 BOUT 352 BOUT 335 BOUT 324 BOUT 312 BOUT 305 BOUT 293 BOUT 273 TYPENAME 261 BOUT 199 ERROR 190 BOUT 181 BOUT 172 BOUT 164 BOUT 149 BOUT 140 BOUT 130 BOUT 124 BOUT 114 BOUT 96 TYPENAME 81 BOUT 72 BOUT 62 BOUT 55 BOUT 48 BOUT 41 IRIS.CMOV2I 4 DSPCOLOR) (340 FIXP 277 SMALLP 154 FIXP 100 SMALLP 13 IRISDATA 8 STREAM) ( 391 "can't be sent thru IRIS.SENDL (neither an FIXP nor a SMALLP)" 196 "can't be sent thru IRIS.SENDL (neither an FIXP nor a SMALLP)") \DRAWPOLYGON.IRIS :D4 (P 4 PUSHED P 3 ECOLOR P 2 SPPOUT P 1 COLOR P 0 IRISDATA I 2 TEXTURE I 1 POINTS I 0 IRISSTREAM) B@0!HZBKd@ [i@ KA AJ L@ h@ (61 IRIS.COLOR 55 IRIS.POPATTRIBUTES 47 IRIS.POLY2 42 LENGTH 34 IRIS.PUSHATTRIBUTES 26 \IRIS.ASSURE.COLOR) (12 IRISDATA 3 STREAM) () ALIGN :D4 (I 0 STREAM) @`0 (18 IRIS.GETCOLOR) (13 IRISDATA 8 STREAM 5 \IRISSTREAM) () (PRETTYCOMPRINT IRISSTREAMCOMS) (RPAQQ IRISSTREAMCOMS ((FILES SFFONT COLOR IRISLIB IRISIO IRISNET) (ADDVARS (IMAGESTREAMTYPES (IRIS ( OPENSTREAM OPENIRISSTREAM) (FONTCREATE \FONTCREATE.IRIS) (FONTSAVAILABLE \FONTSAVAILABLE.IRIS) ( CREATECHARSET \CREATECHARSET.IRIS)))) (GLOBALVARS \IRIS.VERBOSE IRISNSHOSTNUMBER \IRIS.DEBUG \BEZIERBASIS.IRIS \IRISCOLORMAPCACHE \IRIS.VERSION \IRISSTREAM IRISCONN \IV.HIGHOBJNO \IRIS.BITPLANES) (INITVARS (\IRIS.VERBOSE T) (\IRISSTREAMS NIL) (\IRIS.VERSION (QUOTE GL2)) (IRISFONTDIRECTORIES ( QUOTE {ERIS}SF>)) (\CHARSEGMENTS.IRIS 10) (\IRIS.BITPLANES 4) (IRISFONTFAMILIES (QUOTE (GACHA TIMESROMAN))) (IRISFONTROTATIONS (QUOTE (0))) (IRISFONTSIZES (QUOTE (8 10 12 14 18 24))) (\IRIS.DEBUG NIL) (IRISNSHOSTNUMBER "0#4000.12000.41504#0") (\IV.HIGHOBJNO 100000)) (VARS \BEZIERBASIS.IRIS \IRIS.VERBOSE \BEZIERBASIS.IRIS \IRISCOLORMAPCACHE \IRIS.VERSION) (CONSTANTS IRIS.YAXIS IRIS.ZAXIS) ( FNS BOXSCREEN CLEARIRIS DRAWBITMAP IRIS.CONS.OBJNO IRISBITMAP 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 \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") (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) (FUNCTIONS WITH.IRIS.ATTR))) (FILESLOAD SFFONT COLOR IRISLIB IRISIO IRISNET) (ADDTOVAR IMAGESTREAMTYPES (IRIS (OPENSTREAM OPENIRISSTREAM) (FONTCREATE \FONTCREATE.IRIS) ( FONTSAVAILABLE \FONTSAVAILABLE.IRIS) (CREATECHARSET \CREATECHARSET.IRIS))) (RPAQ? \IRIS.VERBOSE T) (RPAQ? \IRISSTREAMS NIL) (RPAQ? \IRIS.VERSION (QUOTE GL2)) (RPAQ? IRISFONTDIRECTORIES (QUOTE {ERIS}SF>)) (RPAQ? \CHARSEGMENTS.IRIS 10) (RPAQ? \IRIS.BITPLANES 4) (RPAQ? IRISFONTFAMILIES (QUOTE (GACHA TIMESROMAN))) (RPAQ? IRISFONTROTATIONS (QUOTE (0))) (RPAQ? IRISFONTSIZES (QUOTE (8 10 12 14 18 24))) (RPAQ? \IRIS.DEBUG NIL) (RPAQ? IRISNSHOSTNUMBER "0#4000.12000.41504#0") (RPAQ? \IV.HIGHOBJNO 100000) (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 \IRIS.VERBOSE T) (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 \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))) (RPAQQ \IRIS.VERSION GL2) (RPAQQ IRIS.YAXIS 89) (RPAQQ IRIS.ZAXIS 90) (CONSTANTS IRIS.YAXIS IRIS.ZAXIS) (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 OBSOLETE-FIELD IRISCOLORMAPCACHE IRISCHARSET IRISWIDTHSCACHE IRISPAGE) FONTSINIRIS _ (LIST NIL) IRISX _ 0 IRISY _ 0 IRISZ _ 0 SCRATCHSPLINE _ (create SPLINE) HIFONT# _ -255) (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