From ad04d73ff165e3d19a62d7b325dd5a21920b6949 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 26 Nov 2023 08:25:12 -0800 Subject: [PATCH] POSTSCRIPTSTREAM: POSTSCRIPTFILEP applies also to closed files --- library/POSTSCRIPTSTREAM | 903 +++++++++++++++++----------------- library/POSTSCRIPTSTREAM.LCOM | Bin 91396 -> 91371 bytes 2 files changed, 450 insertions(+), 453 deletions(-) diff --git a/library/POSTSCRIPTSTREAM b/library/POSTSCRIPTSTREAM index 6d5a17293..708e4812f 100644 --- a/library/POSTSCRIPTSTREAM +++ b/library/POSTSCRIPTSTREAM @@ -1,20 +1,19 @@ -(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 "21-Nov-2023 17:06:12" {WMEDLEY}POSTSCRIPTSTREAM.;12 258100 + :EDIT-BY rmk + + :CHANGES-TO (FNS POSTSCRIPTFILEP) + + :PREVIOUS-DATE "21-Jun-2021 20:29:32" {WMEDLEY}POSTSCRIPTSTREAM.;11) -(* ; " -Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by 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. -") (PRETTYCOMPRINT POSTSCRIPTSTREAMCOMS) (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 +37,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 +56,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 +66,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 +174,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 +211,57 @@ 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.") ) POSTSCRIPTX _ 0 POSTSCRIPTY _ 0 POSTSCRIPTTRANSX _ 0 POSTSCRIPTTRANSY _ 0 POSTSCRIPTSPACEFACTOR _ 1 POSTSCRIPTPAGENUM _ 0 POSTSCRIPTSCALEHACK _ 1 POSTSCRIPTTEMPARRAY @@ -271,21 +269,21 @@ 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.") - - 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? ") - )) + (* ;; "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? ") + )) ) (/DECLAREDATATYPE '\POSTSCRIPTDATA @@ -486,24 +484,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 +1110,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 @@ -1342,18 +1340,25 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen `(REGION ,POSTSCRIPT.DEFAULT.PAGEREGION ROTATION ,(NOT (NOT POSTSCRIPT.TEXTFILE.LANDSCAPE]) (POSTSCRIPTFILEP - [LAMBDA (FILE) (* ; "Edited 5-Mar-93 21:40 by rmk:") - (* ; "Edited 14-Jan-93 10:56 by jds") + [LAMBDA (FILE) (* ; "Edited 21-Nov-2023 17:04 by rmk") + (* ; "Edited 5-Mar-93 21:40 by rmk:") + (* ; "Edited 14-Jan-93 10:56 by jds") (OR (CL:MEMBER (UNPACKFILENAME.STRING FILE 'EXTENSION) - '("PS" "PSC" "PSF") + [CADR (ASSOC 'EXTENSION (CDR (ASSOC 'POSTSCRIPT PRINTFILETYPES] :TEST (FUNCTION STRING-EQUAL)) - (PROGN (SETFILEPTR FILE 0) - (PROG1 (AND (EQ (BIN FILE) - (CHARCODE %%)) - (EQ (BIN FILE) - (CHARCODE !))) - (SETFILEPTR FILE 0]) + (RESETLST + [LET (STRM) + [if (SETQ STRM (\GETSTREAM FILE 'INPUT T)) + then (RESETSAVE (GETFILEPTR STRM) + `(SETFILEPTR ,STRM OLDVALUE)) + (SETFILEPTR STRM 0) + else (RESETSAVE (SETQ STRM (OPENSTREAM FILE 'INPUT)) + `(PROGN (CLOSEF OLDVALUE] + (AND (EQ (BIN STRM) + (CHARCODE %%)) + (EQ (BIN STRM) + (CHARCODE !])]) (MAKEEPSFILE [LAMBDA (IMAGEOBJ FILENAME) (* ; "Edited 7-Apr-94 14:48 by rmk:") @@ -3537,210 +3542,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 +3753,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 +3769,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 +3801,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 +3819,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 +4068,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.") - - (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))) + (* ;; "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))) ) ) @@ -4106,14 +4106,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 +4235,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 +4283,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 +4310,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 +4351,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 @@ -4382,42 +4382,39 @@ Copyright (c) 1989-1995, 1997-1998, 2018, 2021 by Venue This program or documen (ADDTOVAR LAMA POSTSCRIPT.PUTCOMMAND) ) -(PUTPROPS POSTSCRIPTSTREAM COPYRIGHT ( -"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 (22199 29303 (POSTSCRIPT.INIT 22209 . 29301)) (30283 65067 (PSCFONT.READFONT 30293 . +32201) (PSCFONT.SPELLFILE 32203 . 32781) (PSCFONT.COERCEFILE 32783 . 34355) ( +PSCFONTFROMCACHE.SPELLFILE 34357 . 35342) (PSCFONTFROMCACHE.COERCEFILE 35344 . 36996) ( +PSCFONT.WRITEFONT 36998 . 38013) (READ-AFM-FILE 38015 . 43886) (CONVERT-AFM-FILES 43888 . 45100) ( +POSTSCRIPT.GETFONTID 45102 . 46497) (POSTSCRIPT.FONTCREATE 46499 . 58898) ( +\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 58900 . 61297) (POSTSCRIPT.FONTSAVAILABLE 61299 . 65065)) (65622 +74768 (OPENPOSTSCRIPTSTREAM 65632 . 74434) (CLOSEPOSTSCRIPTSTREAM 74436 . 74766)) (74813 81105 ( +POSTSCRIPT.HARDCOPYW 74823 . 78172) (POSTSCRIPT.TEDIT 78174 . 78654) (POSTSCRIPT.TEXT 78656 . 78947) ( +POSTSCRIPTFILEP 78949 . 80056) (MAKEEPSFILE 80058 . 81103)) (81106 125992 (POSTSCRIPT.BITMAPSCALE +81116 . 83572) (POSTSCRIPT.CLOSESTRING 83574 . 84108) (POSTSCRIPT.ENDPAGE 84110 . 84981) ( +POSTSCRIPT.OUTSTR 84983 . 86004) (POSTSCRIPT.PUTBITMAPBYTES 86006 . 94477) (POSTSCRIPT.PUTCOMMAND +94479 . 95528) (POSTSCRIPT.SET-FAKE-LANDSCAPE 95530 . 100978) (POSTSCRIPT.SHOWACCUM 100980 . 103218) ( +POSTSCRIPT.STARTPAGE 103220 . 105799) (\POSTSCRIPTTAB 105801 . 106672) (\PS.BOUTFIXP 106674 . 108024) +(\PS.SCALEHACK 108026 . 110855) (\PS.SCALEREGION 110857 . 111417) (\SCALEDBITBLT.PSC 111419 . 115719) +(\SETPOS.PSC 115721 . 116183) (\SETXFORM.PSC 116185 . 118004) (\STRINGWIDTH.PSC 118006 . 118460) ( +\SWITCHFONTS.PSC 118462 . 124619) (\TERPRI.PSC 124621 . 125990)) (126027 181747 (\BITBLT.PSC 126037 . +126590) (\BLTSHADE.PSC 126592 . 130874) (\CHARWIDTH.PSC 130876 . 131643) (\CREATECHARSET.PSC 131645 . +133343) (\DRAWARC.PSC 133345 . 135825) (\DRAWCIRCLE.PSC 135827 . 138236) (\DRAWCURVE.PSC 138238 . +142259) (\DRAWELLIPSE.PSC 142261 . 144738) (\DRAWLINE.PSC 144740 . 147090) (\DRAWPOINT.PSC 147092 . +147680) (\DRAWPOLYGON.PSC 147682 . 150796) (\DSPBOTTOMMARGIN.PSC 150798 . 151363) ( +\DSPCLIPPINGREGION.PSC 151365 . 152808) (\DSPCOLOR.PSC 152810 . 153651) (\DSPFONT.PSC 153653 . 157863) + (\DSPLEFTMARGIN.PSC 157865 . 158434) (\DSPLINEFEED.PSC 158436 . 159012) (\DSPPUSHSTATE.PSC 159014 . +160777) (\DSPPOPSTATE.PSC 160779 . 163288) (\DSPRESET.PSC 163290 . 163936) (\DSPRIGHTMARGIN.PSC 163938 + . 164510) (\DSPROTATE.PSC 164512 . 165535) (\DSPSCALE.PSC 165537 . 166468) (\DSPSCALE2.PSC 166470 . +167289) (\DSPSPACEFACTOR.PSC 167291 . 168263) (\DSPTOPMARGIN.PSC 168265 . 168982) (\DSPTRANSLATE.PSC +168984 . 171558) (\DSPXPOSITION.PSC 171560 . 172159) (\DSPYPOSITION.PSC 172161 . 172733) ( +\FILLCIRCLE.PSC 172735 . 175381) (\FILLPOLYGON.PSC 175383 . 179299) (\FIXLINELENGTH.PSC 179301 . +180795) (\MOVETO.PSC 180797 . 181548) (\NEWPAGE.PSC 181550 . 181745)) (181803 204955 ( +\POSTSCRIPT.CHANGECHARSET 181813 . 182617) (\POSTSCRIPT.OUTCHARFN 182619 . 195476) ( +\POSTSCRIPT.PRINTSLUG 195478 . 197445) (\POSTSCRIPT.SPECIALOUTCHARFN 197447 . 199879) (\UPDATE.PSC +199881 . 201104) (\POSTSCRIPT.ACCENTFN 201106 . 202048) (\POSTSCRIPT.ACCENTPAIR 202050 . 204953)) ( +205053 206698 (\PSC.SPACEDISP 205063 . 205342) (\PSC.SPACEWID 205344 . 205963) (\PSC.SYMBOLS 205965 . +206696)) (206807 209798 (\POSTSCRIPT.NSHASH 206817 . 209796)) (254273 254987 (POSTSCRIPTSEND 254283 . +254985))))) STOP diff --git a/library/POSTSCRIPTSTREAM.LCOM b/library/POSTSCRIPTSTREAM.LCOM index f41c947a45e2183f232c47ac0eea3d28cc179820..10cea2ccc53d72125eced35ab6d40cdb94a26581 100644 GIT binary patch delta 4014 zcma)9dvH|c73U;`gi8X6AptfIzAS<429xY=Hk+^^B%9s4$tIh-clX{+vXBQGvS2hO z5YbMHmD-oKb)4cYeA+3kTBp;FsHnALwH6&`YN_KeEmP646>E74kqByd)AOB+f{yKU z|2XHK$9KMSe&>7bcmI-cVsFNen>tu&t51`e(_xn+TQC%s{W006%K>I}IjfZMJE~j` zS1ohadmSFH(`98g>$>qy#98d(k5$FdW6}6iuUCs?aZsj zova z)`O8)msZJw%*6x(b~d9Q(q=$j?u^)m8TcESBWUk4%SdV;7m~%&K3njcES9KcUD}@Z zniCWM)Y2Iw(X>tSuz zB&VD8p=f#{%pNxjDQaA2F4y&g8cZ!Zu(}3jQ)7`fh1vY!h$aVFBpm4Wh2yf_&Rl5R zdQFzT+<$MNL9(d`27#mL2rpCFR{$me4Tm(fw>_lkEQFHCA91W@YAmEsHF`poHB`B; zc_O|YThkHX7Q&NIqAwy^VOn7tT$8f}tk0F|d1Yy&B-Dvy3Co`HS&)lh)>A(zc6~xvS?W_x6}B#Ql5}(b%-RchwH~<4-oN?(pDu$FlJx@gQ<$K+le`xuHS?7DAkgI#*|U8R0|reuq$zG&3A^6vt}c_;*uvE|Tur0*XZ zLMk6lA$|PtAksNUhLLVO(u;KOkv^o$j&>s5v_Id-aou3>qZKIaIogf1@R;!3a%?ry zZQ253@>sL+@ZbW&f4m(v_Z=5AoH;J6$_FCS;~(fCJ#az{?KvSPe&Iv{>HL$zamz^& z?7fpZllrc$hiaeSFDtt03&rfrR>>M0nPljbV!(@&OOPI%T!+;E;Q-P{iNYzg@;g1S z*tq9Z8>;u662|H&;W!vuX#C=IHs4ndPV|BX&``VkOv@}K6vk5vKMVNo1_-9%_rZ@u zq-_cC8TXuCihfU=Mp$@sHB_SDJcD6{P;Bfv({c5a53B*VgsFD>Vj8naM)c$494VxP zbW_2jePA&TeBAWe(D)~L#+w)Ncl5(dBk@TY#@+IXn004AFeB~L8&Og7>5wG(0=Rob zNZvdEh#G%r0I(o_X#kcQcTKOv&%QyZGLB8x;^#|);4s2x>+o~QTBtFeJ}Uyfdv<-g zgb~iKg-+vva|_WrkOajzcPC(GTt>jQ z-wj2E?}{IF-@AgDIo&7~ZJ!O;wCzz4xw`nKG$`Kwrcm)xAf4N2xl+O(0|=t-gsH3J zuK*PDjcMfgd>X8uC3za`c8Qm#!|)u5RWlv;h)@{mAhLMju*w57p%6dIjwt*$Ga(});Cxpm;O^nsS%6!KPh^qp zZIiXk2E>H_ayBU?iTXAs0j_txUm}}l4%v3jAsb{E*d3Rm>xH|2)8U@DuYWyCEM^1Nsz z&*Tz{^4by_P+bn|)1(xissIb$T@HA5@{6dGaO2_eg>R)1{&YDM@^3Gt1-y4D#j09H zb=|j&f}Ang>I#bdas|P;#75E&Y~(U!qf}HoDSu}tmqnG7(Os2P-g}kg(z4vFYq?q1 zja13aH`0JNOsTqxqWq+al+#t@*;h>yy;@BJ%4Yj|n79+f zTvu<;$&VKBZ7V=V_X8_H9Qjr+f%6?N;0ef8FSz)$7x1j*<&A{;y^VOqNc@#Xz^jiJ zt^{#`jIX4+|GJV+ndMCoN9Em3pd$NQ6IEqhMF`!y3h=h%2Uk&JTAQh^9nG}+4>m&& z+Ui@NW0quPjBVljTENDiY5@x#S3a=Kb+8So&G>Fg4i8(IP~ln213qyipisg8f>s0}9)y#tm)Y#`%8MMlnye5gJN6#8CN2I~AT80&(3WLa++igCSZIS3=N*Qdb9s zex$?n?4+tXJHd;#?|0IwJJLycI>W^7G}&umLb0+7@cQCIT@XjyY<*4--_rqd9&Sx5 z+c1&3ZS(j<3O^;DuTXb4D^$Z<3Y~cF2$lIzgpQ@@2z69dDW%6$;j$x2!;(?z-Sbfz zHa|v=x5fyoS7YX;(g5#C9@Zd$Y@0?^p4F(mJ{`pM{WYDWmvy??vf|K+%FZ}>J`<-F z&Fdxvv~EK6-fjqGO4i%QhEo%KG7e?@T(?*d+};g#WUG3py*qmd;8Q)&jLMo`3b>;e ztSJ4ym$I`YDA$b%0o&D=Qw~3yfJPLLoi5?K6Hvm(R)csw{P)*T*46F9@GT_n*eBOO ziTg8MpQ=@BeqUI2;Ga+Y_i64lCe*szrTStqUm`3k_~OMKe`O7HTz$$m8?VF`r8`kM z+6QGA_5MC6|IEhK)liZlHm}6r>7%MM`f1yC_EUjl{j~D_*iY*zdjM=0q0W3zUH7iS z|HAm}(j)lrG8X48;Qm26vVS;8>*2#e@v`to;<1n%69-cNS^=W5=p4SI_|#efo&nAR zz9vafKamvAM*dckpw1nF0(@E3=Hnlo&;R{ai-#gc`somzA;^mO`$OQ*kgyo(KM7+g AG5`Po delta 4074 zcmb6cYj9NMl>;G>kP9S`5J)!pvVd%WZ1(O0HX$V0Y&NjTzOuV{5)wAMH(@o|jk_Cd zL`ua1s0wzku1xWPJ$-cceaB|+-k?Sim7)vIYp5<H1qEVy4X=IUkhe=CJf zWoxYsv-#15DFM?JGbnA-CUGDH)h-!$lDY=@|ki!4`dGrS#HMfpw4O zNQPj*(cZ2enk-cRHR%RPt^0fk;WM8PBFsLnARIY9fbdVpV+iFF-3T8z(TDK(i8fXK zaFP0nT%dNJT#1~WCp!^-bW&*6o$6KFJBrnPry7u|xU)#jI=u-;-qXVVfz!PR=bsUF zM$Uv09zG-H7Jni9ZvUbO;fG%c&APL~+S6x+&c(B32n(kK|E{TJ2=`7!5oS&IBa9M! zZ5pL~gB{A%P3JZud-pjZoH{2IS-4o;dOnZut^rwS^+EfrFq72VE;MHQ+@4Ar7OGPh ziq)|%t8v2KFNLq1^8zN$WA6O6&7kAe7`HZG*lxcd#O)VKdHEKw=2kL8rz03*21zZr z7(q#fAj;LEOZh6lx)AXSl7*u-}Ead>ujN=vn3>rgu7@&k71Hj(#f|)RsB{8#|pPLD#e9ug1LGIs?i}_i_ zR2^4l5%Yyvq-tBM8IZHcz(f`dWlL-A7!jY$g4kS%8Ce+jhhT(f!&Z!E`|$vuoef23 zxilLvUVcwDh|WxAQv(`upbDwOIk1rL%z;L2EFzHjs+(XZ(!aimCKSv8T-JPa4&aXA zZ_feTKHQQ^vL`eIa{*U4kIg0KTXU(m)p>x6oIjFBvP*d+>z7FOnncF*^N9H~4NcD@ z)345hB|JGFa9{C*^GTt60cEgj0Z}J3` z6%F+-BH0@nT2n{??JlHw7Yk`ZcM)tx(+7&kL;hk)7?dHFLV^VSMV@repD0eVtV z^rUi3PfU3kp*_pU=hw?9o1W#Q`Ra1g)UO~b_pcz$DMT|Rh3~J#HGkX9(1y-my_rPI zSCZlbD{1!Gm6VOwK(YfGDybxuU6oYP&orua6{+lBMb7hAlgb^dN#*0!6hp%rO6ch| zq=M^M93@JXmPr-GzS>9=9x@U&Wh5&d)x3S+ia~2x_$4;{#CYJdPDwShAEw1M2a8v!pxzPFK@G0Qsg?YvPS7FiS56QY%Rilz zR#h{tzz3UYPoHe2RJ<;V>=!OlIpLz;8#fhXek%l#IoL|MA87@=hxpPqs7KV(Mr+_u8+ehL=ONR5e!LUz z@c=$s_z@4~mgj|9q&9kK#XaYR*13|tdPugj?aUza3LoAri+zB%FW=y!Oz!tlaZmdI zFFU@>4;@%eL!Z2s@AQBxAD_^AHk?w@nPf`Ap~OG%Q`2n$%Iom}oqrbslzMMFol*ze zsnPjC3R4M^%Hbf*(}$?16Cq-L7$Qw$m;!Sy z+dGNc)k(M9(N1VWW?mO*rn{(b?{!f{7Ijmp-QD2Mk@Vwm}f=k1=1EF#otE6GsEfc2)bQC zaXOU^iYlrfU&dz_-#;j-r@n70?@5IziQ#xc*`cK3iQzR2KfH*meIz1_2_vz1I+9K+qk|)YgGQ2rwS61uzR>5x^>dO@MU**m2R~u_QjQCU C--7}G