Monday, March 8, 2010

Apophysis - Dragon Eggs

Simply Wonderful
Thank you very much Elizabeth for this marvelous jewel


{---------------------------------------}
{ Dragon Egg - Random Batch }
{ By Elizabeth Tomchek (etomchek) }
{ 2-5-07 }
{ Documentation as of yet unavailable }
{ --------------------------------------}

fileName := GetSaveFileName;
if CurrentFile = fileName then exit;
DeleteFile(fileName);
for j := 0 to FileCount - 1 do
begin
LoadFlame(j);
ShowStatus('Processing ' + IntToStr(j + 1) + ' of ' + IntToSTr(FileCount));

Clear;
Pivot.mode := 1;
AddTransform;
with Transform do
begin
Variation[V_LINEAR] := 0;
Variation[V_BLUR] := 0.95;
Rotate(270);
Color := 0;
end;

AddTransform;
with Transform do
begin
Variation[V_LINEAR] := (random*0.5)+0.5;
Variation[V_SPHERICAL] := 0.5;
end;

with Transform do
begin
up := (((trunc(random*3)-1)*random)+random*0.5)*(random+1);
over := (((trunc(random*3)-1)*random)+random*0.5)*(random+1);
Translate(up,over);
Rotate(random*360);
Color := 0.5;
end;

AddTransform;
with Transform do
begin
Variation[V_LINEAR] := (random*0.25)+0.75;
Variation[V_SPHERICAL] := 0.25;
end;

with Transform do
begin
up := (((trunc(random*3)-1)*random)+random*0.5)*(random+1);
over := (((trunc(random*3)-1)*random)+random*0.5)*(random+1);
Translate(up,over);
Rotate(random*360);
Color := 1;
end;


// To set the final transform:
SetActiveTransform(transforms);
with Transform do
begin
for i := 0 to NVARS - 1 do
begin
Variation[i] := 0;
end;
a := 1;
b := 0;
c := 0;
d := 1;
e := 0;
f := 0;
end;
Transform.Variation[V_SPHERICAL] := 1;

Flame.FinalXformEnabled := true;


ResetLocation := True;
UpdateFlame := True;
// calculatecolors;
Flame.Name := 'DE-' + Flame.Name;
CalculateBounds;
SaveFlame(fileName);
end;
ListFile(fileName);
UpdateFlame := False;

No comments:

Post a Comment