Photoshop-Cafe.de :: Dein Photoshop-Forum

Photoshop-Cafe.de :: Dein Photoshop-Forum (https://www.photoshop-cafe.de/forum/index.php)

- Showroom (https://www.photoshop-cafe.de/forum/forumdisplay.php?f=18)

- -

Script sharing (https://www.photoshop-cafe.de/forum/showthread.php?t=9958)

vepman

09.10.10 10:03

Script sharing

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

Zitat:

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

09.10.10 13:41

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

Gruß
Jörg

vepman

09.10.10 13:51

Zitat:

Zitat von Bergkristall (Beitrag 140651)

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

Gruß
Jörg

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

Bergkristall

09.10.10 16:52

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

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

09.10.10 17:16

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

19.10.10 21:19

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

19.10.10 21:26

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

Nerra

19.10.10 21:27

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

Nerra

19.10.10 22:09

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

19.10.10 22:41

Hier mal was für's Herz:

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

Zitat:

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!

vepman

26.10.10 21:56

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

Zitat:

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	28.10.10 20:01

woww :ok:

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

vepman

28.10.10 23:28

Los Oli, zeig mal wieder was.

vepman

31.10.10 16:33

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

Zitat:

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

31.10.10 23:32

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

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

vepman

31.10.10 23:47

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

31.10.10 23:50

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

Malm	31.10.10 23:54

Zitat:

Zitat von vepman (Beitrag 144638)

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

31.10.10 23:56

Klar, Arbeit geht vor. :whistling :emo_biggr

Malm	01.11.10 00:04

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

vepman

09.12.10 10:48

Hier das Script zur Nerra's Blume:

Zitat:

{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.

Alle Zeitangaben in WEZ +2. Es ist jetzt 22:57 Uhr.

Seite wurde generiert in 0,03859 Sekunden mit 8 Queries