Script sharing

[Bergkristall]

So Udo, ich hoffe das es so richtig ist.
Hier das Bild das ich mir mit dem Editor gebastelt habe:


und hier wäre das Script:

{ Flame }
Clear;
Flame.Width := 886;
Flame.Height := 680;
Flame.Brightness := 4;
Flame.Gamma := 4;
Flame.GammaTreshold := 0.04;
Flame.Zoom := 0.612;
Flame.Scale := 23.6541732364926;
Flame.X := -0.194;
Flame.Y := 0.388;
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 := 7.591;
Color := 0.792;
a := -0.216458;
b := -0.972581;
c := 0.972581;
d := -0.216458;
e := 0.159101;
f := 0.701246;
Opacity := 1
linear := 1
end;

{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.33;
Color := 1;
a := 0.48792;
b := -0.3413;
c := 0.264085;
d := 0.512907;
e := 1.52906;
f := -0.449444;
Opacity := 1
polar := 0.445
disc := 0.439
end;


Gruß
Jörg