p74-02.eps

p74-02.eps [ retoursource ]

Conversion au format PDF de p74-02.eps
2 dup scale 
/depth 0 def 
/maxdepth 10 def 
/down {/depth depth 1 add def} def 
/up {/depth depth 1 sub def} def 
 
/DoLine 
{ 0 144 rlineto currentpoint 
 stroke translate 0 0 moveto} def 
 
/FractArrow 
{gsave .5 .5 scale 
 down DoLine 
 depth maxdepth le 
 {135 rotate FractArrow 
 -270 rotate FractArrow} if 
 up grestore} def 
 
150 200 moveto 
FractArrow 
stroke 
showpage