%!PS-Adobe-2.0 %%Title: Blue Book Program 16, on page 203 %%Creator: Adobe Systems Incorporated %%CreationDate: Fri Dec 29 12:39:20 PST 1989 %%EndComments /makeoutlinedict 7 dict def /MakeOutlineFont { makeoutlinedict begin /uniqueid exch def /strokewidth exch def /newfontname exch def /basefontname exch def /basefontdict basefontname findfont def /numentries basefontdict maxlength 1 add def basefontdict /UniqueID known not { /numentries numentries 1 add def } if /outfontdict numentries 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 strokewidth put outfontdict /UniqueID uniqueid put newfontname outfontdict definefont pop end } def /Helvetica-Bold /Helvetica-Outline1 1000 54 div /Helvetica-Bold findfont dup /UniqueID known { /UniqueID get 1 add } { pop 1 } ifelse MakeOutlineFont /Helvetica-Outline1 findfont 36 scalefont setfont 72 504 moveto (outline) show /Helvetica-Outline1 findfont 54 scalefont setfont (outline) show /Helvetica-Bold /Helvetica-Outline2 1000 36 div /Helvetica-Bold findfont dup /UniqueID known { /UniqueID get 2 add } { pop 1 } ifelse MakeOutlineFont /Helvetica-Outline2 findfont 36 scalefont setfont 72 444 moveto (outline) show /Helvetica-Outline2 findfont 54 scalefont setfont (outline) show showpage