Trying to Make an Apophysis Mandelbulb Script

[crotafang]

Hello all,

I'm new to Apo scripting, and I've started practicing scripting in Apophysis 7X.

I remember seeing the formulas for the Mandelbulb.  And I know it sounds crazy, but I have been trying to see if I can make a Mandelbulb script in Apophysis.  It's been difficult so far, and what I've done so far only freezes Apo.    Here's what I've got so far:

with Transform do
begin
A := 0 ;
Weight := 0.5 ;
Color := 1 ;
end;       

x := 0;
y := 0;
z := 0;
r := sqrt(x*x + y*y + z*z);
alpha := arctan2(sqrt(x*x + y*y), z);
beta := arctan2(y, x);       
mand := [x, y, z];
while (x*x + y*y + z*z < 2.0) do
begin
  newx := (r*r) * sin( alpha*2 + 0.5*PI) * cos(beta*2 +PI);     
  newy := (r*r) * sin( alpha*2 + 0.5*PI) * sin(beta*2 +PI);
  newz := (r*r) * cos( alpha*2 + 0.5*PI);
  mand := [(x*(x+y+z) + newx), (y*(x+y+z) + newy), (z*(x+y+z) + newz)];
end;                                                         

I think I divided by zero somewhere and I don't know how to correct for that in Apophysis.  I know that basically, you have to have some sort of coordinate for when one of the valuables is zero, but I don't know how to properly do if, else statements in Apo scripting.  Maybe I should try this in Apo 2.08 3D first.  (shrug) I don't know, what do you guys think?

Sincerely,
crotafang

[cKleinhuis]

as a starter, you could try out the far more simple mandelbox method as transformation

[crotafang]

Alright then.  I'll do that.  And if and when I succeed, I'll post the result.

[cKleinhuis]

do that, i am excited

[Dinkydau]

Have you got something already? It would be awesome to use such a fractal in Apophysis.

[crotafang]

Well I tried to do a Mandelbox, and this is what I have so far.  It doesn't have "errors", but it doesn't yield a Mandelbox at all.  I got the formulas down, but I don't know how to properly apply them to the transforms.  I'm using the Apophysis scripting which used Scripter Studio, which is based on Pascal.
program mandelbox;

var r, m, x, y, z;
with transform do
begin
linear3d := 0.75;
for k := 1 to 100 do
r := 0.5;            
x := random;
y := random;  
z := random;  


v := [x,y,z];
v[0] := x;
v[1] := y;
v[2] := z;
m := x*x + y*y + z*z;                                      
for i := 0 to 2 do                        
  begin
  addtransform;
  with transform do
  begin
  for x := -100 to 100 do
  begin
  for y := -100 to 100 do
  begin
  for z := -100 to 100 do
  begin
    if (v[ i ] > 1) then                      
      begin                                
        v[ i ] := 2 - v[ i ];
        if m < r then m := m /(r*r);
        else if m < 1 then m := 1 /(m*m);
        for j := 0 to 2 do
        begin        
          v[j] := 2*v[j];
        end;
        AddTransform;
        with transform do
        begin
          linear3D := 0.75;
          Translate(v[0],v[1]);
          ztranslate := v[2];
        end;
      end;                            
    else if (v[ i ] < -1) then
      begin
        v[ i ] := -2 - v[ i ];
        if m < r then m := m /(r*r);
        else if m < 1 then m := 1 /(m*m);
        v := 2*m;
        for j := 0 to 2 do
        begin
          v[j] := 2*v[j];
        end;
        AddTransform;
        with Transform do
        begin
          linear3D := 0.75;
          Translate(v[0],v[1]);
          ztranslate := v[2];
        end;
      end;
  end;        
  end;
  end;
  end;
  end;
end;

How do I apply a mathematical formula to a transform?

[Xazo-Tak]

Can you put it into electricsheep? If so, I WANTS IT.

[DarkBeam]

Well Mandelbox looks awesome when it's solid, not faded away like in Apo flames. Also Apo's folds are probabilistic and you should do deterministic ones instead to make the shapes more clear