2c2
%!
% Re-encode a font to use ISOLatin1 encoding
% 
%
/reencodedict 5 dict def
/ReEncode
{
	reencodedict begin
		/newfontname exch def
		/basefontname exch def

		/basefontdict basefontname findfont def
		/newfont basefontdict maxlength dict def

		basefontdict
		{
			exch dup /FID ne dup /Encoding ne and
			{ exch newfont 3 1 roll put } { pop pop } ifelse
		} forall
	     
		newfont /FontName newfontname put
		newfont /Encoding ISOLatin1Encoding put
								  
		newfontname newfont definefont pop
	end
} def 			      
							    
/Helvetica /_Helvetica ReEncode

/_Helvetica 10 selectfont

0 750 moveto
(Det börjar likna färre ödlor överlägsen ärta) show
showpage
.

0