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!

[Bergkristall]

Danke Udo!
Werde ich bei Gelegenheit ausprobieren.

Gruß
Jörg

[vepman]

Zitat von Bergkristall

Danke Udo!
Werde ich bei Gelegenheit ausprobieren.

Gruß
Jörg

Gerne, Jörg. Und hier veröffentlichen.

[Bergkristall]

So Udo, ich hoffe das es so richtig ist.
Hier das Bild das ich mir mit dem Editor gebastelt habe:


und hier wäre das Script:

{ Flame }
Clear;
Flame.Width := 886;
Flame.Height := 680;
Flame.Brightness := 4;
Flame.Gamma := 4;
Flame.GammaTreshold := 0.04;
Flame.Zoom := 0.612;
Flame.Scale := 23.6541732364926;
Flame.X := -0.194;
Flame.Y := 0.388;
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 := 7.591;
Color := 0.792;
a := -0.216458;
b := -0.972581;
c := 0.972581;
d := -0.216458;
e := 0.159101;
f := 0.701246;
Opacity := 1
linear := 1
end;

{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.33;
Color := 1;
a := 0.48792;
b := -0.3413;
c := 0.264085;
d := 0.512907;
e := 1.52906;
f := -0.449444;
Opacity := 1
polar := 0.445
disc := 0.439
end;


Gruß
Jörg

[vepman]

Klasse, Jörg.
Das script läuft ohne Probleme bei mir.
Auch das Flame ist super.

Tipp am Rande: ein RandomFlame(0) vor dem "clear" eingefügt und man
bekommt verschiedene Farben bei jedem neuen Durchlauf.

[Nerra]

Ehm....mal eine Frage: Welche Version von Apo habt ihr? Bei mir gibt es diese Funktion mit dem Script erstellen nämlich nicht. Ich hab die Apo 7x Version *kopfkratz*

EDIT: Bei Bergkristalls Script, nehmt mal als Variation in der T1 "cross" dazu, gibt auch einige schöne Ergebnisse

[vepman]

Hi Nerra,
Apo 7x V14 haben die meisten.
Ab V13 war das auch schon möglich, hatte ich aber verpasst.

[Nerra]

Danke Dir, dann werd ich das mal installieren!

[Nerra]

Viel Spass mit diesem kleinen Script ;)

{ Flame }
Clear;
Flame.Width := 959;
Flame.Height := 561;
Flame.Brightness := 4;
Flame.Gamma := 4;
Flame.GammaTreshold := 0.04;
Flame.Zoom := 0.3;
Flame.Scale := 22.9944672146912;
Flame.X := -0.712;
Flame.Y := 1.0446006622531;
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.733139914692052;
Color := 0;
a := 0.712143;
b := -0.57974;
c := 0.57974;
d := 0.712143;
e := 0.319318;
f := 0.591062;
Opacity := 1
linear := 1
end;

{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.17486;
Color := 1;
a := -0.291073;
b := 0.286588;
c := -0.263856;
d := -0.191355;
e := -0.012791;
f := 0.606184;
Opacity := 1
spherical := 0.372
end;

[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!