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     ! 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.