Script sharing

[vepman]

Mal wieder ein neues Projekt hier: script sharing.
Da Apophysis eine tolle Funktion hat, nämlich:
Unter dem Menüpunkt Script -> Turn flame into script
kann man sein Flame auch als script veröffentlichen.
ich fang mal mit einem Batch-script an.
Das heißt, es erzeugt je nach unter batch size eingestellte Werte auch so viele flames. Wer das nicht möchte, der kann die roten Zeilen löschen.
Sonst sollte man beachten, dass das script einen Apo-Unterordner namens "Flames" voraussetzt.
Damit man sieht, was das script erzeugt, auch hier ein kleines Vorschaubild von ca. 320 x 320 Pixel.

Hier ein Sierpinski-script:


if FileExists(INSTALLPATH+ '\Flames\' + 'siepinski02.flame') then
DeleteFile(INSTALLPATH+ '\Flames\' + 'siepinski02.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.GammaTreshold := 0.04;
Flame.Scale := 35;
Flame.X := 1.29798422436459;
Flame.Y := -0.715162138475022;
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.25;
Color := 0;
a := 0.5;
b := 0;
c := 0;
d := 0.5;
e := 0;
f := 0;
Opacity := 1
linear3D := 1
end;
{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight :=random * 0.25;
Color := 0.333333333333333;
a := 0.5;
b := 0;
c := 0;
d := 0.5;
e := 1.28;
f := 0;
Opacity := 1
linear3D := 1
end;
{ Transform 3 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := random * 0.25;
Color := 0.666666666666667;
a := 0.5;
b := 0;
c := 0;
d := 0.5;
e := 0.64;
f := -0.8;
Opacity := 1
linear3D := 1
end;
{ Transform 4 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := random * 0.25;
Color := 1;
a := -0.40757;
b := 0;
c := 0;
d := -0.40757;
e := 1.8;
f := -0.735;
Opacity := 1
linear3D := 1
end;
flame.Name := 'siepinski-' +Datecode +'-' + intToStr(random*9999)
SaveFlame(INSTALLPATH + '\Flames\' + 'siepinski02.flame')
end
ListFile(INSTALLPATH + '\Flames\' + 'siepinski02.flame')
UpdateFlame := True

Viel Spaß beim Ausprobieren!