Rekursion (Fraktal)


%!
/xPos 300 def
/yPos 200 def

/Down { /Depth Depth 1 add def } def
/Up { /Depth Depth 1 sub def } def

/DoLine
{ 0 288 rlineto
  currentpoint
  stroke
  translate
  0 0 moveto
} def

/FractArrow
{ gsave
    .7 .7 scale
    10 setlinewidth
    Down DoLine
    Depth MaxDepth le
    { 135 rotate FractArrow
      -270 rotate FractArrow
    } if
    Up
  grestore
} def

%%Page: 1 1

/Depth 0 def
/MaxDepth 10 def
xPos yPos moveto
FractArrow
stroke

showpage


Download PostScript-File

© Holger Gehringer, Dezember 1998