1%!
2/deriveHersheyFontGS993 where { pop save {restore} } { {} } ifelse
3userdict begin
4/deriveHersheyFontGS993	% <newfontname> <uid> <xuid> <paintwidth>
5			%   <italicangle> <oldfontname>
6{	findfont dup length 1 add dict begin
7		{1 index /FID ne {def} {pop pop} ifelse} forall
8		FontInfo dup length dict copy begin
9			/ItalicAngle exch def
10		/FontInfo currentdict end def
11		Private dup length dict copy begin
12			/UniqueID 3 index def
13		/Private currentdict end readonly def
14		/FontMatrix [.001 0 FontInfo /ItalicAngle get neg sin 1000 div
15			     .001 0 0] def
16		/StrokeWidth exch 1000 28 div mul round cvi def
17		/XUID exch def
18		/UniqueID exch def
19		/FontName 1 index def
20	currentdict end definefont pop
21} def
22end exec
23/Hershey-Gothic-German-Bold 5066545 [107 0 5066545]
24  2.0 0 /Hershey-Gothic-German deriveHersheyFontGS993
25