Script sharing

[vepman]

Hier mal ein script, dass ich aus einem swirl-Flame entwickelt habe:



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


for j := 0 to Options.Batchsize - 1 do
begin
ShowStatus('Processing ' + IntToStr(j + 1) + ' of ' + IntToSTr(Options.BatchSize))
RandomFlame(0);
Clear;
Flame.Width := 1600;
Flame.Height := 1000;
Flame.Brightness := 4;
Flame.Gamma := 4;
Flame.GammaTreshold := 0.01;
Flame.Scale := 42.5;
Flame.X := -0.292305834037927;
Flame.Y := 0.860007247252084;
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.263016913634847;
Color := 0.88;
a := -0.485545;
b := 0.212118;
c := -0.212118;
d := -0.485545;
e := 1.345456;
f := 0.795489;
Opacity := 1
spherical := 0.2
radial_blur := 0.54
radial_blur_angle := -0.668139
Rotate(Random * 360)
end;
{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.404710708575745;
Color := 0;
a := 0.815303;
b := 0;
c := 0;
d := 0.815303;
e := 0.510684;
f := 0.5357;
Opacity := 1
spherical := 1
Rotate(Random * 360)
end;
{ Transform 3 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.332272377789408;
Color := 0.05;
a := -0.055597;
b := 0.667061;
c := -0.667061;
d := -0.055597;
e := -0.93298;
f := 0.702655;
Opacity := 1
linear := 1
Rotate(Random * 360)
end;
CalculateBounds;
flame.Name := 'swirl-' +Datecode +'-' + intToStr(random*9999)
SaveFlame(INSTALLPATH + '\Flames\' + 'swirl02.flame')
end
ListFile(INSTALLPATH + '\Flames\' + 'swirl02.flame')
UpdateFlame := True

Bei der Fehlermeldung Cannot open file: C:\Program Files\Apophysis 7x\\Flames\swirl02.flame
alle rot geschriebenen Zeichen entfernen oder einen Unterordner namens Flames in C:\Program Files\Apophysis 7x erstellen.

Viel Spaß beim Ausprobieren!