16.eps

16.eps [ retoursource ]

Conversion au format PDF de 16.eps
%!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