//09/01/2012 
// Script by epogh aka milo viviers
//epogh.deviantart.com
//A tweak of my smoeggs sctipt
//julian/fan/wedge/split combo 
//For stock and tweak generation  
SaveFlame(INSTALLPATH + 'smoflower.flame');//creates the original flame file since it doesn't exist on first run
DeleteFile(INSTALLPATH + 'smoflower.flame');//deletes the old flame file for the next run
 
for M := 0 to Options.BatchSize - 1 do
begin
ShowStatus('Processing ' + IntToStr(M) + ' of ' + IntToStr(Options.BatchSize));
RandomFlame(0);
BatchIndex := BatchIndex + 1; 

{ Flame }
Clear;
Flame.Width := 512;
Flame.Height := 512;
Flame.Brightness := 7;
Flame.Gamma := 2.5;
Flame.GammaTreshold := 0.00428571428571429;
Flame.Scale := 30;
Flame.Pitch := 40;
Flame.X := -0.497083174070267;
Flame.Y := 0.334988805128421;
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 := 2;
  Color := 0.700670317281038;          
  Symmetry := 0.398;
  a := 0;
  b := 1.5625;   
  c := -1.5625;
  d := 0;
  e := 0;
  f := 0;
  Opacity := 1
  pre_blur := 1.066
  hemisphere := 0.1+random/5 
  wedge := 0.074+random/10
  wedge_angle := 1.8858
  wedge_hole := 0           
  wedge_count :=4+random*5  
  wedge_swirl := 0.324+random/5
   // Rotate(randomRange(0,33))    
end;

{ Transform 2 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation[i] := 0;
  Weight := 4;
  Color := 0.656519788084552;                
  Symmetry := 0.916;
  a := 1+random;
  b := 1.104855;
  c := -1.104855;
  d := 1+random;              
  e := 0.6;
  f := 0;
  Opacity := 1
  julian := 0.5+random/5
  julian_power := -2
  julian_dist := 1.234
    Rotate(randomRange(10,33))    
end;

{ Transform 3 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation[i] := 0;
  Weight := 1;
  Color := 0.189683167263865;
  Symmetry := -0.563;     
  a := 0;
  b := -1;
  c := 1;
  d := 0;
  e := 0;
  f := 0;
  Opacity := 1                 
  fan2 := -3.0+random
  fan2_x := 1.245
  fan2_y := -1.12 
    Rotate(randomRange(0,15))    
end;

{ Weight modifiers for transform 1 }
SetActiveTransform(0);
with Transform do begin
  chaos[0] := 0
end;

{ Weight modifiers for transform 3 }
SetActiveTransform(2);
with Transform do begin
  chaos[0] := 1
  chaos[1] := 0
  chaos[2] := 0
end;

Flame.Name:= 'smoflower-' + DateCode + '-' + IntToStr(BatchIndex);
BatchIndex := BatchIndex;
SaveFlame(INSTALLPATH + 'smoflower.flame');
end; 

ListFile(INSTALLPATH + 'smoflower.flame'); 
UpdateFlame := True;
 
 //have fun