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)
-   -   Showroom Fraktal 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!


Alle Zeitangaben in WEZ +2. Es ist jetzt 06:16 Uhr.

Powered by vBulletin® Version 3.8.7 (Deutsch)
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
©2005-2024 photoshop-cafe.de

Seite wurde generiert in 0,06405 Sekunden mit 8 Queries