FreeCalypso > hg > ueda-linux

comparison ueda/uschem-print/transfont.ps @ 0:cd92449fdb51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial import of ueda and ifctf-part-lib from ifctfvax CVS
author Space Falcon <falcon@ivan.Harhan.ORG>
date Mon, 20 Jul 2015 00:24:37 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:cd92449fdb51
1 %!PS-Adobe-3.0 Resource-ProcSet
2 %%LanguageLevel: 2
3 %%BeginResource: procset (Procedure for recoding fonts to ISOLatin1Encoding on the fly) 1.0 0
4 currentglobal true setglobal
5 /transfontdict 20 dict def
6 /transfont {
7 dup //transfontdict exch known {
8 //transfontdict exch get
9 } {
10 currentglobal exch true setglobal
11 dup
12 findfont dup length dict begin
13 {1 index /FID ne {def} {pop pop} ifelse} forall
14 /Encoding //ISOLatin1Encoding def
15 currentdict end
16 /transfont-dummy-fontname exch definefont
17 //transfontdict 2 index 2 index put
18 exch pop
19 exch setglobal
20 } ifelse
21 } bind def
22 setglobal
23 %%EndResource