(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Mar-87 11:11:03" ("compiled on " {ERIS}LIBRARY>PRESS.;5) "22-Mar-87 22:06:31" brecompiled changes%: nothing in "Xerox Lisp 22-Mar-87 ..." dated "22-Mar-87 22:31:19") (FILECREATED "25-Mar-87 11:09:23" {ERIS}LIBRARY>PRESS.;5 144667 changes to%: (VARS PRESSCOMS ) previous date%: "20-Feb-87 18:51:37" {ERIS}LIBRARY>PRESS.;4) \SEARCHPRESSFONTSA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 3 WSTRM P 2 FONTSFOUND P 1 F I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS* F 5 FAMILY F 6 ROTATION F 7 PSIZE F 8 FACE) p`1HJHhHHI Igi [gKd hhhTcKj oIggl [hTcKUWWV J (107 UNION 103 \GETPRESSFONTNAMES 83 OPENSTREAM 65 SETFILEPTR 47 GETFILEPTR 36 \GETSTREAM 26 INFILEP) (78 OLD 75 INPUT 42 SETFILEPTR 32 INPUT 2 PRESSFONTWIDTHSFILES) ( 71 (PROGN (CLOSEF? OLDVALUE))) \SEARCHPRESSFONTS :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY F 2 LISPXHIST) Rg  (19 CL:VALUES-LIST 15 SI::RESETUNWIND 12 \MVLIST 9 \SEARCHPRESSFONTSA0001) (6 SI::RESETUNWIND) () \GETPRESSFONTNAMES :D4 (P 10 XROTATION P 9 XFACE P 8 XSIZE P 7 XFAMILY P 6 XFACE P 5 TYPE P 4 FONTSFOUND P 3 MICASIZE P 2 NEXT P 1 FAMILYCODELST P 0 XFACECODE I 4 ROTATION I 3 FACE I 2 PSIZE I 1 FAMILY I 0 WSTRM) 4CgC C h@ jBgh Bn lHt @J @ J@ MlԺMdl@ I o _AgAOl@ ^HN Cg&CN!NC"O NC^_Ohi@ @ @ @ _BgKOOjeK_^@ @ _DgODGOOlHo NOghL&_OOOghO_O_djL(245 FIXR 121 \DECODEPRESSFACEBYTE 91 ERROR 47 SETFILEPTR 21 \PRESSFAMILYCODELST 15 \FACECODE 10 MEMB) (278 * 251 PRESS 220 * 184 * 126 * 98 * 26 * 6 *) ( 241 2540.0 88 "unknown code number in widths file") \PRESSFAMILYCODELST :D4 (P 4 I P 2 TYPE P 1 PAIRS P 0 NEXT I 0 WSTRM) aj!@H @ H@ JlԸJdk9@ @ @ k2LK@ _NOh^Lk\O&M IjI(83 PACKC 8 SETFILEPTR) NIL () \DECODEPRESSFACEBYTE :D4 (L (0 FACECODE)) hl@b0l @@l bgl@@lbggXl@@lbgl@@lbggZ@kggYJIHhNIL (93 REGULAR 89 ITALIC 81 MEDIUM 77 BOLD 60 LIGHT 44 REGULAR 40 COMPRESSED 23 EXPANDED) () \CREATEPRESSFONTA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 2 FD I 0 SI::*CLEANUP-FORMS* F 3 FACE F 4 DEVICE F 5 FAMILY F 6 PSIZE F 7 ROTATION) g`dTdUdVdSS HdIdWdo"djdjdjni HdI(J(jJi J(99 \CREATECHARSET 74 \ALLOCBLOCK 27 \FACECODE) (2 |FONTDESCRIPTORTYPE#|) ( 49 35.27778) \CREATEPRESSFONT :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY F 2 LISPXHIST) Rg  (19 CL:VALUES-LIST 15 SI::RESETUNWIND 12 \MVLIST 9 \CREATEPRESSFONTA0001) (6 SI::RESETUNWIND) () \CREATECHARSET.PRESSA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 53 SIZE P 52 LENGTH P 51 TYPE P 50 NEXT P 49 SIZE P 48 LENGTH P 47 TYPE P 46 NEXT P 45 SIZE P 44 LENGTH P 43 TYPE P 42 NEXT P 41 F P 39 CSINFO P 38 FD P 37 NSMICASIZE P 10 PRESSMICASIZE P 9 WIDTHS P 8 WIDTHSY P 7 TEM P 6 LASTCHAR P 5 FIRSTCHAR P 4 RELFLAG P 3 FIXEDFLAGS P 2 XLATEDFAM P 1 STRMCACHE P 0 WSTRM I 0 SI::*CLEANUP-FORMS* F 62 FAMILY F 63 SIZE F 64 FACE F 65 SI::*RESETFORMS* F 66 CHARSETHEIGHT F 67 DEVICE F 68 ROTATION F 69 FOO F 70 FBBOX) > p$W~n lH_W~n o %`dWdW|dW~dWW _dOdWdo"ni _dO(&`l _dOl _dO'`)OPdGW|dg+gDOP_RhOP_ROP_POR ORgi XJoORggl XhWcH Hggg X HIj1-W|iH ;' gHd hhhWcHj jh\KiLHOT H _VH _XOTOXOVl_TOVdlǿH H H H H H _Zj OZOZ oOJOZOJ H H _jOO OZxdggdggggZI Y_"OLJO"hW|dgؿgXj j11JiH 9j-h\OLJW~WWWhOLW|iHO\ H _^H _`O\O`O^l_\O^dl𲦿H H H H H H _bj ObOb oOJObOJ H H _ jO O ObXO"_"ggZI_&OLJO& hhXj j15JiH 9j-h\OLJW~WWWhOLW|iHOd H _fH _hOdOhOfl_dOfdl𲦿H H H H H H _jj OjOj oOJOjOJ H H _$jO$O$ OjXO&_&+Lj LL ON_Hd H H dnnkcONjH H dnnk H H cH H dnnkcL$ONON OJn WOJncONWON H H KllMH H _LOjOd OOJn_NM_*_(O*O(OO*OO*k_*NM_._,O.O,OO.nO.k_.Hg OMNMk9Ol <_0OlOnOpOrlO0NM_4_2O4O2OO4nOO4jO4k_4L/NM_8_6O8O6 OO8OO8OJnO8k_8Kkk@H H H H ؀j_ONLOdjd OOJnہOONONl _:O:_NM_>_O<OO>nO>k_>Hg OMNMk=Ot <_@OtOvOxOzlO@NM_D_BODOBOODnOODjODk_DLhNM_H_FOHOFWOOHOOHOJnOHk_H(1570 \GETSTREAM 1519 \ALLOCBLOCK 1491 \FZEROP 1455 GETEOFPTR 1451 GETFILEPTR 1306 \GETSTREAM 1217 \FZEROP 1034 SETFILEPTR 1030 \FIXPIN 1014 \FZEROP 985 \FZEROP 960 ABS 943 \FZEROP 869 SETFILEPTR 813 \FAMILYCODE 800 SETFILEPTR 742 \FZEROP 717 ABS 700 \FZEROP 626 SETFILEPTR 570 \FAMILYCODE 557 SETFILEPTR 510 DREVERSE 464 \FZEROP 439 ABS 422 \FZEROP 348 SETFILEPTR 326 SETFILEPTR 307 GETFILEPTR 297 RANDACCESSP 290 \FAMILYCODE 272 COPYBYTES 268 OPENSTREAM 253 RANDACCESSP 239 OPENSTREAM 219 \GETSTREAM 208 INFILEP 136 \ALLOCBLOCK 122 \ALLOCBLOCK 101 \ALLOCBLOCK 70 \FACECODE 34 FIXR) (1593 FDEV 1588 STREAM 1567 INPUT 1514 CHARSETINFO 1474 CHARSETINFO 1329 FDEV 1324 STREAM 1303 INPUT 1163 CHARSETINFO 1156 CHARSETINFO 1127 CHARSETINFO 1122 CHARSETINFO 1061 CHARSETINFO 1020 CHARSETINFO 855 FONTDESCRIPTOR 832 FONTDESCRIPTOR 778 FONTDESCRIPTOR 766 CENTURY 760 CLASSIC 612 FONTDESCRIPTOR 589 FONTDESCRIPTOR 548 FRUTIGER 539 MODERN 519 FONTDESCRIPTOR 503 GACHA 497 TERMINAL 493 LOGO 487 LOGOTYPE 481 TIMESROMAN 475 CLASSIC 302 SETFILEPTR 265 NEW 262 BOTH 259 {NODIRCORE} 234 OLD 231 INPUT 215 INPUT 179 HELVETICA 170 MODERN 151 PRESSFONTWIDTHSFILES 116 |CHARSETINFOTYPE#| 40 |FONTDESCRIPTORTYPE#|) ( 949 0.02 706 0.02 428 0.02 226 (PROGN (CLOSEF? OLDVALUE)) 91 35.27778 30 72.0) \CREATECHARSET.PRESS :D4 (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 SIZE I 0 FAMILY F 2 LISPXHIST) "Ejo Rg  (31 CL:VALUES-LIST 27 SI::RESETUNWIND 24 \MVLIST 21 \CREATECHARSET.PRESSA0001 10 ERROR) (18 SI::RESETUNWIND) ( 7 "Press does not support NS characters.") PRESSBITMAP :D4 (P 7 YPOS P 6 XPOS P 5 PRDATA P 4 HEIGHT P 3 WIDTH P 2 PRESSPAGEWIDTH P 1 PRESSPAGEHEIGHT P 0 PRSTREAM I 3 CLIPPINGREGION I 2 SCALEFACTOR I 1 BITMAP I 0 FILE F 8 PRESSBITMAPREGION) @ WWSH0]BSCEA A JKol^ILol_jNjOboi i jNNCko jjOOj_C;jdKJo jLIo j bAWNWOBCH H CKJo jLIo(210 MIN 195 CLOSEF 191 \WRITEPRESSBITMAP 168 CREATEREGION 163 MIN 151 MIN 119 ERROR 88 TERPRI 83 PRIN1 39 BITMAPHEIGHT 34 BITMAPWIDTH 3 OPENPRSTREAM) (21 STREAM) ( 218 35.14598 206 35.14598 159 35.14598 147 35.14598 116 "Spruce cannot scale bitmaps. Try pressing to a full press printer." 79 "Warning: Bitmap too large for Spruce PRESS page, will be clipped..." 58 35.14598 46 35.14598) FULLPRESSBITMAP :D4 (P 7 YPOS P 6 XPOS P 5 PRDATA P 4 HEIGHT P 3 WIDTH P 2 PRESSPAGEWIDTH P 1 PRESSPAGEHEIGHT P 0 PRSTREAM I 3 CLIPPINGREGION I 2 SCALEFACTOR I 1 BITMAP I 0 FILE F 8 PRESSBITMAPREGION) @ WWSH0]BobCA A JKBol^ILBol_jNjOGoi i KL bJKBol۾ILBol_jNjOo AWNWOBCH H Cq(182 CLOSEF 178 \WRITEPRESSBITMAP 157 ERROR 108 PRESS.BITMAPSCALE 102 TERPRI 97 PRIN1 49 BITMAPHEIGHT 44 BITMAPWIDTH 3 OPENPRSTREAM) (21 STREAM) ( 154 "Internal consistency check failed in FULLPRESSBITMAP." 132 35.14598 118 35.14598 93 "Warning: Bitmap too large for PRESS page, will be scaled..." 71 35.14598 57 35.14598 30 1.0) SHOWREGION :D4 (I 1 STREAM I 0 REGION) D@@A @jhdA j@hdA @ jhdA j@ hdA A(64 RELDRAWTO 57 MINUS 48 RELDRAWTO 40 MINUS 33 RELDRAWTO 20 RELDRAWTO 8 MOVETO) NIL () SHOWPRESSBITMAPREGION :D4 (P 0 STR F 1 PRESSBITMAPREGION) gg QH H (20 CLOSEF 16 SHOWREGION 8 OPENIMAGESTREAM) (5 PRESS 2 {LPT}) () PRESSWINDOW :D4 (P 4 HEIGHT P 3 WIDTH P 2 PTSTOMICAS P 1 BITMAP P 0 PRSTREAM I 0 W) ggogoh @ l#CI [I \H0H0] MJKlH H0H0^!NJLlH IhdH H (143 CLOSEF 139 \WRITEPRESSBITMAP 132 DSPYPOSITION 90 DSPXPOSITION 47 BITMAPHEIGHT 42 BITMAPWIDTH 33 WINDOW.BITMAP 30 WHICHW 24 OPENPRSTREAM) (117 PRESSDATA 111 PRESSDATA 105 STREAM 99 PRESSDATA 94 STREAM 75 PRESSDATA 69 PRESSDATA 63 STREAM 57 PRESSDATA 52 STREAM 12 BREAKPAGEFILENAME 5 HEADING 2 {CORE}WINDOW.PRESS) ( 16 "Press Stream Window Image" 9 "Press Stream Window Image") WINDOW.BITMAP :D4 (P 1 BM P 0 REGION I 0 W) -@ @ HH Y@ hdI @ I(41 OPENW 37 BKBITBLT 29 \INSUREWINDOW 24 BITMAPCREATE 12 CLOSEW 3 \INSUREWINDOW) NIL () \WRITEPRESSBITMAP :D4 (P 19 BM P 6 CURY P 5 CURX P 4 TOTCOUNT P 3 ELSTREAM P 2 HT P 1 WW P 0 PRDATA I 5 PRSTREAM I 4 CLIPPINGREGION I 3 SCALEFACTOR I 2 YPOS I 1 XPOS I 0 BITMAP) DE0@@H[H]H^E E E EAB CobEk Ej EI__O OOl EJ EJl El El Ej El ECIo __O OOl ECJo __O OOl Ej Ek Ej Ej EI__O OOl Ej Ej EJ EJl Ej El E@JI\O  >_O O"jO$lOKl KLl E E EMN hD @DDO&hdDD O&bS(428 BKBITBLT 402 BITMAPCREATE 389 SETXY.PRESS 383 \ENTITYSTART.PRESS 379 \ENTITYEND.PRESS 375 \FIXPOUT 367 \BOUT 318 \BOUT 311 \BOUT 306 \BOUT 297 \BOUT 291 \BOUT 285 \BOUT 279 \BOUT 268 \BOUT 251 \BOUT 245 \BOUT 240 \BOUT 234 \BOUT 228 \BOUT 217 \BOUT 206 FIXR 193 \BOUT 182 \BOUT 171 FIXR 155 \BOUT 148 \BOUT 143 \BOUT 136 \BOUT 130 \BOUT 121 \BOUT 114 \BOUT 103 \BOUT 86 \BOUT 80 \BOUT 66 SETXY.PRESS 60 \ENTITYSTART.PRESS 56 \ENTITYEND.PRESS 52 SHOW.PRESS) (343 FDEV 338 STREAM 323 BITMAP 45 PRESSDATA 38 PRESSDATA 31 PRESSDATA 22 BITMAP 16 BITMAP 10 STREAM) ( 201 32.0 166 32.0 72 1.0) \BCPLSOUT.PRESS :D4 (P 2 I P 0 NC I 2 N I 1 X I 0 STRM) LA BkbdBB@H HkJI@AJ JkZBHkJI@j JkZh(65 \BOUT 41 \BOUT 38 NTHCHARCODE 23 \BOUT 3 NCHARS) NIL () \PAGEPAD.PRESS :D4 (P 1 PADDING P 0 P I 0 STRM) 2@ nHknYddjdk@HIk @j I(44 \BOUT 38 SETFILEPTR 3 GETFILEPTR) NIL () \ENTITYEND.PRESS :D4 (P 2 DLLENGTH P 1 ELSTREAM P 0 PRDATA I 3 ETYPE I 2 YOFFSET I 1 XOFFSET I 0 PRSTREAM) V@0 HY@ L@kKHl% ZI kjIl ICl IH j IHl% Hl# IJ IAj\M LMl IBj_^O NOl IH__O OOl IH__O OOl IH H__O OOl IH!H__O OOl Id Hl' k_"_ O" O O"l h(338 \BOUT 327 \BOUT 312 \GETBASEFIXP 303 GETFILEPTR 297 \BOUT 286 \BOUT 260 \BOUT 249 \BOUT 223 \BOUT 212 \BOUT 193 \BOUT 182 \BOUT 163 \BOUT 153 \BOUT 137 \BOUT 128 \BOUT 116 \FIXPOUT 111 \FIXPOUT 105 \GETBASEFIXP 96 \GETBASEFIXP 86 \BOUT 70 \BOUT 60 \BOUT 49 GETFILEPTR 43 \GETBASEFIXP) (307 PRESSDATA 272 PRESSDATA 266 PRESSDATA 235 PRESSDATA 229 PRESSDATA 199 PRESSDATA 169 PRESSDATA 100 PRESSDATA 91 PRESSDATA 75 PRESSDATA 38 PRESSDATA 27 FDEV 22 STREAM 15 PRESSDATA 3 STREAM) () \PARTEND.PRESS :D4 (P 2 PDSTREAM P 1 START P 0 PRDATA I 1 PARTTYPE I 0 PRSTREAM) @0aHZHl# YJA JAl JI JIl JHl#@ n Iټ[L KLl J@ ]N MNl Hj h(126 SETFILEPTR 115 \BOUT 106 \BOUT 99 \PAGEPAD.PRESS 93 \BOUT 84 \BOUT 75 \PUTBASEFIXP 66 GETFILEPTR 55 \BOUT 46 \BOUT 40 \BOUT 31 \BOUT 24 \GETBASEFIXP) (120 PRESSDATA 60 PRESSDATA 19 PRESSDATA 12 PRESSDATA 3 STREAM) () \ENTITYSTART.PRESS :D4 (P 0 PRDATA I 0 PRSTREAM) l@0AHh4HhHl%@ L@kI Hl'H[ LKkJ Hl)@ L@kL @HH h(104 SETXY.PRESS 88 \PUTBASEFIXP 66 \PUTBASEFIXP 38 \PUTBASEFIXP) (99 PRESSDATA 93 PRESSDATA 78 FDEV 73 STREAM 56 FDEV 51 STREAM 45 PRESSDATA 28 FDEV 23 STREAM 3 STREAM) () SETX.PRESS :D4 (P 0 ELSTREAM I 1 X I 0 PRSTREAM) Q@0jA1AnTV*A@0jHl HA HAl @0Ah(64 \BOUT 55 \BOUT 48 \BOUT) (74 PRESSDATA 69 STREAM 35 PRESSDATA 30 STREAM 8 PRESSDATA 3 STREAM) () SETXY.PRESS :D4 (P 1 ELSTREAM P 0 PRDATA I 2 Y I 1 X I 0 PRSTREAM) g@0HYjA AnTVdl IA IAl HAjB BniIl IB IBl HBB(91 \BOUT 82 \BOUT 75 \BOUT 49 \BOUT 40 \BOUT 33 \BOUT) (96 PRESSDATA 54 PRESSDATA 12 PRESSDATA 3 STREAM) () SETY.PRESS :D4 (P 0 ELSTREAM I 1 Y I 0 PRSTREAM) H@0jA.Ani'A@0jHl HA HAl @0Ah(61 \BOUT 52 \BOUT 45 \BOUT) (32 PRESSDATA 8 PRESSDATA 3 STREAM) () SHOW.PRESS :D4 (P 4 ELSTREAM P 3 CNT P 2 CURBYTE P 1 PRDATA I 0 PRSTREAM) @0@ L@kH"I\JIl) [dj_I%II II lp l!KLKkٰ$Ll Ll KlٻKlLl LK Il)J h(154 \PUTBASEFIXP 143 \BOUT 137 \BOUT 119 \BOUT 112 \BOUT 93 \BOUT 44 \GETBASEFIXP) (148 PRESSDATA 83 PRESSDATA 77 PRESSDATA 67 PRESSDATA 63 PRESSDATA 55 PRESSDATA 39 PRESSDATA 31 PRESSDATA 14 FDEV 9 STREAM 3 STREAM) () OPENPRSTREAM :D4 (P 2 PRDATA P 1 OPT P 0 PRSTREAM I 1 OPTIONS I 0 PRFILE) / @gglo  `Ag'Y[l Kd3ihI`_ggg dLggg dMAg'dNjdnTVnrh_dO6dk2djdj_dOOOOOOOO OOO!Z`H.H joH Hg(H`.HJ0Ag'YJIHAg' H H(299 \STARTPAGE.PRESS 295 SETUPFONTS.PRESS 245 ERROR 242 FULLNAME 231 GETEOFPTR 91 OPENSTREAM 73 OPENSTREAM 35 EQLENGTH 16 OPENSTREAM) (291 FONTS 282 PRESSDATA 275 HEADING 268 STREAM 262 \PRESSIMAGEOPS 259 STREAM 253 \OUTCHARFN.PRESS 250 STREAM 223 STREAM 219 \NOIMAGEOPS 201 PRESSDATA 184 PRESSDATA 172 PRESSDATA 161 PRESSDATA 151 PRESSDATA 101 DOCUMENT.NAME 88 OLD/NEW 85 BOTH 82 {NODIRCORE} 70 OLD/NEW 67 BOTH 64 {NODIRCORE} 58 DEFAULTPAGEREGION 27 REGION 22 |PRESSDATATYPE#| 6 NEW 3 OUTPUT) ( 238 "can't convert existing file to Press" 12 ((TYPE BINARY))) \BITBLT.PRESS :D4 (P 3 DESTINATIONBOTTOM P 2 DESTINATIONLEFT 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 DHEICJ CK @JKkGGGFG C CH CI iGGFG (89 INTERSECTREGIONS 86 CREATEREGION 74 \DSPYPOSITION.PRESS 68 \DSPXPOSITION.PRESS 62 \WRITEPRESSBITMAP 57 CREATEREGION 38 \DSPYPOSITION.PRESS 32 \DSPXPOSITION.PRESS 10 \DSPYPOSITION.PRESS 3 \DSPXPOSITION.PRESS) NIL () \BLTSHADE.PRESS :D4 (P 1 DESTREGION P 0 REGION I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 STREAM I 0 TEXTURE) )BCDE GHG H@ABCDEFGl (38 \BLTSHADE.GENERICPRINTER 18 INTERSECTREGIONS 6 CREATEREGION) NIL () \SCALEDBITBLT.PRESS :D4 (P 3 DESTINATIONBOTTOM P 2 DESTINATIONLEFT 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 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) ^C C DHEICJ CK @JKGGGGFG C CH CI iGGFG (90 INTERSECTREGIONS 87 CREATEREGION 75 \DSPYPOSITION.PRESS 69 \DSPXPOSITION.PRESS 63 \WRITEPRESSBITMAP 58 CREATEREGION 38 \DSPYPOSITION.PRESS 32 \DSPXPOSITION.PRESS 10 \DSPYPOSITION.PRESS 3 \DSPXPOSITION.PRESS) NIL () \BITMAPSIZE.PRESS :D4 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) =BdgA gA BA A  (58 \ILLEGAL.ARG 48 BITMAPHEIGHT 39 BITMAPWIDTH 26 BITMAPHEIGHT 11 BITMAPWIDTH) (20 HEIGHT 4 WIDTH) () \CHARWIDTH.PRESS :D4 (I 1 CHARCODE I 0 STREAM) 9A bdl @04@0AlH(IIH Il(45 \CREATECHARSET 3 \PRESS.CONVERT.NSCHARACTER) NIL () \CLOSEF.PRESS :D4 (P 19 DDRECORD P 18 DDFILEPTR P 17 DESCR P 16 FDE P 15 I P 1 PDSTREAM P 0 PRDATA I 0 PRSTREAM F 20 USERNAME) %@ @0 HYd jiH j"OX@j @j @k I@jI @ @ O$_&@lj @l/ @O&k_^O NOl @I __O OOl @Hl# __O OOl @O&Hl# __O OOl @l @l @o @j @k @j @k @l @l @l @l @l @l @O$n @H@ l4 @W(l @dg l( @ h_ _"@j @l @O  @O  @l @l @O"g l @O"g @l @O"g ZK JKl @O"\M LMl O_Ok_(530 \BOUT 521 \BOUT 505 \BOUT 496 \BOUT 489 FONTPROP 479 \BOUT 472 \BOUT 469 \FACECODE 466 FONTPROP 456 \BCPLSOUT.PRESS 451 FONTPROP 441 \BOUT 434 \BOUT 427 \BOUT 418 \BOUT 408 \BOUT 401 \BOUT 387 \PAGEPAD.PRESS 382 \BCPLSOUT.PRESS 377 GETFILEINFO 368 \BCPLSOUT.PRESS 359 \BCPLSOUT.PRESS 354 FULLNAME 340 SETFILEPTR 329 \BOUT 322 \BOUT 315 \BOUT 308 \BOUT 301 \BOUT 294 \BOUT 287 \BOUT 281 \BOUT 275 \BOUT 269 \BOUT 263 \FIXPOUT 255 IDATE 250 \BOUT 243 \BOUT 236 \BOUT 225 \BOUT 213 \GETBASEFIXP 200 \BOUT 189 \BOUT 178 \GETBASEFIXP 167 \BOUT 156 \BOUT 142 GETFILEPTR 136 \BOUT 126 \BOUT 110 \BOUT 103 \BOUT 87 GETFILEPTR 82 \PAGEPAD.PRESS 77 COPYBYTES 74 GETFILEPTR 66 \PARTEND.PRESS 60 \BOUT 54 \BOUT 23 GETFILEPTR 3 \ENDPAGE.PRESS) (512 FONTDESCRIPTOR 486 DEVICESIZE 463 DEVICEFACE 448 DEVICEFAMILY 374 CREATIONDATE 346 PRESSDATA 208 PRESSDATA 173 PRESSDATA 33 PRESSDATA 16 PRESSDATA 7 STREAM) ( 259 -2147483648) \DRAWLINE.PRESS :D4 (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 PRSTREAM) 4 GABCDEF@GG @AB CD hhgEhG D(48 \DRAWCURVE.PRESS 31 CREATEPOSITION 26 CREATEPOSITION 18 DRAWDASHEDLINE) (38 BUTT) () \ENDPAGE.PRESS :D4 (P 0 ELSTREAM I 0 PRSTREAM) p@01@ @ H LHkIjE@ L@kJkj@j @j @j H@jH LHkK @j h(108 \PARTEND.PRESS 102 COPYBYTES 79 \BOUT 73 \BOUT 67 \BOUT 21 \ENTITYEND.PRESS 17 SHOW.PRESS) (92 FDEV 87 STREAM 50 FDEV 45 STREAM 30 FDEV 25 STREAM 8 PRESSDATA 3 STREAM) () NEWLINE.PRESS :D4 (P 1 NEWYPOS P 0 PRDATA I 0 PRSTREAM) *@0HHYdH@ @ @HI h(38 SETXY.PRESS 29 SHOW.PRESS 24 NEWPAGE.PRESS) NIL () NEWPAGE.PRESS :D4 (I 0 PRSTREAM) @ @ (7 \STARTPAGE.PRESS 3 \ENDPAGE.PRESS) NIL () SETUPFONTS.PRESS :D4 (P 2 FLG P 1 F I 1 FONTS I 0 PRSTREAM F 3 DEFAULTFONT) JAS!HdHhHHIhddg J@I @I @ @0Ii(54 \ENTITYEND.PRESS 49 \DSPFONT.PRESS 41 \DEFINEFONT.PRESS 33 FONTCREATE) (64 PRESSDATA 59 STREAM 29 PRESS) () \DEFINEFONT.PRESS :D4 (P 0 PRDATA I 1 FONT I 0 PRSTREAM) k@0!AH XHAHHhHHkYIlHHkHjH Z JNIL (95 PRESSDATA 86 PRESSDATA 73 PRESSDATA 69 PRESSDATA 49 PRESSDATA 45 PRESSDATA 34 PRESSDATA 27 PRESSDATA 22 PRESSDATA 13 PRESSDATA 3 STREAM) () \DSPBOTTOMMARGIN.PRESS :D4 (I 1 YPOSITION I 0 PRSTREAM) @0A@0ANIL (21 PRESSDATA 16 STREAM 8 PRESSDATA 3 STREAM) () \DSPCLIPPINGREGION.PRESS :D4 (P 1 \INTERRUPTABLE P 0 PRDATA I 1 REGION I 0 STREAM) 9@0H6A*Al Ad3ihAo HA6(45 ERROR 20 EQLENGTH) (3 STREAM) ( 42 " is not a REGION.") \DSPFONT.PRESS :D4 (P 3 FDENTRY P 2 OLDFONT P 1 CSINFO P 0 PRDATA I 1 FONT I 0 PRSTREAM) @01HZAdAgi JA bm@ A(jAi Y@A [dH @ @ HK HAHKlp HI@H2H HmA@ J(142 \FIXLINELENGTH.PRESS 126 \SETSPACE.PRESS 123 FIXR 101 \BOUT 80 \ENTITYSTART.PRESS 75 \ENTITYEND.PRESS 58 \DEFINEFONT.PRESS 52 \CREATECHARSET 39 SHOW.PRESS 30 FONTCOPY 23 \COERCEFONTDESC) (133 FONTDESCRIPTOR 106 CHARSETINFO 19 PRESS) () \DSPLEFTMARGIN.PRESS :D4 (I 1 XPOSITION I 0 PRSTREAM) @0A@0A@ (17 \FIXLINELENGTH.PRESS) NIL () \DSPLINEFEED.PRESS :D4 (P 0 PRDATA I 1 DELTAY I 0 PRSTREAM) @0HAAd3HA (25 \ILLEGAL.ARG) NIL () \DSPRIGHTMARGIN.PRESS :D4 (I 1 XPOSITION I 0 PRSTREAM) @0 A@0A @ (17 \FIXLINELENGTH.PRESS) NIL () \DSPSPACEFACTOR.PRESS :D4 (P 0 PRDATA I 1 FACTOR I 0 STREAM) '@0H2A@ HA2@AH (35 \SETSPACE.PRESS 32 FIXR 15 SHOW.PRESS) NIL () \DSPTOPMARGIN.PRESS :D4 (I 1 YPOSITION I 0 PRSTREAM) @0!A@0A!NIL (21 PRESSDATA 16 STREAM 8 PRESSDATA 3 STREAM) () \DSPXPOSITION.PRESS :D4 (I 1 XPOSITION I 0 PRSTREAM) @0A@ @A (22 SETX.PRESS 16 SHOW.PRESS) (8 PRESSDATA 3 STREAM) () \DSPYPOSITION.PRESS :D4 (I 1 YPOSITION I 0 PRSTREAM) @0A@ @A (22 SETY.PRESS 16 SHOW.PRESS) (8 PRESSDATA 3 STREAM) () \FIXLINELENGTH.PRESS :D4 (P 1 LLEN P 0 PRDATA I 0 PRSTREAM) '@0@H HH$YkIl hNIL (22 FONTDESCRIPTOR 17 PRESSDATA) () \OUTCHARFN.PRESS :D4 (P 3 CLIPPINGREGION P 2 NEWXPOS P 1 XPOS P 0 PRDATA I 1 CHARCODE I 0 PRSTREAM) Adl @ @jjl @h@ @ Al @j@ @01HYA bIAl H4HAZIH6[AJKKk4HK'H4jHk4@ @IH @A @ Hj4jHJh(176 SHOW.PRESS 171 \BOUT 165 SETXY.PRESS 153 SHOW.PRESS 75 \PRESS.CONVERT.NSCHARACTER 54 NEWPAGE.PRESS 37 \DSPXPOSITION.PRESS 33 NEWLINE.PRESS 29 DSPXPOSITION 10 NEWLINE.PRESS) (189 PRESSDATA 160 PRESSDATA 126 PRESSDATA 101 PRESSDATA 68 PRESSDATA 59 STREAM 47 STREAM 14 STREAM) () \SETSPACE.PRESS :D4 (P 1 ELSTREAM P 0 PRDATA I 1 S I 0 PRSTREAM) S@01AH4h@0YAndAn`ػZK JKIl IA IAl HA4h(74 \BOUT 65 \BOUT 58 \BOUT 48 \BOUT) (25 PRESSDATA 20 STREAM 3 STREAM) () \STARTPAGE.PRESS :D4 (P 3 SPACEFACTOR P 2 HFONT P 1 CFONT P 0 PRDATA I 0 PRSTREAM) @0AHY@ HoH2Hk2H@J @HH!J H@ @ @Hn o@ HH"k\"L@ @ @ HK2@HH!I @I h(150 \DSPFONT.PRESS 144 SETXY.PRESS 120 NEWLINE.PRESS 115 NEWLINE.PRESS 110 PRIN3 88 PRIN3 79 SETX.PRESS 67 SHOW.PRESS 62 PRIN3 54 SETXY.PRESS 36 \DSPFONT.PRESS 13 \ENTITYSTART.PRESS) (138 FONTDESCRIPTOR 97 PRESSDATA 93 PRESSDATA 48 FONTDESCRIPTOR) ( 84 "Page ") \STRINGWIDTH.PRESSA0001 :D4 (I 1 CC I 0 DUMMY F 0 TOTALWIDTH F 1 STREAM F 2 WIDTHSBASE) A bPAl Q04RAlc(3 \PRESS.CONVERT.NSCHARACTER) NIL () \STRINGWIDTH.PRESS :D4 (P 23 CSET P 22 WIDTHSBASE P 21 TOTALWIDTH P 16 C P 14 CSET P 13 ESC P 12 ESCWIDTH P 11 WIDTHSBASE P 10 TOTAL P 6 C P 2 CSET P 1 WIDTHSBASE P 0 PRFONT I 2 RDTBL I 1 STRING I 0 STREAM) v@0AdloBDH(jH jAjC L__L jh_Kk[O-OOKOK¾MN ^l @04INlԽM jH(dH 2BO"_B_OO_AQOdj k_$Odj _&O$O_"Odj lD_(O$k_$O"LO(O&O$O&O$_ _ OO l @04OO lBO l"O OOj_OjH(dH gABd O*(369 \MAPPNAME 355 \CREATECHARSET 286 \PRESS.CONVERT.NSCHARACTER 244 %%ARRAY-TYPE-NUMBER 216 %%ARRAY-BASE 196 %%ARRAY-OFFSET 144 \CREATECHARSET 127 STRINGP 99 \PRESS.CONVERT.NSCHARACTER 33 \CREATECHARSET) (363 \STRINGWIDTH.PRESSA0001 164 READTABLEP) () SHOWRECTANGLE.PRESS :D4 (P 0 ELSTREAM I 2 HEIGHT I 1 WIDTH I 0 PRSTREAM) 5@0Hl HA HAl HB HBl h(49 \BOUT 40 \BOUT 34 \BOUT 25 \BOUT 19 \BOUT) (8 PRESSDATA 3 STREAM) () \PRESS.CONVERT.NSCHARACTER :D4 (L (0 CHARCODE)) L@dn-ln,l@dn/ln$l@dn%lnfl@dll`ll'@lNIL NIL () \ENDVECRUN :D4 (P 7 CH P 6 ORIGWASDISPLAYING P 5 WASDISPLAYING P 4 YPOS P 3 XPOS P 2 ORIGYPOS P 1 ORIGXPOS P 0 PRDATA I 1 HALFVECWIDTH I 0 PRSTREAM) @ @0aHjH.H0Ko Lo AKhALhLnA Kn A^]@IJ H,idAKNALILnA@Kn A6M @ @Ko Lo i@jOjO h]KOٻLO\@ @IJ HNkjHh,h(226 SETXY.PRESS 219 SHOW.PRESS 194 \BOUT 191 \VECENCODE 174 SETXY.PRESS 171 FIXR 162 FIXR 151 SHOW.PRESS 100 SETXY.PRESS 58 FIXR 48 FIXR 3 SHOW.PRESS) (244 PRESSDATA 231 PRESSDATA 105 PRESSDATA 36 PRESSDATA 29 PRESSDATA 16 PRESSDATA 7 STREAM) ( 167 6.6145835 158 6.6145835 54 6.6145835 44 6.6145835) \VECENCODE :D4 (L (1 DY 0 DX)) 4Aj@jAl@dAAl l@A@jAHdIIlNIL NIL () \VECPUT :D4 (P 2 YPOS P 1 XPOS P 0 PRDATA I 3 HALFVECWIDTH I 2 DY I 1 DX I 0 PRSTREAM) @0!HjjAHj"Aj@C HHjkjH.YH0ZHIA.HJB0HjfCJVJnCLCIGIn C=Hj'@ @Io Jo Hk@AB HjjHABH,,h(195 \BOUT 192 \VECENCODE 176 SETXY.PRESS 173 FIXR 164 FIXR 153 SHOW.PRESS 43 \ENDVECRUN) (219 PRESSDATA 212 PRESSDATA 201 PRESSDATA 181 PRESSDATA 142 PRESSDATA 101 PRESSDATA 92 PRESSDATA 83 PRESSDATA 76 PRESSDATA 69 PRESSDATA 52 PRESSDATA 48 PRESSDATA 26 PRESSDATA 12 PRESSDATA 3 STREAM) ( 169 6.6145835 160 6.6145835) \VECSKIP :D4 (I 2 DY I 1 DX I 0 PRSTREAM F 0 VecCurX F 1 VecCurY) @ PAcQBc@ (17 \ENDVECRUN 3 \ENDVECRUN) NIL () \VECFONTINIT :D4 (P 11 BRUSH P 7 CSINFO P 6 FD P 5 FMLY P 1 WIDTHS) `ongkj  HJ0od_`dgdMdOdodjdk$ni _dO(`I_dOl _dO_N(ON_O Oh_O&_yOK Lh[HXRL&(130 \ALLOCBLOCK 96 \ALLOCBLOCK 19 ARRAY) (146 FONTDESCRIPTOR 114 ARRAYP 109 |CHARSETINFOTYPE#| 57 PRESS 52 |FONTDESCRIPTORTYPE#| 31 \VecFontDir 14 SMALLP 2 \VecFontDir) ( 76 (MEDIUM REGULAR REGULAR) 41 (4 8 16 32 64) 8 (NEWVEC SNEWVEC HNEWVEC VNEWVEC)) \DRAWCIRCLE.PRESS :D4 (P 0 R2RAD I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) fCo ACB AHBH ABC AHBH ACB AHBH ABC AHBH hiDE@ AB@ (99 MOVETO 92 DRAWCURVE 75 CREATEPOSITION 66 CREATEPOSITION 59 CREATEPOSITION 50 CREATEPOSITION 43 CREATEPOSITION 34 CREATEPOSITION 27 CREATEPOSITION 18 CREATEPOSITION 8 FIXR) NIL ( 4 0.70710677) \DRAWARC.PRESS :D4 (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 (12 \DRAWARC.GENERIC) NIL () \DRAWCURVE.PRESS :D4 (P 5 KNOT P 1 LASTKNOT P 0 DASHLST I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 PRSTREAM) A@ Dddd3 ihDD AAAhbD"A l@AAAACD A@@A(d]o Mo KJh\J&LB DC A @II @(168 SETXY.PRESS 158 LAST 153 \PRESSCURVE2 150 \GETBRUSHFONT.PRESS 145 PARAMETRICSPLINE 123 CREATEPOSITION 120 FIXR 110 FIXR 89 \DRAWCURVE.PRESS.LINE 63 LENGTH 40 \ILLEGAL.ARG 9 SHOW.PRESS) NIL ( 116 0.1511811 106 0.1511811) \DRAWCURVE.PRESS.LINE :D4 (P 7 TR P 6 LB P 5 DIST P 4 BOTTOM P 3 LEFT P 2 BACKOFF P 1 WIDTH P 0 SHAPE I 6 DASHING I 5 BRUSH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 PRSTREAM) g EdEkYHdgjghIlۺAC fAIlٻjKKInTVBdDDBD_NJ_jOOjOJ_niOOni_N]jv@KN @IM iBD aBIlټjLLIniAdCCAC_NJ_jOOjOJ_nTVOOnTV_N]j@NL @MI i(248 SHOWRECTANGLE.PRESS 241 SETXY.PRESS 152 EQP 145 SHOWRECTANGLE.PRESS 138 SETXY.PRESS 45 EQP) (31 ROUND 23 BUTT 2 ROUND) () \DRAWELLIPSE.PRESS :D4 (P 1 COSOR P 0 SINOR I 7 DASHING I 6 BRUSH I 5 ORIENTATION I 4 SEMIMAJORRADIUS I 3 SEMIMINORRADIUS I 2 CENTERY I 1 CENTERX I 0 PRSTREAM) fE_oESo@AIDBHD AHCBIC AIDBHD AHCBIC hiFG AB@ h (98 SIN 93 COS 88 MOVETO 82 \DRAWCURVE.PRESS 69 CREATEPOSITION 56 CREATEPOSITION 43 CREATEPOSITION 30 CREATEPOSITION) NIL ( 13 1.0 6 0.0) \GETBRUSHFONT.PRESS :D4 (P 0 LIST1 I 0 BRUSH) @dg/dg`&dg`dg`g`@dbko djdkHdlHdldldlHH(84 FIXR 2 \VECFONTINIT) (61 \VecFontDir 56 BUTT 49 \VecFontDir 43 VERTICAL 35 \VecFontDir 29 HORIZONTAL 22 \VecFontDir 16 SQUARE 9 ROUND) ( 80 0.028452754) \PRESSCURVE2A0001 :D4 (NAME SI::*UNWIND-PROTECT* P 45 KNOT# P 42 EXTRADY P 41 PUTDY P 40 EXTRADX P 39 PUTDX P 38 HALFVECWIDTH P 37 DASHCNT P 36 DASHLST P 35 DASHON P 34 DELTA P 33 NEWT P 32 TT P 31 EXTRANEOUS P 30 DUPLICATEKNOT P 29 YWALLDT P 28 XWALLDT P 27 YDIFF P 26 XDIFF P 25 NEWYT P 24 NEWXT P 23 Y'T P 22 X'T P 21 YT P 20 XT P 19 DY P 18 DX P 17 IY P 16 IX P 15 Y0 P 14 X0 P 13 %#KNOTS P 12 Y''' P 11 X''' P 10 Y'' P 9 X'' P 8 Y' P 7 X' P 6 Y P 5 X P 4 Y'POLY P 3 YPOLY P 2 X'POLY P 1 XPOLY P 0 PRDATA I 0 SI::*CLEANUP-FORMS* F 46 PRSTREAM F 47 SPLINE F 48 BRUSHFONT F 49 SI::*RESETFORMS* F 50 DASHING) g.gW`W\ W\hhhWbcbW\0H Hl' naW\ W\ W\0l lg lg lg lg W^W^W^W^W^W^W^W^W^W^k W^k +W`g _Li_FWd_Hd_JW\Oo Oo W\0kkjhW\0jdOOkj_VOVjhW\0h,W\0O.W\0O0o_@l_DO _ O _"Okk-OZOXIJOOZ OOZ OOZ MOZ KLOOZ OOZ OOZ NOZ O@Il2_(O@Kl2_*OZOkj-MOZk MOZl NOZk NOZl h_dg8dg6dg0dg.dg NIL (321 \PRESSIMAGEOPS 315 \PRESSINITA0047 308 NILL 301 NILL 294 NILL 287 NILL 280 NILL 273 \DRAWPOLYGON.GENERIC 266 NILL 259 NILL 252 NILL 245 NILL 238 NILL 231 NILL 224 NILL 217 NILL 210 NILL 203 \DRAWPOINT.GENERIC 196 \DRAWARC.PRESS 189 \SCALEDBITBLT.PRESS 182 \DSPCLIPPINGREGION.PRESS 175 \BITMAPSIZE.PRESS 168 \CHARWIDTH.PRESS 161 \STRINGWIDTH.PRESS 154 \DSPSPACEFACTOR.PRESS 147 NEWPAGE.PRESS 140 PRESS 133 \DSPTOPMARGIN.PRESS 126 \DSPBOTTOMMARGIN.PRESS 119 NEWLINE.PRESS 112 \PRESSINITA0017 105 \BITBLT.PRESS 98 \BLTSHADE.PRESS 91 \PRESSINITA0013 84 \DRAWELLIPSE.PRESS 77 \DRAWCIRCLE.PRESS 70 \DRAWCURVE.PRESS 63 \DRAWLINE.PRESS 56 \DSPLINEFEED.PRESS 49 \DSPRIGHTMARGIN.PRESS 42 \DSPLEFTMARGIN.PRESS 35 \DSPFONT.PRESS 28 \DSPYPOSITION.PRESS 21 \DSPXPOSITION.PRESS 14 \CLOSEF.PRESS 7 PRESS 2 |IMAGEOPSTYPE#|) () MAKEPRESS :D4 (I 4 TABS I 3 HEADING I 2 FONTS I 1 PFILE I 0 FILE) @AgBCD (11 TEXTTOIMAGEFILE) (4 PRESS) () PRESSFILEPA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 PRESS-STREAM F 1 SI::*RESETFORMS* F 2 FILE F 3 LEN) 1oRggl chQcPSn nj/P P j(34 SETFILEPTR 15 OPENSTREAM) (10 OLD 7 INPUT) ( 3 (PROGN (CLOSEF? OLDVALUE))) PRESSFILEP :D4 (P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 LEN I 0 FILE F 3 LISPXHIST) L@ @ bd;g Hj.Hd $HnjSg  @h(67 CL:VALUES-LIST 63 SI::RESETUNWIND 60 \MVLIST 57 PRESSFILEPA0001 36 \FZEROP 20 GETFILEINFO 9 FINDFILE 3 STREAMP) (54 SI::RESETUNWIND 17 LENGTH) () PRESS.BITMAPSCALE :D4 (I 1 HEIGHT I 0 WIDTH F 0 PRESSBITMAPREGION) PoAPo@l (27 MIN) NIL ( 19 0.028452754 8 0.028452754) (PRETTYCOMPRINT PRESSCOMS) (RPAQQ PRESSCOMS ((* ;;; "PRESS printing support module") (FILES PUPPRINT) (COMS (* ;; "Font creation functions") (FNS \SEARCHPRESSFONTS \GETPRESSFONTNAMES \PRESSFAMILYCODELST \DECODEPRESSFACEBYTE \CREATEPRESSFONT \CREATECHARSET.PRESS) (INITVARS (PRESSFONTWIDTHSFILES (QUOTE {ERIS}FONTS>FONTS.WIDTHS))) (ALISTS (SYSTEMINITVARS PRESSFONTWIDTHSFILES)) (DECLARE%: DONTCOPY ( CONSTANTS noInfoCode))) (* ;; "Bitmap printing support") (FNS PRESSBITMAP FULLPRESSBITMAP SHOWREGION SHOWPRESSBITMAPREGION PRESSWINDOW WINDOW.BITMAP \WRITEPRESSBITMAP) (* ;; "Basic PRESS data structure output functions") (FNS \BCPLSOUT.PRESS \PAGEPAD.PRESS \ENTITYEND.PRESS \PARTEND.PRESS \ENTITYSTART.PRESS SETX.PRESS SETXY.PRESS SETY.PRESS SHOW.PRESS) (* ;; "Image stream support functions:") (FNS OPENPRSTREAM \BITBLT.PRESS \BLTSHADE.PRESS \SCALEDBITBLT.PRESS \BITMAPSIZE.PRESS \CHARWIDTH.PRESS \CLOSEF.PRESS \DRAWLINE.PRESS \ENDPAGE.PRESS NEWLINE.PRESS NEWPAGE.PRESS SETUPFONTS.PRESS \DEFINEFONT.PRESS \DSPBOTTOMMARGIN.PRESS \DSPCLIPPINGREGION.PRESS \DSPFONT.PRESS \DSPLEFTMARGIN.PRESS \DSPLINEFEED.PRESS \DSPRIGHTMARGIN.PRESS \DSPSPACEFACTOR.PRESS \DSPTOPMARGIN.PRESS \DSPXPOSITION.PRESS \DSPYPOSITION.PRESS \FIXLINELENGTH.PRESS \OUTCHARFN.PRESS \SETSPACE.PRESS \STARTPAGE.PRESS \STRINGWIDTH.PRESS SHOWRECTANGLE.PRESS \PRESS.CONVERT.NSCHARACTER) ( COMS (* ; "Drawcurve code") (FNS \ENDVECRUN \VECENCODE \VECPUT \VECSKIP \VECFONTINIT \DRAWCIRCLE.PRESS \DRAWARC.PRESS \DRAWCURVE.PRESS \DRAWCURVE.PRESS.LINE \DRAWELLIPSE.PRESS \GETBRUSHFONT.PRESS \PRESSCURVE2) (INITVARS (\VecFontDir)) (CONSTANTS (\MicasPerInch 2540)) (DECLARE%: DONTCOPY (CONSTANTS (ScansPerIn 384) (PointsPerIn 72.27) (MicasPerScan (FQUOTIENT \MicasPerInch ScansPerIn)) ( ScansPerMica (FQUOTIENT ScansPerIn \MicasPerInch)) (ScansPerPoint (FQUOTIENT ScansPerIn PointsPerIn)) (PointsPerScan (FQUOTIENT PointsPerIn ScansPerIn)) (MicasPerPoint (FQUOTIENT \MicasPerInch PointsPerIn )) (PointsPerMica (FQUOTIENT PointsPerIn \MicasPerInch)) (SPRUCEPAPERTOPSCANS 4096) ( SPRUCEPAPERTOPMICAS (FIX (FQUOTIENT (FTIMES SPRUCEPAPERTOPSCANS \MicasPerInch) ScansPerIn))) ( SPRUCEPAPERRIGHTMICAS (FIX (FTIMES 8.5 \MicasPerInch))) (SPRUCEPAPERRIGHTSCANS (FIX (FTIMES 8.5 ScansPerIn))) (SPRUCEPAPERBOTTOMSCANS 0) (SPRUCEPAPERBOTTOMMICAS 0) (SPRUCEPAPERLEFTSCANS 0) ( SPRUCEPAPERLEFTMICAS 0)))) (* ;; "Initialization code") (FNS \PRESSINIT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\PRESSINIT))) (DECLARE%: DONTCOPY (RECORDS PRESSDATA FONTDIRENTRY)) (INITRECORDS PRESSDATA) (INITVARS (DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 24765)) (PRESSBITMAPREGION (CREATEREGION 1270 1270 (FIX (TIMES 7.5 \MicasPerInch)) (TIMES 10 \MicasPerInch)))) (GLOBALVARS DEFAULTPAGEREGION) ( DECLARE%: DONTCOPY (CONSTANTS (BYTESPERRECORD 512) (LISPENTITYTYPE 6) (MICASPERINCH \MicasPerInch)) (E (RESETSAVE (RADIX 8))) (CONSTANTS * PRESSOPS)) (* ;; "Hardcopy user interface connections:") (COMS ( FNS MAKEPRESS PRESSFILEP PRESS.BITMAPSCALE) (ALISTS (IMAGESTREAMTYPES PRESS)) (ADDVARS (PRINTERTYPES ( (PRESS SPRUCE PENGUIN DOVER) (CANPRINT (PRESS)) (STATUS PUP.PRINTER.STATUS) (PROPERTIES PUP.PRINTER.PROPERTIES) (SEND EFTP) (BITMAPSCALE NIL) (BITMAPFILE (PRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))) ((FULLPRESS RAVEN) (* ; "same as PRESS but can scale bitmaps") (CANPRINT ( PRESS)) (STATUS TRUE) (PROPERTIES NILL) (SEND EFTP) (BITMAPSCALE PRESS.BITMAPSCALE) (BITMAPFILE ( FULLPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (PRINTFILETYPES (PRESS (TEST PRESSFILEP) (EXTENSION (PRESS)) (CONVERSION (TEXT MAKEPRESS TEDIT (LAMBDA (FILE PFILE FONTS HEADING) ( SETQ FILE (OPENTEXTSTREAM FILE)) (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL NIL (QUOTE PRESS)) ( CLOSEF? FILE) PFILE))))))))) (FILESLOAD PUPPRINT) (RPAQ? PRESSFONTWIDTHSFILES (QUOTE {ERIS}FONTS>FONTS.WIDTHS)) (ADDTOVAR SYSTEMINITVARS (PRESSFONTWIDTHSFILES {DSK}FONTS.WIDTHS)) (RPAQ? \VecFontDir) (RPAQQ \MicasPerInch 2540) (CONSTANTS (\MicasPerInch 2540)) (\PRESSINIT) (/DECLAREDATATYPE (QUOTE PRESSDATA) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD WORD BYTE BYTE FIXP FIXP FIXP FIXP FLAG FLAG POINTER POINTER POINTER POINTER POINTER FLAG POINTER)) (QUOTE (( PRESSDATA 0 POINTER) (PRESSDATA 2 POINTER) (PRESSDATA 4 POINTER) (PRESSDATA 6 POINTER) (PRESSDATA 8 POINTER) (PRESSDATA 10 POINTER) (PRESSDATA 12 POINTER) (PRESSDATA 14 POINTER) (PRESSDATA 16 POINTER) ( PRESSDATA 18 POINTER) (PRESSDATA 20 POINTER) (PRESSDATA 22 POINTER) (PRESSDATA 24 POINTER) (PRESSDATA 26 POINTER) (PRESSDATA 28 POINTER) (PRESSDATA 30 (BITS . 15)) (PRESSDATA 31 (BITS . 15)) (PRESSDATA 32 (BITS . 15)) (PRESSDATA 33 (BITS . 15)) (PRESSDATA 34 (BITS . 15)) (PRESSDATA 28 (BITS . 7)) ( PRESSDATA 26 (BITS . 7)) (PRESSDATA 35 FIXP) (PRESSDATA 37 FIXP) (PRESSDATA 39 FIXP) (PRESSDATA 41 FIXP) (PRESSDATA 24 (FLAGBITS . 0)) (PRESSDATA 24 (FLAGBITS . 16)) (PRESSDATA 44 POINTER) (PRESSDATA 46 POINTER) (PRESSDATA 48 POINTER) (PRESSDATA 50 POINTER) (PRESSDATA 52 POINTER) (PRESSDATA 52 ( FLAGBITS . 0)) (PRESSDATA 54 POINTER))) (QUOTE 56)) (RPAQ? DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 24765)) (RPAQ? PRESSBITMAPREGION (CREATEREGION 1270 1270 (FIX (TIMES 7.5 \MicasPerInch)) (TIMES 10 \MicasPerInch))) (ADDTOVAR IMAGESTREAMTYPES (PRESS (OPENSTREAM OPENPRSTREAM) (FONTCREATE \CREATEPRESSFONT) ( CREATECHARSET \CREATECHARSET.PRESS) (FONTSAVAILABLE \SEARCHPRESSFONTS))) (ADDTOVAR PRINTERTYPES ((PRESS SPRUCE PENGUIN DOVER) (CANPRINT (PRESS)) (STATUS PUP.PRINTER.STATUS) ( PROPERTIES PUP.PRINTER.PROPERTIES) (SEND EFTP) (BITMAPSCALE NIL) (BITMAPFILE (PRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))) ((FULLPRESS RAVEN) (* ; "same as PRESS but can scale bitmaps") ( CANPRINT (PRESS)) (STATUS TRUE) (PROPERTIES NILL) (SEND EFTP) (BITMAPSCALE PRESS.BITMAPSCALE) ( BITMAPFILE (FULLPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (ADDTOVAR PRINTFILETYPES (PRESS (TEST PRESSFILEP) (EXTENSION (PRESS)) (CONVERSION (TEXT MAKEPRESS TEDIT (LAMBDA (FILE PFILE FONTS HEADING) (SETQ FILE (OPENTEXTSTREAM FILE)) (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL NIL (QUOTE PRESS)) (CLOSEF? FILE) PFILE))))) (PUTPROPS PRESS COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987)) NIL