From f6a9b88b34c16ffe185be4fe867180b6ebe26ef2 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sat, 24 Jun 2023 15:49:18 -0700 Subject: [PATCH] POSTSCRIPTSTREAM: Adds extra field to postscript data for PDFSTREAM filename --- library/POSTSCRIPTSTREAM | 895 +++++++++++++++++----------------- library/POSTSCRIPTSTREAM.LCOM | Bin 91396 -> 91382 bytes 2 files changed, 448 insertions(+), 447 deletions(-) diff --git a/library/POSTSCRIPTSTREAM b/library/POSTSCRIPTSTREAM index 6d5a1729..80df2d18 100644 --- a/library/POSTSCRIPTSTREAM +++ b/library/POSTSCRIPTSTREAM @@ -1,9 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP") -(FILECREATED "21-Jun-2021 20:29:32"  -{DSK}kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.;11 259283 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - previous date%: "12-Jun-2021 19:14:50" -{DSK}kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.;10) +(FILECREATED "24-Jun-2023 14:49:45" {WMEDLEY}POSTSCRIPTSTREAM.;13 258994 + + :EDIT-BY rmk + + :CHANGES-TO (FNS CLOSEPOSTSCRIPTSTREAM) + + :PREVIOUS-DATE "23-Jun-2023 12:05:56" {WMEDLEY}POSTSCRIPTSTREAM.;12) (* ; " @@ -14,7 +17,7 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (RPAQQ POSTSCRIPTSTREAMCOMS [ - (* ;; "PostScript printer support for Medley") + (* ;; "PostScript printer support for Medley") (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS FONTID PSCFONT \POSTSCRIPTDATA POSTSCRIPTXFORM)) (INITRECORDS \POSTSCRIPTDATA) @@ -38,14 +41,14 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (ZAPFCHANCERY . ZC) (ZAPFDINGBATS . ZD))) - (* ;; "Font-reading code") + (* ;; "Font-reading code") (FNS PSCFONT.READFONT PSCFONT.SPELLFILE PSCFONT.COERCEFILE PSCFONTFROMCACHE.SPELLFILE PSCFONTFROMCACHE.COERCEFILE PSCFONT.WRITEFONT READ-AFM-FILE CONVERT-AFM-FILES POSTSCRIPT.GETFONTID POSTSCRIPT.FONTCREATE \POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS POSTSCRIPT.FONTSAVAILABLE) (COMS - (* ;; "Until macro in FONT is exported") + (* ;; "Until macro in FONT is exported") (MACROS \FSETCHARWIDTH)) (FNS OPENPOSTSCRIPTSTREAM CLOSEPOSTSCRIPTSTREAM) @@ -57,7 +60,7 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen \PS.SCALEREGION \SCALEDBITBLT.PSC \SETPOS.PSC \SETXFORM.PSC \STRINGWIDTH.PSC \SWITCHFONTS.PSC \TERPRI.PSC) - (* ;; "DIG operations: ") + (* ;; "DIG operations: ") (FNS \BITBLT.PSC \BLTSHADE.PSC \CHARWIDTH.PSC \CREATECHARSET.PSC \DRAWARC.PSC \DRAWCIRCLE.PSC \DRAWCURVE.PSC \DRAWELLIPSE.PSC \DRAWLINE.PSC \DRAWPOINT.PSC \DRAWPOLYGON.PSC @@ -67,19 +70,18 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen \DSPTOPMARGIN.PSC \DSPTRANSLATE.PSC \DSPXPOSITION.PSC \DSPYPOSITION.PSC \FILLCIRCLE.PSC \FILLPOLYGON.PSC \FIXLINELENGTH.PSC \MOVETO.PSC \NEWPAGE.PSC) (COMS - (* ;; "Character-output, plus special-cases:") + (* ;; "Character-output, plus special-cases:") (FNS \POSTSCRIPT.CHANGECHARSET \POSTSCRIPT.OUTCHARFN \POSTSCRIPT.PRINTSLUG \POSTSCRIPT.SPECIALOUTCHARFN \UPDATE.PSC \POSTSCRIPT.ACCENTFN \POSTSCRIPT.ACCENTPAIR) - (* ;; - "Spacing-character (M-quad, etc.) and ballot-box-check &c special-case functions") + (* ;; "Spacing-character (M-quad, etc.) and ballot-box-check &c special-case functions") (FNS \PSC.SPACEDISP \PSC.SPACEWID \PSC.SYMBOLS) - (* ;; - "The mapping of NS characters to Postscript renderings, both as an AList and as a hashtable") + (* ;; + "The mapping of NS characters to Postscript renderings, both as an AList and as a hashtable") (FNS \POSTSCRIPT.NSHASH) (VARS (*POSTSCRIPT-UNACCENTED-FONTS* '(Dancer ZapfDingbats "Dancer" "ZapfDingbats")) @@ -176,7 +178,7 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (CREATECHARSET \CREATECHARSET.PSC] (INITVARS (POSTSCRIPT.PAGETYPE 'LETTER)) - (* ;; "NIL means initial clipping is same as paper size. Don't know why the other regions were specified--rmk") + (* ;; "NIL means initial clipping is same as paper size. Don't know why the other regions were specified--rmk") [APPENDVARS (POSTSCRIPT.PAGEREGIONS (LETTER (0 0 8.5 11) NIL @@ -213,57 +215,59 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (RECORD PSCFONT (FID IL-FONTID FIRSTCHAR LASTCHAR ASCENT DESCENT WIDTHS)) (DATATYPE \POSTSCRIPTDATA - ((POSTSCRIPTACCENTED FLAG) (* ; - "T if we're to do NS-to-PS translations on characters in the current font.") - POSTSCRIPTFONT (* ; - "The fontdescriptor of the current font") - POSTSCRIPTX (* ; "The current X") - POSTSCRIPTY (* ; "... and Y") - POSTSCRIPTLEFTMARGIN (* ; "The margins") + ((POSTSCRIPTACCENTED FLAG) (* ; + "T if we're to do NS-to-PS translations on characters in the current font.") + POSTSCRIPTFONT (* ; + "The fontdescriptor of the current font") + POSTSCRIPTX (* ; "The current X") + POSTSCRIPTY (* ; "... and Y") + POSTSCRIPTLEFTMARGIN (* ; "The margins") POSTSCRIPTRIGHTMARGIN POSTSCRIPTBOTTOMMARGIN POSTSCRIPTTOPMARGIN POSTSCRIPTLINESPACING - (* ; "Line to line spacing") - POSTSCRIPTCOLOR (* ; - "Color (or grey shade) in effect; 0.0=black, 1.0=white.") - POSTSCRIPTSCALE (* ; "Scale of the stream") - POSTSCRIPTOPERATION (* ; - "Default operation (PAINT, REPLACE, ...)") - POSTSCRIPTCLIPPINGREGION (* ; - "The current region available to be written into") - POSTSCRIPTPAGENUM (* ; "Current page number") - POSTSCRIPTHEADING (* ; "The heading") - POSTSCRIPTHEADINGFONT (* ; "Font for the heading") - POSTSCRIPTSPACEFACTOR (* ; - "Expansion factor for spaces (see DSPSPACEFACTOR)") - POSTSCRIPTSPACEWIDTH (* ; - "The width of a space in the current font") - POSTSCRIPTLANDSCAPE (* ; - "non-NIL for paper in 'landscape' mode") - POSTSCRIPTCHARSTOSHOW (* ; - "non-NIL if the string (PostScript-type string) of chars has already been started") - POSTSCRIPTFONTCHANGEDFLG (* ; "Font has changed") - POSTSCRIPTMOVEFLG (* ; "Need to move") - POSTSCRIPTWIDTHS (* ; - "The widths vector of the current font") - POSTSCRIPTTRANSX (* ; "Translation in X") - POSTSCRIPTTRANSY (* ; "... and Y") - POSTSCRIPTPENDINGXFORM (* ; - "A userspace to devicespace transform is pending") - POSTSCRIPTPAGEREGION (* ; "The whole page") - POSTSCRIPTPAGEBLANK (* ; "This page is blank flag") - POSTSCRIPTSCALEHACK (* ; - "For \PS.SCALEHACK since DSPSCALE doesn't change the scale of the stream") - POSTSCRIPTTEMPARRAY (* ; - "For converting FIXP to string of digit chars") - POSTSCRIPTXFORMSTACK (* ; "The stack of transformations. DSPPUSHSTATE pushes one onto this, DSPPOPSTATE uses it to reset values.") - POSTSCRIPTROTATION (* ; - "Rotation value currently in effect.") - POSTSCRIPTPENDINGROTATION (* ; - "Rotation to take effect at next SETXFORM.") - POSTSCRIPTFONTSUSED (* ; "List of FONTIDs of the fonts that've been used before. This is used to control the re-encoding of fonts for accented-character rendering.") - (POSTSCRIPTNSCHARSET BYTE) (* ; - "Current NSCHARSET--widths are in POSTSCRIPTWIDTHS") - (POSTSCRIPTNATURALSPACEWIDTH WORD) (* ; - "Width of the space in the current font, used to compute the scaled space width.") + (* ; "Line to line spacing") + POSTSCRIPTCOLOR (* ; + "Color (or grey shade) in effect; 0.0=black, 1.0=white.") + POSTSCRIPTSCALE (* ; "Scale of the stream") + POSTSCRIPTOPERATION (* ; + "Default operation (PAINT, REPLACE, ...)") + POSTSCRIPTCLIPPINGREGION (* ; + "The current region available to be written into") + POSTSCRIPTPAGENUM (* ; "Current page number") + POSTSCRIPTHEADING (* ; "The heading") + POSTSCRIPTHEADINGFONT (* ; "Font for the heading") + POSTSCRIPTSPACEFACTOR (* ; + "Expansion factor for spaces (see DSPSPACEFACTOR)") + POSTSCRIPTSPACEWIDTH (* ; + "The width of a space in the current font") + POSTSCRIPTLANDSCAPE (* ; + "non-NIL for paper in 'landscape' mode") + POSTSCRIPTCHARSTOSHOW (* ; + "non-NIL if the string (PostScript-type string) of chars has already been started") + POSTSCRIPTFONTCHANGEDFLG (* ; "Font has changed") + POSTSCRIPTMOVEFLG (* ; "Need to move") + POSTSCRIPTWIDTHS (* ; + "The widths vector of the current font") + POSTSCRIPTTRANSX (* ; "Translation in X") + POSTSCRIPTTRANSY (* ; "... and Y") + POSTSCRIPTPENDINGXFORM (* ; + "A userspace to devicespace transform is pending") + POSTSCRIPTPAGEREGION (* ; "The whole page") + POSTSCRIPTPAGEBLANK (* ; "This page is blank flag") + POSTSCRIPTSCALEHACK (* ; + "For \PS.SCALEHACK since DSPSCALE doesn't change the scale of the stream") + POSTSCRIPTTEMPARRAY (* ; + "For converting FIXP to string of digit chars") + POSTSCRIPTXFORMSTACK (* ; "The stack of transformations. DSPPUSHSTATE pushes one onto this, DSPPOPSTATE uses it to reset values.") + POSTSCRIPTROTATION (* ; + "Rotation value currently in effect.") + POSTSCRIPTPENDINGROTATION (* ; + "Rotation to take effect at next SETXFORM.") + POSTSCRIPTFONTSUSED (* ; "List of FONTIDs of the fonts that've been used before. This is used to control the re-encoding of fonts for accented-character rendering.") + (POSTSCRIPTNSCHARSET BYTE) (* ; + "Current NSCHARSET--widths are in POSTSCRIPTWIDTHS") + (POSTSCRIPTNATURALSPACEWIDTH WORD) (* ; + "Width of the space in the current font, used to compute the scaled space width.") + POSTSCRIPTTARGETINFO (* ; + "For use of other imagetypes (like PDF) that might piggy-back on postscript.") ) POSTSCRIPTX _ 0 POSTSCRIPTY _ 0 POSTSCRIPTTRANSX _ 0 POSTSCRIPTTRANSY _ 0 POSTSCRIPTSPACEFACTOR _ 1 POSTSCRIPTPAGENUM _ 0 POSTSCRIPTSCALEHACK _ 1 POSTSCRIPTTEMPARRAY @@ -271,28 +275,28 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen POSTSCRIPTROTATION _ 0 POSTSCRIPTCOLOR _ 0.0) (RECORD POSTSCRIPTXFORM ( - (* ;; "Holds the transformation state as saved by DSPPUSHSTATE. Used by DSPPOPSTATE to restore the tranformation state.") + (* ;; "Holds the transformation state as saved by DSPPUSHSTATE. Used by DSPPOPSTATE to restore the tranformation state.") - PSXCLIP (* ; "Clipping region") - PSXPAGE (* ; "Page region") - PSXX (* ; "X position?") - PSXY (* ; "Y position?") - PSXLEFT (* ; "Left margin") - PSXRIGHT (* ; "Right margin") - PSXTOP (* ; "Top margin") - PSXBOTTOM (* ; "Bottom Margin") - PSXTRANX (* ; "X-translation in effect") - PSXTRANY (* ; "Y-translation in effect") - PSXLAND (* ; "Landscape?") - PSXXFORMPEND (* ; "Are there transforms pending? ") - )) + PSXCLIP (* ; "Clipping region") + PSXPAGE (* ; "Page region") + PSXX (* ; "X position?") + PSXY (* ; "Y position?") + PSXLEFT (* ; "Left margin") + PSXRIGHT (* ; "Right margin") + PSXTOP (* ; "Top margin") + PSXBOTTOM (* ; "Bottom Margin") + PSXTRANX (* ; "X-translation in effect") + PSXTRANY (* ; "Y-translation in effect") + PSXLAND (* ; "Landscape?") + PSXXFORMPEND (* ; "Are there transforms pending? ") + )) ) (/DECLAREDATATYPE '\POSTSCRIPTDATA '(FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER - BYTE WORD) + BYTE WORD POINTER) '((\POSTSCRIPTDATA 0 (FLAGBITS . 0)) (\POSTSCRIPTDATA 0 POINTER) (\POSTSCRIPTDATA 2 POINTER) @@ -328,15 +332,16 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (\POSTSCRIPTDATA 62 POINTER) (\POSTSCRIPTDATA 64 POINTER) (\POSTSCRIPTDATA 66 (BITS . 7)) - (\POSTSCRIPTDATA 67 (BITS . 15))) - '68) + (\POSTSCRIPTDATA 67 (BITS . 15)) + (\POSTSCRIPTDATA 68 POINTER)) + '70) ) (/DECLAREDATATYPE '\POSTSCRIPTDATA '(FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER - BYTE WORD) + BYTE WORD POINTER) '((\POSTSCRIPTDATA 0 (FLAGBITS . 0)) (\POSTSCRIPTDATA 0 POINTER) (\POSTSCRIPTDATA 2 POINTER) @@ -372,8 +377,9 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (\POSTSCRIPTDATA 62 POINTER) (\POSTSCRIPTDATA 64 POINTER) (\POSTSCRIPTDATA 66 (BITS . 7)) - (\POSTSCRIPTDATA 67 (BITS . 15))) - '68) + (\POSTSCRIPTDATA 67 (BITS . 15)) + (\POSTSCRIPTDATA 68 POINTER)) + '70) (DEFINEQ (POSTSCRIPT.INIT @@ -486,24 +492,24 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen ) (ADDTOVAR DEFAULTFILETYPELIST (PS . TEXT) - (PSC . TEXT) - (PSF . BINARY) - (PSCFONT . BINARY) - (POSTSCRIPT . TEXT)) + (PSC . TEXT) + (PSF . BINARY) + (PSCFONT . BINARY) + (POSTSCRIPT . TEXT)) (ADDTOVAR *DISPLAY-FONT-NAME-MAP* (AVANTGARDE-BOOK . AB) - (AVANTGARDE-DEMI . AD) - (BECKMAN . BM) - (BOOKMAN-LIGHT . BL) - (BOOKMAN-DEMI . BD) - (COURIER . CO) - (HELVETICA-NARROW . HN) - (NEWCENTURYSCHLBK . NC) - (PALATINO . PA) - (TIMES . TS) - (ZAPFCHANCERY-MEDIUM . ZM) - (ZAPFCHANCERY . ZC) - (ZAPFDINGBATS . ZD)) + (AVANTGARDE-DEMI . AD) + (BECKMAN . BM) + (BOOKMAN-LIGHT . BL) + (BOOKMAN-DEMI . BD) + (COURIER . CO) + (HELVETICA-NARROW . HN) + (NEWCENTURYSCHLBK . NC) + (PALATINO . PA) + (TIMES . TS) + (ZAPFCHANCERY-MEDIUM . ZM) + (ZAPFCHANCERY . ZC) + (ZAPFDINGBATS . ZD)) @@ -1112,11 +1118,11 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (DECLARE%: EVAL@COMPILE (PUTPROPS \FSETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE WIDTH) - (\FSETWIDTH (ffetch (CHARSETINFO WIDTHS) - of (\GETCHARSETINFO (\CHARSET CHARCODE) - FONTDESC)) - (\CHAR8CODE CHARCODE) - WIDTH))) + (\FSETWIDTH (ffetch (CHARSETINFO WIDTHS) of (\GETCHARSETINFO + (\CHARSET CHARCODE) + FONTDESC)) + (\CHAR8CODE CHARCODE) + WIDTH))) ) (DEFINEQ @@ -1260,11 +1266,11 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen STREAM]) (CLOSEPOSTSCRIPTSTREAM - [LAMBDA (STREAM) (* ; "Edited 8-Mar-93 10:31 by jds") - (POSTSCRIPT.ENDPAGE STREAM) - (POSTSCRIPT.PUTCOMMAND STREAM :EOL "%%%%Trailer" :EOL) - (* BOUT STREAM (CHARCODE ^D)) - ]) + [LAMBDA (STREAM) (* ; "Edited 24-Jun-2023 13:48 by rmk") + (* ; "Edited 8-Mar-93 10:31 by jds") + (POSTSCRIPT.ENDPAGE STREAM) (* BOUT STREAM (CHARCODE ^D)) + (* ; "Should this be the lsat byte?") + (POSTSCRIPT.PUTCOMMAND STREAM :EOL "%%%%Trailer" :EOL]) ) (RPAQ? *POSTSCRIPT-FILE-TYPE* 'BINARY) @@ -3537,210 +3543,210 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (RPAQQ *POSTSCRIPT-NS-TRANSLATIONS* ( - (* ;; "Mapping of NS characters to Postscript renderings.") + (* ;; "Mapping of NS characters to Postscript renderings.") - (* ;; "First few are for control-codes in old Press fonts (Timesroman, etc.); not strictly NS, but undefined therein so should be OK.") + (* ;; "First few are for control-codes in old Press fonts (Timesroman, etc.); not strictly NS, but undefined therein so should be OK.") ("^S" NIL "2,320") - (* ; "pressfont em dash") + (* ; "pressfont em dash") ("^V" NIL "2,261") - (* ; "pressfont en dash") + (* ; "pressfont en dash") ("^G" NIL "0,140") ("0,244" NIL "2,250") - (* ; "generic currency symbol") + (* ; "generic currency symbol") ("0,251" NIL "2,140") - (* ; "left single quote") + (* ; "left single quote") ("0,254" SYMBOL "2,254") - (* ; "left arrow") + (* ; "left arrow") ("0,255" SYMBOL "2,255") - (* ; "uparrow") + (* ; "uparrow") ("0,256" SYMBOL "2,256") - (* ; "right arrow") + (* ; "right arrow") ("0,257" SYMBOL "2,257") - (* ; "down arrow") + (* ; "down arrow") ("0,260" SYMBOL "2,260") - (* ; "degree") + (* ; "degree") ("0,261" SYMBOL "2,261") - (* ; "+/-") + (* ; "+/-") ("0,264" SYMBOL "2,264") - (* ; "times") + (* ; "times") ("0,267" NIL "2,264") - (* ; "Center-dot") + (* ; "Center-dot") ("0,270" SYMBOL "2,270") - (* ; "divide") + (* ; "divide") ("0,271" NIL "2,047") - (* ; "right single quote") + (* ; "right single quote") ("0,274" FUNCTION " f14 ") - (* ; "1/4") + (* ; "1/4") ("0,275" FUNCTION " f12 ") - (* ; "1/2") + (* ; "1/2") ("0,276" FUNCTION " f34 ") - (* ; "3/4") + (* ; "3/4") ("0,322" SYMBOL "2,342") - (* ; "registered") + (* ; "registered") ("0,323" SYMBOL "2,343") - (* ; "copyright") + (* ; "copyright") ("0,324" SYMBOL "2,344") - (* ; "tm") + (* ; "tm") ("0,334" FUNCTION " f18 ") - (* ; "1/8") + (* ; "1/8") ("0,335" FUNCTION " f38 ") - (* ; "3/8") + (* ; "3/8") ("0,336" FUNCTION " f58 ") - (* ; "5/8") + (* ; "5/8") ("0,337" FUNCTION " f78 ") - (* ; "7/8") + (* ; "7/8") ("0,342" NIL "2,235") - (* ; "Eth (slashed D?)") + (* ; "Eth (slashed D?)") ("0,354" NIL "2,237") - (* ; "Thorn") + (* ; "Thorn") ("0,363" NIL "2,236") - (* ; "eth") + (* ; "eth") ("0,374" NIL "2,240") - (* ; "thorn") + (* ; "thorn") ("41,172" DINGBAT "0,110") - (* ; "filled star") + (* ; "filled star") ("42,42" DINGBAT "0,161") - (* ; "ballot-box") + (* ; "ballot-box") ("42,61" APPLY* "0,161" \PSC.SYMBOLS \PSC.SPACEWID NIL) - (* ; "Checked ballot-box") + (* ; "Checked ballot-box") ("357,44" NIL "2,261") - (* ; "n dash") + (* ; "n dash") ("357,45" NIL "2,320") - (* ; "m dash") + (* ; "m dash") ("357,55" APPLY* "M" \PSC.SPACEDISP \PSC.SPACEWID NIL) - (* ; "M quad") + (* ; "M quad") ("357,54" APPLY* "N" \PSC.SPACEDISP \PSC.SPACEWID NIL) - (* ; "N quad") + (* ; "N quad") ("357,56" APPLY* "1" \PSC.SPACEDISP \PSC.SPACEWID NIL) - (* ; "FIGURE quad") + (* ; "FIGURE quad") ("357,57" APPLY* ("M" 0.2) \PSC.SPACEDISP \PSC.SPACEWID NIL) - (* ; "This space (1/5M)") + (* ; "This space (1/5M)") ("357,60" NIL "2,262") - (* ; "dagger") + (* ; "dagger") ("357,61" NIL "2,263") - (* ; "double dagger") + (* ; "double dagger") ("357,062" SYMBOL "2,361") - (* ; "angleright") + (* ; "angleright") ("357,063" SYMBOL "2,341") - (* ; "angleleft") + (* ; "angleleft") ("357,70" SYMBOL "2,315") - (* ; "perpendicular") + (* ; "perpendicular") ("357,101" NIL "2,275") - (* ; "per mil o/oo") + (* ; "per mil o/oo") ("357,104" ACCENTPAIR "<" NIL "/") - (* ; "not less than") + (* ; "not less than") ("357,105" ACCENTPAIR ">" "/") - (* ; "not greater than") + (* ; "not greater than") ("357,110" SYMBOL "2,312") - (* ; "parallel") + (* ; "parallel") ("357,111" SYMBOL "2,315") - (* ; "not parallel") + (* ; "not parallel") ("357,112" SYMBOL "2,316") - (* ; "element") + (* ; "element") ("357,113" SYMBOL "2,317") - (* ; "notelement") + (* ; "notelement") ("357,114" SYMBOL "2,047") - (* ; "suchthat") + (* ; "suchthat") ("357,115" SYMBOL "2,334") - (* ; "implied by, double arrow left") + (* ; "implied by, double arrow left") ("357,116" SYMBOL "2,333") - (* ; "iff, double arrow") + (* ; "iff, double arrow") ("357,117" SYMBOL "2,336") - (* ; "implies, double arrow right") + (* ; "implies, double arrow right") ("357,120" SYMBOL "2,253") - (* ; "double arrow") + (* ; "double arrow") ("357,121" SYMBOL "2,333") - (* ; "double arrow") + (* ; "double arrow") ("357,122" SYMBOL "2,333") - (* ; "l/r arrow") + (* ; "l/r arrow") ("357,126" SYMBOL "2,307") - (* ; "intersection") + (* ; "intersection") ("357,127" SYMBOL "2,310") - (* ; "union") + (* ; "union") ("357,130" SYMBOL "2,312") - (* ; "reflexsuperset") + (* ; "reflexsuperset") ("357,131" SYMBOL "2,315") - (* ; "reflexsubset") + (* ; "reflexsubset") ("357,132" SYMBOL "2,311") - (* ; "propersuperset") + (* ; "propersuperset") ("357,133" SYMBOL "2,314") - (* ; "propersubset") + (* ; "propersubset") ("357,137" SYMBOL "2,313") - (* ; "notsubset") + (* ; "notsubset") ("357,141" SYMBOL "2,306") - (* ; "emptyset") + (* ; "emptyset") ("357,142" SYMBOL "2,305") - (* ; "circleplus") + (* ; "circleplus") ("357,144" SYMBOL "2,304") - (* ; "circlemultiply") + (* ; "circlemultiply") ("357,146" NIL "2,267") - (* ; "bullet") + (* ; "bullet") ("357,147" SYMBOL "2,260") - (* ; - "center circle (composition), lowered degree") + (* ; + "center circle (composition), lowered degree") ("357,152" SYMBOL "2,330") - (* ; "logicalnot") + (* ; "logicalnot") ("357,154" SYMBOL "2,320") - (* ; "angle") + (* ; "angle") ("357,160" SYMBOL "2,136") - (* ; "perpendicular") + (* ; "perpendicular") ("357,161" SYMBOL "2,265") - (* ; "proportional") + (* ; "proportional") ("357,162" SYMBOL "2,272") - (* ; "equivalence") + (* ; "equivalence") ("357,165" SYMBOL "2,362") - (* ; "integral") + (* ; "integral") ("357,167" SYMBOL "2,273") - (* ; "approxequal") + (* ; "approxequal") ("357,170" SYMBOL "2,100") - (* ; "congruent") + (* ; "congruent") ("357,172" SYMBOL "2,345") - (* ; "summation") + (* ; "summation") ("357,173" SYMBOL "2,325") - (* ; "product") + (* ; "product") ("357,174" SYMBOL "2,326") - (* ; "radical") + (* ; "radical") ("357,242" SYMBOL "2,246") - (* ; "florin") + (* ; "florin") ("357,260" SYMBOL "2,351") - (* ; "Ceiling, left ") + (* ; "Ceiling, left ") ("357,261" SYMBOL "2,371") - (* ; "Ceiling, right") + (* ; "Ceiling, right") ("357,262" SYMBOL "2,353") - (* ; "Floor, left ") + (* ; "Floor, left ") ("357,263" SYMBOL "2,373") - (* ; "Floor, right") + (* ; "Floor, right") ("357,264" SYMBOL "2,44") - (* ; "exists") + (* ; "exists") ("357,265" SYMBOL "2,42") - (* ; "forall") + (* ; "forall") ("357,266" SYMBOL "2,331") - (* ; "logicaland") + (* ; "logicaland") ("357,267" SYMBOL "2,332") - (* ; "logicalor") + (* ; "logicalor") ("357,271" SYMBOL "2,321") - (* ; "gradient") + (* ; "gradient") ("357,272" SYMBOL "2,266") - (* ; "partialdiff") + (* ; "partialdiff") ("357,313" SYMBOL "2,252") - (* ; "spade") + (* ; "spade") ("357,317" DINGBAT "0,63") - (* ; "check") + (* ; "check") ("357,375" FUNCTION " f13 ") - (* ; "1/3") + (* ; "1/3") ("357,376" FUNCTION " f23 ") - (* ; "2/3") + (* ; "2/3") ("361,041" ACCENT "0,4" A) ("361,042" ACCENT "0,1" A) ("361,043" ACCENT "0,2" A) ("361,044" ACCENT "0,6" A) ("361,045" ACCENTPAIR A "0,305") - (* ; "A-macron") + (* ; "A-macron") ("361,046" ACCENTPAIR A "0,306") - (* ; "A-breve") + (* ; "A-breve") ("361,047" ACCENT "0,3" A) ("361,050" ACCENT "0,5" A) ("361,055" ACCENT "0,7" C) @@ -3748,15 +3754,15 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen ("361,061" ACCENT "0,10" E) ("361,062" ACCENT "0,11" E) ("361,063" ACCENTPAIR E "0,305") - (* ; "E-macron") + (* ; "E-macron") ("361,065" ACCENT "0,12" E) ("361,066" ACCENTPAIR E NIL "0,316") - (* ; "E-ogonek") + (* ; "E-ogonek") ("361,076" ACCENT "0,17" I) ("361,077" ACCENT "0,14" I) ("361,100" ACCENT "0,15" I) ("361,102" ACCENTPAIR I "0,305") - (* ; "I-macron") + (* ; "I-macron") ("361,104" ACCENT "0,16" I) ("361,114" ACCENT "0,20" N) ("361,117" ACCENT "0,24" O) @@ -3764,31 +3770,31 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen ("361,121" ACCENT "0,22" O) ("361,122" ACCENT "0,25" O) ("361,123" ACCENTPAIR O "0,305") - (* ; "O-macron") + (* ; "O-macron") ("361,124" ACCENT "0,23" O) ("361,134" ACCENT "0,26" S) ("361,137" ACCENT "0,32" U) ("361,140" ACCENT "0,27" U) ("361,141" ACCENT "0,30" U) ("361,143" ACCENTPAIR U "0,305") - (* ; "U-macron") + (* ; "U-macron") ("361,145" ACCENT "0,31" U) ("361,155" ACCENT "0,33" Y) ("361,160" ACCENT "0,34" Z) ("361,165" ACCENTPAIR Y "0,305") - (* ; "Y-macron") + (* ; "Y-macron") ("361,166" ACCENTPAIR "0,341" "0,305") - (* ; "AE-macron") + (* ; "AE-macron") ("361,167" ACCENTPAIR "0,352" "0,305") - (* ; "OE-macron") + (* ; "OE-macron") ("361,241" ACCENT "0,204" a) ("361,242" ACCENT "0,201" a) ("361,243" ACCENT "0,202" a) ("361,244" ACCENT "0,206" a) ("361,245" ACCENTPAIR a "0,305") - (* ; "a-macron") + (* ; "a-macron") ("361,246" ACCENTPAIR a "0,306") - (* ; "a-breve") + (* ; "a-breve") ("361,247" ACCENT "0,203" a) ("361,250" ACCENT "0,205" a) ("361,255" ACCENT "0,207" c) @@ -3796,17 +3802,17 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen ("361,261" ACCENT "0,210" e) ("361,262" ACCENT "0,211" e) ("361,263" ACCENTPAIR e "0,305") - (* ; "e-macron") + (* ; "e-macron") ("361,265" ACCENT "0,212" e) ("361,266" ACCENTPAIR e NIL "0,316") - (* ; "e-ogonek") + (* ; "e-ogonek") ("361,267" ACCENTPAIR e "0,317") - (* ; "e-caron") + (* ; "e-caron") ("361,276" ACCENT "0,217" i) ("361,277" ACCENT "0,214" i) ("361,300" ACCENT "0,215" i) ("361,302" ACCENTPAIR "0,365" "0,305") - (* ; "i-macron") + (* ; "i-macron") ("361,304" ACCENT "0,216" i) ("361,314" ACCENT "0,220" n) ("361,317" ACCENT "0,224" o) @@ -3814,246 +3820,246 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen ("361,321" ACCENT "0,222" o) ("361,322" ACCENT "0,225" o) ("361,323" ACCENTPAIR o "0,305") - (* ; "o-macron") + (* ; "o-macron") ("361,324" ACCENT "0,223" o) ("361,334" ACCENT "0,226" s) ("361,337" ACCENT "0,232" u) ("361,340" ACCENT "0,227" u) ("361,341" ACCENT "0,230" u) ("361,343" ACCENTPAIR u "0,305") - (* ; "u-macron") + (* ; "u-macron") ("361,344" ACCENTPAIR u "0,306") - (* ; "u-breve") + (* ; "u-breve") ("361,345" ACCENT "0,231" u) ("361,355" ACCENT "0,233" y) ("361,360" ACCENT "0,234" z) ("361,365" ACCENTPAIR y "0,305") - (* ; "y-macron") + (* ; "y-macron") ("361,366" ACCENTPAIR "0,361" "0,305") - (* ; "ae-macron") + (* ; "ae-macron") ("361,367" ACCENTPAIR "0,372" "0,305") - (* ; "oe-macron") + (* ; "oe-macron") ("361,371" ACCENTPAIR a "0,317") - (* ; "a-caron") + (* ; "a-caron") ("361,375" ACCENTPAIR g "0,317") - (* ; "g-caron") + (* ; "g-caron") - (* ;; "Special code assignments for Dictionary of Old English, UToronto:") + (* ;; "Special code assignments for Dictionary of Old English, UToronto:") ("361,370" ACCENTPAIR a ("0,305" "0,306")) - (* ; "a - breve-macron") + (* ; "a - breve-macron") ("361,372" ACCENTPAIR e "0,306") - (* ; "e-breve") + (* ; "e-breve") ("361,373" ACCENTPAIR e "0,305" "0,56") - (* ; "e macron underdot") + (* ; "e macron underdot") ("361,374" ACCENTPAIR e ("0,305" "0,306")) - (* ; "e - breve-macron") + (* ; "e - breve-macron") ("361,376" ACCENTPAIR "0,365" "0,306") - (* ; "i-breve") + (* ; "i-breve") ("362,242" ACCENTPAIR "0,365" "0,317") - (* ; "i-caron") + (* ; "i-caron") ("362,241" ACCENTPAIR "0,365" ("0,305" "0,306")) - (* ; " i - breve-macron") + (* ; " i - breve-macron") ("362,243" ACCENTPAIR n "0,305") - (* ; "n-macron") + (* ; "n-macron") ("362,244" ACCENTPAIR m "0,305") - (* ; "m-macron") + (* ; "m-macron") ("362,245" ACCENTPAIR o "0,317") - (* ; "o-caron") + (* ; "o-caron") ("362,246" ACCENTPAIR o "0,306") - (* ; "o-breve") + (* ; "o-breve") ("362,247" ACCENTPAIR o ("0,305" "0,306")) - (* ; "o - breve-macron") + (* ; "o - breve-macron") ("362,250" ACCENTPAIR o "0,305" "0,56") - (* ; "o-macron underdot") + (* ; "o-macron underdot") ("362,251" ACCENTPAIR o "0,316") - (* ; "o-ogonek") + (* ; "o-ogonek") ("362,252" ACCENTPAIR u "0,317") - (* ; "u-caron") + (* ; "u-caron") ("362,253" ACCENTPAIR u ("0,305" "0,306")) - (* ; "u - breve-macron") + (* ; "u - breve-macron") ("362,254" ACCENTPAIR y "0,306") - (* ; "y-breve") + (* ; "y-breve") ("362,256" ACCENTPAIR y "0,317") - (* ; "y-caron") + (* ; "y-caron") ("362,255" ACCENTPAIR y ("0,305" "0,306")) - (* ; "y - breve-macron") - (* ; "235 = Eth") - (* ; "236 = eth") - (* ; "237 = Thorn") - (* ; "240 = thorn") + (* ; "y - breve-macron") + (* ; "235 = Eth") + (* ; "236 = eth") + (* ; "237 = Thorn") + (* ; "240 = thorn") - (* ;; "NS Greek characters") + (* ;; "NS Greek characters") ("46,101" SYMBOL "2,101") - (* ; "Alpha") + (* ; "Alpha") ("46,102" SYMBOL "2,102") - (* ; "Beta") + (* ; "Beta") ("46,103" SYMBOL 0) - (* ; "--empty--") + (* ; "--empty--") ("46,104" SYMBOL "2,107") - (* ; "Gamma") + (* ; "Gamma") ("46,105" SYMBOL "2,104") - (* ; "Delta") + (* ; "Delta") ("46,106" SYMBOL "2,105") - (* ; "Epsilon") + (* ; "Epsilon") ("46,107" SYMBOL 0) - (* ; "Stigma") + (* ; "Stigma") ("46,110" SYMBOL 0) - (* ; "Digamma") + (* ; "Digamma") ("46,111" SYMBOL "2,132") - (* ; "Zeta") + (* ; "Zeta") ("46,112" SYMBOL "2,110") - (* ; "Eta") + (* ; "Eta") ("46,113" SYMBOL "2,121") - (* ; "Theta") + (* ; "Theta") ("46,114" SYMBOL "2,111") - (* ; "Iota") + (* ; "Iota") ("46,115" SYMBOL "2,113") - (* ; "Kappa") + (* ; "Kappa") ("46,116" SYMBOL "2,114") - (* ; "Lambda") + (* ; "Lambda") ("46,117" SYMBOL "2,115") - (* ; "Mu") + (* ; "Mu") ("46,120" SYMBOL "2,116") - (* ; "Nu") + (* ; "Nu") ("46,121" SYMBOL "2,130") - (* ; "Xi") + (* ; "Xi") ("46,122" SYMBOL "2,117") - (* ; "Omicron") + (* ; "Omicron") ("46,123" SYMBOL "2,120") - (* ; "Pi") + (* ; "Pi") ("46,124" SYMBOL 0) - (* ; "Koppa") + (* ; "Koppa") ("46,125" SYMBOL "2,122") - (* ; "Rho") + (* ; "Rho") ("46,126" SYMBOL "2,123") - (* ; "Sigma") + (* ; "Sigma") ("46,127" SYMBOL 0) - (* ; "--empty--") + (* ; "--empty--") ("46,130" SYMBOL "2,124") - (* ; "Tau") + (* ; "Tau") ("46,131" SYMBOL "2,125") - (* ; "Upsilon") + (* ; "Upsilon") ("46,132" SYMBOL "2,106") - (* ; "Phi") + (* ; "Phi") ("46,133" SYMBOL "2,103") - (* ; "Chi") + (* ; "Chi") ("46,134" SYMBOL "2,131") - (* ; "Psi") + (* ; "Psi") ("46,135" SYMBOL "2,132") - (* ; "Omega") + (* ; "Omega") ("46,141" SYMBOL "2,141") - (* ; "alpha") + (* ; "alpha") ("46,142" SYMBOL "2,142") - (* ; "beta") + (* ; "beta") ("46,143" SYMBOL 0) - (* ; "(md beta)") + (* ; "(md beta)") ("46,144" SYMBOL "2,147") - (* ; "gamma") + (* ; "gamma") ("46,145" SYMBOL "2,144") - (* ; "delta") + (* ; "delta") ("46,146" SYMBOL "2,145") - (* ; "epsilon") + (* ; "epsilon") ("46,147" SYMBOL "2,126") - (* ; "stigma") + (* ; "stigma") ("46,150" SYMBOL 0) - (* ; "digamma") + (* ; "digamma") ("46,151" SYMBOL "2,172") - (* ; "zeta") + (* ; "zeta") ("46,152" SYMBOL "2,150") - (* ; "eta") + (* ; "eta") ("46,153" SYMBOL "2,161") - (* ; "theta") + (* ; "theta") ("46,154" SYMBOL "2,151") - (* ; "iota") + (* ; "iota") ("46,155" SYMBOL "2,153") - (* ; "kappa") + (* ; "kappa") ("46,156" SYMBOL "2,154") - (* ; "lambda") + (* ; "lambda") ("46,157" SYMBOL "2,155") - (* ; "mu") + (* ; "mu") ("46,160" SYMBOL "2,156") - (* ; "nu") + (* ; "nu") ("46,161" SYMBOL "2,170") - (* ; "xi") + (* ; "xi") ("46,162" SYMBOL "2,157") - (* ; "omicron") + (* ; "omicron") ("46,163" SYMBOL "2,160") - (* ; "pi") + (* ; "pi") ("46,164" SYMBOL 0) - (* ; "(koppa)") + (* ; "(koppa)") ("46,165" SYMBOL "2,162") - (* ; "rho") + (* ; "rho") ("46,166" SYMBOL "2,163") - (* ; "sigma") + (* ; "sigma") ("46,167" SYMBOL "2,126") - (* ; "(fl sigma)") + (* ; "(fl sigma)") ("46,170" SYMBOL "2,164") - (* ; "tau") + (* ; "tau") ("46,171" SYMBOL "2.165") - (* ; "upsilon") + (* ; "upsilon") ("46,172" SYMBOL "2,146") - (* ; "phi") + (* ; "phi") ("46,173" SYMBOL "2,143") - (* ; "chi") + (* ; "chi") ("46,174" SYMBOL "2,171") - (* ; "psi") + (* ; "psi") ("46,175" SYMBOL "2,167") - (* ; "omega") + (* ; "omega") - (* ;; "NS Miscellaneous symbols") + (* ;; "NS Miscellaneous symbols") ("041,142" SYMBOL "2,271") - (* ; "notequal") + (* ; "notequal") ("041,145" SYMBOL "2,243") - (* ; "lessequal") + (* ; "lessequal") ("041,146" SYMBOL "2,263") - (* ; "greaterequal") + (* ; "greaterequal") ("041,147" SYMBOL "2,245") - (* ; "infinity") + (* ; "infinity") ("041,150" SYMBOL "2,134") - (* ; "therefore") + (* ; "therefore") ("041,155" SYMBOL "2,262") - (* ; "second") + (* ; "second") ("356,055" SYMBOL "2,055") - (* ; "minus") + (* ; "minus") ("356,106" SYMBOL "2,340") - (* ; "lozenge") + (* ; "lozenge") ("356,163" SYMBOL "2,351") - (* ; "topleftbracket") + (* ; "topleftbracket") ("356,164" SYMBOL "2,353") - (* ; "bottomleftbracket") + (* ; "bottomleftbracket") ("356,165" SYMBOL "2,352") - (* ; "centerbracket") + (* ; "centerbracket") ("356,166" SYMBOL "2,371") - (* ; "toprightbracket") + (* ; "toprightbracket") ("356,167" SYMBOL "2,373") - (* ; "bottomrightbracket") + (* ; "bottomrightbracket") ("356,176" SYMBOL "2,176") - (* ; "similar") + (* ; "similar") ("356,314" SYMBOL "2,251") - (* ; "heart") + (* ; "heart") ("356,340" SYMBOL "2,374") - (* ; "toprightbracce") + (* ; "toprightbracce") ("356,341" SYMBOL "2,357") - (* ; "braceextend") + (* ; "braceextend") ("356,342" SYMBOL "2,375") - (* ; "centerrightbracce") + (* ; "centerrightbracce") ("356,343" SYMBOL "2,376") - (* ; "bottomrightbracce") + (* ; "bottomrightbracce") ("356,344" SYMBOL "2,354") - (* ; "topleftbracce") + (* ; "topleftbracce") ("356,345" SYMBOL "2,356") - (* ; "bottomleftbracce") + (* ; "bottomleftbracce") ("356,346" SYMBOL "2,355") - (* ; "centerleftbracce") + (* ; "centerleftbracce") ("356,355" SYMBOL "2,363") - (* ; "integraltop") + (* ; "integraltop") ("356,356" SYMBOL "2,365") - (* ; "integralbottom") + (* ; "integralbottom") ("356,357" SYMBOL "2,364") - (* ; "integralcenter"))) + (* ; "integralcenter"))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS *POSTSCRIPT-NS-HASH*) @@ -4063,35 +4069,30 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (PUTPROPS \POSTSCRIPT.FRACTION MACRO ((STREAM STRING) - (* ;; "Handle printing of a fraction, given a string that's the name of the PS function (defined in \POSTSCRIPT.JOB.SETUP) that prints it. You must put spaces around the name.") + (* ;; "Handle printing of a fraction, given a string that's the name of the PS function (defined in \POSTSCRIPT.JOB.SETUP) that prints it. You must put spaces around the name.") - (POSTSCRIPT.SHOWACCUM STREAM) - [COND - ((IGREATERP (SETQ NEWXPOS (IPLUS XPOS CHARWID)) - (ffetch POSTSCRIPTRIGHTMARGIN - of IMAGEDATA)) - (\TERPRI.PSC STREAM) - (SETQ NEWXPOS (IPLUS (ffetch POSTSCRIPTX - of IMAGEDATA) - CHARWID] - [COND - ((NOT (ffetch POSTSCRIPTCHARSTOSHOW of - IMAGEDATA)) - (COND - ((ffetch POSTSCRIPTPENDINGXFORM of - IMAGEDATA) - (\SETXFORM.PSC STREAM IMAGEDATA))) - (COND - ((ffetch POSTSCRIPTFONTCHANGEDFLG - of IMAGEDATA) - (* ; - "If font was changed then switch before printing") - (\SWITCHFONTS.PSC STREAM IMAGEDATA))) - (COND - ((ffetch POSTSCRIPTMOVEFLG of IMAGEDATA) - (* ; "likewise for position") - (\SETPOS.PSC STREAM IMAGEDATA] - (POSTSCRIPT.OUTSTR STREAM STRING))) + (POSTSCRIPT.SHOWACCUM STREAM) + [COND + ((IGREATERP (SETQ NEWXPOS (IPLUS XPOS CHARWID)) + (ffetch POSTSCRIPTRIGHTMARGIN of IMAGEDATA)) + (\TERPRI.PSC STREAM) + (SETQ NEWXPOS (IPLUS (ffetch POSTSCRIPTX of IMAGEDATA) + CHARWID] + [COND + ((NOT (ffetch POSTSCRIPTCHARSTOSHOW of IMAGEDATA)) + (COND + ((ffetch POSTSCRIPTPENDINGXFORM of IMAGEDATA) + (\SETXFORM.PSC STREAM IMAGEDATA))) + (COND + ((ffetch POSTSCRIPTFONTCHANGEDFLG of IMAGEDATA) + (* ; + "If font was changed then switch before printing") + (\SWITCHFONTS.PSC STREAM IMAGEDATA))) + (COND + ((ffetch POSTSCRIPTMOVEFLG of IMAGEDATA) + (* ; "likewise for position") + (\SETPOS.PSC STREAM IMAGEDATA] + (POSTSCRIPT.OUTSTR STREAM STRING))) ) ) @@ -4106,14 +4107,14 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (RPAQ \POSTSCRIPT.ORIENTATION.OPTIONS.MENU (create MENU ITEMS _ '(("Ask" 'ASK "Always ask whether to print in Landscape or Portrait Orientation" - ) - ("Landscape" T + ) + ("Landscape" T "Default printing to Landscape Orientation" - ) - ("Portrait" 'NIL + ) + ("Portrait" 'NIL "Default printing to Portrait Orientation" - )) - TITLE _ "Default Orientation" CENTERFLG _ T)) + )) + TITLE _ "Default Orientation" CENTERFLG _ T)) (RPAQ PS.BITMAPARRAY (READARRAY-FROM-LIST 16 (QUOTE BYTE) 0 (QUOTE (48 49 50 51 52 53 54 55 56 57 65 66 67 68 69 70 NIL)))) @@ -4235,11 +4236,11 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen " pop pop moveto end } def " "%%%%EndProlog" "%%%%BeginSetup")) (RPAQQ SlopeMenuItems ((Italic 'ITALIC "This is an Italic Slope font") - (Regular 'REGULAR "This is a Regular Slope font"))) + (Regular 'REGULAR "This is a Regular Slope font"))) (RPAQQ WeightMenuItems ((Bold 'BOLD "This is a Bold Weight font") - (Medium 'MEDIUM "This is a Medium Weight font") - (Light 'LIGHT "This is a Light Weight font"))) + (Medium 'MEDIUM "This is a Medium Weight font") + (Light 'LIGHT "This is a Light Weight font"))) (ADDTOVAR BackgroundMenuCommands ("PS Orientation" '(SETQ POSTSCRIPT.PREFER.LANDSCAPE (MENU @@ -4283,9 +4284,9 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (RPAQ? POSTSCRIPT.TEXTURE.SCALE 4) (RPAQ? POSTSCRIPTFONTDIRECTORIES (LIST (COND ((EQ (MACHINETYPE) - 'MAIKO) - "{dsk}/USR/LOCAL/LDE/FONTS/POSTSCRIPT/") - (T "{DSK}POSTSCRIPT>")))) + 'MAIKO) + "{dsk}/USR/LOCAL/LDE/FONTS/POSTSCRIPT/") + (T "{DSK}POSTSCRIPT>")))) (RPAQ? \POSTSCRIPT.MAX.WILD.FONTSIZE 72) (DEFINEQ @@ -4310,36 +4311,36 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen ) (ADDTOVAR PRINTERTYPES ((POSTSCRIPT) - (CANPRINT (POSTSCRIPT)) - (STATUS TRUE) - (PROPERTIES NILL) - (SEND POSTSCRIPTSEND) - (BITMAPSCALE POSTSCRIPT.BITMAPSCALE) - (BITMAPFILE (POSTSCRIPT.HARDCOPYW FILE BITMAP SCALEFACTOR REGION ROTATION - TITLE)))) + (CANPRINT (POSTSCRIPT)) + (STATUS TRUE) + (PROPERTIES NILL) + (SEND POSTSCRIPTSEND) + (BITMAPSCALE POSTSCRIPT.BITMAPSCALE) + (BITMAPFILE (POSTSCRIPT.HARDCOPYW FILE BITMAP SCALEFACTOR REGION ROTATION + TITLE)))) (ADDTOVAR POSTSCRIPT.FONT.ALIST (HELVETICA . HELVETICA) - (HELVETICAD . HELVETICA) - (TIMESROMAN . TIMES) - (TIMESROMAND . TIMES) - (COURIER . COURIER) - (GACHA . COURIER) - (CLASSIC . NEWCENTURYSCHLBK) - (MODERN . HELVETICA) - (CREAM . HELVETICA) - (TERMINAL . COURIER) - (LOGO . HELVETICA) - (OPTIMA . PALATINO) - (TITAN . COURIER)) + (HELVETICAD . HELVETICA) + (TIMESROMAN . TIMES) + (TIMESROMAND . TIMES) + (COURIER . COURIER) + (GACHA . COURIER) + (CLASSIC . NEWCENTURYSCHLBK) + (MODERN . HELVETICA) + (CREAM . HELVETICA) + (TERMINAL . COURIER) + (LOGO . HELVETICA) + (OPTIMA . PALATINO) + (TITAN . COURIER)) (ADDTOVAR PRINTFILETYPES (POSTSCRIPT (TEST POSTSCRIPTFILEP) - (EXTENSION (PS PSC PSF)) - (CONVERSION (TEXT POSTSCRIPT.TEXT TEDIT POSTSCRIPT.TEDIT)))) + (EXTENSION (PS PSC PSF)) + (CONVERSION (TEXT POSTSCRIPT.TEXT TEDIT POSTSCRIPT.TEDIT)))) (ADDTOVAR IMAGESTREAMTYPES (POSTSCRIPT (OPENSTREAM OPENPOSTSCRIPTSTREAM) - (FONTCREATE POSTSCRIPT.FONTCREATE) - (FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE) - (CREATECHARSET \CREATECHARSET.PSC))) + (FONTCREATE POSTSCRIPT.FONTCREATE) + (FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE) + (CREATECHARSET \CREATECHARSET.PSC))) (RPAQ? POSTSCRIPT.PAGETYPE 'LETTER) @@ -4351,14 +4352,14 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (APPENDTOVAR POSTSCRIPT.PAGEREGIONS (LETTER (0 0 8.5 11) - NIL - (-0.1 -0.1 8.7 11.2)) - (LEGAL (0 0 8.5 14) - NIL - (-0.1 -0.1 8.7 14.2)) - (NOTE (0 0 8.5 11) - NIL - (-0.1 -0.1 8.7 11.2))) + NIL + (-0.1 -0.1 8.7 11.2)) + (LEGAL (0 0 8.5 14) + NIL + (-0.1 -0.1 8.7 14.2)) + (NOTE (0 0 8.5 11) + NIL + (-0.1 -0.1 8.7 11.2))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS DEFAULTPRINTINGHOST POSTSCRIPT.BITMAP.SCALE POSTSCRIPT.EOL POSTSCRIPT.FONT.ALIST @@ -4386,38 +4387,38 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen "Venue This program or documentation contains confidential information and trade secrets of Venue. Reverse engineering, reverse compiling and disassembling of object code are prohibited. Use of this program or documentation is governed by written agreement with Venue. Use of copyright notice is precautionary and does not imply publication or disclosure of trade secrets" 1989 1990 1991 1992 1993 1994 1995 1997 1998 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (22629 29733 (POSTSCRIPT.INIT 22639 . 29731)) (30777 65561 (PSCFONT.READFONT 30787 . -32695) (PSCFONT.SPELLFILE 32697 . 33275) (PSCFONT.COERCEFILE 33277 . 34849) ( -PSCFONTFROMCACHE.SPELLFILE 34851 . 35836) (PSCFONTFROMCACHE.COERCEFILE 35838 . 37490) ( -PSCFONT.WRITEFONT 37492 . 38507) (READ-AFM-FILE 38509 . 44380) (CONVERT-AFM-FILES 44382 . 45594) ( -POSTSCRIPT.GETFONTID 45596 . 46991) (POSTSCRIPT.FONTCREATE 46993 . 59392) ( -\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 59394 . 61791) (POSTSCRIPT.FONTSAVAILABLE 61793 . 65559)) (66110 -75256 (OPENPOSTSCRIPTSTREAM 66120 . 74922) (CLOSEPOSTSCRIPTSTREAM 74924 . 75254)) (75301 81122 ( -POSTSCRIPT.HARDCOPYW 75311 . 78660) (POSTSCRIPT.TEDIT 78662 . 79142) (POSTSCRIPT.TEXT 79144 . 79435) ( -POSTSCRIPTFILEP 79437 . 80073) (MAKEEPSFILE 80075 . 81120)) (81123 126009 (POSTSCRIPT.BITMAPSCALE -81133 . 83589) (POSTSCRIPT.CLOSESTRING 83591 . 84125) (POSTSCRIPT.ENDPAGE 84127 . 84998) ( -POSTSCRIPT.OUTSTR 85000 . 86021) (POSTSCRIPT.PUTBITMAPBYTES 86023 . 94494) (POSTSCRIPT.PUTCOMMAND -94496 . 95545) (POSTSCRIPT.SET-FAKE-LANDSCAPE 95547 . 100995) (POSTSCRIPT.SHOWACCUM 100997 . 103235) ( -POSTSCRIPT.STARTPAGE 103237 . 105816) (\POSTSCRIPTTAB 105818 . 106689) (\PS.BOUTFIXP 106691 . 108041) -(\PS.SCALEHACK 108043 . 110872) (\PS.SCALEREGION 110874 . 111434) (\SCALEDBITBLT.PSC 111436 . 115736) -(\SETPOS.PSC 115738 . 116200) (\SETXFORM.PSC 116202 . 118021) (\STRINGWIDTH.PSC 118023 . 118477) ( -\SWITCHFONTS.PSC 118479 . 124636) (\TERPRI.PSC 124638 . 126007)) (126044 181764 (\BITBLT.PSC 126054 . -126607) (\BLTSHADE.PSC 126609 . 130891) (\CHARWIDTH.PSC 130893 . 131660) (\CREATECHARSET.PSC 131662 . -133360) (\DRAWARC.PSC 133362 . 135842) (\DRAWCIRCLE.PSC 135844 . 138253) (\DRAWCURVE.PSC 138255 . -142276) (\DRAWELLIPSE.PSC 142278 . 144755) (\DRAWLINE.PSC 144757 . 147107) (\DRAWPOINT.PSC 147109 . -147697) (\DRAWPOLYGON.PSC 147699 . 150813) (\DSPBOTTOMMARGIN.PSC 150815 . 151380) ( -\DSPCLIPPINGREGION.PSC 151382 . 152825) (\DSPCOLOR.PSC 152827 . 153668) (\DSPFONT.PSC 153670 . 157880) - (\DSPLEFTMARGIN.PSC 157882 . 158451) (\DSPLINEFEED.PSC 158453 . 159029) (\DSPPUSHSTATE.PSC 159031 . -160794) (\DSPPOPSTATE.PSC 160796 . 163305) (\DSPRESET.PSC 163307 . 163953) (\DSPRIGHTMARGIN.PSC 163955 - . 164527) (\DSPROTATE.PSC 164529 . 165552) (\DSPSCALE.PSC 165554 . 166485) (\DSPSCALE2.PSC 166487 . -167306) (\DSPSPACEFACTOR.PSC 167308 . 168280) (\DSPTOPMARGIN.PSC 168282 . 168999) (\DSPTRANSLATE.PSC -169001 . 171575) (\DSPXPOSITION.PSC 171577 . 172176) (\DSPYPOSITION.PSC 172178 . 172750) ( -\FILLCIRCLE.PSC 172752 . 175398) (\FILLPOLYGON.PSC 175400 . 179316) (\FIXLINELENGTH.PSC 179318 . -180812) (\MOVETO.PSC 180814 . 181565) (\NEWPAGE.PSC 181567 . 181762)) (181820 204972 ( -\POSTSCRIPT.CHANGECHARSET 181830 . 182634) (\POSTSCRIPT.OUTCHARFN 182636 . 195493) ( -\POSTSCRIPT.PRINTSLUG 195495 . 197462) (\POSTSCRIPT.SPECIALOUTCHARFN 197464 . 199896) (\UPDATE.PSC -199898 . 201121) (\POSTSCRIPT.ACCENTFN 201123 . 202065) (\POSTSCRIPT.ACCENTPAIR 202067 . 204970)) ( -205070 206715 (\PSC.SPACEDISP 205080 . 205359) (\PSC.SPACEWID 205361 . 205980) (\PSC.SYMBOLS 205982 . -206713)) (206824 209815 (\POSTSCRIPT.NSHASH 206834 . 209813)) (254855 255569 (POSTSCRIPTSEND 254865 . -255567))))) + (FILEMAP (NIL (22912 30016 (POSTSCRIPT.INIT 22922 . 30014)) (30996 65780 (PSCFONT.READFONT 31006 . +32914) (PSCFONT.SPELLFILE 32916 . 33494) (PSCFONT.COERCEFILE 33496 . 35068) ( +PSCFONTFROMCACHE.SPELLFILE 35070 . 36055) (PSCFONTFROMCACHE.COERCEFILE 36057 . 37709) ( +PSCFONT.WRITEFONT 37711 . 38726) (READ-AFM-FILE 38728 . 44599) (CONVERT-AFM-FILES 44601 . 45813) ( +POSTSCRIPT.GETFONTID 45815 . 47210) (POSTSCRIPT.FONTCREATE 47212 . 59611) ( +\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 59613 . 62010) (POSTSCRIPT.FONTSAVAILABLE 62012 . 65778)) (66335 +75659 (OPENPOSTSCRIPTSTREAM 66345 . 75147) (CLOSEPOSTSCRIPTSTREAM 75149 . 75657)) (75704 81525 ( +POSTSCRIPT.HARDCOPYW 75714 . 79063) (POSTSCRIPT.TEDIT 79065 . 79545) (POSTSCRIPT.TEXT 79547 . 79838) ( +POSTSCRIPTFILEP 79840 . 80476) (MAKEEPSFILE 80478 . 81523)) (81526 126412 (POSTSCRIPT.BITMAPSCALE +81536 . 83992) (POSTSCRIPT.CLOSESTRING 83994 . 84528) (POSTSCRIPT.ENDPAGE 84530 . 85401) ( +POSTSCRIPT.OUTSTR 85403 . 86424) (POSTSCRIPT.PUTBITMAPBYTES 86426 . 94897) (POSTSCRIPT.PUTCOMMAND +94899 . 95948) (POSTSCRIPT.SET-FAKE-LANDSCAPE 95950 . 101398) (POSTSCRIPT.SHOWACCUM 101400 . 103638) ( +POSTSCRIPT.STARTPAGE 103640 . 106219) (\POSTSCRIPTTAB 106221 . 107092) (\PS.BOUTFIXP 107094 . 108444) +(\PS.SCALEHACK 108446 . 111275) (\PS.SCALEREGION 111277 . 111837) (\SCALEDBITBLT.PSC 111839 . 116139) +(\SETPOS.PSC 116141 . 116603) (\SETXFORM.PSC 116605 . 118424) (\STRINGWIDTH.PSC 118426 . 118880) ( +\SWITCHFONTS.PSC 118882 . 125039) (\TERPRI.PSC 125041 . 126410)) (126447 182167 (\BITBLT.PSC 126457 . +127010) (\BLTSHADE.PSC 127012 . 131294) (\CHARWIDTH.PSC 131296 . 132063) (\CREATECHARSET.PSC 132065 . +133763) (\DRAWARC.PSC 133765 . 136245) (\DRAWCIRCLE.PSC 136247 . 138656) (\DRAWCURVE.PSC 138658 . +142679) (\DRAWELLIPSE.PSC 142681 . 145158) (\DRAWLINE.PSC 145160 . 147510) (\DRAWPOINT.PSC 147512 . +148100) (\DRAWPOLYGON.PSC 148102 . 151216) (\DSPBOTTOMMARGIN.PSC 151218 . 151783) ( +\DSPCLIPPINGREGION.PSC 151785 . 153228) (\DSPCOLOR.PSC 153230 . 154071) (\DSPFONT.PSC 154073 . 158283) + (\DSPLEFTMARGIN.PSC 158285 . 158854) (\DSPLINEFEED.PSC 158856 . 159432) (\DSPPUSHSTATE.PSC 159434 . +161197) (\DSPPOPSTATE.PSC 161199 . 163708) (\DSPRESET.PSC 163710 . 164356) (\DSPRIGHTMARGIN.PSC 164358 + . 164930) (\DSPROTATE.PSC 164932 . 165955) (\DSPSCALE.PSC 165957 . 166888) (\DSPSCALE2.PSC 166890 . +167709) (\DSPSPACEFACTOR.PSC 167711 . 168683) (\DSPTOPMARGIN.PSC 168685 . 169402) (\DSPTRANSLATE.PSC +169404 . 171978) (\DSPXPOSITION.PSC 171980 . 172579) (\DSPYPOSITION.PSC 172581 . 173153) ( +\FILLCIRCLE.PSC 173155 . 175801) (\FILLPOLYGON.PSC 175803 . 179719) (\FIXLINELENGTH.PSC 179721 . +181215) (\MOVETO.PSC 181217 . 181968) (\NEWPAGE.PSC 181970 . 182165)) (182223 205375 ( +\POSTSCRIPT.CHANGECHARSET 182233 . 183037) (\POSTSCRIPT.OUTCHARFN 183039 . 195896) ( +\POSTSCRIPT.PRINTSLUG 195898 . 197865) (\POSTSCRIPT.SPECIALOUTCHARFN 197867 . 200299) (\UPDATE.PSC +200301 . 201524) (\POSTSCRIPT.ACCENTFN 201526 . 202468) (\POSTSCRIPT.ACCENTPAIR 202470 . 205373)) ( +205473 207118 (\PSC.SPACEDISP 205483 . 205762) (\PSC.SPACEWID 205764 . 206383) (\PSC.SYMBOLS 206385 . +207116)) (207227 210218 (\POSTSCRIPT.NSHASH 207237 . 210216)) (254693 255407 (POSTSCRIPTSEND 254703 . +255405))))) STOP diff --git a/library/POSTSCRIPTSTREAM.LCOM b/library/POSTSCRIPTSTREAM.LCOM index f41c947a45e2183f232c47ac0eea3d28cc179820..bf3a121e359188d0dbf053eaea242e9aab15fe9e 100644 GIT binary patch delta 3655 zcma(Udr;Kpah8YRPe2iQgM1tycPPi*aU5{SCaKeDCz@z7eI;$xNhgWTWSrD#G?TX4RPjlC5XA>d_uIpUY3#K3$L??U z+ud&;-+tfTcmEW7>saiwwJmIEqseDwT8&DQls3D=YW7-9eyfEkbo$bkEyJZcjjo(& z^+tWQQD328O2yid4WolYp#e5B%oJ>_v(0L8SOec&DL;VhC(Bh#Qs~O(XjT|2v__3a z!NQ?`Yla>l4R0zkGPA?wv$|bAzt8NoyZt^t?%l=)(XOrC;b3#^sMTr(8whU3eIL0& zg+hh?ulU~q{HMcAS5Z}6t!GB7#qKX{46yKq$CzX^H=CSIR$r;##gsOu@6oQRn9=RE zcGz9*zETTj4U;xEbe&Oy(Hj&@`eM_e!TxYC{PnuosO7|{1kk;a74=6OqEF;d;sC-co)KBh!x!cCU&lOIS?}lVtydP& z{)7SY)Hq3L{9e6JBGnF5#0$UV* zpS~_E?F@iPe)>ic${o0YY2lt#P=bVZ63q%CN8Uf#GW*GUSA$+cS368zA5%)Q=kwqK z$?mlKBMk28hAjEy=d}-2+ixbzAKgpY-2*Xl;ATGB9lI%Z-P;39j=Hr18D+QnCCOy5 z%vz}L19p4xQIlDe0!E(~#YIu~S9{0@U`v9siReDn6_Z}%(!H)vu@X;u!Mo|Om9AHoL zgm}OP=izu-`#6Fc<^xuW|8zbvC5cYcumsqJ{Deenh6S{?cLA+I0vQV?5c9nVDoZ5O z(+QBtUrhw;dp?y&0=-EPMCwQqQN;@h?N|tSNciQ2#T-%qCk;w>JRZNzT6jM42ltg`BNg~&jJ@t!QM20bID39w3PMXIgMk?;nW2gq zs`36{;-wOM&A#aq*VFmVYOtdC$!ZV}k-|vH`Hm6rUgmBi==hWo@CD$7HI(&jHTdvJ z{Adl}gUr)bf_TeKMWv{t3~j3ee8c(aIx0+KJ;k-V zp1S{ZJ#^w)WdpR#lN5}xF@C%Ol>D^@$inN&1j-~0TOZoYv@AFIx#+b;4hD?q-E21MFs=eb0FI{-CEUbvCV4+bEY53d3-)BN`tEq=Cr z7*1&7jeT`Bco))JAP(0w9F3J z_3}|~X0#TWL*0;%R(Etm;lnlVUIn?aqIo6$NjF6u+e2;J+Cu>j_t44vLl2#&gkDgh zg^I|SH)q8O(!+fM2qwQ3SH_<#UDkwDKqpRGERPAA=& zJ?GwYfA^f^7g>D%mSVwLza-v!yTBpfl)2gU)Oy zHW%pCqDI}>ziFVSHyjfC`$V-Ey}i<3`&>z2C_Ff1c_ui}8|<^V`a6TYmQCSMZ}?eb zUV){%XLGL7v&eOj^1NRAq<4L>*<>;sb?9v{{2%w>tpkHYnP#!YZD@P38j3@tYS6bVqK%2UVb!k2%t#x}U<|lBYBV`NYW;@-0VVzMwJc z#R^YA!lH;~yT>K!6|EICqP|d6XW~y94C1N{s13Kog*DLc+|IVaLmVN zRZ&_|lOwKMCkk@LO+LQ!<|>qL-RzW?UW%91W1LI>*hZ8ejo~=!D};1e8m~sf&&Rp> z!FVUiwl4!HXD93DN$AQmktna6(4oaM!705p!Cl8sa=C4iC%n?0DvwXbVrzDid*S_O zr)nOyE=`s4)~z7QVUm3O($su8;QQp0uRVC0TOYVlrqA&FcFgcP zSntQnV>2FXS-#3f+4WUdgdobhXIIDvW*7ahKTh~2$PD?|Y<_%;*W;J`HlNcgRazyh zsKe#CJeMpd&Y5Gp9;aKf`!H2OUO(5sUWtGu805rULmYmP#K(sBWI>~ReJ&15WndWq zse2AWahzy0Jpr16Ms@*!qfG4k5s=EZ0*9H39*42_0iBhSvjX|zTq?6ia8#k;2^5lP zO3)W*@h58P10KmP3WY^lt-w_CAe1PGd7@-*lF*>BR#r+LTq#l3ja0Kw=0O~0@xq9g z70w40HpfQXY~Or{=j%To_%2pO0P|*0i*7|yRcr1-2E&v-QA+QY# zU>E`aSU|IE3jvQA+rJR-{Ic1FfNRe}i)ieOq6|^M_u!r=GR{QNR&0+3Jap`2G>vIu zXlz#ujZMXnGyh^T9#>R`K(5CYLlQe60G@L;DiFXM3wS8l;aKV=#gQ701KeHgLLAX6 zT0)T5mvA3@mlC3TDcMdfB?fDkk=nJ4#_lMpHJ@2RJe7KHrqaB~H1g7`sJ|-8ypqQDuOy%I(#cskoiaL;P7@3wLH3FS zc_5OpBZJhb42qDWCh{+;2|1=Fq<f6k*yxV?iVJ{%j;?S`!&}E9$PIHWrZaWC1_J>Yl#M;qJj;Z)X@A zcy;pQZ7Br&Lb6v2DJrT}@|p2`dEbN(f#0sEFF6;)tYjCOVX>Sw9?Q-?4gAvjy4#2E z-q9jr+RSPjz>Av#1w?p^zHCMcl}etdNR;LMt70G*x2n6D#m* zF1~_N+E_tJ{Go!*Y_g4V*Rht`I;)i|E7v&FRG@bo2$WukXNfIz(1?0Jmn5L60(CTao+)WGqPGISWvy_q#ZEf z1bo-9vKn&zN*&%7hibryru#KuLseP}W>i~iX}_JXCFZMKr1}(f%tf_LtpmJonN$Y> ztfr<#U&!960Xw@@$L}*1>83UAaufU0Zu+EUd1(K>V=rFs5( zTE}14lW~EMkZnGy*-@Wzi2Q)pIkWg_Iey@$1h4sNsf`lgYlHPj)H^HzzFOF{M0G6< z5b_rRS}F{~^R_ooLAN!4bD^N#(iaL3vWo%8VAmUHbEGtY7Gb(ZTIOAiRNKpqfbT+< z(L@e+Hh~&@2b+l9;%4I7(aej5FSXTdw3#+c)_P9nzr4UqsSj^Nu_D;{O!r_vGN}vq zZ4up07oO4s8z2os{BZ-Q(*6x>@%r;5d!5(n^I4l+b~ipE5IM1dmaL=&GH}91MGd#W z>W5cunXI2o?w?O{SM0g1^^BOMj^iLNS8P6Yx3l)q~VL?Yvy_m3wOt^l3W;!20n?Zq~ax7p{cc1ZZTdbg|-@F^s) N--Vz!Qosrd{{k^-4o(07