(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "10-Sep-2025 16:59:12" ("compiled on " {DSK}kaplan>Local>medley3.5>working-medley>sources>INTERPRESS.;96) "10-Sep-2025 16:23:59" brecompiled exprs%: nothing in "FULL 10-Sep-2025 ..." dated "10-Sep-2025 16:24:08") (FILECREATED "10-Sep-2025 16:59:11" {DSK}kaplan>Local>medley3.5>working-medley>sources>INTERPRESS.;96 215772 :EDIT-BY rmk :CHANGES-TO (VARS INTERPRESSCOMS) :PREVIOUS-DATE " 9-Sep-2025 13:19:12" {WMEDLEY}INTERPRESS.;94) APPENDBYTE.IP :D8 (I 1 BYTE I 0 STREAM) @A (6 \BOUT) NIL () APPENDIDENTIFIER.IP :D8 (P 1 C I 1 STRING I 0 STREAM) ~@lA A QHdÊjð¥ È»HdÊjð¥ É¼KmÿØHl ØºHdÊjð¥ ‚Ê‡lDð½KJñ³M•LKÐÈ‚LKÂ¹@I ¿KkØ[°äh(115 \BOUT 83 %%ARRAY-TYPE-NUMBER 68 \GETBASEFIXP 52 %%ARRAY-BASE 35 %%ARRAY-OFFSET 19 MKSTRING 13 APPENDSEQUENCEDESCRIPTOR.IP 8 NCHARS) NIL () APPENDINT.IP :D8 (P 1 I I 2 LENGTH I 1 NUM I 0 STREAM) 'jBkÙHIó‘h@AjIàààÙçlÿå ¿ImÿÔ¹°ã(29 \BOUT) NIL () APPENDINTEGER.IP :D8 (P 4 LEN I 1 N I 0 STREAM) ZoAñ³6Adnp_ñ³/¿@An Ø"jk»ºJKó³5HIjKàààÙçlÿå ¿KmÿÔ»°äA @lL@ALh(86 APPENDINT.IP 78 APPENDSEQUENCEDESCRIPTOR.IP 66 BYTESININT.IP 52 \BOUT) NIL ( 4 -4000) APPENDLARGEVECTOR.IP :D8 (P 4 I P 2 INTSIZE P 1 AORIG P 0 ASIZE I 1 ARRAY I 0 STREAM) uA A HIØkÙI2LKó²"MZ@lHJÚkØHIØkÙILKó²&hAL _¿N”ONó•O¾L]€LkÔ\°¼@AL J¿LkÔ\°Å(108 APPENDINT.IP 102 ELT 72 BYTESININT.IP 67 ELT 44 APPENDSEQUENCEDESCRIPTOR.IP 11 ARRAYORIG 5 ARRAYSIZE) NIL () APPENDNUMBER.IP :D8 (P 4 LEN I 1 R I 0 STREAM) ƒAd3 ²\¿oAñ³6Adnp_ñ³/¿@An Ø"jk»ºJKó³5HIjKàààÙçlÿå ¿KmÿÔ»°äA @lL@ALhÃ¨A b¿@A A (128 APPENDRATIONAL.IP 123 CL:DENOMINATOR 117 CL:NUMERATOR 107 CL:RATIONAL 93 APPENDINT.IP 85 APPENDSEQUENCEDESCRIPTOR.IP 73 BYTESININT.IP 59 \BOUT) (100 RATIO) ( 11 -4000) APPENDOP.IP :D8 (I 1 OP I 0 STREAM) ?jAñ§Adnÿñ¿oA ¿Alñª@Al€ä @Aãl ä @Alÿå (60 \BOUT 50 \BOUT 38 \BOUT 22 ERROR) NIL ( 16 "Invalid Interpress operator code:") APPENDRATIONAL.IP :D8 (P 2 I I 2 D I 1 N I 0 STREAM) 7A B HdIñ¡¿I@lJà@AJ@BJh(51 APPENDINT.IP 43 APPENDINT.IP 35 APPENDSEQUENCEDESCRIPTOR.IP 11 BYTESININT.IP 5 BYTESININT.IP) NIL () APPENDSEQUENCEDESCRIPTOR.IP :D8 (I 2 LENGTH I 1 TYPE I 0 STREAM) [jAñ¤Alñ›oA ¿jBñ§Boñ›oB ¿nBñ²@AlÀä @B @Alàä @Bl(88 APPENDINT.IP 79 \BOUT 68 \BOUT 61 \BOUT 43 ERROR 19 ERROR) NIL ( 37 "Interpress sequence length too long" 30 16777215 13 "Invalid Interpress type") BYTESININT.IP :D8 (I 0 N) @ kØlØâââ(5 INTEGERLENGTH) NIL () ARCTO.IP :D8 (I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 IPSTREAM) R@Ad” @Bd” @Cd” @Dd” @l¡ @l“ (79 \BOUT 71 \BOUT 63 APPENDNUMBER.IP 58 FIXR 47 APPENDNUMBER.IP 42 FIXR 31 APPENDNUMBER.IP 26 FIXR 15 APPENDNUMBER.IP 10 FIXR) NIL () BEGINMASTER.IP :D8 (I 0 IPSTREAM) @l @lf (15 \BOUT 7 \BOUT) NIL () BEGINPAGE.IP :D8 (I 0 IPSTREAM) -@l ¿@lj ¿@É0gg(16 \BOUT 7 \BOUT) (42 PAGE 35 PAGE 30 INTERPRESSDATA 23 STREAM) () BEGINPREAMBLE.IP :D8 (I 0 IPSTREAM) -@l ¿@lj ¿@É0gg(16 \BOUT 7 \BOUT) (42 PREAMBLE 35 PREAMBLE 30 INTERPRESSDATA 23 STREAM) () CLIPRECTANGLE.IP :D8 (I 4 H I 3 W I 2 Y I 1 X I 0 IPSTREAM) .@A @B @C @D @l¡ @l£ (43 \BOUT 35 \BOUT 27 APPENDNUMBER.IP 20 APPENDNUMBER.IP 13 APPENDNUMBER.IP 6 APPENDNUMBER.IP) NIL () CONCAT.IP :D8 (I 0 IPSTREAM) @l @l¥ (15 \BOUT 7 \BOUT) NIL () CONCATT.IP :D8 (I 0 IPSTREAM) @l @l¨ (15 \BOUT 7 \BOUT) NIL () ENDMASTER.IP :D8 (I 0 IPSTREAM) @l @lg (15 \BOUT 7 \BOUT) NIL () ENDPAGE.IP :D8 (I 0 IPSTREAM) +@ @l ¿@lk ¿@É0hh(22 \BOUT 13 \BOUT 5 SHOW.IP) (36 INTERPRESSDATA 29 STREAM) () ENDPREAMBLE.IP :D8 (P 0 IPDATA I 0 IPSTREAM) P@É0HHÉ HHÊ%‡Ï%@l ¿@lk ¿Hhh(66 \BOUT 57 \BOUT 29 DREVERSE) (73 INTERPRESSDATA 43 INTERPRESSDATA 37 INTERPRESSDATA 22 INTERPRESSDATA 16 INTERPRESSDATA 5 STREAM) () FGET.IP :D8 (I 1 FINDEX I 0 IPSTREAM) @A @l” (14 \BOUT 6 APPENDNUMBER.IP) NIL () FILLRECTANGLE.IP :D8 (P 10 RIGHT P 9 TOP P 8 SCALED-VISRIGHT P 7 SCALED-VISLEFT P 6 SCALED-VISBOTTOM P 5 SCALED-VISTOP P 0 IPDATA I 4 HEIGHT I 3 WIDTH I 2 BOTTOM I 1 LEFT I 0 IPSTREAM) @É0AoHÉ>Ö oHÉ@Ö oHÉ:Ö oHÉ<Ö ! Cjó²OACÔ¹dIñ‘¿I_¿AdOñ³¿O°AdOñ’¿O_¿OCAÔºdJñ¡¿Jb¿Djó²MBDÔ»dKñ‘¿K_¿BdNñ³¿N°BdMñ‘¿M_¿NDBÔ¼dLñ¡¿Lb¿OAÕbOBÕbCjó´3djó´.@A @B @C @D @l¡ @lš (276 \BOUT 268 \BOUT 260 APPENDINTEGER.IP 253 APPENDINTEGER.IP 246 APPENDINTEGER.IP 239 APPENDINTEGER.IP 95 FIXR 73 FIXR 51 FIXR 29 FIXR) (87 INTERPRESSDATA 65 INTERPRESSDATA 43 INTERPRESSDATA 21 INTERPRESSDATA 5 STREAM) ( 81 0.11811024 59 0.11811024 37 0.11811024 15 0.11811024) FILLTRAJECTORY.IP :D8 (I 1 POINTS I 0 IPSTREAM) 2@A @k @l¡ ¿@l¡ ¿@l¡ @l™ (47 \BOUT 39 \BOUT 30 \BOUT 21 \BOUT 13 APPENDINTEGER.IP 6 TRAJECTORY.IP) NIL () FILLNGON.IP :D8 (P 5 I P 3 Y P 2 X P 1 ANGLE P 0 BASEANGLE I 6 OPERATION I 5 TEXTURE I 4 CENTERY I 3 CENTERX I 2 RADIUS I 1 NPOINTS I 0 IPSTREAM) À@Aldñ”ldb¿oAëX@l ¿@lx ¿@l ¿@lj ¿@EF@CDBØAkÙkMdLó²A@k @l¡ ¿@l¡ ¿@l¡ ¿@l™ ¿@l ¿@lk hHÖ¹CBI ÖØºDBI ÖØ»@JK¿MkÔ]°–(183 LINETO.IP 172 COS 161 SIN 148 \BOUT 139 \BOUT 130 \BOUT 121 \BOUT 112 \BOUT 103 \BOUT 95 APPENDINTEGER.IP 74 MOVETO.IP 64 SETCOLOR.IP 55 \BOUT 46 \BOUT 37 \BOUT 28 \BOUT) NIL ( 17 360.0) FSET.IP :D8 (I 1 FINDEX I 0 IPSTREAM) @A @l• (14 \BOUT 6 APPENDNUMBER.IP) NIL () GETFRAMEVAR.IP :D8 (P 0 FV I 0 IPSTREAM) )@É0Ê%‡@É0HkØÏ%‡HNIL (31 INTERPRESSDATA 24 STREAM 12 INTERPRESSDATA 5 STREAM) () INITIALIZEMASTER.IP :D8 (P 0 I I 0 IPSTREAM F 1 INTERPRESSVERSION) Dk@oH µk@QH µ@l ¿HkÔ¸°Ï ¿HkÔ¸°Ö(59 \BOUT 47 \BOUT 41 \BOUT 30 NTHCHARCODE 15 NTHCHARCODE) NIL ( 9 "Interpress/Xerox/") INITIALIZECOLOR.IP :D8 (P 1 IPDATA P 0 COLORMODELOP.FVAR I 0 IPSTREAM) ¤@ @É0@lÿ @k @l¡ ¿@l ¿@o @o @o @l @l¡ ¿@l ¿@l¡ ¿@l¦ ¿@l ¿@lç ¿@H IHÍ'H(151 FSET.IP 143 \BOUT 134 \BOUT 125 \BOUT 116 \BOUT 107 \BOUT 98 \BOUT 90 APPENDINTEGER.IP 82 APPENDIDENTIFIER.IP 71 APPENDIDENTIFIER.IP 60 APPENDIDENTIFIER.IP 48 \BOUT 39 \BOUT 31 APPENDINTEGER.IP 24 APPENDINTEGER.IP 5 GETFRAMEVAR.IP) (157 INTERPRESSDATA 11 STREAM) ( 77 "RGBLinear" 66 "Research" 55 "Xerox") ISET.IP :D8 (I 1 IVAR I 0 IPSTREAM) @A @l“ (14 \BOUT 6 APPENDINTEGER.IP) NIL () GETCP.IP :D8 (I 0 IPSTREAM) @l @lŸ (15 \BOUT 7 \BOUT) NIL () LINETO.IP :D8 (I 2 Y I 1 X I 0 IPSTREAM) *@Ad” @Bd” @l— (39 \BOUT 31 APPENDNUMBER.IP 26 FIXR 15 APPENDNUMBER.IP 10 FIXR) NIL () MASKSTROKE.IP :D8 (I 0 IPSTREAM) @l˜ (7 \BOUT) NIL () MOVETO.IP :D8 (I 2 Y I 1 X I 0 IPSTREAM) @A @B @l™ (21 \BOUT 13 APPENDNUMBER.IP 6 APPENDNUMBER.IP) NIL () ROTATE.IP :D8 (I 1 S I 0 IPSTREAM) @A @l @l£ (22 \BOUT 14 \BOUT 6 APPENDNUMBER.IP) NIL () SCALE.IP :D8 (I 1 S I 0 IPSTREAM) @A @l @l¤ (22 \BOUT 14 \BOUT 6 APPENDNUMBER.IP) NIL () SCALE2.IP :D8 (I 2 Y I 1 X I 0 IPSTREAM) @A @B @l @l¦ (29 \BOUT 21 \BOUT 13 APPENDNUMBER.IP 6 APPENDNUMBER.IP) NIL () SETCOLOR.IP :D8 (I 4 ANGLE I 3 SCALE I 2 OPERATION I 1 SHADE I 0 IPSTREAM F 0 PRINTSERVICE) á@g ²+Ad²' ²@AAA¿Ab€Ad3@ð•nÿÿb¿B©h@ b¿Anÿÿð«A nÿÿð²+Bgð¨Bgð²@k @l¡ @l¨ Ajð©A jð²+Bgð¨Bgð²@j @l¡ @l¨ Poô›@ABCD @ABCD (222 SETCOLORLV.IP 210 SETCOLOR16.IP 190 \BOUT 182 \BOUT 174 APPENDINTEGER.IP 146 NEGSHADE 135 \BOUT 127 \BOUT 119 APPENDINTEGER.IP 89 NEGSHADE 74 DSPOPERATION 47 SETRGB.IP 24 RGBP 10 STREAMPROP) (164 PAINT 156 REPLACE 109 PAINT 101 REPLACE 5 COLOR) ( 197 8.0) SETRGB.IP :D8 (P 0 COLORMODEL.FVAR I 3 BLUE I 2 GREEN I 1 RED I 0 IPSTREAM) q@É0È'@ ¿@A ¿@B ¿@C ¿@l ¿@l¡ ¿@l ¿@H ¿@l ¿@lç ¿@l h(109 ISET.IP 100 \BOUT 91 \BOUT 82 FGET.IP 74 \BOUT 65 \BOUT 56 APPENDINTEGER.IP 47 APPENDINTEGER.IP 39 APPENDINTEGER.IP 31 APPENDINTEGER.IP 23 SHOW.IP) (12 INTERPRESSDATA 5 STREAM) () SETCOLORLV.IP :D8 (P 5 X P 3 Y P 1 SCRATCHBM P 0 DIM I 4 ANGLE I 3 SCALE I 2 OPERATION I 1 SHADE I 0 IPSTREAM) QlBgð²Hd ¹gb°>AÃ–Aµ‚±½C3¨A3”lb¿Hd ¹hjdIjdHdggA ¿@H @H @k @k @k @k @lkHdÚØ@k jHkÙJKó²a@l¡ ¿@lÂ ¿@C3µk @D3µm¦ @ @Bdgð²L¿j°J lð¢±ÿ=A lð¢±ÿ0AY±ÿYHkÙjMLó³@IMKhû ¿MkÔ]°ëKmÿÔ»±ÿw¿k @l¡ ¿@lª ¿@l h(333 ISET.IP 324 \BOUT 315 \BOUT 307 APPENDINTEGER.IP 284 \BOUT 248 BITMAPHEIGHT 235 BITMAPWIDTH 215 CONCAT.IP 209 ROTATE.IP 196 SCALE.IP 183 \BOUT 174 \BOUT 153 \BOUT 146 APPENDSEQUENCEDESCRIPTOR.IP 133 SCALE.IP 126 APPENDINTEGER.IP 119 APPENDINTEGER.IP 112 APPENDINTEGER.IP 105 APPENDNUMBER.IP 98 APPENDNUMBER.IP 90 BKBITBLT 64 BITMAPCREATE 20 BITMAPCREATE) (223 REPLACE 83 REPLACE 78 TEXTURE 36 BITMAP 26 REPLACE 10 ERASE) () SETCOLOR16.IP :D8 (P 4 A0116 P 3 NBYTES P 2 BMBASE P 1 SCRATCHBM P 0 DIM I 4 ANGLE I 3 SCALE I 2 OPERATION I 1 SHADE I 0 IPSTREAM) l1C3£kb¿D3£jb¿HdÚlÛ[Hd YdÉZhjdIjdHdggA @H @H @k @k @k @k @l lKØ@kl@Hl@É É@@JjKlL@l¡ ¿@lÂ ¿@C @D @ @Bdgð’¿j¿k @l¡ ¿@lª ¿@l h(252 ISET.IP 243 \BOUT 234 \BOUT 226 APPENDINTEGER.IP 206 CONCAT.IP 200 ROTATE.IP 193 SCALE.IP 185 \BOUT 176 \BOUT 141 APPENDINT.IP 132 APPENDINT.IP 123 APPENDSEQUENCEDESCRIPTOR.IP 111 SCALE.IP 104 APPENDINTEGER.IP 97 APPENDINTEGER.IP 90 APPENDINTEGER.IP 83 APPENDNUMBER.IP 76 APPENDNUMBER.IP 69 BKBITBLT 34 BITMAPCREATE) (214 REPLACE 154 FDEV 147 STREAM 62 REPLACE 57 TEXTURE 41 BITMAP) () SETFONT.IP :D8 (P 2 X P 0 IPDATA I 1 FONTNUM I 0 IPSTREAM) [@A @l ¿@l— ¿@É0HHÉIµo ¿hhºAJð“J°òIY°Þ(66 ERROR 23 \BOUT 14 \BOUT 6 APPENDNUMBER.IP) (47 INTERPRESSDATA 41 INTERPRESSDATA 30 STREAM) ( 61 "Undefined font number") SETSPACE.IP :D8 (I 1 SPACEWIDTH I 0 IPSTREAM) @A @l (14 \BOUT 6 APPENDNUMBER.IP) NIL () SETXREL.IP :D8 (P 0 IPDATA I 1 DX I 0 IPSTREAM) †@É0!@A @lŒ ¿HAHÉÔY¿IbHAHÉ:ýóhð´+HÉHÉFýóhð´HÉHÉDóhðJHHÉZ*J(25 \BOUT 17 APPENDNUMBER.IP) (125 INTERPRESSDATA 119 INTERPRESSDATA 106 INTERPRESSDATA 98 INTERPRESSDATA 84 INTERPRESSDATA 76 INTERPRESSDATA 62 INTERPRESSDATA 55 INTERPRESSDATA 39 INTERPRESSDATA 32 INTERPRESSDATA 5 STREAM) () SETX.IP :D8 (P 0 IPDATA I 1 X I 0 IPSTREAM) ›@É0A3²@AHÉÕ ¿@lŒ°@A ¿@HÉ ¿@lŠ ¿HAHÉ:ýóhð´+HÉHÉFýóhð´HÉHÉDóhðJHAHA*A(68 \BOUT 59 APPENDNUMBER.IP 44 APPENDNUMBER.IP 31 APPENDINTEGER.IP) (148 INTERPRESSDATA 139 INTERPRESSDATA 126 INTERPRESSDATA 118 INTERPRESSDATA 104 INTERPRESSDATA 96 INTERPRESSDATA 82 INTERPRESSDATA 75 INTERPRESSDATA 52 INTERPRESSDATA 23 INTERPRESSDATA 5 STREAM) () SETXY.IP :D8 (P 0 IPDATA I 2 Y I 1 X I 0 IPSTREAM) y@É0@A @B @lŠ ¿HAHÉ:ýóhð´BHÉFýóhð´BHÉDóhðJ@É0AHA*HBB(32 \BOUT 24 APPENDNUMBER.IP 17 APPENDNUMBER.IP) (114 INTERPRESSDATA 105 INTERPRESSDATA 96 INTERPRESSDATA 89 STREAM 76 INTERPRESSDATA 61 INTERPRESSDATA 46 INTERPRESSDATA 39 INTERPRESSDATA 5 STREAM) () SETXYREL.IP :D8 (P 0 IPDATA I 2 DY I 1 DX I 0 IPSTREAM) Ž@É0!@A @B @l‹ ¿HHÉAÔY¿IbHHÉBÔZ¿JbHAHÉ:ýóhð´BHÉFýóhð´BHÉDóhðJHA*A(32 \BOUT 24 APPENDNUMBER.IP 17 APPENDNUMBER.IP) (135 INTERPRESSDATA 122 INTERPRESSDATA 107 INTERPRESSDATA 92 INTERPRESSDATA 85 INTERPRESSDATA 68 INTERPRESSDATA 62 INTERPRESSDATA 45 INTERPRESSDATA 39 INTERPRESSDATA 5 STREAM) () SETY.IP :D8 (P 0 IPDATA I 1 Y I 0 IPSTREAM) @É0A3²@AHÉÕ ¿@l°@HÉ ¿@A ¿@lŠ ¿HHÉHÉ:ýóhð´AHÉFýóhð´AHÉDóhðJHAA(73 \BOUT 64 APPENDNUMBER.IP 56 APPENDNUMBER.IP 36 APPENDINTEGER.IP 31 FIXR) (137 INTERPRESSDATA 124 INTERPRESSDATA 109 INTERPRESSDATA 94 INTERPRESSDATA 86 INTERPRESSDATA 80 INTERPRESSDATA 49 INTERPRESSDATA 23 INTERPRESSDATA 5 STREAM) () SETYREL.IP :D8 (P 0 IPDATA I 1 DY I 0 IPSTREAM) o@É0!@A @l ¿HAHÉÔY¿IbHHÉHÉ:ýóhð´AHÉFýóhð´AHÉDóhðZJJ(25 \BOUT 17 APPENDNUMBER.IP) (99 INTERPRESSDATA 84 INTERPRESSDATA 69 INTERPRESSDATA 61 INTERPRESSDATA 55 INTERPRESSDATA 39 INTERPRESSDATA 32 INTERPRESSDATA 5 STREAM) () SHOW.IP :D8 (P 3 A0117 P 2 SHOWSTREAM P 1 LEN P 0 IPDATA I 1 MOVING? I 0 IPSTREAM) ß@É0!HÉZdÉ ÉNJkKYdjñ´‚±°dkñ¢A³N@HÉHÉ*Õ ¿@j ¿@l ¿@lš ¿@l ¿@ln ¿@l ¿@lj ¿@kI¿J@jI¿@l– ¿Ikñ¢A³@l ¿@lk ¿Jj ¿HÊ&‡jØjð§Hj ¿HdÉ*h(212 \CHANGECHARSET.IP 190 \SETFILEPTR 182 \BOUT 173 \BOUT 157 \BOUT 148 COPYBYTES 138 APPENDSEQUENCEDESCRIPTOR.IP 129 \BOUT 120 \BOUT 111 \BOUT 102 \BOUT 93 \BOUT 84 \BOUT 75 APPENDINTEGER.IP 67 APPENDNUMBER.IP) (197 INTERPRESSDATA 27 FDEV 20 STREAM 5 STREAM) () TRAJECTORY.IP :D8 (P 0 P I 1 POINTS I 0 IPSTREAM) %@AAAd@HHµîh(28 LINETO.IP 11 MOVETO.IP) NIL () TRANS.IP :D8 (I 0 IPSTREAM) @l @lª (15 \BOUT 7 \BOUT) NIL () TRANSLATE.IP :D8 (I 2 Y I 1 X I 0 IPSTREAM) @A @B @l @l¢ (29 \BOUT 21 \BOUT 13 APPENDNUMBER.IP 6 APPENDNUMBER.IP) NIL () \CHANGE-VISIBLE-REGION.IP :D8 (P 0 FONT I 1 VISIBLE-REGION I 0 IPDATA) ž@É1@A:@AAØmÿØ<@AAØmÿØ>@A@@AH@dÉ>HÈÕD@ÉNš@dÉ@HÈÕkØ‡@dÉ@HÈ ÔF¿@@É@É:ýóhð´@É@ÉFýóhð´@É@ÉDóhðJ@dÉ<@É º¹JdIó‘¿I[LKNIL (104 INTERPRESSDATA 96 INTERPRESSDATA 90 INTERPRESSDATA) () \PAPERSIZE.IP :D8 (P 0 PSIZE I 1 MEDIUM I 0 IPSTREAM F 1 DEFAULTINTERPRESSMEDIUM F 2 KNOWN.MEDIA.SIZES) \AµQbgð²2Abdgð²¿ARgg‡gð”Aµo ldHÖldHÖh(72 ERROR 49 CL:ASSOC) (55 OTHER.SIZE 44 STRING-EQUAL 39 :TEST 26 KNOWN.SIZE 11 PAPER) ( 67 "UNRECOGNIZED PRINTING MEDIUM") HEADINGOP.IP :D8 (P 0 IPDATA I 1 HEADING I 0 IPSTREAM F 2 HEADINGFONTNUMBER) Â@É0@l ¿@lr ¿@l ¿@lj ¿A²e@HÉHÉ"HÉ ÈÕ¿@R ¿A@ ¿@ ¿n ìj@¿o@ ¿@ ¿@ ¿@l ¿@lk ¿@H@ YÏ&¿I h(190 FSET.IP 179 GETFRAMEVAR.IP 165 \BOUT 156 \BOUT 147 TERPRI 140 TERPRI 133 PRIN3 121 RELMOVETO 110 SHOW.IP 103 PRIN3 95 SETFONT.IP 87 SETXY.IP 79 FONTCREATE 45 \BOUT 36 \BOUT 27 \BOUT 18 \BOUT) (173 INTERPRESSDATA 72 INTERPRESSDATA 64 INTERPRESSDATA 56 INTERPRESSDATA 5 STREAM) ( 127 "Page ") DEFINEFONT.IP :D8 (P 5 ID P 4 N P 1 FRAMEVAR P 0 IPDATA I 1 FONT I 0 IPSTREAM) ª@É0!A jKµ~@L ¿@l¡ ¿@l @l ¿@l“ ¿@oAg Ö @l ¿@l” ¿@ Y@I HAIHÉZ¿J½@M ¿LkÔ¼K[±ÿp(157 APPENDIDENTIFIER.IP 123 FSET.IP 115 GETFRAMEVAR.IP 108 \BOUT 99 \BOUT 91 SCALE.IP 85 FONTPROP 67 \BOUT 58 \BOUT 49 \BOUT 40 \BOUT 31 APPENDINTEGER.IP 16 FONTNAME.IP) (138 INTERPRESSDATA 129 INTERPRESSDATA 80 DEVICESIZE 5 STREAM) ( 74 635/18) FONTNAME.IP :D8 (P 1 NAME P 0 FACE I 0 FONTDESC F 2 CHARACTERCODEVERSION) † @g gð•o¸@g gð—gH¸@g Ydd` œ¿dg Y` —`I'¹H˜IH ¹gRIh(119 PACK 100 MEMB 89 PACK* 76 MEMB 63 FONTPROP 37 FONTPROP 13 FONTPROP) (125 XEROX 106 INTERPRESSFAMILYALIASES 95 INTERPRESSFAMILYALIASES 84 -PRINTWHEEL 71 INTERPRESSPRINTWHEELFAMILIES 58 DEVICEFAMILY 49 -Bold 42 BOLD 32 DEVICEWEIGHT 18 ITALIC 8 DEVICESLOPE) ( 25 (-Italic)) INTERPRESS.BITMAPSCALE :D8 (L (1 HEIGHT 0 WIDTH)) Ao@ëoAëIdHó‘¿HkHó¡koHó¥ooHó¥oHNIL NIL ( 60 0.25 52 0.25 46 0.5 38 0.5 11 540.0 4 684.0) INTERPRESS.OUTCHARFN :D8 (P 4 NEWXPOS P 3 CHAR-WIDTH P 2 OLD-CSET P 1 XCODE P 0 IPDATA I 1 CHARCODE I 0 IPSTREAM) O@É0A HÊ&‡ºIdãJðª¿HIã ¿Il ð–@ Idl ð²¿@d @ ¿ lð–@ Il ð“HÉ.‰HÉIlÿåÐÈ»HÉKÔ¼HÉJ²FLHÉLó³:HL¿IãJð³!HÉlÿ ¿HÉIã ¿HIã ¿HÉIlÿå hLHÉ ó²@ ¿HÉKÔ\HÉLó³^°˜HÉN²OHÉHÉ<ýó²ELHÉ<ýó³=HL¿IãHÊ&‡ð³!HÉlÿ ¿HÉIã ¿HIã ¿HÉIlÿå hHJ ¿@i ¿@L h(331 SETX.IP 323 SHOW.IP 315 \CHANGECHARSET.IP 306 \BOUT 293 \CHANGECHARSET.IP 284 \BOUT 273 \BOUT 211 NEWLINE.IP 196 \BOUT 183 \CHANGECHARSET.IP 174 \BOUT 163 \BOUT 90 DSPNEWPAGE 79 \DSPXPOSITION.IP 73 NEWLINE.IP 67 \DSPXPOSITION.IP 51 NEWLINE.IP 39 \CHANGECHARSET.IP 16 MTOXCODE) (137 INTERPRESSDATA 126 INTERPRESSDATA 5 STREAM) () INTERPRESSFILEPA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 I P 0 STRM I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 FILE F 5 NOOPEN) ‘TgiXµU²-h ´úgHd hhdSc¿Hj °!oTgglXhSc¿lkJIó³ H ³¤oJ H ð´•JkÔZ°àH (142 FULLNAME 125 NTHCHARCODE 112 EOFP 86 OPENSTREAM 61 SETFILEPTR 41 GETFILEPTR 27 RANDACCESSP 14 \GETSTREAM) (79 OLD 74 INPUT 34 SETFILEPTR 8 INPUT) ( 119 "Interpress/Xerox/" 68 (PROGN (CLOSEF? OLDVALUE))) INTERPRESSFILEP :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 NOOPEN I 0 FILE F 3 LISPXHIST) /@g n ðµS!g ¿$(40 SI::RESETUNWIND 35 \MVLIST 30 INTERPRESSFILEPA0001 10 GETFILEINFO) (25 SI::RESETUNWIND 5 FILETYPE) () MAKEINTERPRESS :D8 (I 5 OPTIONS I 4 TABS I 3 HEADING I 2 FONTS I 1 IPFILE I 0 FILE) @AgBCDE (16 TEXTTOIMAGEFILE) (6 INTERPRESS) () NEWLINE.IP :D8 (P 1 NEWYPOS P 0 IPDATA I 0 IPSTREAM) 9@ @É0HÉHÉÔYdHÉýó–@ ‰@HÉIh(53 SETXY.IP 42 DSPNEWPAGE 5 SHOW.IP) (31 INTERPRESSDATA 11 STREAM) () NEWPAGE.IP :D8 (P 5 YOFFSET P 4 XOFFSET P 3 ROTATION P 2 HFONT P 1 CFONT P 0 IPDATA I 0 IPSTREAM) ô@É0aHÉYHhHÉdgð—¿@ Œgð–@ ¿@ HHÉ HHÊ%Ï%‡@o @ HÉ0[jð³K–K ®@K ¿@ ¿HÉ2\jð¬L²"L ²HÉ4]jð³M–M ¯@LM¿@ ¿HÉ¢±žHÉº@J ¿@HÉHÉ"J ÈÕ¿J@ ¿HÉ@ ¿n ìj@¿o@ ¿HHÈ$kÔ^Í$¿N@ ¿@ ¿@ ¿@jI ÈÙ °!@HÉHÉ"I ÈÕ¿@l @j @l ¿@l› ¿HÉ,k ³@HÉ, ¿@l ¿@I h(496 \DSPFONT.IP 488 ISET.IP 479 APPENDNUMBER.IP 468 EQP 458 \BOUT 449 \BOUT 441 APPENDINTEGER.IP 434 APPENDINTEGER.IP 425 SETXY.IP 417 FONTCREATE 392 SETYREL.IP 384 FONTCREATE 375 NEWLINE.IP 368 NEWLINE.IP 361 PRIN3 333 PRIN3 321 RELMOVETO 310 PRIN3 295 DSPFONT 287 SETXY.IP 279 FONTCREATE 255 \DSPFONT.IP 226 CONCATT.IP 219 TRANSLATE.IP 210 \FZEROP 185 \FZEROP 161 CONCATT.IP 154 ROTATE.IP 146 \FZEROP 123 CONCATT.IP 117 SCALE.IP 72 BEGINPAGE.IP 65 ENDPREAMBLE.IP 51 ENDPAGE.IP) (409 INTERPRESSDATA 401 INTERPRESSDATA 346 INTERPRESSDATA 340 INTERPRESSDATA 302 INTERPRESSDATA 271 INTERPRESSDATA 263 INTERPRESSDATA 245 INTERPRESSDATA 233 INTERPRESSDATA 193 INTERPRESSDATA 168 INTERPRESSDATA 129 INTERPRESSDATA 100 INTERPRESSDATA 94 INTERPRESSDATA 84 INTERPRESSDATA 78 INTERPRESSDATA 57 PREAMBLE 42 PAGE 34 INTERPRESSDATA 25 INTERPRESSDATA 16 INTERPRESSDATA 5 STREAM) ( 327 "Page " 112 1/100000) NEWPAGE?.IP :D8 (I 0 IPSTREAM) *@É0É@É0Éýó´@ (39 NEWPAGE.IP) (27 INTERPRESSDATA 20 STREAM 12 INTERPRESSDATA 5 STREAM) () OPENIPSTREAM :D8 (P 16 PRINTSERVERNAME P 15 POS P 14 FILE P 13 PAPERSIZE P 12 IPDATA P 11 MARGINREGION P 10 IPSTREAM P 0 OPTION I 1 OPTIONS I 0 IPFILE F 17 DEFAULTLANDPAGEREGION F 18 SERVER) $ @ggho Ag'XYl ²I…d3•µùi¿h‘HAg'’W"„``dO¿OºdJ¿OOØmÿØ»dK ¿OOØmÿØ¼dL"¿O½dM¿ggg¾dN¿Ag'_¿dO¿Ag'_¿dON¿dg8¿djÍ'¿dj4¿dj2¿dj0¿dk,¿djÏ%‡¿dj¿dj¿OAg' `OÉ.ðšO jð³oO ¿O`dg¿dg¿OÊ_¿dOÏ¿ O`.OO0Ag'²'OlZ0¿Oo4¿OdOO¿¿OgO OgAg'OjdOOhBO O O Ag'XšOH¿O ¿OAg' OOÉB Ag'²O ¿Ogi¿Ohdd O g “W$µZAg'µQOg gð´=O oO _´"OOkØoOOkØµjkÙO ²;OgO `gg µ`O(799 STREAMPROP 786 CL:ASSOC 781 CL:SYMBOL-FUNCTION 761 NSNAME.TO.STRING 756 PARSE.NSNAME 734 SUBSTRING 724 STRPOS 698 STRPOS 683 FULLNAME 668 FILENAMEFIELD 642 BOUNDP 632 NEWPAGE.IP 625 PUSH-IP-STACK 612 STREAMPROP 598 INITIALIZECOLOR.IP 582 \DSPCLIPPINGREGION.IP 566 SETUPFONTS.IP 551 GETFRAMEVAR.IP 524 BEGINPREAMBLE.IP 517 BEGINMASTER.IP 510 INITIALIZEMASTER.IP 480 STREAMPROP 461 STREAMPROP 456 COPY 376 \EXTERNALFORMAT 324 ERROR 319 FULLNAME 303 GETEOFPTR 277 \PAPERSIZE.IP 172 OPENSTREAM 44 EQLENGTH 25 OPENSTREAM) (794 PRINTER.DEFAULT.SCAN.DIRECTION 776 STRING-EQUAL 771 :TEST 766 PRINTER.SCAN.DIRECTIONS.LIST 749 P.SCAN.DIRECTION 673 LPT 663 HOST 653 SERVER 637 SERVER 606 COLOR 588 COLOR 575 INTERPRESSDATA 560 FONTS 540 INTERPRESSDATA 530 HEADING 487 INTERPRESSDATA 474 CLIP.INCLUSIVE 468 CLIP.INCLUSIVE 449 PAPERSIZE 412 INTERPRESSDATA 402 LANDSCAPE 392 STREAM 383 \IPIMAGEOPS 358 STREAM 348 INTERPRESS.OUTCHARFN 339 INTERPRESS 332 |EXTERNALFORMATTYPE#| 292 STREAM 285 \NOIMAGEOPS 271 MEDIUM 216 PAINT 200 CLIP.INCLUSIVE 184 DOCUMENT.NAME 167 OLD/NEW 162 BOTH 157 {NODIRCORE} 88 |INTERPRESSDATATYPE#| 80 DEFAULTPAGEREGION 70 LANDSCAPE 34 REGION 13 NEW 8 OUTPUT) ( 713 "." 691 "}" 424 -21590 312 "can't convert existing file to Interpress" 19 ((TYPE INTERPRESS))) SETUPFONTS.IP :D8 (P 2 F P 0 IPDATA I 1 FONTS I 0 IPSTREAM F 3 DEFAULTFONT) S@É0AµSId £Iºh„IºI¹Jhddg º@J ¿H²×HJ¿HJ¿h¸°¿(53 DEFINEFONT.IP 45 FONTCREATE) (73 INTERPRESSDATA 63 INTERPRESSDATA 39 INTERPRESS 5 STREAM) () SHOWBITMAP.IP :D8 (P 7 LEFT P 6 MAXYPIXELSPERCHUNK P 5 HEIGHT P 4 BOTTOM P 3 NEXTROW P 2 XBYTES P 1 YPIXELS P 0 XPIXELS I 4 ROTATION I 3 SCALE I 2 REGION I 1 BITMAP I 0 IPSTREAM) è@ 0Bµ8AÈ¸AÈ¹HlØâââlØmüåZddnÿÿñ²<¿o ¿°AjdAÈAÈh bd²Y¸B°±jð³RJµFIjð³?Iµ3Cµ(objdInÿÿJÛBµ Ijñ³(h_¿B¼°ñoÖ°Ù ²Êh ²·h@AOKHIdNñ‘¿NCDMJL ¿INÙ¹KNØ»°´(219 SHOWBITMAP1.IP 191 \FZEROP 182 \FZEROP 93 INTERSECTREGIONS 62 ERROR 5 SHOW.IP) (81 BITMAP 73 BITMAP 26 BITMAP 17 BITMAP) ( 174 33.866665 136 33.866665 57 "Bitmap line too long for Interpress printing") \BITMAPSIZE.IP :D8 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) QBdgð¿A oÖdgð¿A oÖ³A oÖA oÖB (78 \ILLEGAL.ARG 64 BITMAPHEIGHT 52 BITMAPWIDTH 37 BITMAPHEIGHT 15 BITMAPWIDTH) (28 HEIGHT 6 WIDTH) ( 69 33.866665 57 33.866665 42 33.866665 20 33.866665) SHOWBITMAP1.IP :D8 (P 6 XWORDS P 5 Y P 2 BMBASE P 1 SCRATCHBM P 0 TOTALBYTES I 10 REGIONBOTTOM I 9 XBYTES I 8 HEIGHT I 7 ROTATION I 6 SCALEFACTOR I 5 YPIXELS I 4 XPIXELS I 3 FIRSTROW I 2 LEFT I 1 BITMAP I 0 IPSTREAM) ¬ GEÚDlØmàåk AÉGGµjØCEØÙAÈÚÐ@l ¿@lx ¿@l ¿@lj ¿@ @E @DlØmàå @k @k @k @jCEØÙjGµjnh bdlZð³2djðdl´ð¨ddnð²¿@GlZÕ ¿@ ‰o ¿@F @ @l lHØ@kl@DlØmàålEkGkØâMLó³_ABµjGµjCØEØMÙIjdDkgg ¿@IÉGlØmüå OÉ É@»OOjOlKMkÔ]°¡@l¡ ¿@lÂ ¿@l¡ ¿@lÄ ¿@l ¿@lk h(424 \BOUT 415 \BOUT 406 \BOUT 397 \BOUT 388 \BOUT 379 \BOUT 314 BKBITBLT 262 APPENDINT.IP 247 APPENDINT.IP 238 APPENDSEQUENCEDESCRIPTOR.IP 226 CONCAT.IP 220 SCALE.IP 212 ERROR 201 CONCAT.IP 194 ROTATE.IP 157 IMOD 144 TRANSLATE.IP 132 APPENDINTEGER.IP 125 APPENDINTEGER.IP 118 APPENDINTEGER.IP 111 APPENDNUMBER.IP 98 APPENDNUMBER.IP 91 TRANS.IP 84 \BOUT 75 \BOUT 66 \BOUT 57 \BOUT 16 BITMAPCREATE) (349 FDEV 342 STREAM 322 BITMAP 308 REPLACE 303 INPUT 42 BITMAP 22 BITMAP) ( 207 "rotation by other than multiples of 90 degrees not implemented") SHOWSHADE.IP :D8 (I 5 ANGLE I 4 SCALE I 3 OPERATION I 2 REGION I 1 SHADE I 0 IPSTREAM) @ @l ¿@lx ¿@l ¿@lj ¿@ACDE @B @B @B @B @l¡ ¿@lš ¿@l @lk (124 \BOUT 116 \BOUT 107 \BOUT 98 \BOUT 90 APPENDINTEGER.IP 79 APPENDINTEGER.IP 69 APPENDINTEGER.IP 60 APPENDINTEGER.IP 52 SETCOLOR.IP 40 \BOUT 31 \BOUT 22 \BOUT 13 \BOUT 5 SHOW.IP) NIL () \BITBLT.IP :D8 (P 8 DESTINATIONREGION P 7 DESTHEIGHT P 6 DESTWIDTH P 5 STREAMSCALE P 4 DESTINATIONBOTTOM P 3 DESTINATIONLEFT P 2 SOURCE-REGION P 1 OLDY P 0 OLDX 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) Á C C DµHEµIhZC MFÖMGÖKLNOCÉ0ÉH G›OG _O´_COOGOKÕM× ÔGOLÕM× ÔOM× OM× ZC@JkCHIi(189 \MOVETO.IP 181 SHOWBITMAP.IP 171 CREATEREGION 166 FIXR 153 FIXR 140 FIXR 124 FIXR 110 \MOVETO.IP 90 INTERSECTREGIONS 75 INTERSECTREGIONS 65 CREATEREGION 39 DSPSCALE 14 \DSPYPOSITION.IP 5 \DSPXPOSITION.IP) NIL () \SCALEDBITBLT.IP :D8 (P 6 DESTINATION-REGION P 5 STREAM-SCALE P 4 DESTINATION-BOTTOM P 3 DESTINATION-LEFT P 2 SOURCE-REGION P 1 OLDY P 0 OLDX 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 DESTINATION-BOTTOM I 4 DESTINATION-LEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) ¼C C DµHEµIhZC KLGMÖFÖGMÖGÖCÉ0ÉH G™NG ^€N´`CNNGNKÕM× ÔGNLÕM× ÔNGMÖ× NGMÖ× ZC@JGCHIi(184 \MOVETO.IP 176 SHOWBITMAP.IP 165 CREATEREGION 160 FIXR 145 FIXR 130 FIXR 115 FIXR 102 \MOVETO.IP 86 INTERSECTREGIONS 72 INTERSECTREGIONS 62 CREATEREGION 39 DSPSCALE 14 \DSPYPOSITION.IP 5 \DSPXPOSITION.IP) NIL () \BLTSHADE.IP :D8 (P 0 DESTREGION I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 STREAM I 0 TEXTURE F 1 PRINTSERVICE) eAÉ0ÉHBCDE H¡hG™HG X€H´ñF©hA b¿QoóŸA@ HF°@ABCDEFGo h(97 \BLTSHADE.GENERICPRINTER 75 SHOWSHADE.IP 68 INSURE.B&W.TEXTURE 50 DSPOPERATION 36 INTERSECTREGIONS 18 INTERSECTREGIONS 13 CREATEREGION) NIL ( 91 35.27778 59 8.0) \CHARWIDTH.IP :D8 (I 1 CHARCODE I 0 STREAM) CAl ð•@É0É.@É0ÉHÉAãàÐÉµHÉAãàAãH IJÐK¿KÉAlÿåÐÈ(43 \CREATECHARSET) NIL () \CLOSEIPSTREAM :D8 (I 0 IPSTREAM) 5@É0Édgð—¿@ Œgð–@ ¿@ (50 ENDMASTER.IP 43 ENDPREAMBLE.IP 29 ENDPAGE.IP) (35 PREAMBLE 20 PAGE 12 INTERPRESSDATA 5 STREAM) () \DRAWARC.IP :D8 (I 7 DASHING I 6 BRUSH I 5 NDEGREES I 4 STARTANGLE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) @ABCDEFG (14 \DRAWARC.GENERIC) NIL () \DRAWCURVE.IP :D8 (P 0 K I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 IPSTREAM) ÕA¢±Ï0A©AAhb¿D³[A lð²PAXY™I3”I3«oH ¿@HHAXZµoH HC °p3²æJ3²àH°è@i ¿@l ¿@lx ¿@l ¿@lj ¿@AB DC¿@l ¿@lk ¿A ¸@HH@(209 SETXY.IP 197 LAST 190 \BOUT 181 \BOUT 172 \IPCURVE2 165 PARAMETRICSPLINE 156 \BOUT 147 \BOUT 138 \BOUT 129 \BOUT 120 SHOW.IP 97 \DRAWLINE.IP 87 ERROR 62 ERROR 30 LENGTH) NIL ( 81 "bad knot" 56 "bad knot") \DRAWPOINT.IP :D8 (P 1 HEIGHT P 0 WIDTH I 4 OPERATION I 3 BRUSH I 2 Y I 1 X I 0 IPSTREAM) J@ CÃ’Cµ@ABABCD @ C Cjd@AHlÚÕBIlÚÕHID °Ö(69 BKBITBLT 41 BITMAPHEIGHT 35 BITMAPWIDTH 28 \DRAWLINE.IP 5 SHOW.IP) (11 BITMAP) () \DSPCOLOR.IP :D8 (P 1 RGB P 0 IPDATA I 1 COLOR I 0 IPSTREAM) N@g ´1A²/@É0A HI@III@É0É(59 SETRGB.IP 32 ENSURE.RGB 10 STREAMPROP) (73 INTERPRESSDATA 66 STREAM 41 INTERPRESSDATA 21 STREAM 5 COLOR) () ENSURE.RGB :D8 (P 0 RGB I 1 NOERRORFLG? I 0 COLOR) ?@@d3@ðœ@ Xd²XŽH –H ¿H ¯A‘ho@ H(58 ERROR 42 RGBP 35 HLSTORGB 28 HLSP 15 \LOOKUPCOLORNAME) NIL ( 52 "Illegal color") \IPCURVE2 :D8 (P 50 KNOT# P 48 PREVY P 47 PREVX P 46 VISIBLEP P 45 SPLINEDIFF P 44 TOP P 43 BOTTOM P 42 RIGHT P 41 LEFT P 40 HALFWIDTH P 39 SPLINESTEP P 38 SEG# P 37 IPDATA P 36 DASHCNT P 35 DASHLST P 34 DASHON P 33 DELTA P 32 NEWT P 31 TT P 30 EXTRANEOUS P 29 DUPLICATEKNOT P 28 YWALLDT P 27 XWALLDT P 26 YDIFF P 25 XDIFF P 24 NEWYT P 23 NEWXT P 22 Y'T P 21 X'T P 20 YT P 19 XT P 18 DY P 17 DX P 16 IY P 15 IX P 14 IPYPOS P 13 IPXPOS P 12 %#KNOTS P 11 Y''' P 10 X''' P 9 Y'' P 8 X'' P 7 Y' P 6 X' P 5 Y P 4 X P 3 Y'POLY P 2 YPOLY P 1 X'POLY P 0 XPOLY I 3 BRUSH I 2 DASHING I 1 SPLINE I 0 IPSTREAM F 51 \SPLINESTEP.IP) õ3lg lg lg lg AAAAAAAAAAk Ak ÿð,@0WfjØ_NCd“ˆ3µooë_PWf_Zi_DB_Fd_Hj_L@É0_JdÉ:OPÔ_ROJÉOPÕ_XOROñhð´OOTñhð´OVOñhð´ OOXñhð_\dš@OO¿o_>n_BO _O _ OkÙk2OdObó²O\´@Ch¿@ hHIOOd OOd NOd LOd ¿JKOOd OOd OOd MOd ¿O>íHÉl2í_&¿O>íJÉl2í_(¿OdOkÙÙjð³9LOdkØ LOdlØ ´MOdkØ MOdlØ €h_:¿oO>ó¢±ŸO>íIÉl2í_*¿O>íKÉl2í_,¿O*o —o_*¿O,o —o_,¿O*oò’OBƒjOBÙ_"¿O,oò’OBƒjOBÙ_$¿OO"ØO&éO*ë_6¿O O$ØO(éO,ë_8O6ò²O>O6è_@¿O(O6O,êè O Ù_$¿°O>O8è_@¿O&O8O*êè OÙ_"¿O@o ²O:§OdOkÙð—o_@O@íHÉl2í_.¿O@íJÉl2í_0¿OO"ØO.é _2¿O O$ØO0é _4¿OBlñ²O2ONò¥O4ONò˜OBâ_B¿±þžOLkÔ_Lldñ²!@Ch¿@ ¿j_L¿@OO¿O_^O"Ô_¿O_`O$Ô_¿O\²OOROñhð´OOTñhð´OVOñhð´ OOXñhð_\œ@OO±ŠO^O`OOOROTOXOVi@ ¿°[OROñhð´OOTñhð´OVOñhð´ OOXñhð_\²O^O`OOOROTOXOVh@ °.O^O`OOOROTOXOVh@ Ÿ@Ch¿@ ¿j_L¿OO"Ø_¿O O$Ø_ ¿O@_>¿O._&¿O0_(¿nOBñ¢±ýyoO2ò«oO4ò¢±ýdOBà_B¿±ý[O>oé_>¿O:–OdkÔ_dOdkÔ_d±ü[(1161 MASKSTROKE.IP 1154 \SETBRUSH.IP 1145 \CLIPCURVELINE.IP 1119 \CLIPCURVELINE.IP 1054 \CLIPCURVELINE.IP 1027 LINETO.IP 955 MOVETO.IP 940 MASKSTROKE.IP 933 \SETBRUSH.IP 883 ABS 867 ABS 791 FGTP 773 FIXR 744 FIXR 644 EQP 623 EQP 552 EQP 547 ELT 536 ELT 524 EQP 519 ELT 508 ELT 444 LOADPOLY 438 ELT 430 ELT 421 ELT 412 ELT 400 LOADPOLY 394 ELT 386 ELT 378 ELT 369 ELT 356 MASKSTROKE.IP 349 \SETBRUSH.IP 319 FIXR 310 FIXR 290 MOVETO.IP 120 ELT 110 ELT 47 ARRAY 35 ARRAY 23 ARRAY 11 ARRAY) (843 ARRAYP 822 ARRAYP 600 ARRAYP 579 ARRAYP 476 ARRAYP 455 ARRAYP 235 INTERPRESSDATA 221 INTERPRESSDATA 207 INTERPRESSDATA 193 INTERPRESSDATA 183 STREAM 42 FLOATP 30 FLOATP 18 FLOATP 6 FLOATP) ( 1244 1.0 1221 4.0 1212 4.0 809 1.0 786 1.0 679 0.0 660 0.0 650 5.0E-4 639 0.0 629 5.0E-4 618 0.0 562 1.0 296 0.0 157 2.0 152 635/18) \CLIPCURVELINE.IP :D8 (P 4 SWAPPED P 3 DY P 2 DX P 1 CA2 P 0 CA1 I 9 IPSTREAM I 8 PT1VISP I 7 BOTTOM I 6 TOP I 5 RIGHT I 4 LEFT I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) P@Bó²@¸Bb¿Hb¿A¸Cb¿Hb¿i¼B@ÕºCAÕ»@ADEFG ¸BCDEFG ¹HdIåjð¡hIÔjð²0L²G©GBC¿G@A°G©G@A¿GBCiHjð³UHdló²¿@JGAÕKëêÔb¿Gb¿°(ló²@JFAÕKëêÔb¿Fb¿AKD@ÕJëêÔb¿Db¿@ADEFG X±ÿoIdló²¿BJGCÕKëêÔb¿Gb¿±ÿCló²BJCFÕKëêÕb¿Fb¿±ÿ+CKBEÕJëêÕb¿Eb±ÿ(210 \CLIPCODE 124 LINETO.IP 114 MOVETO.IP 95 MOVETO.IP 64 \CLIPCODE 50 \CLIPCODE) NIL () \DRAWLINE.IP :D8 (P 2 HALFWIDTH P 1 W P 0 IPDATA 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 IPSTREAM) J G²ABCDEF@GG @i @É0Ed“‰3‘E„o@l ¿@lx ¿@l ¿@lj ¿HÉ:CdAó‘¿AIÕýó²_HÉ@DdBó‘¿BIÕýó²JACó‘A€CIÔHÉ<ýó²5BDó‘B€DIÔHÉ>ýó² @AB¿@CD¿@E ²ME°VIoëºABCDHÉ:JÔHÉJÕHÉ@JÔh@ ²&@E ‘E‹gEGhF¿@ ¿@l ¿@lk ¿@CD(327 SETXY.IP 318 \BOUT 309 \BOUT 299 MASKSTROKE.IP 292 \SETBRUSH.IP 271 BRUSHP 262 \CLIPCURVELINE.IP 197 BRUSHP 189 LINETO.IP 180 MOVETO.IP 87 \BOUT 78 \BOUT 69 \BOUT 60 \BOUT 28 SHOW.IP 20 DRAWDASHEDLINE) (279 BUTT 250 INTERPRESSDATA 240 INTERPRESSDATA 230 INTERPRESSDATA 220 INTERPRESSDATA 166 INTERPRESSDATA 145 INTERPRESSDATA 115 INTERPRESSDATA 94 INTERPRESSDATA) ( 208 2.0 49 635/18) \CLIPLINE :D8 (P 8 DY P 7 DX P 6 CA2 P 5 CA1 P 4 TOP P 3 BOTTOM P 2 RIGHT P 1 LEFT P 0 HALFWIDTH I 5 CLIPREG I 4 WIDTH I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) E DoëEHÔ¹EEØmÿØHÕºEHÔ»EEØmÿØHÕ¼@Bó²@½Bb¿Mb¿A½Cb¿Mb¿B@Õ_¿CAÕ_¿@AIJLK ½BCIJLK ¾MdNåjð¡hNÔjð² @ A B C hMjð³YMdló²¿@OKAÕOëêÔb¿Kb¿°-ló²@OLAÕOëêÔb¿Lb¿°AOI@ÕOëêÔb¿Ib¿@AIJLK ]±ÿ{Ndló²¿BOKCÕOëêÔb¿Kb¿±ÿPló²BOCLÕOëêÕb¿Lb¿±ÿ6COBJÕOëêÕb¿Jb±ÿ#(244 \CLIPCODE 150 FIXR 144 FIXR 138 FIXR 132 FIXR 110 \CLIPCODE 97 \CLIPCODE) NIL ( 5 2.0) \DSPBOTTOMMARGIN.IP :D8 (I 1 YPOSITION I 0 IPSTREAM) %@É0ÉA²@É0A¿NIL (30 INTERPRESSDATA 23 STREAM 12 INTERPRESSDATA 5 STREAM) () \DSPFONT.IP :D8 (P 2 FRAMEVAR P 1 OLDFONT P 0 IPDATA I 1 FONT I 0 IPSTREAM F 3 \DEFAULTCHARSET F 4 *INTERPRESS-PRINTER-DSPFONT-PATCH*) @É0!HÉYA¢± @ IAhddg µ IA bð’±æAHÉµ @A Z@J @l ¿@l— ¿HAHS HdÉ,HÉÈ Ö .HmÝA È ÙAÉgð¦HAÉ(¿@ HdÉ>AÈÕDHdÉ@AÈ ÔFHHÉHÉ:ýóhð´+HÉHÉFýóhð´HÉHÉDóhðJT²@HÉHÉI(279 \MOVETO.IP 163 \FIXLINELENGTH.IP 130 FONTCREATE 119 FIXR 104 \CHANGECHARSET.IP 92 \BOUT 83 \BOUT 75 APPENDINTEGER.IP 66 DEFINEFONT.IP 45 FONTCOPY 36 FONTCREATE 20 SHOW.IP) (272 INTERPRESSDATA 264 INTERPRESSDATA 247 INTERPRESSDATA 239 INTERPRESSDATA 225 INTERPRESSDATA 217 INTERPRESSDATA 203 INTERPRESSDATA 195 INTERPRESSDATA 189 INTERPRESSDATA 148 MCCS 141 FONTDESCRIPTOR 30 INTERPRESS) () \DSPLEFTMARGIN.IP :D8 (I 1 XPOSITION I 0 IPSTREAM) @É0ÉA@É0A¿@ ¿(19 \FIXLINELENGTH.IP) NIL () \DSPLINEFEED.IP :D8 (P 0 IPDATA I 1 DELTAY I 0 IPSTREAM) @É0HÉA²Ad3–¿HA¿ ¿(28 \ILLEGAL.ARG) NIL () \DSPRIGHTMARGIN.IP :D8 (P 0 IPDATA I 1 XPOSITION I 0 IPSTREAM) 7@É0!HÉ A²&HA ¿HdÉHÕ_A[A\NKñhð´KOñhð´OLñhð´dOñhð_@ @l ¿@lx ¿@l ¿@lj ¿O˜@KL¿AO_¢±üJkÔZldñ²@Ch¿@ ¿jº@KL¿K_¿L_¿O»O¼O²DNKñhð´KOñhð´OLñhð´LOñhð_™@KL°zOOKLNOOOi@ ¿°PNKñhð´KOñhð´OLñhð´LOñhð_²OOKLNOOOh@ °*OOKLNOOOh@ Ÿ@Ch¿@ ¿jZ¿B²Od¯¿hAh_¿hb¿O±ÿO²@C ¿@Ch¿@ ¿@l ¿@lk ¿@KLh(524 SETXY.IP 515 \BOUT 506 \BOUT 497 MASKSTROKE.IP 490 \SETBRUSH.IP 481 \SETBRUSH.IP 437 MASKSTROKE.IP 430 \SETBRUSH.IP 421 \CLIPCURVELINE.IP 398 \CLIPCURVELINE.IP 341 \CLIPCURVELINE.IP 318 LINETO.IP 255 MOVETO.IP 244 MASKSTROKE.IP 237 \SETBRUSH.IP 205 MOVETO.IP 193 \BOUT 184 \BOUT 175 \BOUT 166 \BOUT 158 SHOW.IP 12 \DRAWPOLYGON.GENERIC) (107 INTERPRESSDATA 95 INTERPRESSDATA 83 INTERPRESSDATA 72 INTERPRESSDATA 43 STREAM) ( 36 2.0 31 635/18) \FIXLINELENGTH.IP :D8 (P 1 LLEN P 0 IPDATA I 0 IPSTREAM) &@É0@HÉ HÉÕHÉÈ× Ykñ‘Il Íh(24 FIXR) NIL () \MOVETO.IP :D8 (I 2 Y I 1 X I 0 IPSTREAM) @i @AB(14 SETXY.IP 6 SHOW.IP) NIL () \SETBRUSH.IP :D8 (P 2 COLOR P 1 SHAPE P 0 WIDTH I 2 OPERATION I 1 BRUSH I 0 IPSTREAM) 0AµVg¹Aµo¸@H @l @Idgð²<¿l @l AZd´d3”jJó´@JBh¹Aµ´o°gð’j°ÁIgð²¶k°µ(88 SETCOLOR.IP 63 ISET.IP 55 APPENDNUMBER.IP 36 ISET.IP 28 APPENDNUMBER.IP) (121 BUTT 110 SQUARE 44 ROUND 11 ROUND) ( 103 635/18 20 635/18) \STRINGWIDTH.IP :D8 (I 2 RDTBL I 1 STRING I 0 STREAM) A@É0ÉB@É0É.(16 \STRINGWIDTH.GENERIC) NIL () \DSPCLIPPINGREGION.IP :D8 (P 2 \INTERRUPTABLE P 0 IPDATA I 1 REGION I 0 STREAM) D@É0HÉ6YIIIIA²HA6¿HA (64 \CHANGE-VISIBLE-REGION.IP) (53 INTERPRESSDATA 16 INTERPRESSDATA 5 STREAM) () \DSPOPERATION.IP :D8 (P 0 IPDATA I 1 OPERATION I 0 IPSTREAM) >@É0HÉ8A²2Agð³Agð³Agð©Adgð–¿HA8¿ ¿(58 \ILLEGAL.ARG) (44 ERASE 35 INVERT 26 REPLACE 17 PAINT) () IP-TOS :D8 (P 0 STACK I 0 IPSTREAM) @g Hµo@ (27 ERROR 10 STREAMPROP) (5 STACK) ( 21 "Stack is empty") POP-IP-STACK :D8 (P 0 STACK I 0 IPSTREAM) +@g H@gHo@ (40 ERROR 28 STREAMPROP 10 STREAMPROP) (21 STACK 5 STACK) ( 34 "Stack is empty") PUSH-IP-STACK :D8 (I 1 OBJECT I 0 IPSTREAM) @gA@g (23 STREAMPROP 17 STREAMPROP) (12 STACK 5 STACK) () \CHANGECHARSET.IP :D8 (P 5 \INTERRUPTABLE P 0 FONT I 1 CHARSET I 0 IPDATA) @@ÉHÉAàÐÉµHÉAàAH JKÐL¿L¹@IÉ¿@AÏ&‡h(32 \CREATECHARSET) (21 FONTDESCRIPTOR) () \INTERPRESSINITA0018 :D8 NIL oNIL NIL ( 4 35.27778) \INTERPRESSINIT :D8 NIL µ`dg¿dg¿dg¿dg¿dg¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg ¿dg"¿dg$¿dg(¿dg&¿dg,¿dg*¿dg0¿dg2¿dg4¿dgD¿dg<¿dgB¿dgL¿dgR¿dgT¿dgJ¿dgP¿dgN¿dgV¿dg.¿dg:¿dg@¿dgX¿dg^¿dg\¿dgZ¿dgF¿dg>¿dg8¿dg6¿hNIL (433 \IPIMAGEOPS 425 NILL 416 NILL 407 NILL 398 NILL 389 \MEDW.BLTCHAR 380 \MEDW.XOFFSET 371 \MEDW.YOFFSET 362 \DRAWPOINT.IP 353 \DRAWPOLYGON.IP 344 \BITMAPSIZE.IP 335 \DSPOPERATION.IP 326 \DEFAULTSTATE.IP 317 \DSPTRANSLATE.IP 308 \DSPSCALE2.IP 299 \DSPROTATE.IP 290 \POPSTATE.IP 281 \PUSHSTATE.IP 272 \DRAWARC.IP 263 POLYSHADE.IP 254 \DSPCLIPPINGREGION.IP 245 \SCALEDBITBLT.IP 236 \CHARWIDTH.IP 227 \STRINGWIDTH.IP 218 \DSPCOLOR.IP 209 \DSPSPACEFACTOR.IP 200 INTERPRESS 191 \DSPTOPMARGIN.IP 182 \DSPBOTTOMMARGIN.IP 173 NEWLINE.IP 164 \INTERPRESSINITA0018 155 \MOVETO.IP 146 NEWPAGE.IP 137 \BITBLT.IP 128 \BLTSHADE.IP 119 CIRCSHADE.IP 110 \DRAWELLIPSE.GENERIC 101 \DRAWCIRCLE.GENERIC 92 \DRAWCURVE.IP 83 \DRAWLINE.IP 74 \DSPLINEFEED.IP 65 \DSPRIGHTMARGIN.IP 56 \DSPLEFTMARGIN.IP 47 \DSPFONT.IP 38 \DSPYPOSITION.IP 29 \DSPXPOSITION.IP 20 \CLOSEIPSTREAM 11 INTERPRESS 4 |IMAGEOPSTYPE#|) () INTERPRESSBITMAP :D8 (P 2 H P 1 W P 0 IPSTREAM I 5 TITLE I 4 ROTATION I 3 REGION I 2 SCALEFACTOR I 1 BITMAP I 0 OUTPUTFILE) ê0@µgg XCµgAÈYCµUAÈZE² ln ìÖEH ÙjH¿EH ¿B—IBÖ¹JBÖºDµlZnh bdjð²¿jIÕ¹jJÕZ°8°±° l´ð³)DdlZð˜¿jIÕJ¹Z°nð–jJÕIºYŠDo ¿Hn ìoÖIoÖÔn ìoÖJoÖÔHACBD H (231 CLOSEF 225 SHOWBITMAP.IP 214 \MOVETO.IP 173 ERROR 101 IMOD 77 PRIN1 69 RELMOVETO 61 STRINGWIDTH 20 OPENIMAGESTREAM) (42 BITMAP 30 BITMAP 15 INTERPRESS 10 {SCRATCH}IPBITMAP.SCRATCH) ( 207 17.63889 200 5.5 190 17.63889 183 4.25 168 "rotation by other than multiples of 90 degrees not implemented") \CREATEINTERPRESSFONT :D8 (I 0 FONTSPEC) ³`@HdI¿@HdI¿@HdI¿@HdIÍ¿@HdI¿djÍ¿djÍ ¿djÍ ¿@@@@@@HdI¿do¿@ HdI¿llÿØi HdI¿(167 \ALLOCBLOCK 146 MCCSMAPFN) (4 |FONTDESCRIPTORTYPE#|) ( 137 35.27778) \CREATECHARSET.IP :D8 (I 2 CHARSET I 1 FONT I 0 FONTSPEC) @BAµ@B (16 \COERCECHARSET 7 \READCHARSET) NIL () IPFONT.FILEP :D8 (I 0 STREAM) o@g (20 STRING.EQUAL 15 FILENAMEFIELD) (10 EXTENSION) ( 4 "wd") IPFONT.GETCHARSETA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 47 I P 45 I P 39 I P 37 I P 35 I P 29 I P 27 I P 25 FILEFACE P 24 FILEFAM P 23 FAMCODE P 22 SIZE P 21 LENGTH P 20 TYPE P 19 NEXT P 13 CHARSETHEIGHT P 12 FBBOX P 11 WIDTHSY P 10 WIDTHS P 9 TEM P 8 LASTCHAR P 7 FIRSTCHAR P 6 RELFLAG P 5 FIXEDFLAGS P 4 WSTRM P 3 CSINFO P 2 NSMICASIZE I 0 SI::*CLEANUP-FORMS* F 48 FILE F 49 SI::*RESETFORMS* F 50 FONT) G0Wdg n ìÚoë `dh¿dnÿÿÍ¿lÿlØkØâ HdI¿òW`gi\µ#oW`gg\hWbcb¿L ³Lggg\ ¼jaiL _.³‚jð˜h^’±šhLO& ¿L _(¿L _*¿O&O*O(låáØàÔ_&¿O(ââââdlð²Ç¿L _0¿L _2¿L _¿L _¿L áL Ø_,jð³#O,˜O, ³oJO,ÙJë ó²‘L áL Ø_jð³O¢±ÿ~O ¢±ÿsO,±ÿfKÉ_Njðµ N´N ^Ld à L áL Ødnÿñ•nÿÿÙkÙ_KjL áL Ødnÿñ•nÿÿÙkÙÙÍL áL ØL áL Ødnÿñ•nÿÿÙkÙ_N²$KKÈJÚnèÛÍ¿OJÚnèÛ_¿KOKÈÙÍ L ââââââ]L Mlålð²OL áL Ø_¿N²Ojð³Od— ªOJÚnèÛ_¿OOO6O4ó³OO6ÐOÍ¿O6kÔ_6°ë±ÙOOO:O8ó³OO:Ðn€Í¿O:kÔ_:°êLg OOàOOÙkØàLg L Ù_¿dOñ’¿O!O<É É>_ ¿OO@OBlO OO#OFODó³OOFÐÈn€ð˜OOFÐjÍ¿OFkÔ_F°àN².OO%OJOHó³OOJÐOOJÐÈJÚnèÛÍ¿OJkÔ_J°àMkåkð²EL L ýñ–L áL Ø€j_¿KN²Odjð³d— ¨OJÚnèÛOKKlÿlØkØâ _"¿O"_¿OO'ONOLó³OONÐn€Í¿ONkÔ_N°êLOOàOOÙkØà+OPÉ É>_$¿OPOROTOVlO$OO-OZOXó³OOZÐÈn€ð˜OOZÐjÍ¿OZkÔ_Z°àN¢±ÿ_OO/O^O\ó’±ÿOOO^ÐOO^ÐÈJÚnèÛÍ¿O^kÔ_^°Þ(905 \ALLOCBLOCK 870 \FZEROP 831 GETEOFPTR 825 GETFILEPTR 673 GETFILEPTR 667 GETFILEINFO 643 \GETSTREAM 550 \FZEROP 371 SETFILEPTR 365 \FIXPIN 357 \FZEROP 322 \FZEROP 292 ABS 274 \FZEROP 190 SETFILEPTR 165 \FAMILYCODE 153 COPYBYTES 147 OPENSTREAM 124 RANDACCESSP 108 OPENSTREAM 83 GETSTREAM 57 \ALLOCBLOCK 26 FIXR 11 FONTPROP) (980 FDEV 973 STREAM 892 CHARSETINFO 851 CHARSETINFO 702 FDEV 695 STREAM 662 LENGTH 638 INPUT 496 CHARSETINFO 488 CHARSETINFO 460 CHARSETINFO 454 CHARSETINFO 397 CHARSETINFO 337 CHARSETINFO 142 NEW 137 BOTH 132 {NODIRCORE} 103 OLD 98 INPUT 77 INPUT 31 |CHARSETINFOTYPE#| 6 SIZE) ( 281 0.02 91 (PROGN (CLOSEF? OLDVALUE)) 20 72.0) IPFONT.GETCHARSET :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FONT I 1 CHARSET I 0 FILE F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 IPFONT.GETCHARSETA0001) (8 SI::RESETUNWIND) () \FACECODE :D8 (I 0 FACE) t@dgð“¿j°dgð“¿lŽgð’l„@dgð“¿j°dgð“¿lŽgð’l„Ø@dgð’¿jgð‘k„Ø(112 SHOULDNT 83 SHOULDNT 42 SHOULDNT) (103 ITALIC 93 REGULAR 73 LIGHT 62 BOLD 50 MEDIUM 32 EXPANDED 21 COMPRESSED 9 REGULAR) () \FAMILYCODE :D8 (P 6 I P 4 LENGTH P 3 CODE P 2 TYPE P 1 NEXT P 0 NCHARS I 1 WSTRM I 0 FAMILY) xAj @ j2AI ¿A ºA ¼ILJlåáØàÔ¹Jââââdkð²?¿A áA Ø»@ið³)HA ð²ÌHkNMó³A @N ð¡h†NkÔ^°ëi²«AI Kjð²žh(110 SETFILEPTR 89 NTHCHARCODE 23 SETFILEPTR 12 NCHARS 6 SETFILEPTR) NIL () (PRETTYCOMPRINT INTERPRESSCOMS) (RPAQQ INTERPRESSCOMS ((COMS (* ; "Literal interface") (INITVARS (CHARACTERCODEVERSION (QUOTE XC1-1-1) ) (INTERPRESSVERSION "2.1") (PRINTSERVICE 10.0) (DEFAULTINTERPRESSMEDIUM (QUOTE (PAPER (KNOWN.SIZE "US.LETTER"))))) (VARS KNOWN.MEDIA.SIZES) (COMS (DECLARE%: DONTCOPY EVAL@COMPILE (VARS * IPCONSTANTS) (MACROS \IPC) (* ; "MICASPERINCH is used by HARDCOPY") (EXPORT (CONSTANTS (MICASPERINCH 2540) ( MICASPERMILLIMETER 100))))) (FNS APPENDBYTE.IP APPENDIDENTIFIER.IP APPENDINT.IP APPENDINTEGER.IP APPENDLARGEVECTOR.IP APPENDNUMBER.IP APPENDOP.IP APPENDRATIONAL.IP APPENDSEQUENCEDESCRIPTOR.IP BYTESININT.IP)) (COMS (* ; "Operator interface") (FNS ARCTO.IP BEGINMASTER.IP BEGINPAGE.IP BEGINPREAMBLE.IP CLIPRECTANGLE.IP CONCAT.IP CONCATT.IP ENDMASTER.IP ENDPAGE.IP ENDPREAMBLE.IP FGET.IP FILLRECTANGLE.IP FILLTRAJECTORY.IP FILLNGON.IP FSET.IP GETFRAMEVAR.IP INITIALIZEMASTER.IP INITIALIZECOLOR.IP ISET.IP GETCP.IP LINETO.IP MASKSTROKE.IP MOVETO.IP ROTATE.IP SCALE.IP SCALE2.IP SETCOLOR.IP SETRGB.IP SETCOLORLV.IP SETCOLOR16.IP SETFONT.IP SETSPACE.IP SETXREL.IP SETX.IP SETXY.IP SETXYREL.IP SETY.IP SETYREL.IP SHOW.IP TRAJECTORY.IP TRANS.IP TRANSLATE.IP)) (COMS (* ; "DIG interface") (FNS \CHANGE-VISIBLE-REGION.IP \PAPERSIZE.IP HEADINGOP.IP) (FNS DEFINEFONT.IP FONTNAME.IP INTERPRESS.BITMAPSCALE INTERPRESS.OUTCHARFN INTERPRESSFILEP MAKEINTERPRESS NEWLINE.IP NEWPAGE.IP NEWPAGE?.IP OPENIPSTREAM SETUPFONTS.IP SHOWBITMAP.IP \BITMAPSIZE.IP SHOWBITMAP1.IP SHOWSHADE.IP \BITBLT.IP \SCALEDBITBLT.IP \BLTSHADE.IP \CHARWIDTH.IP \CLOSEIPSTREAM \DRAWARC.IP \DRAWCURVE.IP \DRAWPOINT.IP \DSPCOLOR.IP ENSURE.RGB \IPCURVE2 \CLIPCURVELINE.IP \DRAWLINE.IP \CLIPLINE \DSPBOTTOMMARGIN.IP \DSPFONT.IP \DSPLEFTMARGIN.IP \DSPLINEFEED.IP \DSPRIGHTMARGIN.IP \DSPSPACEFACTOR.IP \DSPTOPMARGIN.IP \DSPXPOSITION.IP \DSPROTATE.IP \PUSHSTATE.IP \POPSTATE.IP \DEFAULTSTATE.IP \DSPTRANSLATE.IP \DSPSCALE2.IP \DSPYPOSITION.IP FILLCIRCLE.IP \FILLPOLYGON.IP \DRAWPOLYGON.IP \FIXLINELENGTH.IP \MOVETO.IP \SETBRUSH.IP \STRINGWIDTH.IP \DSPCLIPPINGREGION.IP \DSPOPERATION.IP)) (COMS (* ; "Patch controller for the %"Bonnet%" printer bug that loses X,Y position when you do a DSPFONT") ( INITVARS (*INTERPRESS-PRINTER-DSPFONT-PATCH* NIL))) (COMS (* ; "image state") (FNS IP-TOS POP-IP-STACK PUSH-IP-STACK) (RECORDS IPSTATE)) (FNS \CHANGECHARSET.IP) (FNS \INTERPRESSINIT) (DECLARE%: DONTEVAL@LOAD DOCOPY (INITVARS (\SPLINESTEP.IP 16.0))) (DECLARE%: DONTEVAL@LOAD DOCOPY (INITVARS IPPAGEREGION.ROT180 IPPAGEREGION.ROT270 (DEFAULTPAGEREGION (SCALEREGION MICASPERINCH (CREATEREGION 1.1 0.75 (- 7.5 1.1) (- 10.5 0.75)))) (DEFAULTLANDPAGEREGION (SCALEREGION MICASPERINCH (CREATEREGION 0.75 1.1 (- 10.5 0.75) (- 7.5 1.1)))))) (* ; "Interpress encoding values") (DECLARE%: DONTCOPY (CONSTANTS MAXSEGSPERTRAJECTORY)) (DECLARE%: DONTCOPY (MACROS APPENDBYTE.IP APPENDOP.IP .IPFONTNAME. APPENDINT.IPMACRO APPENDINTEGER.IPMACRO \IMAGEPATH.IP \WIDTHFROMBRUSH \VISIBLE.IP) (RECORDS IPSTREAM INTERPRESSDATA)) (INITRECORDS IPSTREAM INTERPRESSDATA) (FNS INTERPRESSBITMAP) (ALISTS ( IMAGESTREAMTYPES INTERPRESS)) (* ;; "HOSTNAMEP is NILL for DOCUPRINT instead of NSPRINTER.HOSTNAMEP, since that predicate merely tests for colon in the name. DOCUPRINT printers are only recognized from their PRINTERTYPE property, which must be on their CANONICAL.HOSTNAME. Preference is for INTERPRESS (CANPRINT ordering), for backward compatibility. But printer can be put on DEFAULTPRINTINGHOST twice, with the type CONSed on to the name, to give the user dynamic selection." ) (ADDVARS (PRINTERTYPES ((DOCUPRINT) (CANPRINT (INTERPRESS POSTSCRIPT)) (HOSTNAMEP NILL) (STATUS NSPRINTER.STATUS) (PROPERTIES NSPRINTER.PROPERTIES) (SEND NSPRINT) (BITMAPSCALE INTERPRESS.BITMAPSCALE ) (BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))) ((INTERPRESS 8044) ( CANPRINT (INTERPRESS)) (HOSTNAMEP NSPRINTER.HOSTNAMEP) (STATUS NSPRINTER.STATUS) (PROPERTIES NSPRINTER.PROPERTIES) (SEND NSPRINT) (BITMAPSCALE INTERPRESS.BITMAPSCALE) (BITMAPFILE ( INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (PRINTFILETYPES (INTERPRESS (TEST INTERPRESSFILEP) (EXTENSION (IP IPR INTERPRESS)) (CONVERSION (TEXT MAKEINTERPRESS TEDIT \TEDIT.HARDCOPY))))) (ADDVARS (IMAGESTREAMTYPES (INTERPRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE) ( CREATECHARSET \CREATECHARSET.HCPYMODE)))) (INITVARS (DEFAULT.INTERPRESS.BITMAP.ROTATION 90)) (ALISTS ( SYSTEMINITVARS INTERPRESSFONTDIRECTORIES)) (ADDVARS (INTERPRESSFONTEXTENSIONS MEDLEYINTERPRESSFONT WD) ) (COMS (* ; "Interpress fonts; but see MEDLEY-INIT-VARS") (INITVARS (INTERPRESSFONTDIRECTORIES (QUOTE (fonts>medleyinterpressfonts> fonts>ipfonts>))) (INTERPRESSPRINTWHEELFAMILIES (QUOTE (BOLDPS ELITE LETTERGOTHIC MASTER PICA PSBOLD SCIENTIFIC SPOKESMAN TITAN TREND TRENDPS TROJAN VINTAGE))) ( INTERPRESSFAMILYALIASES (QUOTE (LOGO LOGOTYPES-XEROX)))) (FNS \CREATEINTERPRESSFONT \CREATECHARSET.IP) (FNS) (COMS (FNS IPFONT.FILEP IPFONT.GETCHARSET \FACECODE \FAMILYCODE) (MACROS \POSITIONFONTFILE) ( EXPORT (CONSTANTS (noInfoCode 32768)))) (ADDVARS (INTERPRESSCHARSETFNS (INTERPRESS IPFONT.FILEP IPFONT.GETCHARSET))) (INITVARS (INTERPRESSFONTCOERCIONS (QUOTE ((TIMESROMAN CLASSIC) (GACHA TERMINAL) (HELVETICA MODERN) (CLASSIC MODERN) (GACHA MODERN) (TIMESROMAN MODERN) (LOGO LOGOTYPES) (HIPPO CLASSIC ) (CYRILLIC CLASSIC) (SYMBOL MODERN) (MATH CLASSIC) (SIGMA MODERN) (* MODERN)))))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\INTERPRESSINIT))) (DECLARE%: EVAL@COMPILE DONTCOPY (P (LOADDEF (QUOTE SYSTEMBRUSH) (QUOTE RESOURCES) (QUOTE IMAGEIO)) (LOADDEF (QUOTE BRUSH) (QUOTE RECORDS) (QUOTE IMAGEIO) ))))) (RPAQ? CHARACTERCODEVERSION (QUOTE XC1-1-1)) (RPAQ? INTERPRESSVERSION "2.1") (RPAQ? PRINTSERVICE 10.0) (RPAQ? DEFAULTINTERPRESSMEDIUM (QUOTE (PAPER (KNOWN.SIZE "US.LETTER")))) (RPAQQ KNOWN.MEDIA.SIZES (("US.LETTER" (216 279)) ("US.LEGAL" (216 356)) ("A0" (841 1189)) ("A1" (594 841)) ("A2" (420 594)) ("A3" (297 420)) ("A4" (210 297)) ("A5" (148 210)) ("A6" (105 148)) ("A7" (74 105)) ("A8" (52 74)) ("A9" (37 52)) ("A10" (26 37)) ("ISO.B0" (1000 1414)) ("ISO.B1" (707 1000)) ( "ISO.B2" (500 707)) ("ISO.B3" (353 500)) ("ISO.B4" (250 353)) ("ISO.B5" (176 250)) ("ISO.B6" (125 176) ) ("ISO.B7" (88 125)) ("ISO.B8" (62 88)) ("ISO.B9" (44 62)) ("ISO.B10" (31 44)) ("JIS.B0" (1030 1456)) ("JIS.B1" (728 1030)) ("JIS.B2" (515 728)) ("JIS.B3" (364 515)) ("JIS.B4" (257 364)) ("JIS.B5" (182 257)) ("JIS.B6" (128 182)) ("JIS.B7" (91 128)) ("JIS.B8" (64 91)) ("JIS.B9" (45 64)) ("JIS.B10" (32 45 )))) (RPAQ? *INTERPRESS-PRINTER-DSPFONT-PATCH* NIL) (RECORD IPSTATE (XPOS YPOS)) (RPAQ? \SPLINESTEP.IP 16.0) (RPAQ? IPPAGEREGION.ROT180 NIL) (RPAQ? IPPAGEREGION.ROT270 NIL) (RPAQ? DEFAULTPAGEREGION (SCALEREGION MICASPERINCH (CREATEREGION 1.1 0.75 (- 7.5 1.1) (- 10.5 0.75)))) (RPAQ? DEFAULTLANDPAGEREGION (SCALEREGION MICASPERINCH (CREATEREGION 0.75 1.1 (- 10.5 0.75) (- 7.5 1.1 )))) (/DECLAREDATATYPE (QUOTE INTERPRESSDATA) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD BYTE BYTE BYTE BYTE POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE (( INTERPRESSDATA 0 POINTER) (INTERPRESSDATA 2 POINTER) (INTERPRESSDATA 4 POINTER) (INTERPRESSDATA 6 POINTER) (INTERPRESSDATA 8 POINTER) (INTERPRESSDATA 10 POINTER) (INTERPRESSDATA 12 POINTER) ( INTERPRESSDATA 14 POINTER) (INTERPRESSDATA 16 POINTER) (INTERPRESSDATA 18 POINTER) (INTERPRESSDATA 20 POINTER) (INTERPRESSDATA 22 POINTER) (INTERPRESSDATA 24 POINTER) (INTERPRESSDATA 26 POINTER) ( INTERPRESSDATA 28 POINTER) (INTERPRESSDATA 30 POINTER) (INTERPRESSDATA 32 POINTER) (INTERPRESSDATA 34 POINTER) (INTERPRESSDATA 36 (BITS . 15)) (INTERPRESSDATA 37 (BITS . 7)) (INTERPRESSDATA 37 (BITS . 135 )) (INTERPRESSDATA 38 (BITS . 7)) (INTERPRESSDATA 38 (BITS . 135)) (INTERPRESSDATA 40 POINTER) ( INTERPRESSDATA 42 POINTER) (INTERPRESSDATA 44 POINTER) (INTERPRESSDATA 46 POINTER) (INTERPRESSDATA 48 POINTER) (INTERPRESSDATA 50 POINTER) (INTERPRESSDATA 52 POINTER) (INTERPRESSDATA 54 POINTER) ( INTERPRESSDATA 39 (BITS . 15)) (INTERPRESSDATA 56 POINTER) (INTERPRESSDATA 58 POINTER) (INTERPRESSDATA 60 POINTER) (INTERPRESSDATA 62 POINTER) (INTERPRESSDATA 64 POINTER) (INTERPRESSDATA 66 POINTER) ( INTERPRESSDATA 68 POINTER) (INTERPRESSDATA 70 POINTER) (INTERPRESSDATA 72 POINTER) (INTERPRESSDATA 74 POINTER) (INTERPRESSDATA 76 POINTER) (INTERPRESSDATA 78 POINTER))) (QUOTE 80)) (ADDTOVAR IMAGESTREAMTYPES (INTERPRESS (OPENSTREAM OPENIPSTREAM) (FONTCREATE \CREATEINTERPRESSFONT) ( FONTSAVAILABLE \SEARCHFONTFILES) (CREATECHARSET \CREATECHARSET.IP))) (ADDTOVAR PRINTERTYPES ((DOCUPRINT) (CANPRINT (INTERPRESS POSTSCRIPT)) (HOSTNAMEP NILL) (STATUS NSPRINTER.STATUS) (PROPERTIES NSPRINTER.PROPERTIES) (SEND NSPRINT) (BITMAPSCALE INTERPRESS.BITMAPSCALE ) (BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))) ((INTERPRESS 8044) ( CANPRINT (INTERPRESS)) (HOSTNAMEP NSPRINTER.HOSTNAMEP) (STATUS NSPRINTER.STATUS) (PROPERTIES NSPRINTER.PROPERTIES) (SEND NSPRINT) (BITMAPSCALE INTERPRESS.BITMAPSCALE) (BITMAPFILE ( INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (ADDTOVAR PRINTFILETYPES (INTERPRESS (TEST INTERPRESSFILEP) (EXTENSION (IP IPR INTERPRESS)) ( CONVERSION (TEXT MAKEINTERPRESS TEDIT \TEDIT.HARDCOPY)))) (ADDTOVAR IMAGESTREAMTYPES (INTERPRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE) (CREATECHARSET \CREATECHARSET.HCPYMODE))) (RPAQ? DEFAULT.INTERPRESS.BITMAP.ROTATION 90) (ADDTOVAR SYSTEMINITVARS (INTERPRESSFONTDIRECTORIES {DSK})) (ADDTOVAR INTERPRESSFONTEXTENSIONS MEDLEYINTERPRESSFONT WD) (RPAQ? INTERPRESSFONTDIRECTORIES (QUOTE (fonts>medleyinterpressfonts> fonts>ipfonts>))) (RPAQ? INTERPRESSPRINTWHEELFAMILIES (QUOTE (BOLDPS ELITE LETTERGOTHIC MASTER PICA PSBOLD SCIENTIFIC SPOKESMAN TITAN TREND TRENDPS TROJAN VINTAGE))) (RPAQ? INTERPRESSFAMILYALIASES (QUOTE (LOGO LOGOTYPES-XEROX))) (PUTPROPS \POSITIONFONTFILE MACRO ((WSTRM NSMICASIZE FIRSTCHAR LASTCHAR FAMILY FACECODE) (* ;; "Some of the parameters are variable names to be set. Value is either NIL or SIZE") (bind TYPE LENGTH SIZE FAMCODE FILEFAM FILEFACE (NEXT _ 0) first (OR (SETQ FAMCODE (\FAMILYCODE (OR FAMILY T) WSTRM)) ( RETURN NIL)) do (SETQ TYPE (\BIN WSTRM)) (SETQ LENGTH (\BIN WSTRM)) (add NEXT (LLSH (IPLUS LENGTH ( LLSH (LOGAND TYPE 15) 8)) 1)) (SELECTQ (LRSH TYPE 4) (4 (SETQ FILEFAM (\BIN WSTRM)) (SETQ FILEFACE ( \BIN WSTRM)) (CL:WHEN (OR (EQ FAMILY T) (EQ FAMILY NIL) (AND (IEQP FILEFAM FAMCODE) (IEQP FILEFACE FACECODE))) (SETQ FIRSTCHAR (\BIN WSTRM)) (SETQ LASTCHAR (\BIN WSTRM)) (CL:WHEN (AND (OR (ZEROP (SETQ SIZE (\WIN WSTRM))) (LESSP (ABS (FQUOTIENT (IDIFFERENCE NSMICASIZE SIZE) NSMICASIZE)) 0.02)) (ZEROP ( \WIN WSTRM))) (RETURN SIZE)))) (0 (RETURN NIL)) NIL) (SETFILEPTR WSTRM NEXT)))) (RPAQQ noInfoCode 32768) (CONSTANTS (noInfoCode 32768)) (ADDTOVAR INTERPRESSCHARSETFNS (INTERPRESS IPFONT.FILEP IPFONT.GETCHARSET)) (RPAQ? INTERPRESSFONTCOERCIONS (QUOTE ((TIMESROMAN CLASSIC) (GACHA TERMINAL) (HELVETICA MODERN) ( CLASSIC MODERN) (GACHA MODERN) (TIMESROMAN MODERN) (LOGO LOGOTYPES) (HIPPO CLASSIC) (CYRILLIC CLASSIC) (SYMBOL MODERN) (MATH CLASSIC) (SIGMA MODERN) (* MODERN)))) (\INTERPRESSINIT) NIL