[]
Mandelbrot[]
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-%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[]
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[]
$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[]
%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[]
%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[]
%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[]
%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[]
%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[]
%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[]
%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; }; }