Hi Oli,
ich poste mal ein Apo-script(
7x V.14) hier, damit kannst du(andere auch), wie unter Batchsize eingestellt, verschiedene farbige Galaxien erstellen.
Zwar sind die Positionen der Sterne identisch, aber wenn man bei Apo unter "fx"(Editor) und
unter Triangle ein bisschen mit dem Dreieck oder den Positionpfeilen spielt, erhält man auch andere Stern-Konstellationen.
Vielleicht schaffe ich das irgendwann auch noch ins script einzubauen.
Wer seinen eigenen Namen oder was anderes haben will, einfach, 5. Zeile von unten, "Malm-" ersetzen.
Zitat:
if FileExists(INSTALLPATH+ '\Flames\' + 'galaxis.flame') then
DeleteFile(INSTALLPATH+ '\Flames\' + 'galaxis.flame')
for j := 0 to Options.BatchSize - 1 do
begin
ShowStatus('Processing ' + IntToStr(j + 1) + ' of ' + IntToSTr(Options.BatchSize))
RandomFlame(0)
Clear
Flame.Width := 1034;
Flame.Height := 649;
Flame.Brightness := 4;
Flame.Gamma := 4;
Flame.Scale := 25.84375;
Flame.X := 0.5;
Flame.Y := 0.66;
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.206;
Color := 0.27;
a := 5.965741;
b := -31.877658;
c := 31.877658;
d := 5.965741;
e := 0.576849;
f := 1.063472;
Opacity := 1
linear3D := 1
end;
{ Transform 2 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.137;
Color := 0.45;
a := -0.343632;
b := -0.609852;
c := 0.609852;
d := -0.343632;
e := 1.353119;
f := -1.236481;
Opacity := 1
linear3D := 1
end;
{ Transform 3 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.118;
Color := 0.55;
a := -0.455563;
b := -0.390466;
c := 0.390466;
d := -0.455563;
e := 1.049522;
f := 0.389367;
Opacity := 1
linear3D := 1
end;
{ Transform 4 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.103;
Color := 0.0191087438166142;
a := -0.468029;
b := -0.175916;
c := 0.175916;
d := -0.468029;
e := 0.280576;
f := 1.098975;
Opacity := 1
linear3D := 1
end;
{ Transform 5 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.092;
Color := 0.68;
a := -0.399977;
b := -0.004188;
c := 0.004188;
d := -0.399977;
e := 0.135719;
f := 0.102123;
Opacity := 1
linear3D := 1
end;
{ Transform 6 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.083;
Color := 0.82;
a := -0.515839;
b := 0.181658;
c := -0.181658;
d := -0.515839;
e := 1.160925;
f := -0.241936;
Opacity := 1
linear3D := 1
end;
{ Transform 7 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.075;
Color := 0.91;
a := -0.000159;
b := 0.00013;
c := -0.00013;
d := -0.000159;
e := 1.05;
f := 1.2;
Opacity := 1
linear3D := 1
end;
{ Transform 8 }
AddTransform;
with Transform do begin
for i := 0 to NVARS do Variation[i] := 0;
Weight := 0.069;
Color := 1;
a := -0.002599;
b := 0.005074;
c := -0.004202;
d := -0.001748;
e := 0.496181;
f := -0.179847;
Opacity := 1
linear3D := 1
end;
UpdateFlame:= True;
flame.Name := 'Malm-' +intToStr(j+1)
SaveFlame(INSTALLPATH + '\Flames\' + 'galaxis.flame')
end
ListFile(INSTALLPATH + '\Flames\' + 'galaxis.flame')
UpdateFlame := True
// END CODE
|
Einfach den Quote-Text kopieren und als z.B.
galaxis.asc abspeichern.
Falls du Probleme mit Apophysis hast, frag einfach.
Vielleicht sollten wir mal ein Apo-FAQ-Thread im Unterforum "andere Software" machen?
Viel Spaß damit