FreeCalypso > hg > ueda-linux
view ueda/uschem-print/transfont.ps @ 10:62f8d6874a87
ueda/Makefile: libunet added
author | Space Falcon <falcon@ivan.Harhan.ORG> |
---|---|
date | Sat, 01 Aug 2015 20:52:33 +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