save
/makeoutlinedict 5 dict def
/MakeOutlineFont
    {	makeoutlinedict begin
	/strokeweight exch def
	/newfontname exch def
	/basefontname exch def

	/basefontdict basefontname findfont def

	/outfontdict basefontdict maxlength
	    1 add dict def

	basefontdict
	    {	exch dup /FID ne
		    {exch outfontdict 3 1 roll put}
		    {pop pop}
		    ifelse
	    } forall
	outfontdict /FontName newfontname put
	outfontdict /PaintType 2 put
	outfontdict /StrokeWidth strokeweight
	    put
	newfontname outfontdict definefont pop
	end
    } def

/Helvetica-Bold /Helvetica-Outline2
    1000 72 div MakeOutlineFont

