Script sharing

[vepman]

Hier mal was für's Herz:



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

for j := 0 to Options.BatchSize - 1 do
begin
ShowStatus('Processing ' + IntToStr(j + 1) + ' of ' + IntToSTr(Options.BatchSize))
RandomFlame(0)
Clear
Flame.Width := 851;
Flame.Height := 681;
Flame.Brightness := 20;
Flame.Gamma := 2.6;
Flame.Scale := 26;
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.5;
Color := 0;
Symmetry := -1;
a := 0.2;
b := 0;
c := 0;
d := 0.2;
e := -0.000261;
f := -0.000232;
Opacity := 1
gaussian_blur := 0.9
end;
{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 9.48469964321703;
Color := 1;
Symmetry := -1;
a := 0.089175;
b := -0.094553;
c := 0.107081;
d := -0.019844;
e := 0.005205;
f := 0.009582;
Opacity := 1
spherical :=random * 0.857509821280837
eyefish :=random * 0.593047579866834
scry := 0.208919247309677
end;
{ Final Transform }
SetActiveTransform(transforms);
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Color := 0;
a := -0.733489;
b := 0.081021;
c := -0.081021;
d := -0.733489;
e := 0;
f := 0;
xheart := 1
xheart_angle :=random * 0.5 //0.112809
xheart_ratio :=random * 0.998935
end;
Flame.FinalXformEnabled := true;
flame.Name := 'heart-' +Datecode +'-' + intToStr(random*9999)
SaveFlame(INSTALLPATH + '\Flames\' + 'heart02.flame')
end
ListFile(INSTALLPATH + '\Flames\' + 'heart02.flame')
UpdateFlame := True

Es wird das xheart-plugin benötigt.
Und denkt bitte an den Apo-Unterordner namens "Flames"(siehe oben)
Viel Spaß beim Ausprobieren!