FreeCalypso > hg > ueda-linux
view ueda/uschem-print/transfont.ps @ 121:993d1715a09c
m4-fp/geda.inc: HEADER56_[123] added
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sun, 05 Jul 2020 08:34:04 +0000 |
parents | cd92449fdb51 |
children |
line wrap: on
line source
%!PS-Adobe-3.0 Resource-ProcSet %%LanguageLevel: 2 %%BeginResource: procset (Procedure for recoding fonts to ISOLatin1Encoding on the fly) 1.0 0 currentglobal true setglobal /transfontdict 20 dict def /transfont { dup //transfontdict exch known { //transfontdict exch get } { currentglobal exch true setglobal dup findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding //ISOLatin1Encoding def currentdict end /transfont-dummy-fontname exch definefont //transfontdict 2 index 2 index put exch pop exch setglobal } ifelse } bind def setglobal %%EndResource