fern.pl

%!PS-Adobe-2.0
%%Creator: B.B.Bantchev
%%BoundingBox: 0 0 596 842
%%Pages: 1

% the famous fern leaf after M.F.Barnsley

%%Page: 1 1
/x 0 def   /y 0 def   /z 0 def
/a  [
  [   [0 0 0 0]   [0 20 0 0]    [0 0 0 0]]
  [  [85 0 0 0] [0 85 11 70] [0 -10 85 0]]
  [[31 -41 0 0] [10 21 0 21]   [0 0 30 0]]
  [[-29 40 0 0] [10 19 0 56]   [0 0 30 0]]
]  def

/scpr  {
  dup 0 get x mul exch dup 1 get y mul exch dup 2 get z mul
  4 2 roll add add 100 div exch 3 get add
}  bind def

/dot  {rad 0 360 arc fill}  bind def

/fern  {
  rep_1  {
    rep_2  {
      a   rand 10 mod dup 3 gt {pop 1} if   get
      dup 0 get scpr   exch dup 1 get scpr   exch 2 get scpr
      /z exch def   /y exch def   /x exch def
      z x sub y dot
    }  repeat
  }  repeat
}  bind def

/rep_1 300 def
/rep_2 100 def

/rad .5 def

.283 dup scale

.5 setgray
1400 300 translate 6 dup scale

fern

%%Trailer
showpage
quit
%%EOF