From 016a71622c5035765aba7258612f7ce68fbc0778 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Mon, 13 Oct 2025 18:05:42 -0700 Subject: [PATCH] Use field names instead of CAR/CADR --- library/POSTSCRIPTSTREAM | 72 +++++++++++++++++----------------- library/POSTSCRIPTSTREAM.LCOM | Bin 93174 -> 93174 bytes 2 files changed, 36 insertions(+), 36 deletions(-) diff --git a/library/POSTSCRIPTSTREAM b/library/POSTSCRIPTSTREAM index 204736af..f088d9fe 100644 --- a/library/POSTSCRIPTSTREAM +++ b/library/POSTSCRIPTSTREAM @@ -1,6 +1,6 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "13-Oct-2025 17:39:50" {WMEDLEY}POSTSCRIPTSTREAM.;54 260212 +(FILECREATED "13-Oct-2025 18:05:08" {WMEDLEY}POSTSCRIPTSTREAM.;55 260304 :EDIT-BY rmk @@ -889,7 +889,7 @@ FONTID]) (POSTSCRIPT.FONTCREATE - [LAMBDA (FONTSPEC) (* ; "Edited 13-Oct-2025 17:39 by rmk") + [LAMBDA (FONTSPEC) (* ; "Edited 13-Oct-2025 18:04 by rmk") (* ; "Edited 7-Sep-2025 23:44 by rmk") (* ; "Edited 30-Aug-2025 23:24 by rmk") (* ; "Edited 21-Aug-2025 18:21 by rmk") @@ -899,9 +899,9 @@ (LET (UNITFONT FULLNAME SCALEFONTP PSCFD ASCENT DESCENT FIXPWIDTHS PSCWIDTHSBLOCK WIDTHSBLOCK FD FACECHANGED FAMILY SIZE FACE ROTATION DEVICE WEIGHT SLOPE EXPANSION) (SPREADFONTSPEC FONTSPEC) - (SETQ WEIGHT (CAR FACE)) - (SETQ SLOPE (CADR FACE)) - (SETQ EXPANSION (CADDR FACE)) + (SETQ WEIGHT (fetch (FONTFACE WEIGHT) of FACE)) + (SETQ SLOPE (fetch (FONTFACE SLOPE) of FACE)) + (SETQ EXPANSION (fetch (FONTFACE EXPANSION) of FACE)) (* ;;  "Ignore rotations, it is **MUCH** easier to rotate the Postscript stream user space coordinates.") @@ -4425,38 +4425,38 @@ ) (DECLARE%: DONTCOPY (FILEMAP (NIL (23388 33596 (POSTSCRIPT.INIT 23398 . 30202) (POSTSCRIPT.PUTRGBCOLOR 30204 . 31226) ( -\PSC.COLOR.TO.RGB 31228 . 33594)) (34582 69808 (PSCFONT.READFONT 34592 . 36500) (PSCFONT.SPELLFILE +\PSC.COLOR.TO.RGB 31228 . 33594)) (34582 69900 (PSCFONT.READFONT 34592 . 36500) (PSCFONT.SPELLFILE 36502 . 37315) (PSCFONT.COERCEFILE 37317 . 38889) (PSCFONTFROMCACHE.SPELLFILE 38891 . 39876) ( PSCFONTFROMCACHE.COERCEFILE 39878 . 41530) (PSCFONT.WRITEFONT 41532 . 42547) (READ-AFM-FILE 42549 . 48420) (CONVERT-AFM-FILES 48422 . 49634) (POSTSCRIPT.GETFONTID 49636 . 51031) (POSTSCRIPT.FONTCREATE -51033 . 63835) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 63837 . 66234) (POSTSCRIPT.FONTSAVAILABLE 66236 - . 68419) (POSTSCRIPT.FONTEXISTS? 68421 . 69806)) (69809 79532 (OPENPOSTSCRIPTSTREAM 69819 . 79198) ( -CLOSEPOSTSCRIPTSTREAM 79200 . 79530)) (79577 86399 (POSTSCRIPT.HARDCOPYW 79587 . 82694) ( -POSTSCRIPT.TEDIT 82696 . 83148) (POSTSCRIPT.TEXT 83150 . 83737) (POSTSCRIPTFILEP 83739 . 85227) ( -MAKEEPSFILE 85229 . 86397)) (86400 129974 (POSTSCRIPT.BITMAPSCALE 86410 . 88866) ( -POSTSCRIPT.CLOSESTRING 88868 . 89421) (POSTSCRIPT.ENDPAGE 89423 . 90314) (POSTSCRIPT.OUTSTR 90316 . -91533) (POSTSCRIPT.PUTBITMAPBYTES 91535 . 100006) (POSTSCRIPT.PUTCOMMAND 100008 . 100997) ( -POSTSCRIPT.SET-FAKE-LANDSCAPE 100999 . 105519) (POSTSCRIPT.SHOWACCUM 105521 . 107676) ( -POSTSCRIPT.STARTPAGE 107678 . 110210) (\POSTSCRIPTTAB 110212 . 111009) (\PS.BOUTFIXP 111011 . 112291) -(\PS.SCALEHACK 112293 . 114936) (\PS.SCALEREGION 114938 . 115498) (\SCALEDBITBLT.PSC 115500 . 119810) -(\SETPOS.PSC 119812 . 120293) (\SETXFORM.PSC 120295 . 122879) (\STRINGWIDTH.PSC 122881 . 123354) ( -\SWITCHFONTS.PSC 123356 . 128848) (\TERPRI.PSC 128850 . 129972)) (130009 183865 (\BITBLT.PSC 130019 . -130571) (\BLTSHADE.PSC 130573 . 135234) (\CHARWIDTH.PSC 135236 . 135743) (\CREATECHARSET.PSC 135745 . -137101) (\DRAWARC.PSC 137103 . 139481) (\DRAWCIRCLE.PSC 139483 . 141734) (\DRAWCURVE.PSC 141736 . -145580) (\DRAWELLIPSE.PSC 145582 . 147946) (\DRAWLINE.PSC 147948 . 150688) (\DRAWPOINT.PSC 150690 . -151266) (\DRAWPOLYGON.PSC 151268 . 154397) (\DSPBOTTOMMARGIN.PSC 154399 . 155086) ( -\DSPCLIPPINGREGION.PSC 155088 . 156463) (\DSPCOLOR.PSC 156465 . 157396) (\DSPFONT.PSC 157398 . 161035) - (\DSPLEFTMARGIN.PSC 161037 . 161723) (\DSPLINEFEED.PSC 161725 . 162315) (\DSPPUSHSTATE.PSC 162317 . -163777) (\DSPPOPSTATE.PSC 163779 . 167264) (\DSPRESET.PSC 167266 . 167931) (\DSPRIGHTMARGIN.PSC 167933 - . 168622) (\DSPROTATE.PSC 168624 . 169623) (\DSPSCALE.PSC 169625 . 170577) (\DSPSCALE2.PSC 170579 . -171419) (\DSPSPACEFACTOR.PSC 171421 . 172342) (\DSPTOPMARGIN.PSC 172344 . 172915) (\DSPTRANSLATE.PSC -172917 . 174948) (\DSPXPOSITION.PSC 174950 . 175514) (\DSPYPOSITION.PSC 175516 . 176107) ( -\FILLCIRCLE.PSC 176109 . 178334) (\FILLPOLYGON.PSC 178336 . 181573) (\FIXLINELENGTH.PSC 181575 . -182894) (\MOVETO.PSC 182896 . 183666) (\NEWPAGE.PSC 183668 . 183863)) (183921 206067 ( -\POSTSCRIPT.CHANGECHARSET 183931 . 184649) (\POSTSCRIPT.OUTCHARFN 184651 . 196921) ( -\POSTSCRIPT.PRINTSLUG 196923 . 198647) (\POSTSCRIPT.SPECIALOUTCHARFN 198649 . 201000) (\UPDATE.PSC -201002 . 202248) (\POSTSCRIPT.ACCENTFN 202250 . 203192) (\POSTSCRIPT.ACCENTPAIR 203194 . 206065)) ( -206165 207810 (\PSC.SPACEDISP 206175 . 206454) (\PSC.SPACEWID 206456 . 207075) (\PSC.SYMBOLS 207077 . -207808)) (207919 210910 (\POSTSCRIPT.NSHASH 207929 . 210908)) (256320 257026 (POSTSCRIPTSEND 256330 . -257024))))) +51033 . 63927) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 63929 . 66326) (POSTSCRIPT.FONTSAVAILABLE 66328 + . 68511) (POSTSCRIPT.FONTEXISTS? 68513 . 69898)) (69901 79624 (OPENPOSTSCRIPTSTREAM 69911 . 79290) ( +CLOSEPOSTSCRIPTSTREAM 79292 . 79622)) (79669 86491 (POSTSCRIPT.HARDCOPYW 79679 . 82786) ( +POSTSCRIPT.TEDIT 82788 . 83240) (POSTSCRIPT.TEXT 83242 . 83829) (POSTSCRIPTFILEP 83831 . 85319) ( +MAKEEPSFILE 85321 . 86489)) (86492 130066 (POSTSCRIPT.BITMAPSCALE 86502 . 88958) ( +POSTSCRIPT.CLOSESTRING 88960 . 89513) (POSTSCRIPT.ENDPAGE 89515 . 90406) (POSTSCRIPT.OUTSTR 90408 . +91625) (POSTSCRIPT.PUTBITMAPBYTES 91627 . 100098) (POSTSCRIPT.PUTCOMMAND 100100 . 101089) ( +POSTSCRIPT.SET-FAKE-LANDSCAPE 101091 . 105611) (POSTSCRIPT.SHOWACCUM 105613 . 107768) ( +POSTSCRIPT.STARTPAGE 107770 . 110302) (\POSTSCRIPTTAB 110304 . 111101) (\PS.BOUTFIXP 111103 . 112383) +(\PS.SCALEHACK 112385 . 115028) (\PS.SCALEREGION 115030 . 115590) (\SCALEDBITBLT.PSC 115592 . 119902) +(\SETPOS.PSC 119904 . 120385) (\SETXFORM.PSC 120387 . 122971) (\STRINGWIDTH.PSC 122973 . 123446) ( +\SWITCHFONTS.PSC 123448 . 128940) (\TERPRI.PSC 128942 . 130064)) (130101 183957 (\BITBLT.PSC 130111 . +130663) (\BLTSHADE.PSC 130665 . 135326) (\CHARWIDTH.PSC 135328 . 135835) (\CREATECHARSET.PSC 135837 . +137193) (\DRAWARC.PSC 137195 . 139573) (\DRAWCIRCLE.PSC 139575 . 141826) (\DRAWCURVE.PSC 141828 . +145672) (\DRAWELLIPSE.PSC 145674 . 148038) (\DRAWLINE.PSC 148040 . 150780) (\DRAWPOINT.PSC 150782 . +151358) (\DRAWPOLYGON.PSC 151360 . 154489) (\DSPBOTTOMMARGIN.PSC 154491 . 155178) ( +\DSPCLIPPINGREGION.PSC 155180 . 156555) (\DSPCOLOR.PSC 156557 . 157488) (\DSPFONT.PSC 157490 . 161127) + (\DSPLEFTMARGIN.PSC 161129 . 161815) (\DSPLINEFEED.PSC 161817 . 162407) (\DSPPUSHSTATE.PSC 162409 . +163869) (\DSPPOPSTATE.PSC 163871 . 167356) (\DSPRESET.PSC 167358 . 168023) (\DSPRIGHTMARGIN.PSC 168025 + . 168714) (\DSPROTATE.PSC 168716 . 169715) (\DSPSCALE.PSC 169717 . 170669) (\DSPSCALE2.PSC 170671 . +171511) (\DSPSPACEFACTOR.PSC 171513 . 172434) (\DSPTOPMARGIN.PSC 172436 . 173007) (\DSPTRANSLATE.PSC +173009 . 175040) (\DSPXPOSITION.PSC 175042 . 175606) (\DSPYPOSITION.PSC 175608 . 176199) ( +\FILLCIRCLE.PSC 176201 . 178426) (\FILLPOLYGON.PSC 178428 . 181665) (\FIXLINELENGTH.PSC 181667 . +182986) (\MOVETO.PSC 182988 . 183758) (\NEWPAGE.PSC 183760 . 183955)) (184013 206159 ( +\POSTSCRIPT.CHANGECHARSET 184023 . 184741) (\POSTSCRIPT.OUTCHARFN 184743 . 197013) ( +\POSTSCRIPT.PRINTSLUG 197015 . 198739) (\POSTSCRIPT.SPECIALOUTCHARFN 198741 . 201092) (\UPDATE.PSC +201094 . 202340) (\POSTSCRIPT.ACCENTFN 202342 . 203284) (\POSTSCRIPT.ACCENTPAIR 203286 . 206157)) ( +206257 207902 (\PSC.SPACEDISP 206267 . 206546) (\PSC.SPACEWID 206548 . 207167) (\PSC.SYMBOLS 207169 . +207900)) (208011 211002 (\POSTSCRIPT.NSHASH 208021 . 211000)) (256412 257118 (POSTSCRIPTSEND 256422 . +257116))))) STOP diff --git a/library/POSTSCRIPTSTREAM.LCOM b/library/POSTSCRIPTSTREAM.LCOM index 737ecc662d447af61f77c799529880456125b737..c29c0a4f8d6206384b20eb5c414ee83b57a27b2a 100644 GIT binary patch delta 80 zcmex%o%P#w)(I)>7FGtPRt6Rmv&|VzCoY~2<4<;EROc{NFfubRHZa*-z^JJqVyO_I dV5s2j>E{Au7$`WJ8k$=)uhrbXR+G`w2>{)37KQ)- delta 80 zcmex%o%P#w)(I)>=2pg*R;C6Mv&|VzCN7>1<4<;EROc{JFfubRGBny;z^JJqVyqCL dV5s2j>E{Au7$`WJ8k!q5uhrbXR+G`w2>{(&7JL8z