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)

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!

woww :ok:

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

Los Oli, zeig mal wieder was.

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!

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

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

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.

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

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

Klar, Arbeit geht vor. :whistling :emo_biggr

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