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;