Return to Tree.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Annotation of Examples/PostScript/Tree.eps, revision 1.1.1.1

1.1       root        1: %!PS-Adobe-2.0 EPSF-2.0
                      2: %%Title: Tree.eps
                      3: %%Creator: Adobe Systems Inc
                      4: %%Pages: 0 1
                      5: %%BoundingBox: 0 0 480 290
                      6: %%EndComments
                      7: 
                      8: % From pg 74 of the "Blue Book"
                      9: % Change parameters for wild effects...
                     10: 
                     11: /depth 0 def
                     12: /maxdepth 10 def
                     13: /down {/depth depth 1 add def} def
                     14: /up   {/depth depth 1 sub def} def
                     15: 
                     16: /doLine % Vertical line
                     17: {0 144 rlineto currentpoint stroke translate 0 0 moveto}
                     18: def
                     19: 
                     20: /fractArrow 
                     21: {gsave 0.65 0.65 scale 10 setlinewidth
                     22:  down doLine
                     23:  depth maxdepth le 
                     24:   {135 rotate fractArrow -270 rotate fractArrow}
                     25:  if
                     26:  up grestore}
                     27: def
                     28: 
                     29: % "Main" program
                     30: 240 0 moveto 3 3 scale fractArrow 0.5 setgray stroke 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.