Unit FractalImage

Classes

TFractalImage -
TFractalProperties -

Functions

Register -

Types

TFractalTypes

Constants

Leaf

Variables


Functions


procedure Register;


Types


TFractalTypes = (ftMandelBrot,ftJulian,ftMoire,ftSierpinski,ftFern,ftLeaf,ftCurl,ftKoch);

Constants

Leaf = ( //Fern 0.03, 0.31, 0.35, -0.05, 0.50, -0.92, 0.13 ,-0.02, 0.00, -0.27, 0.33, -0.12, -1.28, 0.01 ,0.80, 0.02, -0.04, 0.80, -0.02, 0.87, 0.74 ,-0.03, -0.30, 0.35, -0.04, -0.68, -0.94, 0.12 { 0.0,0.0,0.0,0.16,0.0,0.0,0.01 ,0.85,0.04,-0.04,0.85,0.0,1.6,0.85 ,0.2,-0.26,0.23,0.22,0.0,1.6,0.07 ,-0.15,0.28,0.26,0.24,0.0,0.44,0.07 } //Leaf ,0.14, 0.01, 0.00, 0.51, -0.08, -1.31, 0.06 ,0.43, 0.52, -0.45, 0.50, 1.49, -0.75, 0.37 ,0.45, -0.49, 0.47, 0.47, -1.62, -0.74, 0.36 ,0.49, 0.00, 0.00, 0.51, 0.02, 1.62, 0.21 //Curl ,0.04, 0.22, 0.31, -0.03, 0.63, -1.74, 0.13 ,-0.02, 0.00, -0.32, 0.26, -0.17, -1.35, 0.01 ,0.79, 0.06, -0.03, 0.73, -0.02, 1.03, 0.74 ,-0.03, -0.30, 0.35, -0.04, -0.68, -0.94, 0.12 //Koch ,0.34, 0.00, 0.00, 0.34, 2.14, 0.02, 0.25 ,0.17, 0.29, -0.29, 0.17, 0.55, 0.94, 0.25 ,0.16, -0.29, 0.29, 0.16, -0.54, 0.95, 0.24 ,0.34, 0.00, 0.00, 0.34, -2.15, 0.01, 0.25 )

Current Version 1.2 TFractalImage History: 1.0 Created core component and added support for MandelBrot and Julia fractals 1.1 Added support for B/W Moire (Not a fractal but it looks cool) 1.2 Added support for Sierpinski 1.3 Added support for Other IFS fractals (There might be something wrong with some of them, but I can't quite figure out what it is right now) Thanks to the writers of Tips and Tricks of the Graphics gurus. Kim Friis Pedersen kim@eurosoft.dk

Variables