FractalTree.nb; written by Eric Johnson (LostBearLabs.com) 2007; no rights reserved -- enjoy!

This is the code I used to generate the decorations on my website.

I based this code on the Flash application by Ilyas Usal at
    http://www.kirupa.com/developer/actionscript/chaos_fractal.htm

MaxSubBranch = 4 ;

MaxSubAngle = 3 π / 4 ; (* orig 3 π / 4 *)

MaxSize = 8 ; (* orig 8 *)BranchLength = 50 ;

makeBranch[ startX_, startY_, length_, angle_, 0 ] := {}

t = Graphics[ makeBranch[ 200, 300, BranchLength, -π/2, 8]] ; Show[t] ;

[Graphics:HTMLFiles/FractalTree_7.gif]

Export["~/Desktop/Tree5.GIF", t, "GIF", ImageSize→600]

~/Desktop/Tree5.GIF

Created by Mathematica  (August 9, 2007) Valid XHTML 1.1!