ShopDreamUp AI ArtDreamUp
Deviation Actions
Comments1
Join the community to add your comment. Already a deviant? Log In
for all fractal fans, here is the script for this fractal:
{ Flame }
Clear;
Flame.Width := 1280;
Flame.Height := 960;
Flame.Brightness := 4;
Flame.Gamma := 4;
Flame.GammaTreshold := 0.04;
Flame.Scale := 12.80625;
Flame.X := 0.662454342436432;
Flame.Y := -0.663487022817373;
Flame.Background[0] := 0;
Flame.Background[1] := 0;
Flame.Background[2] := 0;
{ Transform 1 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.432774177737685;
Color := 0.403;
a := -0.209561;
b := 0.202273;
c := -0.202273;
d := -0.209561;
e := 0;
f := 0;
Opacity := 1
julian := 1
julian_power := 5
julian_dist := 1
end;
{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.5;
Color := 0;
a := 1.584335;
b := -0.809247;
c := 0.809247;
d := 1.584335;
e := -0.343847;
f := 0.168266;
Opacity := 1
linear3D := 1
end;
{ Final Transform }
SetActiveTransform(transforms);
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Color := 0;
a := 0.003367;
b := -0.991448;
c := 0.991448;
d := 0.003367;
e := -0.047439;
f := 0.017947;
linear3D := 1
bubble := -0.95
end;
{ Flame }
Clear;
Flame.Width := 1280;
Flame.Height := 960;
Flame.Brightness := 4;
Flame.Gamma := 4;
Flame.GammaTreshold := 0.04;
Flame.Scale := 12.80625;
Flame.X := 0.662454342436432;
Flame.Y := -0.663487022817373;
Flame.Background[0] := 0;
Flame.Background[1] := 0;
Flame.Background[2] := 0;
{ Transform 1 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.432774177737685;
Color := 0.403;
a := -0.209561;
b := 0.202273;
c := -0.202273;
d := -0.209561;
e := 0;
f := 0;
Opacity := 1
julian := 1
julian_power := 5
julian_dist := 1
end;
{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.5;
Color := 0;
a := 1.584335;
b := -0.809247;
c := 0.809247;
d := 1.584335;
e := -0.343847;
f := 0.168266;
Opacity := 1
linear3D := 1
end;
{ Final Transform }
SetActiveTransform(transforms);
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Color := 0;
a := 0.003367;
b := -0.991448;
c := 0.991448;
d := 0.003367;
e := -0.047439;
f := 0.017947;
linear3D := 1
bubble := -0.95
end;