(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 2-May-2023 15:50:11" ("compiled on " {DSK}larry>il>medley>sources>INTERPRESS.;8) "30-Apr-2023 14:23:09" bcompl'd in "Welcome to Fuller sysout 30-Apr-2023 ..." dated "30-Apr-2023 14:28:23") (FILECREATED " 2-May-2023 15:50:03" {DSK}larry>il>medley>sources>INTERPRESS.;8 221759 :EDIT-BY "lmm" :CHANGES-TO (MACROS APPENDOP.IP APPENDINTEGER.IPMACRO) (FNS INTERPRESSBITMAP SETSPACE.IP TRANS.IP TRANSLATE.IP APPENDIDENTIFIER.IP APPENDINTEGER.IP APPENDLARGEVECTOR.IP APPENDNUMBER.IP APPENDOP.IP APPENDRATIONAL.IP APPENDSEQUENCEDESCRIPTOR.IP 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 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 SETXREL.IP SETX.IP SETXY.IP SETXYREL.IP SETY.IP SETYREL.IP SHOW.IP HEADINGOP.IP DEFINEFONT.IP INTERPRESS.BITMAPSCALE INTERPRESSFILEP NEWPAGE.IP OPENIPSTREAM SHOWBITMAP.IP SHOWBITMAP1.IP SHOWSHADE.IP \BLTSHADE.IP \DRAWCURVE.IP \IPCURVE2 \DRAWLINE.IP \DSPFONT.IP \DSPSPACEFACTOR.IP \PUSHSTATE.IP \POPSTATE.IP \DEFAULTSTATE.IP \FILLPOLYGON.IP \DRAWPOLYGON.IP \SETBRUSH.IP \INTERPRESSINIT) (VARS INTERPRESSCOMS IPCONSTANTS IPVALUES) (FUNCTIONS \IPC) :PREVIOUS-DATE "27-Jun-2021 23:50:51" {DSK}larry>il>medley>sources>INTERPRESS.;1) 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 10 I P 5 I P 3 INTSIZE P 2 AORIG P 1 ASIZE I 1 ARRAY I 0 STREAM) ŠAHÊ‡HÈõA IJØkÙJ2MLó²$N[@lIKÚkØIJØkÙJ OOó²*hAM _¿O•OOó—O_¿M^€MkÔ]°¶@AO K¿OkÔ_°½(127 APPENDINT.IP 121 ELT 86 BYTESININT.IP 81 ELT 56 APPENDSEQUENCEDESCRIPTOR.IP 23 ARRAYORIG) (5 ARRAYP) () 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) (32 PAGE 25 PAGE) () BEGINPREAMBLE.IP :D8 (I 0 IPSTREAM) #@l ¿@lj ¿@É0gg(16 \BOUT 7 \BOUT) (32 PREAMBLE 25 PREAMBLE) () 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) NIL () ENDPREAMBLE.IP :D8 (P 0 IPDATA I 0 IPSTREAM) 2@É0HdÉ HdÊ%‡Ï%@l ¿@lk ¿Hhh(41 \BOUT 32 \BOUT 14 DREVERSE) NIL () 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š (251 \BOUT 243 \BOUT 235 APPENDINTEGER.IP 228 APPENDINTEGER.IP 221 APPENDINTEGER.IP 214 APPENDINTEGER.IP 70 FIXR 53 FIXR 36 FIXR 19 FIXR) NIL ( 61 0.11811024 44 0.11811024 27 0.11811024 10 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 NIL () 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(146 FSET.IP 138 \BOUT 129 \BOUT 120 \BOUT 111 \BOUT 102 \BOUT 93 \BOUT 85 APPENDINTEGER.IP 77 APPENDIDENTIFIER.IP 66 APPENDIDENTIFIER.IP 55 APPENDIDENTIFIER.IP 43 \BOUT 34 \BOUT 26 APPENDINTEGER.IP 19 APPENDINTEGER.IP 5 GETFRAMEVAR.IP) NIL ( 72 "RGBLinear" 61 "Research" 50 "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) g@É0È'@ ¿@A ¿@B ¿@C ¿@l ¿@l¡ ¿@l ¿@H ¿@l ¿@lç ¿@l h(99 ISET.IP 90 \BOUT 81 \BOUT 72 FGET.IP 64 \BOUT 55 \BOUT 46 APPENDINTEGER.IP 37 APPENDINTEGER.IP 29 APPENDINTEGER.IP 21 APPENDINTEGER.IP 13 SHOW.IP) NIL () 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 A3228 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(237 ISET.IP 228 \BOUT 219 \BOUT 211 APPENDINTEGER.IP 191 CONCAT.IP 185 ROTATE.IP 178 SCALE.IP 170 \BOUT 161 \BOUT 136 APPENDINT.IP 127 APPENDINT.IP 118 APPENDSEQUENCEDESCRIPTOR.IP 106 SCALE.IP 99 APPENDINTEGER.IP 92 APPENDINTEGER.IP 85 APPENDINTEGER.IP 78 APPENDNUMBER.IP 71 APPENDNUMBER.IP 64 BKBITBLT 34 BITMAPCREATE) (199 REPLACE 57 REPLACE 52 TEXTURE) () SETFONT.IP :D8 (P 2 X P 0 IPDATA I 1 FONTNUM I 0 IPSTREAM) G@A @l ¿@l— ¿@É0!HdÉYµo ¿hhºAJð“J°óI°ß(48 ERROR 23 \BOUT 14 \BOUT 6 APPENDNUMBER.IP) NIL ( 43 "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) O@É0!@A @lŒ ¿HAHÉÔY¿IbHAHÉ:ýóhð´dÉHÉFýóhð´dÉHÉDóhðJHdÉZ*J(20 \BOUT 12 APPENDNUMBER.IP) NIL () SETX.IP :D8 (P 0 IPDATA I 1 X I 0 IPSTREAM) d@É0A3²@AHÉÕ ¿@lŒ°@A ¿@HÉ ¿@lŠ ¿HAHÉ:ýóhð´dÉHÉFýóhð´dÉHÉDóhðJHAHA*A(53 \BOUT 44 APPENDNUMBER.IP 34 APPENDNUMBER.IP 21 APPENDINTEGER.IP) NIL () SETXY.IP :D8 (P 0 IPDATA I 2 Y I 1 X I 0 IPSTREAM) L@É0@A @B @lŠ ¿HAHÉ:ýóhð´BHÉFýóhð´ BHÉDóhðJ@É0AHA*HBB(27 \BOUT 19 APPENDNUMBER.IP 12 APPENDNUMBER.IP) NIL () SETXYREL.IP :D8 (P 0 IPDATA I 2 DY I 1 DX I 0 IPSTREAM) \@É0!@A @B @l‹ ¿HdÉAÔY¿IbHdÉBÔZ¿JbHAHÉ:ýóhð´BHÉFýóhð´ BHÉDóhðJHA*A(27 \BOUT 19 APPENDNUMBER.IP 12 APPENDNUMBER.IP) NIL () SETY.IP :D8 (P 0 IPDATA I 1 Y I 0 IPSTREAM) c@É0A3²@AHÉÕ ¿@l°@HÉ ¿@A ¿@lŠ ¿HdÉHÉ:ýóhð´AHÉFýóhð´ AHÉDóhðJHAA(58 \BOUT 49 APPENDNUMBER.IP 41 APPENDNUMBER.IP 26 APPENDINTEGER.IP 21 FIXR) NIL () SETYREL.IP :D8 (P 0 IPDATA I 1 DY I 0 IPSTREAM) G@É0!@A @l ¿HAHÉÔY¿IbHdÉHÉ:ýóhð´AHÉFýóhð´ AHÉDóhðZJJ(20 \BOUT 12 APPENDNUMBER.IP) NIL () SHOW.IP :D8 (P 3 A3229 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(192 \CHANGECHARSET.IP 175 \SETFILEPTR 167 \BOUT 158 \BOUT 142 \BOUT 133 COPYBYTES 123 APPENDSEQUENCEDESCRIPTOR.IP 114 \BOUT 105 \BOUT 96 \BOUT 87 \BOUT 78 \BOUT 69 \BOUT 60 APPENDINTEGER.IP 52 APPENDNUMBER.IP) NIL () 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¿@dÉ@É:ýóhð´dÉ@ÉFýóhð´dÉ@ÉDóhðJ@dÉ<@É º¹JdIó‘¿I[LKNIL NIL () \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²V@HÉHÉ"HÉÈÕ¿@R ¿A@ ¿@ ¿n ìj@¿o@ ¿@ ¿@ ¿@l ¿@lk ¿@H@ YÏ&¿I h(165 FSET.IP 154 GETFRAMEVAR.IP 145 \BOUT 136 \BOUT 127 TERPRI 120 TERPRI 113 PRIN3 101 RELMOVETO 90 SHOW.IP 83 PRIN3 75 SETFONT.IP 67 SETXY.IP 40 \BOUT 31 \BOUT 22 \BOUT 13 \BOUT) (59 FONTDESCRIPTOR) ( 107 "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µt@L ¿@l¡ ¿@l @l ¿@l“ ¿@oAg Ö @l ¿@l” ¿@ Y@I HAIHÉZ¿J½@M ¿LkÔ¼K[±ÿz(142 APPENDIDENTIFIER.IP 118 FSET.IP 110 GETFRAMEVAR.IP 103 \BOUT 94 \BOUT 86 SCALE.IP 80 FONTPROP 62 \BOUT 53 \BOUT 44 \BOUT 35 \BOUT 26 APPENDINTEGER.IP 11 FONTNAME.IP) (75 DEVICESIZE) ( 69 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 NSCODE P 0 IPDATA I 1 CHARCODE I 0 IPSTREAM) N@É0!Aµ+HÉ(AÐÈ¹HÊ&‡ºIdãJðª¿HIã ¿Il ðž@ lÿñ²ÔA°ØIdl ð²¿@d @ ¿ lð–@ Il ð“HÉ.‰HÉIlÿåÐÈ»HÉKÔ¼HÉJ²CLdHÉ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(330 SETX.IP 322 SHOW.IP 314 \CHANGECHARSET.IP 305 \BOUT 292 \CHANGECHARSET.IP 283 \BOUT 272 \BOUT 210 NEWLINE.IP 195 \BOUT 182 \CHANGECHARSET.IP 173 \BOUT 162 \BOUT 97 DSPNEWPAGE 86 \DSPXPOSITION.IP 80 NEWLINE.IP 74 \DSPXPOSITION.IP 50 NEWLINE.IP 38 \CHANGECHARSET.IP) NIL () 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) /@ @É0HÉHÉÔYdHÉýó–@ ‰@HÉIh(43 SETXY.IP 32 DSPNEWPAGE 5 SHOW.IP) NIL () 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ð–@ ¿@ HdÉ HdÊ%Ï%‡@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@ ¿HdÈ$kÔ^Í$¿N@ ¿@ ¿@ ¿@jIÈÙ °@HÉHÉ"IÈÕ¿@l @j @l ¿@l› ¿HÉ,k ³@HÉ, ¿@l ¿@I h(396 \DSPFONT.IP 388 ISET.IP 379 APPENDNUMBER.IP 368 EQP 358 \BOUT 349 \BOUT 341 APPENDINTEGER.IP 334 APPENDINTEGER.IP 325 SETXY.IP 302 SETYREL.IP 285 NEWLINE.IP 278 NEWLINE.IP 271 PRIN3 253 PRIN3 241 RELMOVETO 230 PRIN3 220 DSPFONT 212 SETXY.IP 190 \DSPFONT.IP 171 CONCATT.IP 164 TRANSLATE.IP 155 \FZEROP 135 \FZEROP 116 CONCATT.IP 109 ROTATE.IP 101 \FZEROP 83 CONCATT.IP 77 SCALE.IP 52 BEGINPAGE.IP 45 ENDPREAMBLE.IP 31 ENDPAGE.IP) (317 FONTDESCRIPTOR 294 FONTDESCRIPTOR 204 FONTDESCRIPTOR 37 PREAMBLE 22 PAGE) ( 247 "Page " 72 1/100000) NEWPAGE?.IP :D8 (I 0 IPSTREAM) @É0É@É0Éýó´@ (19 NEWPAGE.IP) NIL () 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(764 STREAMPROP 751 CL:ASSOC 746 CL:SYMBOL-FUNCTION 726 NSNAME.TO.STRING 721 PARSE.NSNAME 699 SUBSTRING 689 STRPOS 663 STRPOS 648 FULLNAME 633 FILENAMEFIELD 607 BOUNDP 597 NEWPAGE.IP 590 PUSH-IP-STACK 577 STREAMPROP 563 INITIALIZECOLOR.IP 547 \DSPCLIPPINGREGION.IP 536 SETUPFONTS.IP 521 GETFRAMEVAR.IP 499 BEGINPREAMBLE.IP 492 BEGINMASTER.IP 485 INITIALIZEMASTER.IP 460 STREAMPROP 441 STREAMPROP 436 COPY 366 \EXTERNALFORMAT 319 ERROR 314 FULLNAME 298 GETEOFPTR 277 \PAPERSIZE.IP 172 OPENSTREAM 44 EQLENGTH 25 OPENSTREAM) (759 PRINTER.DEFAULT.SCAN.DIRECTION 741 STRING-EQUAL 736 :TEST 731 PRINTER.SCAN.DIRECTIONS.LIST 714 P.SCAN.DIRECTION 638 LPT 628 HOST 618 SERVER 602 SERVER 571 COLOR 553 COLOR 530 FONTS 505 HEADING 454 CLIP.INCLUSIVE 448 CLIP.INCLUSIVE 429 PAPERSIZE 387 LANDSCAPE 373 \IPIMAGEOPS 343 INTERPRESS.OUTCHARFN 334 INTERPRESS 327 |EXTERNALFORMATTYPE#| 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) ( 678 "." 656 "}" 404 -21590 307 "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) H@É0Aµ`Id £Iºh„IºI¹Jhddg º@J ¿H²×HJ¿HJ¿h¸°É(52 DEFINEFONT.IP 44 FONTCREATE) (38 INTERPRESS 10 DEFAULTFONT) () 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µ.AÈ¸AÈ¹HlØâââlØmüåZddnÿÿñ²/¿o ¿°4jdAÈAÈh bd²WÉ ¸BÉ°¾jð³SJµGIjð³@Iµ4Cµ)objdInÿÿJÛBµ Ijñ³)hÉ_¿BÉ¼°ðoÖ°Ø ²Éh ²¶h@AOKHIdNñ‘¿NCDMJL ¿INÙ¹KNØ»°³(197 SHOWBITMAP1.IP 169 \FZEROP 160 \FZEROP 73 INTERSECTREGIONS 52 ERROR 5 SHOW.IP) NIL ( 152 33.866665 113 33.866665 47 "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ó³PABµjGµjCØEØMÙIjdDkgg ¿@IÉGlØmüå OÉ É@»OOjOlKMkÔ]°°@l¡ ¿@lÂ ¿@l¡ ¿@lÄ ¿@l ¿@lk h(399 \BOUT 390 \BOUT 381 \BOUT 372 \BOUT 363 \BOUT 354 \BOUT 304 BKBITBLT 252 APPENDINT.IP 237 APPENDINT.IP 228 APPENDSEQUENCEDESCRIPTOR.IP 216 CONCAT.IP 210 SCALE.IP 202 ERROR 191 CONCAT.IP 184 ROTATE.IP 147 IMOD 134 TRANSLATE.IP 122 APPENDINTEGER.IP 115 APPENDINTEGER.IP 108 APPENDINTEGER.IP 101 APPENDNUMBER.IP 88 APPENDNUMBER.IP 81 TRANS.IP 74 \BOUT 65 \BOUT 56 \BOUT 47 \BOUT 16 BITMAPCREATE) (298 REPLACE 293 INPUT) ( 197 "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) 2Al ð•@É0É.@É0ÉHÉAãàÐÉµAãHhÉAlÿåÐÈ(38 \CREATECHARSET) NIL () \CLOSEIPSTREAM :D8 (I 0 IPSTREAM) +@É0Édgð—¿@ Œgð–@ ¿@ (40 ENDMASTER.IP 33 ENDPREAMBLE.IP 19 ENDPAGE.IP) (25 PREAMBLE 10 PAGE) () \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) :@g ´'A²%@É0A HI@III@É0É(49 SETRGB.IP 27 ENSURE.RGB 10 STREAMPROP) (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ñ¢±ýoO2ò«oO4ò¢±ýxOBà_B¿±ýoO>oé_>¿O:–OdkÔ_dOdkÔ_d±üy(1106 MASKSTROKE.IP 1099 \SETBRUSH.IP 1090 \CLIPCURVELINE.IP 1064 \CLIPCURVELINE.IP 999 \CLIPCURVELINE.IP 972 LINETO.IP 900 MOVETO.IP 885 MASKSTROKE.IP 878 \SETBRUSH.IP 828 ABS 812 ABS 746 FGTP 728 FIXR 699 FIXR 599 EQP 578 EQP 517 EQP 512 ELT 501 ELT 489 EQP 484 ELT 473 ELT 419 LOADPOLY 413 ELT 405 ELT 396 ELT 387 ELT 375 LOADPOLY 369 ELT 361 ELT 353 ELT 344 ELT 331 MASKSTROKE.IP 324 \SETBRUSH.IP 294 FIXR 285 FIXR 265 MOVETO.IP 120 ELT 110 ELT 47 ARRAY 35 ARRAY 23 ARRAY 11 ARRAY) (42 FLOATP 30 FLOATP 18 FLOATP 6 FLOATP) ( 1189 1.0 1166 4.0 1157 4.0 764 1.0 741 1.0 634 0.0 615 0.0 605 5.0E-4 594 0.0 584 5.0E-4 573 0.0 527 1.0 271 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) " G²ABCDEF@GG @i @É0Ed“‰3‘E„o@l ¿@lx ¿@l ¿@lj ¿HÉ:CdAó‘¿AIÕýó²PHÉ@DdBó‘¿BIÕýó²@ACó‘A€CIÔHÉ<ýó²0BDó‘B€DIÔHÉ>ýó² @AB¿@CD¿@E ²9E°BIoëºABCDHÉ:JÔHÉJÕHÉ@JÔh@ ²&@E ‘E‹gEGhF¿@ ¿@l ¿@lk ¿@CD(287 SETXY.IP 278 \BOUT 269 \BOUT 259 MASKSTROKE.IP 252 \SETBRUSH.IP 231 BRUSHP 222 \CLIPCURVELINE.IP 177 BRUSHP 169 LINETO.IP 160 MOVETO.IP 87 \BOUT 78 \BOUT 69 \BOUT 60 \BOUT 28 SHOW.IP 20 DRAWDASHEDLINE) (239 BUTT) ( 188 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 (L (1 YPOSITION 0 IPSTREAM)) @É0ÉA–@É0A¿NIL NIL () \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¢±Ë@ IAg µ IA bð’±¨AHÉµ @A Z@J @l ¿@l— ¿HAHS HdÉ,HÉÈ Ö .HmÝAÈ ÙHAÉ(@ HdÉ>AÈÕDHdÉ@AÈ ÔFHdÉHÉ:ýóhð´dÉHÉFýóhð´dÉHÉDóhðJT›@HÉHÉI(213 \MOVETO.IP 143 \FIXLINELENGTH.IP 115 FIXR 100 \CHANGECHARSET.IP 88 \BOUT 79 \BOUT 71 APPENDINTEGER.IP 62 DEFINEFONT.IP 41 FONTCOPY 32 \COERCEFONTDESC 20 SHOW.IP) (126 FONTDESCRIPTOR 27 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) -@É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(499 SETXY.IP 490 \BOUT 481 \BOUT 472 MASKSTROKE.IP 465 \SETBRUSH.IP 456 \SETBRUSH.IP 412 MASKSTROKE.IP 405 \SETBRUSH.IP 396 \CLIPCURVELINE.IP 373 \CLIPCURVELINE.IP 316 \CLIPCURVELINE.IP 293 LINETO.IP 230 MOVETO.IP 219 MASKSTROKE.IP 212 \SETBRUSH.IP 180 MOVETO.IP 168 \BOUT 159 \BOUT 150 \BOUT 141 \BOUT 133 SHOW.IP 12 \DRAWPOLYGON.GENERIC) NIL ( 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) 4@É0HÉ6YIIIIAŸHA6¿HA (48 \CHANGE-VISIBLE-REGION.IP) NIL () \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) () \CREATECHARSET.IPA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 48 I P 46 I P 40 I P 38 I P 36 I P 30 I P 28 I P 26 FILEFACE P 25 FILEFAM P 24 FAMCODE P 23 SIZE P 22 LENGTH P 21 TYPE P 20 NEXT P 14 CHARSETHEIGHT P 13 FBBOX P 12 WIDTHSY P 11 WIDTHS P 10 TEM P 9 LASTCHAR P 8 FIRSTCHAR P 7 RELFLAG P 6 FIXEDFLAGS P 5 WSTRM P 4 WFILE P 3 CSINFO P 2 NSMICASIZE I 0 SI::*CLEANUP-FORMS* F 49 FONTDESC F 50 PSIZE F 51 SI::*RESETFORMS* F 52 FAMILY F 53 FACE F 54 CHARSET F 55 NOSLUG?) i1Wdn ìÚoë `lÿlØkØâ HdI¿lÿlØkØâ HdI¿òKÉ_WhWdWjhdWl`` \¢±íoLgg]hWfcf¿M ˜Mj °Mggg] ¿jaiM _0’±…jð¢±óh_jðµO´ O _Md à M áM Ødnÿñ•nÿÿÙkÙ_KjM áM Ødnÿñ•nÿÿÙkÙÙÍM áM ØM áM Ødnÿñ•nÿÿÙkÙ_O²KdÈJÚnèÛÍ¿OJÚnèÛ_¿KOKÈÙÍ M ââââââ^M Nlålð¢±M áM Ø_¿O²Ojð³Od— ªOJÚnèÛ_¿OOO8O6ó’±ÙOO8ÐOÍ¿O8kÔ_8°éMO( ¿M _*¿M _,¿O(O,O*låáØàÔ_(¿O*ââââdlð¢±þÜ¿M _2¿M _4¿M _¿M _¿M áM Ø_.jð³#O.˜O. ³oJO.ÙJë ó²M áM Ø_jð³O¢±ÿ|O ¢±ÿqO.±þ}Wn‘hWbÈWbÈWbÈ Wbg ±ÐOOOÉ É>_"¿O>O@OBODlO"OO$OHOFó³OOHÐÈn€ð˜OOHÐjÍ¿OHkÔ_H°àO².OO&OLOJó³OOLÐOOLÐÈJÚnèÛÍ¿OLkÔ_L°àNkåkð²AM M ýñ–M áM Ø€j_¿KO²Odjð³d— ¨OJÚnèÛOKKlÿlØkØâ _$¿O$_¿OO(OPONó³OOPÐn€Í¿OPkÔ_P°êMg OOàOOÙkØà,ORÉ É>_&¿OROTOVOXlO&OO.O\OZó³OO\ÐÈn€ð˜OO\ÐjÍ¿O\kÔ_\°àO¢±ÿcOO0O`O^ó’±ÿSOO`ÐOO`ÐÈJÚnèÛÍ¿O`kÔ_`°Þ(993 \GETSTREAM 938 \ALLOCBLOCK 908 \FZEROP 873 GETEOFPTR 867 GETFILEPTR 724 GETFILEPTR 718 GETFILEINFO 694 \GETSTREAM 644 \BUILDSLUGCSINFO 639 FONTPROP 591 \FZEROP 561 ABS 543 \FZEROP 457 SETFILEPTR 403 \FZEROP 245 SETFILEPTR 239 \FIXPIN 230 \FZEROP 196 \FAMILYCODE 184 COPYBYTES 178 OPENSTREAM 155 SETFILEPTR 147 RANDACCESSP 131 OPENSTREAM 105 \FINDFONTFILE 58 \ALLOCBLOCK 35 \ALLOCBLOCK 16 FIXR) (988 INPUT 713 LENGTH 689 INPUT 634 DEVICE 625 FONTDESCRIPTOR 616 FONTDESCRIPTOR 173 NEW 168 BOTH 163 {NODIRCORE} 126 OLD 121 INPUT 99 INTERPRESSFONTEXTENSIONS 94 INTERPRESSFONTDIRECTORIES 21 |CHARSETINFOTYPE#|) ( 550 0.02 115 (PROGN (CLOSEF? OLDVALUE)) 10 72.0) \CREATECHARSET.IP :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 7 NOSLUG? I 6 FONTDESC I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \CREATECHARSET.IPA0001) (8 SI::RESETUNWIND) () \CHANGECHARSET.IP :D8 (P 2 \INTERRUPTABLE P 0 FONT I 1 CHARSET I 0 IPDATA) +@ÉHÉAàÐÉµ AHh¹@IÉ¿@AÏ&‡h(23 \CREATECHARSET) NIL () \INTERPRESSINITA0018 :D8 NIL oNIL NIL ( 4 35.27778) \INTERPRESSINIT :D8 (P 0 MAPPINGS) à`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¿dgH¿dgF¿dg>¿dg8¿dg6¿ohH ¿hH h(471 NSMAP 457 NSMAP) (476 \ASCIITOSTAR 462 \ASCIITONS 442 \IPIMAGEOPS 434 NILL 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#|) ( 447 (("-" 33 62) ("^" 0 173) ("$" 0 164) ("^N" 0 197) ("^S" 239 37) ("^V" 239 36) ("^X" 0 45) ("^O" 239 45) ("^\" 239 44) ("^Y" 239 46) ("^D" 0 200) ("^G" 0 169) ("^H" 0 161) ("^B" 0 191) (96 0 185) (155 239 36) (156 239 37) ("^^" 0 184))) SCALEREGION :D8 (I 1 REGION I 0 SCALE) %@AêjØ@AêjØ@AêjØ@AêjØhNIL NIL () 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µ]AÈYCµPAÈ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 (221 CLOSEF 215 SHOWBITMAP.IP 204 \MOVETO.IP 163 ERROR 91 IMOD 67 PRIN1 59 RELMOVETO 51 STRINGWIDTH 20 OPENIMAGESTREAM) (15 INTERPRESS 10 {SCRATCH}IPBITMAP.SCRATCH) ( 197 17.63889 190 5.5 180 17.63889 173 4.25 158 "rotation by other than multiples of 90 degrees not implemented") NSMAP :D8 (P 3 X P 2 I P 0 TABLE I 1 MAP I 0 ZERODEFAULT) Zngjd@ªlÿjJIó“A°4HJd¿JkÔZ°ìdHK3 µ K KáKäµÜH(81 SETA 67 CHARCODE.DECODE 41 SETA 14 ARRAY) (7 WORD) () \COERCEASCIITONSFONT :D8 (P 11 NSCODE P 10 CHARSETINFO P 9 WIDTHS P 8 I P 6 CS P 5 NSCODE P 4 I P 2 CHARSETDIR P 1 FD P 0 ASCIITONSMAP I 7 DEVICE I 6 ROTATION I 5 FONTFACE I 4 SIZE I 3 NSFAMILY I 2 ASCIIFAMILY I 1 ASCIITONSFIXARRAY I 0 ASCIITONSMAPARRAY) _Aµ@ÉCDEFG I¡hjIÉÉµ dIhhZlÿj"LdKó²KlÿjIÉÉµ dIhÉ#OdOó¢±ÏI@ÉCBð³IB¿ICDEFGhIHLÐÈ]ð’±–Mã^J’±NIÉNàÐÉµ}dIhµs` ¿o` ¿oN`¿o` ¿B` ¿k` ¿D` ¿o` ¿hJºLkÔ\±ÿHOÐÈ_ð³ OãJ_²OOÐOÉOlÿåÐÈÍ¿OkÔ_±þý(286 PRIN1 270 PRIN1 258 SPACES 246 PRIN1 234 PRIN1 218 PRINTNUM 201 PRIN1 185 FRESHLINE 173 \CREATECHARSET 80 \CREATECHARSET 45 \CREATECHARSET 22 \CREATESTARFONT) (281 PROMPTWINDOW 265 PROMPTWINDOW 253 PROMPTWINDOW 241 PROMPTWINDOW 229 PROMPTWINDOW 213 PROMPTWINDOW 196 PROMPTWINDOW 180 PROMPTWINDOW 103 ARRAYP 8 ARRAYP) ( 276 "." 224 " missing from font " 207 (FIX 3 8) 191 "Warning: Information about character set ") \CREATEINTERPRESSFONT :D8 (P 2 NEWFONT P 1 TRANSL I 4 DEVICE I 3 ROTATION I 2 FONTFACE I 1 SIZE I 0 FAMILY) t`h@dABCD µ`!Hµh¹@Ið²FId§¿`°d3@ð˜I ‚II¥`€h@IµgABCD ZµµHX°¬(106 \COERCEASCIITONSFONT 69 EVAL 17 \COERCEASCIITONSFONT) (96 MODERN 82 \ASCIITOSTAR 52 \ASCIITONS 24 ASCIITONSTRANSLATIONS 4 \ASCIITONS) () \SEARCHINTERPRESSFONTS :D8 (I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY) @ABCg`` (24 \SEARCHFONTFILES) (18 INTERPRESSFONTEXTENSIONS 13 INTERPRESSFONTDIRECTORIES 8 INTERPRESS) () (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) (FUNCTIONS \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 \CREATECHARSET.IP \CHANGECHARSET.IP) (FNS \INTERPRESSINIT) ( FNS SCALEREGION) (DECLARE%: DONTEVAL@LOAD DOCOPY (INITVARS (\SPLINESTEP.IP 16.0))) (DECLARE%: DONTEVAL@LOAD DOCOPY (INITVARS IPPAGEREGION.ROT180 IPPAGEREGION.ROT270 (DEFAULTPAGEREGION (SCALEREGION 2540 (CREATEREGION 1.1 0.75 (- 7.5 1.1) (- 10.5 0.75)))) (DEFAULTLANDPAGEREGION (SCALEREGION 2540 ( 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))))) (INITVARS (DEFAULT.INTERPRESS.BITMAP.ROTATION 90)) (ALISTS (SYSTEMINITVARS INTERPRESSFONTDIRECTORIES)) (INITVARS (INTERPRESSFONTEXTENSIONS (QUOTE (WD))) ( INTERPRESSFONTDIRECTORIES (QUOTE ("{Erinyes}Fonts>"))) (INTERPRESSPRINTWHEELFAMILIES (QUOTE ( BOLDPS ELITE LETTERGOTHIC MASTER PICA PSBOLD SCIENTIFIC SPOKESMAN TITAN TREND TRENDPS TROJAN VINTAGE)) ) (INTERPRESSFAMILYALIASES (QUOTE (LOGO LOGOTYPES-XEROX)))) (COMS (* ; "NS Character Encoding") (FNS NSMAP \COERCEASCIITONSFONT \CREATEINTERPRESSFONT \SEARCHINTERPRESSFONTS) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (noInfoCode 32768))) (INITVARS (ASCIITONSTRANSLATIONS)) (* ; "Catch the GACHA10 and any BI coercions to MODERN") (ADDVARS (ASCIITONSTRANSLATIONS (TIMESROMAN NIL CLASSIC) (GACHA NIL TERMINAL) (HELVETICA) (CLASSIC) (GACHA) (TIMESROMAN) (LOGO NIL LOGOTYPES) (HIPPO HIPPOTONSARRAY CLASSIC) (CYRILLIC CYRILLICTONSARRAY CLASSIC) (SYMBOL \SYMBOLTONSARRAY MODERN))) ( UGLYVARS \SYMBOLTONSARRAY HIPPOTONSARRAY CYRILLICTONSARRAY)) (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)))) (FUNCTIONS \IPC))) (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 2540 (CREATEREGION 1.1 0.75 (- 7.5 1.1) (- 10.5 0.75)))) (RPAQ? DEFAULTLANDPAGEREGION (SCALEREGION 2540 (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 \SEARCHINTERPRESSFONTS) (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)))) (RPAQ? DEFAULT.INTERPRESS.BITMAP.ROTATION 90) (ADDTOVAR SYSTEMINITVARS (INTERPRESSFONTDIRECTORIES {DSK})) (RPAQ? INTERPRESSFONTEXTENSIONS (QUOTE (WD))) (RPAQ? INTERPRESSFONTDIRECTORIES (QUOTE ("{Erinyes}Fonts>"))) (RPAQ? INTERPRESSPRINTWHEELFAMILIES (QUOTE (BOLDPS ELITE LETTERGOTHIC MASTER PICA PSBOLD SCIENTIFIC SPOKESMAN TITAN TREND TRENDPS TROJAN VINTAGE))) (RPAQ? INTERPRESSFAMILYALIASES (QUOTE (LOGO LOGOTYPES-XEROX))) (RPAQ? ASCIITONSTRANSLATIONS) (ADDTOVAR ASCIITONSTRANSLATIONS (TIMESROMAN NIL CLASSIC) (GACHA NIL TERMINAL) (HELVETICA) (CLASSIC) ( GACHA) (TIMESROMAN) (LOGO NIL LOGOTYPES) (HIPPO HIPPOTONSARRAY CLASSIC) (CYRILLIC CYRILLICTONSARRAY CLASSIC) (SYMBOL \SYMBOLTONSARRAY MODERN)) (READVARS-FROM-STRINGS (QUOTE (\SYMBOLTONSARRAY HIPPOTONSARRAY CYRILLICTONSARRAY)) "({Y256 SMALLPOSP 0 0 0 180 42 0 61287 177 61309 61282 61283 61284 61285 0 184 0 0 61296 61298 61273 61272 8549 8550 0 0 61054 61305 61275 61274 8546 61299 0 0 0 174 173 175 61266 61250 61251 61303 61261 61263 0 0 61262 {R4 0} 8551 61258 61259 61281 0 61292 172 61365 61364 61290 61351 {R5 0} 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 61271 61270 0 61366 61367 61238 61239 61362 61363 61360 61361 123 125 61234 61235 61052 8514 61243 61242 8740 8742 61308 35 0 61301 {R 4 0} 167 61232 61233 182 64 211 163 164 {R128 0} } {Y256 SMALLPOSP 0 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 164 37 38 39 40 41 42 43 44 8510 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 9793 9794 9809 9797 9798 9818 9796 9802 9804 9728 9805 9806 9807 9808 9810 9811 9803 9813 9814 9816 9817 9728 9821 9819 9820 9801 91 92 93 173 172 185 9825 9826 9841 9829 9830 9850 9828 9834 9836 9847 9837 9838 9839 9840 9842 9843 9835 9845 9846 9848 9849 9728 9853 9851 9852 9833 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 61220 61221 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 61286 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 } {Y256 SMALLPOSP 0 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 10023 37 38 39 40 41 10041 43 44 8510 46 47 48 49 10095 51 10071 53 10088 55 10089 57 58 59 171 61 187 63 10047 10017 10018 10046 10021 10022 10038 10020 10049 10026 10027 10028 10029 10030 10031 10032 10033 10039 10034 10035 10036 10037 10019 10024 10045 10048 10025 10090 9984 10091 10044 10092 9984 10065 10066 10110 10069 10070 10086 10068 10097 10074 10075 10076 10077 10078 10079 10080 10081 10087 10082 10083 10084 10085 10067 10072 10093 10096 10073 10042 9984 10043 10040 9984 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 10094 144 145 146 147 148 149 150 151 152 153 154 61220 61221 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 61286 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 }) ") (\INTERPRESSINIT) (DEFMACRO \IPC (X) (DECLARE (SPECIAL X)) (* ; "Edited 2-May-2023 08:33 by lmm") (OR (AND (BOUNDP ( QUOTE \IPCONSTANDS)) (LISTP \IPCONSTANTS)) (SETQ \IPCONSTANTS (FOR X IN IPCONSTANTS JOIN (FOR Y IN ( EVAL X) COLLECT (CONS (CAR Y) (CADR Y)))))) (FOR I FROM 1 TO 10 DO (IF (EQUAL X (SETQ X (SUBLIS \IPCONSTANTS X))) THEN (RETURN (LIST (QUOTE CONSTANT) X))) FINALLY (ERROR "too many \IPC levels" X))) NIL