[]
Mandelbrot[]
This requires the use of the /Man command in your text bar to make it run.
Mandelbrot
$iter=100;
$esclim=2.0;
$ulx=-2.0;
$uly=1.0;
$lrx=1.0;
$lry=-1.0;
$width=70;
$height=40;
function abs(%x1,%y1)
{
return mSqrt(%x1*%x1+%y1*%y1);
}
function escapeq(%cx,%cy)
{
%zx = 0;
%zy = 0;
%i = 0;
while ( (%i<$iter) && (abs(%zx,%zy)<$esclim) )
{
%tmp=%zx*%zx-%zy*%zy;
%zy=2.0*%zx*%zy;
%zx=%tmp;
%zx=%zx+%cx;
%zy=%zy+%cy;
%i=%i+1;
}
return(%i<$iter);
}
function ServerCmdMan()
{
echo("Begin");
for( %y = 1 ; %y < $height ; %y+=0.5 )
{
for( %x = 1 ; %x < $width ; %x+=0.5 )
{
%zx=$ulx+($lrx-$ulx)/$width*%x;
%zy=$uly+($lry-$uly)/$height*%y;
if (escapeq(%zx,%zy))
{
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x SPC 1 SPC %y;
rotation = "0 0 0 0";
colorID = "0";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
else
{
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x SPC 1 SPC %y;
rotation = "0 0 0 0";
colorID = "16";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
}
}
echo("End");
}
Mandelbrot 2[]
Mandelbrot 2
This requires the use of the /Man command in your text bar to make it run.
$iter=100;
$esclim=2.0;
$ulx=-2.0;
$uly=1.0;
$lrx=1.0;
$lry=-1.0;
$width=70;
$height=40;
function abs(%x1,%y1)
{
return mSqrt(%x1*%x1+%y1*%y1);
}
function escapeq(%cx,%cy)
{
%zx = 0;
%zy = 0;
%i = 0;
while ( (%i<$iter) && (abs(%zx,%zy)<$esclim) )
{
%tmp=%zx*%zx*%zx*%zx*%zx-10*%zx*%zx*%zx*%zy*%zy+(5*%zx*%zy*%zy*%zy*%zy);
%zy=5*%zx*%zx*%zx*%zx*%zy-10*%zx*%zx*%zy*%zy*%zy+%zy*%zy*%zy*%zy*%zy;
%zx=%tmp;
%zx=%zx+%cx;
%zy=%zy+%cy;
%i=%i+1;
}
return(%i<$iter);
}
function ServerCmdMan()
{
echo("Begin");
for( %y = 1 ; %y < $height ; %y+=0.5 )
{
for( %x = 1 ; %x < $width ; %x+=0.5 )
{
%zx=$ulx+($lrx-$ulx)/$width*%x;
%zy=$uly+($lry-$uly)/$height*%y;
if (escapeq(%zx,%zy))
{
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x SPC 1 SPC %y;
rotation = "0 0 0 0";
colorID = "0";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
else
{
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x SPC 1 SPC %y;
rotation = "0 0 0 0";
colorID = "16";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
}
}
echo("End");
}
Mandelbrot 3[]
Mandelbrot 3
$iter=100;
$esclim=2.0;
$ulx=-2.0;
$uly=1.0;
$lrx=1.0;
$lry=-1.0;
$width=70;
$height=40;
function abs(%x1,%y1)
{
return mSqrt(%x1*%x1+%y1*%y1);
}
function escapeq(%cx,%cy)
{
%zx = 0;
%zy = 0;
%i = 0;
while ( (%i<$iter) && (abs(%zx,%zy)<$esclim) )
{
%tmp=%zx*(%zx*%zx-3*%zy*%zy);
%zy=%zy*(3*%zx*%zx-%zy*%zy);
%zx=%tmp;
%zx=%zx+%cx;
%zy=%zy+%cy;
%i=%i+1;
}
return(%i<$iter);
}
function ServerCmdMan()
{
echo("Begin");
for( %y = 1 ; %y < $height ; %y+=0.5 )
{
for( %x = 1 ; %x < $width ; %x+=0.5 )
{
%zx=$ulx+($lrx-$ulx)/$width*%x;
%zy=$uly+($lry-$uly)/$height*%y;
if (escapeq(%zx,%zy))
{
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x SPC 1 SPC %y;
rotation = "0 0 0 0";
colorID = "0";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
else
{
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x SPC 1 SPC %y;
rotation = "0 0 0 0";
colorID = "16";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
}
}
echo("End");
}
Sierpinski triangle[]
Fractal1
%x=0;
%z=0;
for( %i = 1 ; %i < 4000 ; %i++ )
{
%a=getRandom(1,3);
if (%a==1)
{
%x = %x/2;
%z = (%z-250)/2;
}
if (%a == 2)
{
%x = (%x - 250)/2;
%z = (%z + 250)/2;
}
if (%a == 3)
{
%x = (%x + 250)/2;
%z = (%z + 250)/2;
}
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x/3 SPC 1 SPC %z/3;
rotation = "0 0 0 0";
colorID = "0";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
Sierpinski Pyramid[]
Sierpinski pyramid
%x=0;
%z=0;
for( %i = 1 ; %i < 10000 ; %i++ )
{
%a=getRandom(1,5);
if (%a==1)
{
%x = (%x-200)/2;
%y = (%y-200)/2;
%z = (%z-200)/2;
}
if (%a == 2)
{
%x = (%x + 200)/2;
%y = (%y - 200)/2;
%z = (%z + 200)/2;
}
if (%a == 3)
{
%x = (%x - 200)/2;
%y = (%y - 200)/2;
%z = (%z - 200)/2;
}
if (%a == 4)
{
%x = (%x + 200)/2;
%y = (%y - 200)/2;
%z = (%z - 200)/2;
}
if (%a == 5)
{
%x = (%x + 0)/2;
%y = (%y + 200)/2;
%z = (%z + 0)/2;
}
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x/3 SPC %z/3 SPC %y/3;
rotation = "0 0 0 0";
colorID = "0";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
Fern[]
Fern
%x=1;
%y=1;
%z=1;
for( %i = 1 ; %i < 1000 ; %i++ )
{
%a=getRandom(1,100);
if (%a==1)
{
%x = 0;
%z = 0.16*%z;
}
if (%a > 1 && %a <= 8)
{
%x = ((0.20*%x) - (0.26*%z));
%z = (0.23*%x + 0.22*%z + 16);
}
if (%a > 8 && %a <= 15)
{
%x = ((-0.15*%x) + 0.28*%z);
%z = (0.26*%x + 0.24*%z + 4.4);
}
if (%a > 15 && %a <= 100)
{
%x = (0.85*%x + 0.04*%z);
%z = ((-0.04*%x) + 0.85*%z + 16);
}
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x SPC %y SPC %z;
rotation = "0 0 0 0";
colorID = "0";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
Cantor set[]
Cantor set
%x=0;
%y=1;
%z=0;
for( %i = 1 ; %i < 4000 ; %i++ )
{
%a=getRandom(1,4);
if (%a == 1)
{
%x = (%x - 250)/3;
%z = (%z - 250)/3;
}
if (%a == 2)
{
%x = (%x - 250)/3;
%z = (%z + 250)/3;
}
if (%a == 3)
{
%x = (%x + 250)/3;
%z = (%z + 250)/3;
}
if (%a == 4)
{
%x = (%x + 250)/3;
%z = (%z - 250)/3;
}
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x/3 SPC 1 SPC %z/3;
rotation = "0 0 0 0";
colorID = "0";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
3D Cantor Set[]
3D cantor set
%x=0;
%y=0;
%z=0;
for( %i = 1 ; %i < 5000 ; %i++ )
{
%a=getRandom(1,8);
if (%a == 1)
{
%x = (%x - 250)/3;
%y = (%y - 250)/3;
%z = (%z - 250)/3;
}
if (%a == 2)
{
%x = (%x - 250)/3;
%y = (%y - 250)/3;
%z = (%z + 250)/3;
}
if (%a == 3)
{
%x = (%x - 250)/3;
%y = (%y + 250)/3;
%z = (%z - 250)/3;
}
if (%a == 4)
{
%x = (%x - 250)/3;
%y = (%y + 250)/3;
%z = (%z + 250)/3;
}
if (%a == 5)
{
%x = (%x + 250)/3;
%y = (%y + 250)/3;
%z = (%z + 250)/3;
}
if (%a == 6)
{
%x = (%x + 250)/3;
%y = (%y - 250)/3;
%z = (%z + 250)/3;
}
if (%a == 7)
{
%x = (%x + 250)/3;
%y = (%y + 250)/3;
%z = (%z - 250)/3;
}
if (%a == 8)
{
%x = (%x + 250)/3;
%y = (%y - 250)/3;
%z = (%z - 250)/3;
}
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x/3 SPC %y/3 SPC %z/3;
rotation = "0 0 0 0";
colorID = "0";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
Vicsek Fractal[]
Vicsek
%x=50;
%y=10;
%z=50;
for( %i = 1 ; %i < 6000 ; %i++ )
{
%a=getRandom(1,5);
if (%a==1)
{
%x = 0.33*%x - 66;
%z = 0.33*%z + 66;
}
if (%a == 2)
{
%x = 0.325*%x + 0.325*%z;
%z = -0.325*%x + 0.325*%z;
}
if (%a == 3)
{
%x = 0.33*%x - 66;
%z = 0.33*%z - 66;
}
if (%a == 4)
{
%x = 0.33*%x + 66;
%z = 0.33*%z - 66;
}
if (%a == 5)
{
%x = 0.33*%x + 66;
%z = 0.33*%z + 66;
}
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x SPC 1.8 SPC %z;
rotation = "0 0 0 0";
colorID = "16";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}
Fractal[]
Fractal
%x=50;
%y=10;
%z=50;
for( %i = 1 ; %i < 6000 ; %i++ )
{
%a=getRandom(1,5);
if (%a==1)
{
%x = 0.25*%x - 25;
%z = 0.25*%z + 25;
}
if (%a == 2)
{
%x = 0.288*%x - 0.167*%z -50;
%z = 0.167*%x + 0.288*%z -50;
}
if (%a == 3)
{
%x = 0.25*%x - 74.6;
%z = 0.25*%z + 74.6;
}
if (%a == 4)
{
%x = 0.5*%x + 50;
%z = 0.5*%z - 50;
}
if (%a == 5)
{
%x = 0.18*%x +0.174*%z + 50;
%z = -0.174*%x + 0.18*%z + 50;
}
%temp = new fxDTSBrick()
{
datablock = "brick1x1Data";
position = %x SPC 1.8 SPC %z;
rotation = "0 0 0 0";
colorID = "16";
scale = "1 1 1";
angleID = "0";
colorfxID = "0";
shapefxID = "0";
isPlanted = 1;
};
}