(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "10-Apr-2023 07:16:18" ("compiled on " {DSK}larry>il>medley>library>PRESS.;2) "10-Apr-2023 06:16:40" bcompl'd in "Medley 10-Apr-2023 ..." dated "10-Apr-2023 06:42:13") (FILECREATED "10-Apr-2023 07:15:37" {DSK}larry>il>medley>library>PRESS.;2 152958 :EDIT-BY "lmm" :CHANGES-TO (VARS PRESSCOMS) :PREVIOUS-DATE " 5-Feb-2021 22:18:06" {DSK}larry>il>medley>library>PRESS.;1) \SEARCHPRESSFONTSA0001 :D8 (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) `1HJdhHI Igi [$gKd hhdTcKj !oIggl [hTcKUWWV J (131 UNION 125 \GETPRESSFONTNAMES 103 OPENSTREAM 78 SETFILEPTR 58 GETFILEPTR 43 \GETSTREAM 29 INFILEP) (96 OLD 91 INPUT 51 SETFILEPTR 37 INPUT 4 PRESSFONTWIDTHSFILES) ( 85 (PROGN (CLOSEF? OLDVALUE))) \SEARCHPRESSFONTS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST 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 \SEARCHPRESSFONTSA0001) (8 SI::RESETUNWIND) () \GETPRESSFONTNAMES :D8 (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) WCgC C h@ jBgh Bn lHt @J @ J@ MlԺMdl@ I o _AgAOl@ ^H"N Cg(CN#NC"O NC^_Osi{@ @ @ @ _BgKOOjVK_O@ @ _DgOD6OOlHo NOghL_OOOgh|O_O_VjL(275 FIXR 140 \DECODEPRESSFACEBYTE 106 ERROR 59 SETFILEPTR 29 \PRESSFAMILYCODELST 21 \FACECODE 14 MEMB) (312 * 283 PRESS 247 * 209 * 147 * 115 * 36 * 8 *) ( 269 2540.0 101 "unknown code number in widths file") \PRESSFAMILYCODELST :D8 (P 4 I P 2 TYPE P 1 PAIRS P 0 NEXT I 0 WSTRM) dj!@H @ H@ JlԸJdk:@ @ @ k2LKM I@ _NOh^Lk\O&jI(60 PACKC 10 SETFILEPTR) NIL () \DECODEPRESSFACEBYTE :D8 (L (0 FACECODE)) xl@r0l @@l bgl@@lbggXl@@lbgl@@lbggZ@kggYJIHhNIL (109 REGULAR 103 ITALIC 93 MEDIUM 87 BOLD 68 LIGHT 50 REGULAR 44 COMPRESSED 25 EXPANDED) () \CREATEPRESSFONTA0001 :D8 (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) q`dTdUdVdSS HdIdW dodj djdj lki HdIJjJi J(109 \CREATECHARSET 82 \ALLOCBLOCK 31 \FACECODE) (4 |FONTDESCRIPTORTYPE#|) ( 54 35.27778) \CREATEPRESSFONT :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST 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 \CREATEPRESSFONTA0001) (8 SI::RESETUNWIND) () \CREATECHARSET.PRESSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 70 I P 68 I P 62 I P 60 I P 58 I P 52 I P 50 I P 48 FILEFACE P 47 FILEFAM P 46 FAMCODE P 45 SIZE P 44 LENGTH P 43 TYPE P 42 NEXT P 41 FILEFACE P 40 FILEFAM P 39 FAMCODE P 38 SIZE P 37 LENGTH P 36 TYPE P 35 NEXT P 34 FILEFACE P 33 FILEFAM P 32 FAMCODE P 31 SIZE P 30 LENGTH P 29 TYPE P 28 NEXT P 27 F P 25 CSINFO P 24 FD P 23 FACECODE P 22 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 71 FAMILY F 72 SIZE F 73 FACE F 74 SI::*RESETFORMS* F 75 CHARSETHEIGHT F 76 DEVICE F 77 ROTATION F 78 FOO F 79 FBBOX) G pWn lH_Wn o W `dWdWdWdWdO.dW dolki _dO`llk _dOllk _dO`O4d*WdggO4_6hO4_6O4_4O6 O6gi XaoO6ggl XhWcH Hggg X HIja"WiH _@E/ gHd hhdWcHj jh\"i#HO8 H _:H _j'O>O> oO,O>O, vH H _jObO WO>HdggdggggZ!I Y_ O0JO hPWdggXj ja)JiH _N?j1h\O0JWWWWhO0WiHOF H _HH _JOFOJOHl_FOHdl𲠿H _PH _RJiJOPONjORO.jH H H H _Lj'OLOL oO,OLO, xH H _jOdO YOL&O _ ggZI_$O0JO$ h hXj ja0JiH _\?j1h\O0JWWWWhO0WiHOT H _VH _XOTOXOVl_TOVdl𲠿H _^H _`JiJO^O\jO`O.jH H H H _Zj'OZOZ oO,OZO, xH H _"jO"dO" YOZ&O$_$Lj LL O2_Hd H H dnnkcO2jH H dnnk H H cH H dnnkcL(O2O2 O,n WO,ncO2WO2 H H KllNH H _L OjOd OO,n_NM2OdObOOdOOdk_dNM4OhOfOOhnOhk_hHg OMNMk8Oj >_&OjOlOnOplO&NM:OtOrOOtnOOtjOtk_tL-NMO|OzOO|nO|k_|Hg OMNMkBO~ >_*O~OOOlO*NMDOOOOnOOjOk_LZNMFOOLOOOOO,nOk_(1866 \GETSTREAM 1813 \ALLOCBLOCK 1775 \FZEROP 1735 GETEOFPTR 1729 GETFILEPTR 1582 \GETSTREAM 1492 \FZEROP 1297 SETFILEPTR 1291 \FIXPIN 1271 \FZEROP 1238 \FZEROP 1206 ABS 1186 \FZEROP 1080 SETFILEPTR 1016 \FAMILYCODE 1001 SETFILEPTR 933 \FZEROP 901 ABS 881 \FZEROP 775 SETFILEPTR 711 \FAMILYCODE 696 SETFILEPTR 641 DREVERSE 579 \FZEROP 547 ABS 527 \FZEROP 419 SETFILEPTR 395 SETFILEPTR 374 GETFILEPTR 360 RANDACCESSP 349 \FAMILYCODE 329 COPYBYTES 323 OPENSTREAM 300 RANDACCESSP 284 OPENSTREAM 257 \GETSTREAM 242 INFILEP 162 \ALLOCBLOCK 140 \ALLOCBLOCK 109 \ALLOCBLOCK 44 \FACECODE 34 FIXR) (1893 FDEV 1886 STREAM 1861 INPUT 1800 CHARSETINFO 1756 CHARSETINFO 1609 FDEV 1602 STREAM 1577 INPUT 1436 CHARSETINFO 1427 CHARSETINFO 1396 CHARSETINFO 1389 CHARSETINFO 1326 CHARSETINFO 1279 CHARSETINFO 1064 FONTDESCRIPTOR 1039 FONTDESCRIPTOR 977 FONTDESCRIPTOR 963 CENTURY 955 CLASSIC 759 FONTDESCRIPTOR 734 FONTDESCRIPTOR 685 FRUTIGER 674 MODERN 652 FONTDESCRIPTOR 632 GACHA 624 TERMINAL 618 LOGO 610 LOGOTYPE 602 TIMESROMAN 594 CLASSIC 367 SETFILEPTR 318 NEW 313 BOTH 308 {NODIRCORE} 277 OLD 272 INPUT 251 INPUT 211 HELVETICA 200 MODERN 179 PRESSFONTWIDTHSFILES 126 |CHARSETINFOTYPE#| 52 |FONTDESCRIPTORTYPE#|) ( 1193 0.02 888 0.02 534 0.02 265 (PROGN (CLOSEF? OLDVALUE)) 96 35.27778 28 72.0) \CREATECHARSET.PRESS :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 SIZE I 0 FAMILY F 3 LISPXHIST) -Ejo S!g $(38 SI::RESETUNWIND 33 \MVLIST 28 \CREATECHARSET.PRESSA0001 13 ERROR) (23 SI::RESETUNWIND) ( 8 "Press does not support NS characters.") PRESSBITMAP :D8 (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 16 PRESSBITMAPREGION) 5@ W W H0]B`CRA A JoKl^IoLl_jNjOoi i jN!NCko jjOOj_C]jdKJo__OdOOjLIo__OdOOj bAW NW OBCH H CKJo__OdOOjLIo__OdO󲧿O(249 CLOSEF 243 \WRITEPRESSBITMAP 218 CREATEREGION 139 ERROR 105 TERPRI 98 PRIN1 47 BITMAPHEIGHT 40 BITMAPWIDTH 5 OPENPRSTREAM) (25 STREAM) ( 287 35.14598 261 35.14598 194 35.14598 168 35.14598 134 "Spruce cannot scale bitmaps. Try pressing to a full press printer." 92 "Warning: Bitmap too large for Spruce PRESS page, will be clipped..." 67 35.14598 54 35.14598) FULLPRESSBITMAP :D8 (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 JoKBl^IoLBl_jNjOSoi i KL bJoKBl۾IoLBl_jNjOo AWNWOBCH H C_(209 CLOSEF 203 \WRITEPRESSBITMAP 180 ERROR 126 PRESS.BITMAPSCALE 118 TERPRI 111 PRIN1 58 BITMAPHEIGHT 51 BITMAPWIDTH 5 OPENPRSTREAM) (25 STREAM) ( 175 "Internal consistency check failed in FULLPRESSBITMAP." 150 35.14598 135 35.14598 105 "Warning: Bitmap too large for PRESS page, will be scaled..." 80 35.14598 65 35.14598 35 1.0) SHOWREGION :D8 (I 1 STREAM I 0 REGION) L@@A @jhdA j@hdA j@jhdA jd@hdA A(72 RELDRAWTO 55 RELDRAWTO 39 RELDRAWTO 24 RELDRAWTO 10 MOVETO) NIL () SHOWPRESSBITMAPREGION :D8 (P 0 STR F 1 PRESSBITMAPREGION) !gg QH H (30 CLOSEF 24 SHOWREGION 14 OPENIMAGESTREAM) (9 PRESS 4 {LPT}) () PRESSWINDOW :D8 (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 (189 CLOSEF 183 \WRITEPRESSBITMAP 174 DSPYPOSITION 120 DSPXPOSITION 65 BITMAPHEIGHT 58 BITMAPWIDTH 47 WINDOW.BITMAP 42 WHICHW 34 OPENPRSTREAM) (157 PRESSDATA 149 PRESSDATA 141 STREAM 133 PRESSDATA 126 STREAM 103 PRESSDATA 95 PRESSDATA 87 STREAM 79 PRESSDATA 72 STREAM 19 BREAKPAGEFILENAME 9 HEADING 4 {CORE}WINDOW.PRESS) ( 24 "Press Stream Window Image" 14 "Press Stream Window Image") \WRITEPRESSBITMAP :D8 (P 21 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 Enl__O OOl Ej El ECl I __O OOl ECl J __O OOl Ej Ek Ej Ej EI_ _O OO l Ej Ej EJ EJl Ej El E@JI\O$ @_"O$O&jO(lO"Kl KLl E E EMN hD @DDO*hdDD O*b(538 BKBITBLT 510 BITMAPCREATE 495 SETXY.PRESS 487 \ENTITYSTART.PRESS 481 \ENTITYEND.PRESS 475 \FIXPOUT 465 \BOUT 408 \BOUT 399 \BOUT 392 \BOUT 381 \BOUT 373 \BOUT 365 \BOUT 357 \BOUT 344 \BOUT 325 \BOUT 317 \BOUT 310 \BOUT 302 \BOUT 294 \BOUT 281 \BOUT 268 FIXR 255 \BOUT 242 \BOUT 229 FIXR 213 \BOUT 204 \BOUT 196 \BOUT 183 \BOUT 163 \BOUT 152 \BOUT 143 \BOUT 130 \BOUT 111 \BOUT 103 \BOUT 86 SETXY.PRESS 78 \ENTITYSTART.PRESS 72 \ENTITYEND.PRESS 66 SHOW.PRESS) (439 FDEV 432 STREAM 415 BITMAP 57 PRESSDATA 48 PRESSDATA 39 PRESSDATA 28 BITMAP 20 BITMAP 12 STREAM) ( 93 1.0) \BCPLSOUT.PRESS :D8 (P 2 I P 0 NC I 2 N I 1 X I 0 STRM) WA BkbdBB@H HkJI@AJ JkZBHkJI@j JkZh(76 \BOUT 50 \BOUT 45 NTHCHARCODE 27 \BOUT 5 NCHARS) NIL () \PAGEPAD.PRESS :D8 (P 1 PADDING P 0 P I 0 STRM) 8@ nHknYddjdk@HIk @j I(50 \BOUT 42 SETFILEPTR 5 GETFILEPTR) NIL () \ENTITYEND.PRESS :D8 (P 17 A0367 P 2 DLLENGTH P 1 ELSTREAM P 0 PRDATA I 3 ETYPE I 2 YOFFSET I 1 XOFFSET I 0 PRSTREAM) @0HY@ N@kO"Hl& ZI kjIl ICl IH j IHl& Hl$ IJ IAj[L KLl IBj]N MNl IH__O OOl IH__O OOl IH H__O OOl IH!H__O OOl Id Hl( k_ _O OO l h(418 \BOUT 405 \BOUT 388 \GETBASEFIXP 375 GETFILEPTR 367 \BOUT 354 \BOUT 322 \BOUT 309 \BOUT 277 \BOUT 264 \BOUT 241 \BOUT 228 \BOUT 205 \BOUT 194 \BOUT 179 \BOUT 168 \BOUT 154 \FIXPOUT 147 \FIXPOUT 139 \GETBASEFIXP 126 \GETBASEFIXP 112 \BOUT 92 \BOUT 80 \BOUT 67 GETFILEPTR 59 \GETBASEFIXP) (381 PRESSDATA 338 PRESSDATA 330 PRESSDATA 293 PRESSDATA 285 PRESSDATA 249 PRESSDATA 213 PRESSDATA 132 PRESSDATA 119 PRESSDATA 99 PRESSDATA 52 PRESSDATA 35 FDEV 28 STREAM 19 PRESSDATA 5 STREAM) () \PARTEND.PRESS :D8 (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(162 SETFILEPTR 147 \BOUT 136 \BOUT 127 \PAGEPAD.PRESS 119 \BOUT 108 \BOUT 97 \PUTBASEFIXP 86 GETFILEPTR 71 \BOUT 60 \BOUT 52 \BOUT 41 \BOUT 32 \GETBASEFIXP) (154 PRESSDATA 78 PRESSDATA 25 PRESSDATA 16 PRESSDATA 5 STREAM) () \ENTITYSTART.PRESS :D8 (P 4 A0370 P 3 A0368 P 0 PRDATA I 0 PRSTREAM) @0!Hh4HhHl&@ N@kK Hl(HZ NJkI Hl*@ N@kL @HH h(138 SETXY.PRESS 116 \PUTBASEFIXP 85 \PUTBASEFIXP 49 \PUTBASEFIXP) (131 PRESSDATA 123 PRESSDATA 101 FDEV 94 STREAM 73 FDEV 66 STREAM 58 PRESSDATA 34 FDEV 27 STREAM 5 STREAM) () SETX.PRESS :D8 (P 0 ELSTREAM I 1 X I 0 PRSTREAM) c@0jA;AnTV4A@0jHl HA HAl @0Ah(78 \BOUT 67 \BOUT 58 \BOUT) (92 PRESSDATA 85 STREAM 43 PRESSDATA 36 STREAM 12 PRESSDATA 5 STREAM) () SETXY.PRESS :D8 (P 1 ELSTREAM P 0 PRDATA I 2 Y I 1 X I 0 PRSTREAM) {@0HYjA&AnTVdl IA IAl HAjB&BniIl IB IBl HBB(109 \BOUT 98 \BOUT 89 \BOUT 59 \BOUT 48 \BOUT 39 \BOUT) (116 PRESSDATA 66 PRESSDATA 16 PRESSDATA 5 STREAM) () SETY.PRESS :D8 (P 0 ELSTREAM I 1 Y I 0 PRSTREAM) T@0jA6Ani/A@0jHl HA HAl @0Ah(73 \BOUT 62 \BOUT 53 \BOUT) (38 PRESSDATA 12 PRESSDATA 5 STREAM) () SHOW.PRESS :D8 (P 4 ELSTREAM P 3 CNT P 2 CURBYTE P 1 PRDATA P 0 A0371 I 0 PRSTREAM) @0@ N@kH"I\JIl* [djvI/II II lp l!K"LjKmذ*Ll Ll KlٻKlLl LK Il*J h(193 \PUTBASEFIXP 178 \BOUT 170 \BOUT 150 \BOUT 141 \BOUT 117 \BOUT 56 \GETBASEFIXP) (185 PRESSDATA 105 PRESSDATA 97 PRESSDATA 85 PRESSDATA 79 PRESSDATA 69 PRESSDATA 49 PRESSDATA 39 PRESSDATA 20 FDEV 13 STREAM 5 STREAM) () OPENPRSTREAM :D8 (P 2 PRDATA P 1 OPT P 0 PRSTREAM I 1 OPTIONS I 0 PRFILE) z @gglo  `Ag'Y[l Kd3ihI`_ggg dLggg dMAg'dNjdnTVnrh_dO6dk2djdj_dOOOOOOOO OOO!Z`H.H joH Hg(H`.HJ0Ag'YJIHAg' H H(374 \STARTPAGE.PRESS 368 SETUPFONTS.PRESS 300 ERROR 295 FULLNAME 280 GETEOFPTR 122 OPENSTREAM 96 OPENSTREAM 48 EQLENGTH 23 OPENSTREAM) (362 FONTS 351 PRESSDATA 342 HEADING 333 STREAM 325 \PRESSIMAGEOPS 320 STREAM 312 \OUTCHARFN.PRESS 307 STREAM 270 STREAM 264 \NOIMAGEOPS 244 PRESSDATA 225 PRESSDATA 211 PRESSDATA 198 PRESSDATA 186 PRESSDATA 134 DOCUMENT.NAME 117 OLD/NEW 112 BOTH 107 {NODIRCORE} 91 OLD/NEW 86 BOTH 81 {NODIRCORE} 73 DEFAULTPAGEREGION 38 REGION 31 |PRESSDATATYPE#| 10 NEW 5 OUTPUT) ( 289 "can't convert existing file to Press" 17 ((TYPE BINARY))) \BITBLT.PRESS :D8 (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) qC C DHEICJ CK @JKkG'GGFG C CH CI iGGFG (109 INTERSECTREGIONS 104 CREATEREGION 90 \DSPYPOSITION.PRESS 82 \DSPXPOSITION.PRESS 74 \WRITEPRESSBITMAP 67 CREATEREGION 46 \DSPYPOSITION.PRESS 38 \DSPXPOSITION.PRESS 14 \DSPYPOSITION.PRESS 5 \DSPXPOSITION.PRESS) NIL () \BLTSHADE.PRESS :D8 (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 (44 \BLTSHADE.GENERICPRINTER 22 INTERSECTREGIONS 8 CREATEREGION) NIL () \SCALEDBITBLT.PRESS :D8 (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) rC C DHEICJ CK @JKGG'GGFG C CH CI iGGFG (110 INTERSECTREGIONS 105 CREATEREGION 91 \DSPYPOSITION.PRESS 83 \DSPXPOSITION.PRESS 75 \WRITEPRESSBITMAP 68 CREATEREGION 46 \DSPYPOSITION.PRESS 38 \DSPXPOSITION.PRESS 14 \DSPYPOSITION.PRESS 5 \DSPXPOSITION.PRESS) NIL () \BITMAPSIZE.PRESS :D8 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) MBdgA dgA A A B (74 \ILLEGAL.ARG 61 BITMAPHEIGHT 50 BITMAPWIDTH 36 BITMAPHEIGHT 15 BITMAPWIDTH) (27 HEIGHT 6 WIDTH) () \CHARWIDTH.PRESS :D8 (I 1 CHARCODE I 0 STREAM) >A bdl @04@0AlHI IHh Il(50 \CREATECHARSET 5 \PRESS.CONVERT.NSCHARACTER) NIL () \CLOSEF.PRESS :D8 (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 jH j"O@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_(673 \BOUT 662 \BOUT 642 \BOUT 631 \BOUT 622 FONTPROP 608 \BOUT 599 \BOUT 594 \FACECODE 589 FONTPROP 575 \BCPLSOUT.PRESS 568 FONTPROP 554 \BOUT 545 \BOUT 536 \BOUT 525 \BOUT 513 \BOUT 504 \BOUT 488 \PAGEPAD.PRESS 481 \BCPLSOUT.PRESS 474 GETFILEINFO 461 \BCPLSOUT.PRESS 450 \BCPLSOUT.PRESS 443 FULLNAME 425 SETFILEPTR 412 \BOUT 403 \BOUT 394 \BOUT 385 \BOUT 376 \BOUT 367 \BOUT 358 \BOUT 350 \BOUT 342 \BOUT 334 \BOUT 326 \FIXPOUT 315 IDATE 308 \BOUT 299 \BOUT 290 \BOUT 277 \BOUT 263 \GETBASEFIXP 246 \BOUT 233 \BOUT 220 \GETBASEFIXP 205 \BOUT 192 \BOUT 176 GETFILEPTR 168 \BOUT 156 \BOUT 138 \BOUT 129 \BOUT 111 GETFILEPTR 104 \PAGEPAD.PRESS 97 COPYBYTES 92 GETFILEPTR 82 \PARTEND.PRESS 74 \BOUT 66 \BOUT 31 GETFILEPTR 5 \ENDPAGE.PRESS) (651 FONTDESCRIPTOR 617 DEVICESIZE 584 DEVICEFACE 563 DEVICEFAMILY 469 CREATIONDATE 433 PRESSDATA 256 PRESSDATA 213 PRESSDATA 43 PRESSDATA 22 PRESSDATA 11 STREAM) ( 320 -2147483648) \DRAWLINE.PRESS :D8 (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) > GABCDEF@GG &@AB CD hhgEhG D(58 \DRAWCURVE.PRESS 37 CREATEPOSITION 30 CREATEPOSITION 20 DRAWDASHEDLINE) (46 BUTT) () \ENDPAGE.PRESS :D8 (P 3 A0374 P 2 A0373 P 1 A0372 P 0 ELSTREAM I 0 PRSTREAM) @0@ @ H NHkIj]@ N@kJkj@j @j @j H@jH NHkK @j h(147 \PARTEND.PRESS 139 COPYBYTES 107 \BOUT 99 \BOUT 91 \BOUT 29 \ENTITYEND.PRESS 23 SHOW.PRESS) (124 FDEV 117 STREAM 69 FDEV 62 STREAM 42 FDEV 35 STREAM 12 PRESSDATA 5 STREAM) () NEWLINE.PRESS :D8 (P 1 NEWYPOS P 0 PRDATA I 0 PRSTREAM) 1@0HHYdH@ @ @HI h(45 SETXY.PRESS 34 SHOW.PRESS 26 NEWPAGE.PRESS) NIL () NEWPAGE.PRESS :D8 (I 0 PRSTREAM) @ @ (11 \STARTPAGE.PRESS 5 \ENDPAGE.PRESS) NIL () SETUPFONTS.PRESS :D8 (P 2 FLG P 1 F I 1 FONTS I 0 PRSTREAM F 3 DEFAULTFONT) XAS!HdHhHHIhddg J@I @I @ @0Ii(64 \ENTITYEND.PRESS 57 \DSPFONT.PRESS 47 \DEFINEFONT.PRESS 37 FONTCREATE) (78 PRESSDATA 71 STREAM 31 PRESS) () \DEFINEFONT.PRESS :D8 (P 0 PRDATA I 1 FONT I 0 PRSTREAM) @0!AH jHAH#H#hHH#kY#Il"HH#k#Hj#H Z JNIL (117 PRESSDATA 106 PRESSDATA 91 PRESSDATA 85 PRESSDATA 63 PRESSDATA 57 PRESSDATA 44 PRESSDATA 35 PRESSDATA 28 PRESSDATA 17 PRESSDATA 5 STREAM) () \DSPBOTTOMMARGIN.PRESS :D8 (I 1 YPOSITION I 0 PRSTREAM) %@0A@0ANIL (30 PRESSDATA 23 STREAM 12 PRESSDATA 5 STREAM) () \DSPCLIPPINGREGION.PRESS :D8 (P 1 \INTERRUPTABLE P 0 PRDATA I 1 REGION I 0 STREAM) @@0H6A/Al Ad3ihAo HA6(52 ERROR 24 EQLENGTH) (5 STREAM) ( 47 " is not a REGION.") \DSPFONT.PRESS :D8 (P 3 FDENTRY P 2 OLDFONT P 1 CSINFO P 0 PRDATA I 1 FONT I 0 PRSTREAM) @01HZAdAgi JA b@ A jAi Y@A [dH @ @ HK HAHKlp HI@H2H HmA @ J(172 \FIXLINELENGTH.PRESS 152 \SETSPACE.PRESS 147 FIXR 121 \BOUT 98 \ENTITYSTART.PRESS 91 \ENTITYEND.PRESS 72 \DEFINEFONT.PRESS 64 \CREATECHARSET 49 SHOW.PRESS 36 FONTCOPY 27 \COERCEFONTDESC) (161 FONTDESCRIPTOR 128 CHARSETINFO 21 PRESS) () \DSPLEFTMARGIN.PRESS :D8 (I 1 XPOSITION I 0 PRSTREAM) @0A@0A@ (19 \FIXLINELENGTH.PRESS) NIL () \DSPLINEFEED.PRESS :D8 (P 0 PRDATA I 1 DELTAY I 0 PRSTREAM) @0HAAd3HA (28 \ILLEGAL.ARG) NIL () \DSPRIGHTMARGIN.PRESS :D8 (I 1 XPOSITION I 0 PRSTREAM) @0 A@0A @ (19 \FIXLINELENGTH.PRESS) NIL () \DSPSPACEFACTOR.PRESS :D8 (P 0 PRDATA I 1 FACTOR I 0 STREAM) -@0H2A!@ HA2@AH (41 \SETSPACE.PRESS 36 FIXR 17 SHOW.PRESS) NIL () \DSPTOPMARGIN.PRESS :D8 (I 1 YPOSITION I 0 PRSTREAM) %@0!A@0A!NIL (30 PRESSDATA 23 STREAM 12 PRESSDATA 5 STREAM) () \DSPXPOSITION.PRESS :D8 (I 1 XPOSITION I 0 PRSTREAM) "@0A@ @A (30 SETX.PRESS 22 SHOW.PRESS) (12 PRESSDATA 5 STREAM) () \DSPYPOSITION.PRESS :D8 (I 1 YPOSITION I 0 PRSTREAM) "@0A@ @A (30 SETY.PRESS 22 SHOW.PRESS) (12 PRESSDATA 5 STREAM) () \FIXLINELENGTH.PRESS :D8 (P 1 LLEN P 0 PRDATA I 0 PRSTREAM) +@0@H HHYkIl hNIL (26 FONTDESCRIPTOR 19 PRESSDATA) () \OUTCHARFN.PRESS :D8 (P 3 CLIPPINGREGION P 2 NEWXPOS P 1 XPOS P 0 PRDATA I 1 CHARCODE I 0 PRSTREAM) Adl @ @jjdl @h@ @ l @j@ @01HYA bIAl H4HAZIH6[LJKKm>HK/H4jHk4@ @IH @A @ Hj4jHJh(214 SHOW.PRESS 207 \BOUT 199 SETXY.PRESS 183 SHOW.PRESS 98 \PRESS.CONVERT.NSCHARACTER 71 NEWPAGE.PRESS 51 \DSPXPOSITION.PRESS 45 NEWLINE.PRESS 39 DSPXPOSITION 13 NEWLINE.PRESS) (229 PRESSDATA 192 PRESSDATA 154 PRESSDATA 126 PRESSDATA 89 PRESSDATA 78 STREAM 62 STREAM 19 STREAM) () \SETSPACE.PRESS :D8 (P 1 ELSTREAM P 0 PRDATA I 1 S I 0 PRSTREAM) b@01AH4h@0YAndn`AػZK JKIl IA IAl HA4h(89 \BOUT 78 \BOUT 69 \BOUT 56 \BOUT) (31 PRESSDATA 24 STREAM 5 STREAM) () \STARTPAGE.PRESS :D8 (P 3 SPACEFACTOR P 2 HFONT P 1 CFONT P 0 PRDATA I 0 PRSTREAM) @0AHY@ HH2Hk2H@J @HH!J H@ @ @n H o@ HH"k\"L@ @ @ HK2@HH!I @I h(185 \DSPFONT.PRESS 177 SETXY.PRESS 149 NEWLINE.PRESS 142 NEWLINE.PRESS 135 PRIN3 107 PRIN3 95 SETX.PRESS 81 SHOW.PRESS 74 PRIN3 64 SETXY.PRESS 42 \DSPFONT.PRESS 15 \ENTITYSTART.PRESS) (169 FONTDESCRIPTOR 120 PRESSDATA 114 PRESSDATA 56 FONTDESCRIPTOR) ( 101 "Page ") \STRINGWIDTH.PRESSA0001 :D8 (I 1 CC I 0 DUMMY F 0 TOTALWIDTH F 1 STREAM F 2 WIDTHSBASE) !A bPAl Q04RAlc(5 \PRESS.CONVERT.NSCHARACTER) NIL () \STRINGWIDTH.PRESS :D8 (P 17 C P 15 CSET P 14 ESC P 13 ESCWIDTH P 12 WIDTHSBASE P 11 TOTAL P 7 C P 3 CSET P 2 WIDTHSBASE P 1 TOTALWIDTH P 0 PRFONT I 2 RDTBL I 1 STRING I 0 STREAM) @0Ad3@B&jH dHh gABd IH jHh kAjC M__M jh_LO8OOLOL_NO _l @04JOlԾLk\NA cjH dHh 2B O"_B_OO_AQO dj _&O dj _(O&mO l _$O dj lD_*O&O$TO*O(O&O(O&_" _"OO"l @04OO"lBO"l"O"OOj_O&k_&O(349 \PRESS.CONVERT.NSCHARACTER 309 %%ARRAY-TYPE-NUMBER 291 \GETBASEFIXP 271 %%ARRAY-BASE 251 %%ARRAY-OFFSET 195 \CREATECHARSET 175 STRINGP 138 \PRESS.CONVERT.NSCHARACTER 70 \CREATECHARSET 53 \MAPPNAME 35 \CREATECHARSET) (217 READTABLEP 45 \STRINGWIDTH.PRESSA0001) () SHOWRECTANGLE.PRESS :D8 (P 0 ELSTREAM I 2 HEIGHT I 1 WIDTH I 0 PRSTREAM) C@0Hl HA HAl HB HBl h(63 \BOUT 52 \BOUT 44 \BOUT 33 \BOUT 25 \BOUT) (12 PRESSDATA 5 STREAM) () \PRESS.CONVERT.NSCHARACTER :D8 (L (0 CHARCODE)) L@dn-ldn,ln/l@dn$ln%l@dnflll`@dll'lNIL NIL () \ENDVECRUN :D8 (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) 1@ @0aHjH.H0oK oL KjAhLjAhLnA Kn A^]@IJ H,}dKjA_LjAWLnANKn ADM*@ @oK oL i@jOjO h]KOٻLO\@ @IJ HNkjHh,h(276 SETXY.PRESS 267 SHOW.PRESS 240 \BOUT 235 \VECENCODE 216 SETXY.PRESS 211 FIXR 199 FIXR 185 SHOW.PRESS 124 SETXY.PRESS 74 FIXR 61 FIXR 5 SHOW.PRESS) (298 PRESSDATA 283 PRESSDATA 131 PRESSDATA 46 PRESSDATA 37 PRESSDATA 22 PRESSDATA 11 STREAM) ( 204 6.6145835 192 6.6145835 67 6.6145835 54 6.6145835) \VECENCODE :D8 (I 1 DY I 0 DX) 4Ajl@jAl @dAAl@Al@jAHdIINIL NIL () \VECPUT :D8 (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.HJB0HjJjCkJnCaIjCYIn COHj3@ @oI oJ Hk@AB $HjjHABH,,h(244 \BOUT 239 \VECENCODE 219 SETXY.PRESS 214 FIXR 202 FIXR 188 SHOW.PRESS 52 \ENDVECRUN) (275 PRESSDATA 266 PRESSDATA 252 PRESSDATA 226 PRESSDATA 175 PRESSDATA 124 PRESSDATA 113 PRESSDATA 102 PRESSDATA 93 PRESSDATA 84 PRESSDATA 65 PRESSDATA 59 PRESSDATA 33 PRESSDATA 16 PRESSDATA 5 STREAM) ( 207 6.6145835 195 6.6145835) \VECSKIP :D8 (I 2 DY I 1 DX I 0 PRSTREAM F 0 VecCurX F 1 VecCurY) @ PAcQBc@ (21 \ENDVECRUN 5 \ENDVECRUN) NIL () \VECFONTINIT :D8 (P 11 BRUSH P 7 CSINFO P 6 FD P 5 FMLY P 1 WIDTHS) `$ongkj  H J0od_`dgdMdOdodj dklki _dO`I_dOllk _dO_NON_O Oh_O&_cOK Lh[HX9L&(160 \ALLOCBLOCK 114 \ALLOCBLOCK 26 ARRAY) (178 FONTDESCRIPTOR 136 ARRAYP 129 |CHARSETINFOTYPE#| 71 PRESS 64 |FONTDESCRIPTORTYPE#| 40 \VecFontDir 19 SMALLP 4 \VecFontDir) ( 91 (MEDIUM REGULAR REGULAR) 51 (4 8 16 32 64) 11 (NEWVEC SNEWVEC HNEWVEC VNEWVEC)) \DRAWCIRCLE.PRESS :D8 (P 0 R2RAD I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) }Co ACB AHBH ABC AHBH ACB AHBH ABC AHBH hiDE@ AB@ (122 MOVETO 113 DRAWCURVE 94 CREATEPOSITION 83 CREATEPOSITION 74 CREATEPOSITION 63 CREATEPOSITION 54 CREATEPOSITION 43 CREATEPOSITION 34 CREATEPOSITION 23 CREATEPOSITION 11 FIXR) NIL ( 5 0.70710677) \DRAWARC.PRESS :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.PRESS :D8 (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 O@@A0d]o Mo KJh\J&LB DC A @II @(194 SETXY.PRESS 182 LAST 175 \PRESSCURVE2 170 \GETBRUSHFONT.PRESS 163 PARAMETRICSPLINE 139 CREATEPOSITION 134 FIXR 121 FIXR 97 \DRAWCURVE.PRESS.LINE 69 LENGTH 44 \ILLEGAL.ARG 11 SHOW.PRESS) NIL ( 128 0.1511811 115 0.1511811) \DRAWCURVE.PRESS.LINE :D8 (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 lAIlٻjKKInTVBdDDBD_NJ_jOOjOJ_niOOni_N]j@KN @IM iBD eBIlټjLLIniAdCCAC_NJ_jOOjOJ_nTVOOnTV_N]j@NL @MI i(268 SHOWRECTANGLE.PRESS 259 SETXY.PRESS 168 EQP 159 SHOWRECTANGLE.PRESS 150 SETXY.PRESS 53 EQP) (37 ROUND 27 BUTT 4 ROUND) () \DRAWELLIPSE.PRESS :D8 (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) xEhoEgo@AIDBHD AHCBIC AIDBHD AHCBIC hiFG AB@ h (116 COS 109 SIN 102 MOVETO 94 \DRAWCURVE.PRESS 79 CREATEPOSITION 64 CREATEPOSITION 49 CREATEPOSITION 34 CREATEPOSITION) NIL ( 15 1.0 7 0.0) \GETBRUSHFONT.PRESS :D8 (P 0 LIST1 I 0 BRUSH) @dg=dg`2dg` dg`g`@dbko djdkHdlHdldldlHH(107 FIXR 4 \VECFONTINIT) (81 \VecFontDir 74 BUTT 65 \VecFontDir 57 VERTICAL 47 \VecFontDir 39 HORIZONTAL 30 \VecFontDir 22 SQUARE 13 ROUND) ( 101 0.028452754) \PRESSCURVE2A0001 :D8 (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) .gW`W\ W\hhdWbcbW\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-OZOX-IJOOZ OOZ OOZ MOZ KLOOZ OOZ OOZ NOZ O@Il2_(O@Kl2_*OZOkj9MOZk MOZl NOZk NOZl h_dg8dg6dg0dg.dg NIL (442 \PRESSIMAGEOPS 434 \PRESSINITA0050 425 NILL 416 NILL 407 NILL 398 NILL 389 NILL 380 \DRAWPOLYGON.GENERIC 371 NILL 362 NILL 353 NILL 344 NILL 335 NILL 326 NILL 317 NILL 308 NILL 299 NILL 290 \DRAWPOINT.GENERIC 281 \MEDW.BLTCHAR 272 \MEDW.XOFFSET 263 \MEDW.YOFFSET 254 \DRAWARC.PRESS 245 \SCALEDBITBLT.PRESS 236 \DSPCLIPPINGREGION.PRESS 227 \BITMAPSIZE.PRESS 218 \CHARWIDTH.PRESS 209 \STRINGWIDTH.PRESS 200 \DSPSPACEFACTOR.PRESS 191 NEWPAGE.PRESS 182 PRESS 173 \DSPTOPMARGIN.PRESS 164 \DSPBOTTOMMARGIN.PRESS 155 NEWLINE.PRESS 146 \PRESSINITA0017 137 \BITBLT.PRESS 128 \BLTSHADE.PRESS 119 \PRESSINITA0013 110 \DRAWELLIPSE.PRESS 101 \DRAWCIRCLE.PRESS 92 \DRAWCURVE.PRESS 83 \DRAWLINE.PRESS 74 \DSPLINEFEED.PRESS 65 \DSPRIGHTMARGIN.PRESS 56 \DSPLEFTMARGIN.PRESS 47 \DSPFONT.PRESS 38 \DSPYPOSITION.PRESS 29 \DSPXPOSITION.PRESS 20 \CLOSEF.PRESS 11 PRESS 4 |IMAGEOPSTYPE#|) () MAKEPRESS :D8 (I 5 PRINTOPTIONS I 4 TABS I 3 HEADING I 2 FONTS I 1 PFILE I 0 FILE) @AgBCDE (16 TEXTTOIMAGEFILE) (6 PRESS) () PRESSFILEPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 PRESS-STREAM F 1 SI::*RESETFORMS* F 2 FILE F 3 LEN) :oRggl chQcPSn nj/P P j(43 SETFILEPTR 22 OPENSTREAM) (15 OLD 10 INPUT) ( 4 (PROGN (CLOSEF? OLDVALUE))) PRESSFILEP :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 LEN I 0 FILE F 4 LISPXHIST) ^@ @ bdIg Hj8Hd ,Hnj$T!g $@h(81 SI::RESETUNWIND 76 \MVLIST 71 PRESSFILEPA0001 46 \FZEROP 28 GETFILEINFO 13 FINDFILE 5 STREAMP) (66 SI::RESETUNWIND 23 LENGTH) () PRESS.BITMAPSCALE :D8 (I 1 HEIGHT I 0 WIDTH F 0 PRESSBITMAPREGION) "PoAPo@l (31 MIN) NIL ( 21 0.028452754 9 0.028452754) (PRETTYCOMPRINT PRESSCOMS) (RPAQQ PRESSCOMS ((* ;;; "PRESS printing support module") (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 \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))))))))) (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 35 (BITS . 7)) ( PRESSDATA 35 (BITS . 135)) (PRESSDATA 36 FIXP) (PRESSDATA 38 FIXP) (PRESSDATA 40 FIXP) (PRESSDATA 42 FIXP) (PRESSDATA 28 (FLAGBITS . 0)) (PRESSDATA 28 (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 ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1990 1993 2021)) NIL