Return to Tree.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Sample Programs from NeXSTEP 3.3

%!PS-Adobe-2.0 EPSF-2.0
%%Title: Tree.eps
%%Creator: Adobe Systems Inc
%%Pages: 0 1
%%BoundingBox: 0 0 480 290
%%EndComments

% From pg 74 of the "Blue Book"
% Change parameters for wild effects...

/depth 0 def
/maxdepth 10 def
/down {/depth depth 1 add def} def
/up   {/depth depth 1 sub def} def

/doLine % Vertical line
{0 144 rlineto currentpoint stroke translate 0 0 moveto}
def

/fractArrow 
{gsave 0.65 0.65 scale 10 setlinewidth
 down doLine
 depth maxdepth le 
  {135 rotate fractArrow -270 rotate fractArrow}
 if
 up grestore}
def

% "Main" program
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.