20.eps

20.eps [ retoursource ]

Conversion au format PDF de 20.eps
%!PS-Adobe-2.0 
%%Title: Blue Book Program 20, on page 219 
%%Creator: Adobe Systems Incorporated 
%%CreationDate: Fri Dec 29 14:05:03 PST 1989 
%%EndComments 
 
10 dict dup begin 
 /FontType 3 def 
 /FontMatrix [.001 0 0 .001 0 0 ] def 
 /FontBBox [50 0 760 700] def 
 /Encoding 256 array def 
 0 1 255 {Encoding exch /.notdef put} for 
 Encoding 
 dup (a) 0 get /smallbullet put 
 dup (b) 0 get /mediumbullet put 
 dup (c) 0 get /largebullet put 
 (d) 0 get /openbox put 
 /Metrics 5 dict def 
 Metrics begin 
 /.notdef 0 def 
 /smallbullet 400 def 
 /mediumbullet 520 def 
 /largebullet 640 def 
 /openbox 820 def 
 end 
 
 /BBox 5 dict def 
 BBox begin 
 /.notdef 
 [0 0 0 0] def 
 /smallbullet [50 200 350 500] def 
 /mediumbullet [50 150 450 550] def 
 /largebullet [50 100 550 600] def 
 /openbox [60 0 760 700] def 
 end 
 
 /CharacterDefs 5 dict def 
 CharacterDefs begin 
 /.notdef { } def 
 /smallbullet 
 { newpath 
 200 350 150 0 360 arc 
 closepath 
 fill } def 
 /mediumbullet 
 { newpath 
 200 350 200 0 360 arc 
 closepath 
 fill } def 
 /largebullet 
 { newpath 
 200 350 250 0 360 arc 
 closepath 
 fill } def 
 /openbox 
 { newpath 
 90 30 moveto 90 670 lineto 
 730 670 lineto 730 30 lineto 
 closepath 
 60 setlinewidth 
 stroke } def 
 end 
 
 /BuildChar 
 { 0 begin 
 /char exch def 
 /fontdict exch def 
 /charname fontdict /Encoding get char get def 
 fontdict begin 
 Metrics charname get 0 
 BBox charname get aload pop 
 
 setcachedevice 
 
 CharacterDefs charname get exec 
 end 
 end 
 } def 
 
 /BuildChar load 0 3 dict put 
 /UniqueID 1 def 
end 
 
/BoxesAndBullets exch definefont pop 
/bbfont /BoxesAndBullets findfont 16 scalefont def 
/textfont /Times-Roman findfont 16 scalefont def 
 
/ss { 72 yline moveto show 
 /yline yline 16 sub def } def 
 
/showbullettext 
 { /bulletchar exch def 
 bbfont setfont bulletchar ss 
 textfont setfont 
 (Every bullet has its billet. \261William III) show 
 bbfont setfont bulletchar ss 
 textfont setfont 
 (The bullet that will kill me is not yet cast.) show 
 (\261Napoleon I) show 
 bbfont setfont bulletchar ss 
 textfont setfont 
 (The ballot is stronger than the bullet.) show 
 (\261Abraham Lincoln) show 
 } def 
 
/yline 650 def (a) showbullettext 
/yline 550 def (b) showbullettext 
/yline 450 def (c) showbullettext 
 
/yline 300 def 
textfont setfont 
(Hieroglyphics are the root of letters. All) ss 
(characters were orignally signs and all) ss 
(signs were once images. Human society,) ss 
(the world, man in his entirety is in the) ss 
(alphabet.) ss 
bbfont setfont 
(d) show 
 
showpage