diff --git a/library/POSTSCRIPTSTREAM b/library/POSTSCRIPTSTREAM index 39b40a82..3ddd19d3 100644 --- a/library/POSTSCRIPTSTREAM +++ b/library/POSTSCRIPTSTREAM @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "26-Apr-2026 11:39:26" {MEDLEY}POSTSCRIPTSTREAM.;71 258340 +(FILECREATED "11-May-2026 10:22:21" {MEDLEY}POSTSCRIPTSTREAM.;73 258415 :EDIT-BY rmk :CHANGES-TO (VARS POSTSCRIPTSTREAMCOMS) - :PREVIOUS-DATE "17-Mar-2026 20:19:19" {MEDLEY}POSTSCRIPTSTREAM.;67) + :PREVIOUS-DATE "26-Apr-2026 11:39:26" {MEDLEY}POSTSCRIPTSTREAM.;71) (PRETTYCOMPRINT POSTSCRIPTSTREAMCOMS) @@ -150,6 +150,7 @@ (LOGO (HELVETICA 1)) (OPTIMA (PALATINO 1)) (TITAN (COURIER 1)) + (* CLASSIC) (* (* 1] (POSTSCRIPTCHARCOERCIONS NIL) (\POSTSCRIPT.MAX.WILD.FONTSIZE 72)) @@ -4315,6 +4316,7 @@ (LOGO (HELVETICA 1)) (OPTIMA (PALATINO 1)) (TITAN (COURIER 1)) + (* CLASSIC) (* (* 1)))) (RPAQ? POSTSCRIPTCHARCOERCIONS NIL) @@ -4389,37 +4391,37 @@ (ADDTOVAR LAMA POSTSCRIPT.PUTCOMMAND) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (22081 32400 (POSTSCRIPT.INIT 22091 . 29006) (POSTSCRIPT.PUTRGBCOLOR 29008 . 30030) ( -\PSC.COLOR.TO.RGB 30032 . 32398)) (33386 69231 (PSCFONT.READFONT 33396 . 35407) (PSCFONT.SPELLFILE -35409 . 36222) (PSCFONT.COERCEFILE 36224 . 37796) (PSCFONTFROMCACHE.SPELLFILE 37798 . 38783) ( -PSCFONTFROMCACHE.COERCEFILE 38785 . 40437) (PSCFONT.WRITEFONT 40439 . 41454) (READ-AFM-FILE 41456 . -47327) (CONVERT-AFM-FILES 47329 . 48541) (POSTSCRIPT.GETFONTID 48543 . 49938) (POSTSCRIPT.FONTCREATE -49940 . 63154) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 63156 . 65553) (POSTSCRIPT.FONTSAVAILABLE 65555 - . 67842) (POSTSCRIPT.FONTEXISTS? 67844 . 69229)) (69232 79141 (OPENPOSTSCRIPTSTREAM 69242 . 78807) ( -CLOSEPOSTSCRIPTSTREAM 78809 . 79139)) (79186 85512 (POSTSCRIPT.HARDCOPYW 79196 . 82303) ( -POSTSCRIPT.TEDIT 82305 . 82757) (POSTSCRIPTFILEP 82759 . 84247) (MAKEEPSFILE 84249 . 85510)) (85513 -129257 (POSTSCRIPT.BITMAPSCALE 85523 . 87979) (POSTSCRIPT.CLOSESTRING 87981 . 88534) ( -POSTSCRIPT.ENDPAGE 88536 . 89427) (POSTSCRIPT.OUTSTR 89429 . 90646) (POSTSCRIPT.PUTBITMAPBYTES 90648 - . 99119) (POSTSCRIPT.PUTCOMMAND 99121 . 100110) (POSTSCRIPT.SET-FAKE-LANDSCAPE 100112 . 104632) ( -POSTSCRIPT.SHOWACCUM 104634 . 106789) (POSTSCRIPT.STARTPAGE 106791 . 109493) (\POSTSCRIPTTAB 109495 . -110292) (\PS.BOUTFIXP 110294 . 111574) (\PS.SCALEHACK 111576 . 114219) (\PS.SCALEREGION 114221 . -114781) (\SCALEDBITBLT.PSC 114783 . 119093) (\SETPOS.PSC 119095 . 119576) (\SETXFORM.PSC 119578 . -122162) (\STRINGWIDTH.PSC 122164 . 122637) (\SWITCHFONTS.PSC 122639 . 128131) (\TERPRI.PSC 128133 . -129255)) (129292 183148 (\BITBLT.PSC 129302 . 129854) (\BLTSHADE.PSC 129856 . 134517) (\CHARWIDTH.PSC -134519 . 135026) (\CREATECHARSET.PSC 135028 . 136384) (\DRAWARC.PSC 136386 . 138764) (\DRAWCIRCLE.PSC -138766 . 141017) (\DRAWCURVE.PSC 141019 . 144863) (\DRAWELLIPSE.PSC 144865 . 147229) (\DRAWLINE.PSC -147231 . 149971) (\DRAWPOINT.PSC 149973 . 150549) (\DRAWPOLYGON.PSC 150551 . 153680) ( -\DSPBOTTOMMARGIN.PSC 153682 . 154369) (\DSPCLIPPINGREGION.PSC 154371 . 155746) (\DSPCOLOR.PSC 155748 - . 156679) (\DSPFONT.PSC 156681 . 160318) (\DSPLEFTMARGIN.PSC 160320 . 161006) (\DSPLINEFEED.PSC -161008 . 161598) (\DSPPUSHSTATE.PSC 161600 . 163060) (\DSPPOPSTATE.PSC 163062 . 166547) (\DSPRESET.PSC - 166549 . 167214) (\DSPRIGHTMARGIN.PSC 167216 . 167905) (\DSPROTATE.PSC 167907 . 168906) ( -\DSPSCALE.PSC 168908 . 169860) (\DSPSCALE2.PSC 169862 . 170702) (\DSPSPACEFACTOR.PSC 170704 . 171625) -(\DSPTOPMARGIN.PSC 171627 . 172198) (\DSPTRANSLATE.PSC 172200 . 174231) (\DSPXPOSITION.PSC 174233 . -174797) (\DSPYPOSITION.PSC 174799 . 175390) (\FILLCIRCLE.PSC 175392 . 177617) (\FILLPOLYGON.PSC 177619 - . 180856) (\FIXLINELENGTH.PSC 180858 . 182177) (\MOVETO.PSC 182179 . 182949) (\NEWPAGE.PSC 182951 . -183146)) (183204 205350 (\POSTSCRIPT.CHANGECHARSET 183214 . 183932) (\POSTSCRIPT.OUTCHARFN 183934 . -196204) (\POSTSCRIPT.PRINTSLUG 196206 . 197930) (\POSTSCRIPT.SPECIALOUTCHARFN 197932 . 200283) ( -\UPDATE.PSC 200285 . 201531) (\POSTSCRIPT.ACCENTFN 201533 . 202475) (\POSTSCRIPT.ACCENTPAIR 202477 . -205348)) (205448 207093 (\PSC.SPACEDISP 205458 . 205737) (\PSC.SPACEWID 205739 . 206358) (\PSC.SYMBOLS - 206360 . 207091)) (207202 210193 (\POSTSCRIPT.NSHASH 207212 . 210191))))) + (FILEMAP (NIL (22135 32454 (POSTSCRIPT.INIT 22145 . 29060) (POSTSCRIPT.PUTRGBCOLOR 29062 . 30084) ( +\PSC.COLOR.TO.RGB 30086 . 32452)) (33440 69285 (PSCFONT.READFONT 33450 . 35461) (PSCFONT.SPELLFILE +35463 . 36276) (PSCFONT.COERCEFILE 36278 . 37850) (PSCFONTFROMCACHE.SPELLFILE 37852 . 38837) ( +PSCFONTFROMCACHE.COERCEFILE 38839 . 40491) (PSCFONT.WRITEFONT 40493 . 41508) (READ-AFM-FILE 41510 . +47381) (CONVERT-AFM-FILES 47383 . 48595) (POSTSCRIPT.GETFONTID 48597 . 49992) (POSTSCRIPT.FONTCREATE +49994 . 63208) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 63210 . 65607) (POSTSCRIPT.FONTSAVAILABLE 65609 + . 67896) (POSTSCRIPT.FONTEXISTS? 67898 . 69283)) (69286 79195 (OPENPOSTSCRIPTSTREAM 69296 . 78861) ( +CLOSEPOSTSCRIPTSTREAM 78863 . 79193)) (79240 85566 (POSTSCRIPT.HARDCOPYW 79250 . 82357) ( +POSTSCRIPT.TEDIT 82359 . 82811) (POSTSCRIPTFILEP 82813 . 84301) (MAKEEPSFILE 84303 . 85564)) (85567 +129311 (POSTSCRIPT.BITMAPSCALE 85577 . 88033) (POSTSCRIPT.CLOSESTRING 88035 . 88588) ( +POSTSCRIPT.ENDPAGE 88590 . 89481) (POSTSCRIPT.OUTSTR 89483 . 90700) (POSTSCRIPT.PUTBITMAPBYTES 90702 + . 99173) (POSTSCRIPT.PUTCOMMAND 99175 . 100164) (POSTSCRIPT.SET-FAKE-LANDSCAPE 100166 . 104686) ( +POSTSCRIPT.SHOWACCUM 104688 . 106843) (POSTSCRIPT.STARTPAGE 106845 . 109547) (\POSTSCRIPTTAB 109549 . +110346) (\PS.BOUTFIXP 110348 . 111628) (\PS.SCALEHACK 111630 . 114273) (\PS.SCALEREGION 114275 . +114835) (\SCALEDBITBLT.PSC 114837 . 119147) (\SETPOS.PSC 119149 . 119630) (\SETXFORM.PSC 119632 . +122216) (\STRINGWIDTH.PSC 122218 . 122691) (\SWITCHFONTS.PSC 122693 . 128185) (\TERPRI.PSC 128187 . +129309)) (129346 183202 (\BITBLT.PSC 129356 . 129908) (\BLTSHADE.PSC 129910 . 134571) (\CHARWIDTH.PSC +134573 . 135080) (\CREATECHARSET.PSC 135082 . 136438) (\DRAWARC.PSC 136440 . 138818) (\DRAWCIRCLE.PSC +138820 . 141071) (\DRAWCURVE.PSC 141073 . 144917) (\DRAWELLIPSE.PSC 144919 . 147283) (\DRAWLINE.PSC +147285 . 150025) (\DRAWPOINT.PSC 150027 . 150603) (\DRAWPOLYGON.PSC 150605 . 153734) ( +\DSPBOTTOMMARGIN.PSC 153736 . 154423) (\DSPCLIPPINGREGION.PSC 154425 . 155800) (\DSPCOLOR.PSC 155802 + . 156733) (\DSPFONT.PSC 156735 . 160372) (\DSPLEFTMARGIN.PSC 160374 . 161060) (\DSPLINEFEED.PSC +161062 . 161652) (\DSPPUSHSTATE.PSC 161654 . 163114) (\DSPPOPSTATE.PSC 163116 . 166601) (\DSPRESET.PSC + 166603 . 167268) (\DSPRIGHTMARGIN.PSC 167270 . 167959) (\DSPROTATE.PSC 167961 . 168960) ( +\DSPSCALE.PSC 168962 . 169914) (\DSPSCALE2.PSC 169916 . 170756) (\DSPSPACEFACTOR.PSC 170758 . 171679) +(\DSPTOPMARGIN.PSC 171681 . 172252) (\DSPTRANSLATE.PSC 172254 . 174285) (\DSPXPOSITION.PSC 174287 . +174851) (\DSPYPOSITION.PSC 174853 . 175444) (\FILLCIRCLE.PSC 175446 . 177671) (\FILLPOLYGON.PSC 177673 + . 180910) (\FIXLINELENGTH.PSC 180912 . 182231) (\MOVETO.PSC 182233 . 183003) (\NEWPAGE.PSC 183005 . +183200)) (183258 205404 (\POSTSCRIPT.CHANGECHARSET 183268 . 183986) (\POSTSCRIPT.OUTCHARFN 183988 . +196258) (\POSTSCRIPT.PRINTSLUG 196260 . 197984) (\POSTSCRIPT.SPECIALOUTCHARFN 197986 . 200337) ( +\UPDATE.PSC 200339 . 201585) (\POSTSCRIPT.ACCENTFN 201587 . 202529) (\POSTSCRIPT.ACCENTPAIR 202531 . +205402)) (205502 207147 (\PSC.SPACEDISP 205512 . 205791) (\PSC.SPACEWID 205793 . 206412) (\PSC.SYMBOLS + 206414 . 207145)) (207256 210247 (\POSTSCRIPT.NSHASH 207266 . 210245))))) STOP diff --git a/library/POSTSCRIPTSTREAM.LCOM b/library/POSTSCRIPTSTREAM.LCOM index fd5b03f9..6ffd409c 100644 Binary files a/library/POSTSCRIPTSTREAM.LCOM and b/library/POSTSCRIPTSTREAM.LCOM differ