Script sharing

[vepman]

Hier das Script zur Nerra's Blume:

{Batch-Script: by vepman
based on a Flame by Nerra
based on a tutorial by *lindelokse in DA}
fileName := GetSaveFileName;
if CurrentFile = fileName then exit;
DeleteFile(fileName);
ShowStatus('')
o:=0
InputQuery('Mit glow=1,ohne=0','0 ist Vorgabe',o)

x:=10;
InputQuery('Wieviele Flames ?','10 sind Vorgabe',x)
for j := 0 to x -1 do
begin
LoadFlame(j);
ShowStatus('Berechne ' + IntToStr(j + 1) + ' of ' + IntToSTr(x));
RandomFlame(0)
Clear
Flame.Width := 1000;
Flame.Height := 1000;
Flame.Brightness := 8;
Flame.Gamma := 4;
Flame.GammaTreshold := 0.01;
Flame.Scale := 35;
Flame.X := 0;
Flame.Y := 0;
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.6;
Color := 0;
Symmetry := 0.6;
a := 1;
b := 0;
c := 0;
d := 1;
e := 0;
f := 0;
If o=0 then
Opacity := 0
else
Opacity := 1
gaussian_blur := 0.596
end;
{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 20;
Color := 0.3;
Symmetry := 0.95;
a := -1.448276;
b := -1.867511;
c := 1.867511;
d := -1.448276;
e := -0.867344;
f := -0.944842;
Opacity := 1
linear3D := 0.715
spherical :=random * 0.683
polar := 0.087
cross := 0.085
waves2 :=random * 0.999
waves2_freqx :=random * 2
waves2_scalex := 1
waves2_freqy :=random * 2
waves2_scaley := 1
Rotate(random *360)

end;
{ Final Transform }
SetActiveTransform(transforms);
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Color := 0;
a := 0.959222;
b := 0.282653;
c := -0.282653;
d := 0.959222;
e := -0.093215;
f := -0.039949;
julian := 1
julian_power := random *-2
julian_dist := 1
end;
Flame.FinalXformEnabled := true;
Rotate(random *360)
UpdateFlame := True;
Flame.Name := 'Flower-' +DateCode +'-' +intToStr(j+1);
// CalculateBounds;
SaveFlame(fileName);
end;
ListFile(fileName);
UpdateFlame := true

Wie bei fast jedem Script empfiehlt es sich, mehrere Versuche bzw. zahlreiche Flames zu erstellen, weil nicht immer ein passendes Ergebnis erzielt wird.