FreeCalypso > hg > ueda-linux

diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ueda/uschem-print/transfont.ps	Mon Jul 20 00:24:37 2015 +0000
@@ -0,0 +1,23 @@
+%!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