Script sharing

[vepman]

Hier mal wieder ein neues Apo-script.
Das Bild hier ist nur ein Beispiel aus dem script:



if FileExists(INSTALLPATH+ '\Flames\' + 'mesh02.flame') then
DeleteFile(INSTALLPATH+ '\Flames\' + 'mesh02.flame')

for j := 0 to Options.BatchSize - 1 do
begin
ShowStatus('Processing ' + IntToStr(j + 1) + ' of ' + IntToSTr(Options.BatchSize))
RandomFlame(0)
Clear;

Flame.Width := 815;
Flame.Height := 649;
Flame.Brightness := 4;
Flame.Gamma := 4;
Flame.Vibrancy := 1.0;
Flame.GammaTreshold := 0.04;
Flame.Scale := 20;
Flame.Angle := -1.58598069128725;
Flame.X := 0.323;
Flame.Y := -2.572;
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.0124;
Color := 0;
Symmetry := -0.0792;
a := 0.509535;
b := -0.854654;
c := 0.843615;
d := 0.513031;
e := 0.352367;
f := -1.105731;
Opacity := 1
blur := 0.0468675231082365
cross := 0.01

end;
{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.9826;
Color := 0.993333333333333;
Symmetry := 0.792;
a := 0.873871;
b := 0.474751;
c := -0.468965;
d := 0.865457;
e := 1.255461;
f := -0.271299;
Opacity := 1
linear := 0.98802
spherical := 0.01089
cross := 0.01
Rotate(random * 360)

end;
{ Transform 3 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.0025;
Color := 0.00666666666666667;
Symmetry := 0.99;
a := 0.994719;
b := 0.005772;
c := 0.007285;
d := 0.982895;
e := 0.431522;
f := -0.353902;
Opacity := 1
linear := 0.99
cross := 0.01

end;
{ Transform 4 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.0025;
Color := 0.01;
a := 0.98118;
b := 0.003397;
c := 0.001141;
d := 0.985708;
e := 0.633896;
f := -0.39898;
Opacity := 1
linear := 0.99
cross := 0.01

end;
CalculateBounds;
Resetlocation:=true;
flame.Name := 'mesh-' +Datecode +'-' + intToStr(random*9999)
SaveFlame(INSTALLPATH + '\Flames\' + 'mesh02.flame')

end;
ListFile(INSTALLPATH + '\Flames\' + 'mesh02.flame')
Resetlocation:=true;

Viel Spaß beim Ausprobieren!