github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-08 14:58:41 +00:00
Code Issues Projects Releases Wiki Activity

POSTSCRIPTSTREAM--use FONTSPEC declaration instead of LIST/CADR

Browse Source
This commit is contained in:
rmkaplan
2026-04-05 22:47:42 -07:00
parent 862435f6ca
commit 4953c19c8e
2 changed files with 46 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
library/POSTSCRIPTSTREAM
View File

@@ -1,13 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "12-Feb-2026 12:19:03" {DSK}<home>matt>Interlisp>medley>library>POSTSCRIPTSTREAM.;6 258522
(FILECREATED "17-Mar-2026 20:19:19" {WMEDLEY}<library>POSTSCRIPTSTREAM.;67 258800
:EDIT-BY "mth"
:EDIT-BY rmk
:CHANGES-TO (FNS PSCFONT.READFONT)
:CHANGES-TO (FNS POSTSCRIPT.FONTCREATE)
:PREVIOUS-DATE "27-Jan-2026 17:57:49"
{DSK}<home>matt>Interlisp>medley>library>POSTSCRIPTSTREAM.;5)
:PREVIOUS-DATE "12-Feb-2026 12:19:03" {WMEDLEY}<library>POSTSCRIPTSTREAM.;66)
(PRETTYCOMPRINT POSTSCRIPTSTREAMCOMS)
@@ -878,7 +877,8 @@
FONTID])
(POSTSCRIPT.FONTCREATE
[LAMBDA (FONTSPEC) (* ; "Edited 13-Oct-2025 18:04 by rmk")
[LAMBDA (FONTSPEC) (* ; "Edited 17-Mar-2026 16:29 by rmk")
(* ; "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")
@@ -998,10 +998,12 @@
(COND
((AND TMP (NEQ FAMILY (CAR TMP)))
(replace FONTDEVICESPEC of FD with (LIST (CAR TMP)
SIZE
(COPY FACE)
0 DEVICE]
(replace FONTDEVICESPEC of FD with (create FONTSPEC
FSFAMILY _ (CAR TMP)
FSSIZE _ SIZE
FSFACE _ (COPY FACE)
FSROTATION _ 0
FSDEVICE _ DEVICE]
[LET ((SYMWIDTHS (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 'SYMBOL FD ROTATION DEVICE)
)
(DINGWIDTHS (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 'ZAPFDINGBATS FD ROTATION
@@ -4393,37 +4395,37 @@
(ADDTOVAR LAMA POSTSCRIPT.PUTCOMMAND)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (22366 32685 (POSTSCRIPT.INIT 22376 . 29291) (POSTSCRIPT.PUTRGBCOLOR 29293 . 30315) (
\PSC.COLOR.TO.RGB 30317 . 32683)) (33671 69196 (PSCFONT.READFONT 33681 . 35692) (PSCFONT.SPELLFILE
35694 . 36507) (PSCFONT.COERCEFILE 36509 . 38081) (PSCFONTFROMCACHE.SPELLFILE 38083 . 39068) (
PSCFONTFROMCACHE.COERCEFILE 39070 . 40722) (PSCFONT.WRITEFONT 40724 . 41739) (READ-AFM-FILE 41741 .
47612) (CONVERT-AFM-FILES 47614 . 48826) (POSTSCRIPT.GETFONTID 48828 . 50223) (POSTSCRIPT.FONTCREATE
50225 . 63119) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 63121 . 65518) (POSTSCRIPT.FONTSAVAILABLE 65520
. 67807) (POSTSCRIPT.FONTEXISTS? 67809 . 69194)) (69197 79106 (OPENPOSTSCRIPTSTREAM 69207 . 78772) (
CLOSEPOSTSCRIPTSTREAM 78774 . 79104)) (79151 85477 (POSTSCRIPT.HARDCOPYW 79161 . 82268) (
POSTSCRIPT.TEDIT 82270 . 82722) (POSTSCRIPTFILEP 82724 . 84212) (MAKEEPSFILE 84214 . 85475)) (85478
129222 (POSTSCRIPT.BITMAPSCALE 85488 . 87944) (POSTSCRIPT.CLOSESTRING 87946 . 88499) (
POSTSCRIPT.ENDPAGE 88501 . 89392) (POSTSCRIPT.OUTSTR 89394 . 90611) (POSTSCRIPT.PUTBITMAPBYTES 90613
. 99084) (POSTSCRIPT.PUTCOMMAND 99086 . 100075) (POSTSCRIPT.SET-FAKE-LANDSCAPE 100077 . 104597) (
POSTSCRIPT.SHOWACCUM 104599 . 106754) (POSTSCRIPT.STARTPAGE 106756 . 109458) (\POSTSCRIPTTAB 109460 .
110257) (\PS.BOUTFIXP 110259 . 111539) (\PS.SCALEHACK 111541 . 114184) (\PS.SCALEREGION 114186 .
114746) (\SCALEDBITBLT.PSC 114748 . 119058) (\SETPOS.PSC 119060 . 119541) (\SETXFORM.PSC 119543 .
122127) (\STRINGWIDTH.PSC 122129 . 122602) (\SWITCHFONTS.PSC 122604 . 128096) (\TERPRI.PSC 128098 .
129220)) (129257 183113 (\BITBLT.PSC 129267 . 129819) (\BLTSHADE.PSC 129821 . 134482) (\CHARWIDTH.PSC
134484 . 134991) (\CREATECHARSET.PSC 134993 . 136349) (\DRAWARC.PSC 136351 . 138729) (\DRAWCIRCLE.PSC
138731 . 140982) (\DRAWCURVE.PSC 140984 . 144828) (\DRAWELLIPSE.PSC 144830 . 147194) (\DRAWLINE.PSC
147196 . 149936) (\DRAWPOINT.PSC 149938 . 150514) (\DRAWPOLYGON.PSC 150516 . 153645) (
\DSPBOTTOMMARGIN.PSC 153647 . 154334) (\DSPCLIPPINGREGION.PSC 154336 . 155711) (\DSPCOLOR.PSC 155713
. 156644) (\DSPFONT.PSC 156646 . 160283) (\DSPLEFTMARGIN.PSC 160285 . 160971) (\DSPLINEFEED.PSC
160973 . 161563) (\DSPPUSHSTATE.PSC 161565 . 163025) (\DSPPOPSTATE.PSC 163027 . 166512) (\DSPRESET.PSC
166514 . 167179) (\DSPRIGHTMARGIN.PSC 167181 . 167870) (\DSPROTATE.PSC 167872 . 168871) (
\DSPSCALE.PSC 168873 . 169825) (\DSPSCALE2.PSC 169827 . 170667) (\DSPSPACEFACTOR.PSC 170669 . 171590)
(\DSPTOPMARGIN.PSC 171592 . 172163) (\DSPTRANSLATE.PSC 172165 . 174196) (\DSPXPOSITION.PSC 174198 .
174762) (\DSPYPOSITION.PSC 174764 . 175355) (\FILLCIRCLE.PSC 175357 . 177582) (\FILLPOLYGON.PSC 177584
. 180821) (\FIXLINELENGTH.PSC 180823 . 182142) (\MOVETO.PSC 182144 . 182914) (\NEWPAGE.PSC 182916 .
183111)) (183169 205315 (\POSTSCRIPT.CHANGECHARSET 183179 . 183897) (\POSTSCRIPT.OUTCHARFN 183899 .
196169) (\POSTSCRIPT.PRINTSLUG 196171 . 197895) (\POSTSCRIPT.SPECIALOUTCHARFN 197897 . 200248) (
\UPDATE.PSC 200250 . 201496) (\POSTSCRIPT.ACCENTFN 201498 . 202440) (\POSTSCRIPT.ACCENTPAIR 202442 .
205313)) (205413 207058 (\PSC.SPACEDISP 205423 . 205702) (\PSC.SPACEWID 205704 . 206323) (\PSC.SYMBOLS
206325 . 207056)) (207167 210158 (\POSTSCRIPT.NSHASH 207177 . 210156)))))
(FILEMAP (NIL (22324 32643 (POSTSCRIPT.INIT 22334 . 29249) (POSTSCRIPT.PUTRGBCOLOR 29251 . 30273) (
\PSC.COLOR.TO.RGB 30275 . 32641)) (33629 69474 (PSCFONT.READFONT 33639 . 35650) (PSCFONT.SPELLFILE
35652 . 36465) (PSCFONT.COERCEFILE 36467 . 38039) (PSCFONTFROMCACHE.SPELLFILE 38041 . 39026) (
PSCFONTFROMCACHE.COERCEFILE 39028 . 40680) (PSCFONT.WRITEFONT 40682 . 41697) (READ-AFM-FILE 41699 .
47570) (CONVERT-AFM-FILES 47572 . 48784) (POSTSCRIPT.GETFONTID 48786 . 50181) (POSTSCRIPT.FONTCREATE
50183 . 63397) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 63399 . 65796) (POSTSCRIPT.FONTSAVAILABLE 65798
. 68085) (POSTSCRIPT.FONTEXISTS? 68087 . 69472)) (69475 79384 (OPENPOSTSCRIPTSTREAM 69485 . 79050) (
CLOSEPOSTSCRIPTSTREAM 79052 . 79382)) (79429 85755 (POSTSCRIPT.HARDCOPYW 79439 . 82546) (
POSTSCRIPT.TEDIT 82548 . 83000) (POSTSCRIPTFILEP 83002 . 84490) (MAKEEPSFILE 84492 . 85753)) (85756
129500 (POSTSCRIPT.BITMAPSCALE 85766 . 88222) (POSTSCRIPT.CLOSESTRING 88224 . 88777) (
POSTSCRIPT.ENDPAGE 88779 . 89670) (POSTSCRIPT.OUTSTR 89672 . 90889) (POSTSCRIPT.PUTBITMAPBYTES 90891
. 99362) (POSTSCRIPT.PUTCOMMAND 99364 . 100353) (POSTSCRIPT.SET-FAKE-LANDSCAPE 100355 . 104875) (
POSTSCRIPT.SHOWACCUM 104877 . 107032) (POSTSCRIPT.STARTPAGE 107034 . 109736) (\POSTSCRIPTTAB 109738 .
110535) (\PS.BOUTFIXP 110537 . 111817) (\PS.SCALEHACK 111819 . 114462) (\PS.SCALEREGION 114464 .
115024) (\SCALEDBITBLT.PSC 115026 . 119336) (\SETPOS.PSC 119338 . 119819) (\SETXFORM.PSC 119821 .
122405) (\STRINGWIDTH.PSC 122407 . 122880) (\SWITCHFONTS.PSC 122882 . 128374) (\TERPRI.PSC 128376 .
129498)) (129535 183391 (\BITBLT.PSC 129545 . 130097) (\BLTSHADE.PSC 130099 . 134760) (\CHARWIDTH.PSC
134762 . 135269) (\CREATECHARSET.PSC 135271 . 136627) (\DRAWARC.PSC 136629 . 139007) (\DRAWCIRCLE.PSC
139009 . 141260) (\DRAWCURVE.PSC 141262 . 145106) (\DRAWELLIPSE.PSC 145108 . 147472) (\DRAWLINE.PSC
147474 . 150214) (\DRAWPOINT.PSC 150216 . 150792) (\DRAWPOLYGON.PSC 150794 . 153923) (
\DSPBOTTOMMARGIN.PSC 153925 . 154612) (\DSPCLIPPINGREGION.PSC 154614 . 155989) (\DSPCOLOR.PSC 155991
. 156922) (\DSPFONT.PSC 156924 . 160561) (\DSPLEFTMARGIN.PSC 160563 . 161249) (\DSPLINEFEED.PSC
161251 . 161841) (\DSPPUSHSTATE.PSC 161843 . 163303) (\DSPPOPSTATE.PSC 163305 . 166790) (\DSPRESET.PSC
166792 . 167457) (\DSPRIGHTMARGIN.PSC 167459 . 168148) (\DSPROTATE.PSC 168150 . 169149) (
\DSPSCALE.PSC 169151 . 170103) (\DSPSCALE2.PSC 170105 . 170945) (\DSPSPACEFACTOR.PSC 170947 . 171868)
(\DSPTOPMARGIN.PSC 171870 . 172441) (\DSPTRANSLATE.PSC 172443 . 174474) (\DSPXPOSITION.PSC 174476 .
175040) (\DSPYPOSITION.PSC 175042 . 175633) (\FILLCIRCLE.PSC 175635 . 177860) (\FILLPOLYGON.PSC 177862
. 181099) (\FIXLINELENGTH.PSC 181101 . 182420) (\MOVETO.PSC 182422 . 183192) (\NEWPAGE.PSC 183194 .
183389)) (183447 205593 (\POSTSCRIPT.CHANGECHARSET 183457 . 184175) (\POSTSCRIPT.OUTCHARFN 184177 .
196447) (\POSTSCRIPT.PRINTSLUG 196449 . 198173) (\POSTSCRIPT.SPECIALOUTCHARFN 198175 . 200526) (
\UPDATE.PSC 200528 . 201774) (\POSTSCRIPT.ACCENTFN 201776 . 202718) (\POSTSCRIPT.ACCENTPAIR 202720 .
205591)) (205691 207336 (\PSC.SPACEDISP 205701 . 205980) (\PSC.SPACEWID 205982 . 206601) (\PSC.SYMBOLS
206603 . 207334)) (207445 210436 (\POSTSCRIPT.NSHASH 207455 . 210434)))))
STOP