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:
https://www.photoshop-cafe.de/bildupload/pics/sonst/1286610581_siepinski-101009-6746.jpg


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!:ok:
Werde ich bei Gelegenheit ausprobieren.

Gruß
Jörg

[vepman]

Danke Udo!:ok:
Werde ich bei Gelegenheit ausprobieren.

Gruß
Jörg
Gerne, Jörg. Und hier veröffentlichen. :emo_biggr

[Bergkristall]

So Udo, ich hoffe das es so richtig ist.
Hier das Bild das ich mir mit dem Editor gebastelt habe:
https://www.photoshop-cafe.de/bildupload/pics/sonst/1286635881_Swirl2.jpg (https://www.photoshop-cafe.de/bildupload/pics/sonst/1286635881_Swirl2.jpg)

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. :ok:
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 (http://www1.xyrus.clan-boa.com/scripts/download/index.php?key=apophysis7x.zip) haben die meisten.
Ab V13 war das auch schon möglich, hatte ich aber verpasst.

[Nerra]

Danke Dir, dann werd ich das mal installieren! :ok:

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

https://www.photoshop-cafe.de/bildupload/pics/sonst/1287520366_heart-101018-6008-klein.jpg


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 (http://xyrus02.deviantart.com/art/XHeart-Plugin-139866412?q=gallery%3AXyrus02%2F2799816&qo=18) benötigt.
Und denkt bitte an den Apo-Unterordner namens "Flames"(siehe oben)
Viel Spaß beim Ausprobieren!

[vepman]

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

https://www.photoshop-cafe.de/bildupload/pics/sonst/thumb/1288122543_Apo-101026-2.jpg


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!

[Malm]

woww :ok:

ich komm in letzter Zeit kaum mehr zu Apo....glaub ich muß doch ma wieder ^^

[vepman]

Los Oli, zeig mal wieder was.

[vepman]

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

https://www.photoshop-cafe.de/bildupload/pics/sonst/thumb/1288538871_swirl-kombi.jpg (https://www.photoshop-cafe.de/bildupload/pics/sonst/1288538871_swirl-kombi.jpg)


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!

[Nerra]

Öh, datt funzt bei mir nicht. Bekomme immer folgende Meldung:

Cannot open file: C:\Program Files\Apophysis 7x\\Flames\swirl02.flame

[vepman]

Hallo Nerra,
2 Möglichkeiten:
1. Einen Unterordner namens Flames in C:\Program Files\Apophysis 7x erstellen.
oder
2. Im Script alle '\Flames\' + entfenen.
Dann sieht es so aus:
if FileExists(INSTALLPATH + 'swirl02.flame')
Ich habe diesen Pfad deshalb im Script, weil sonst das Programmverzeichnis von Apo mit Flames zugemüllt wird.
Sorry, hatte ich vergessen zu schreiben.
Habe nun nachträglich alle Stellen im Script rot gekennzeichnet.

[Nerra]

aha! Jetzt funzt es, danke! :) :ok:

[Malm]

Los Oli, zeig mal wieder was.

hab nix Udo und das dauert auch noch :whistling


Ps muß zZt arbeiten.........aber es kommt schon noch was, Apo ist in der Warteschleife

[vepman]

Klar, Arbeit geht vor. :whistling :emo_biggr

[Malm]

jo ^^, eine battle jagt die andere...........zur Zeit halt, und verlieren will man ja auch nicht unbedingt :emo_biggr

[vepman]

Hier das Script zur Nerra's Blume:

{Batch-Script: by vepman
based on a Flame by Nerra
based on a tutorial by *lindelokse in DA}
fileName := GetSaveFileName;
if CurrentFile = fileName then exit;
DeleteFile(fileName);
ShowStatus('')
o:=0
InputQuery('Mit glow=1,ohne=0','0 ist Vorgabe',o)

x:=10;
InputQuery('Wieviele Flames ?','10 sind Vorgabe',x)
for j := 0 to x -1 do
begin
LoadFlame(j);
ShowStatus('Berechne ' + IntToStr(j + 1) + ' of ' + IntToSTr(x));
RandomFlame(0)
Clear
Flame.Width := 1000;
Flame.Height := 1000;
Flame.Brightness := 8;
Flame.Gamma := 4;
Flame.GammaTreshold := 0.01;
Flame.Scale := 35;
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.6;
Color := 0;
Symmetry := 0.6;
a := 1;
b := 0;
c := 0;
d := 1;
e := 0;
f := 0;
If o=0 then
Opacity := 0
else
Opacity := 1
gaussian_blur := 0.596
end;
{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 20;
Color := 0.3;
Symmetry := 0.95;
a := -1.448276;
b := -1.867511;
c := 1.867511;
d := -1.448276;
e := -0.867344;
f := -0.944842;
Opacity := 1
linear3D := 0.715
spherical :=random * 0.683
polar := 0.087
cross := 0.085
waves2 :=random * 0.999
waves2_freqx :=random * 2
waves2_scalex := 1
waves2_freqy :=random * 2
waves2_scaley := 1
Rotate(random *360)

end;
{ Final Transform }
SetActiveTransform(transforms);
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Color := 0;
a := 0.959222;
b := 0.282653;
c := -0.282653;
d := 0.959222;
e := -0.093215;
f := -0.039949;
julian := 1
julian_power := random *-2
julian_dist := 1
end;
Flame.FinalXformEnabled := true;
Rotate(random *360)
UpdateFlame := True;
Flame.Name := 'Flower-' +DateCode +'-' +intToStr(j+1);
// CalculateBounds;
SaveFlame(fileName);
end;
ListFile(fileName);
UpdateFlame := true


Wie bei fast jedem Script empfiehlt es sich, mehrere Versuche bzw. zahlreiche Flames zu erstellen, weil nicht immer ein passendes Ergebnis erzielt wird.