p74-02.eps [ retour – source ]
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