04.eps

04.eps [ retoursource ]

Conversion au format PDF de 04.eps
%!PS-Adobe-2.0 
%%Title: Blue Book Program 4, on page 141 
%%Creator: Adobe Systems Incorporated 
%%CreationDate: Thu Dec 28 13:18:28 PST 1989 
%%EndComments 
 
/arrowdict 14 dict def 
arrowdict begin 
 /mtrx matrix def 
end 
 
/arrow 
 { arrowdict begin 
 /headlength exch def 
 /halfheadthickness exch 2 div def 
 /halfthickness exch 2 div def 
 /tipy exch def /tipx exch def 
 /taily exch def /tailx exch def 
 
 /dx tipx tailx sub def 
 /dy tipy taily sub def 
 /arrowlength dx dx mul dy dy mul add sqrt def 
 /angle dy dx atan def 
 /base arrowlength headlength sub def 
 
 /savematrix matrix currentmatrix def 
 
 tailx taily translate 
 angle rotate 
 
 0 halfthickness neg moveto 
 base halfthickness neg lineto 
 base halfheadthickness neg lineto 
 arrowlength 0 lineto 
 base halfheadthickness lineto 
 base halfthickness lineto 
 0 halfthickness lineto 
 closepath 
 savematrix setmatrix 
 end 
 } def 
 
newpath 
 318 340 72 340 10 30 72 arrow 
fill 
 
newpath 
 382 400 542 560 72 232 116 arrow 
3 setlinewidth stroke 
 
newpath 
 400 300 400 90 90 200 200 3 sqrt mul 2 div 
 arrow .65 setgray fill 
showpage