%!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