Hoenderkop

Apo 7x rendered in Caotica


Copy and past in script editor/////for study and tweaking only/////



 SaveFlame(INSTALLPATH + 'smoflower3d.flame');//creates the original flame file since it doesn't exist on first run
DeleteFile(INSTALLPATH + 'smoflower3d.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 := 800;
Flame.Height := 600;
Flame.Brightness := 2.8695652173913;
Flame.Gamma := 2.58;
Flame.GammaTreshold := 0.00348484848484849;
Flame.Scale := 19.0725;
Flame.Angle := 0.785223630472249;
Flame.X := 0.0668852579670794;
Flame.Y := -0.934775492215176;
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.224;
  Color := 0.299;
  Symmetry := 0.183;
  a := 0.024521;
  b := -0.023918;
  c := -0.025353;
  d := 0.055349;
  e := 0.775772;
  f := -0.292666;
  Opacity := 0
  bubble := 1
  pre_blur := 0.205
end;
translate(-0.5 + random,-0.5 + random)

{ Transform 2 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation[i] := 0;
  Weight := 7;
  Color := 0;
  Symmetry := 0.99;
  a := -0.990472;
  b := -0.035814;
  c := 0.035814;
  d := -0.990472;
  e := 1.060498;
  f := 0.515825;
  post[0,0] := 1;
  post[0,1] := (-1) * 0;
  post[1,0] := (-1) * 0;
  post[1,1] := 1;
  post[2,0] := 0.405595;
  post[2,1] := (-1) * -1.632389;
  Opacity := 1
  waves2 := 1
  waves2_freqx := -0.182
  waves2_scalex := 0.255
  waves2_freqy := 20
  waves2_scaley := -0.02
end;                      

translate(-1 + random*2,-1 + random*2)
                 
{ Transform 3 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation[i] := 0;
  Weight := 0.5;
  Color := 0.226;
  a := -0.520374;
  b := 0.034705;
  c := -0.034705;        
  d := -0.520374;
  e := 0.31926;  
  f := 1.243839;
  Opacity := 1
  spherical := 1.25
  post_mirror_x := 1
end;
    
translate(-0.5 + random,-0.5 + random)

{ Transform 4 }  
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation[i] := 0;
  Weight := 0.5;
  Color := 0;
  Symmetry := 1;
  a := 1;
  b := 0;
  c := 0;
  d := 1;
  e := -0.277529;
  f := 0.367054;
  Opacity := 1
  linear3D := 1
end;

{ Final Transform }
Flame.FinalXformEnabled := True;
SetActiveTransform(transforms);
with Transform do begin
  for i := 0 to NVARS do Variation[i] := 0;
  Color := 0;
  a := -0.11499;
  b := 0.946757;
  c := -0.758604;
  d := -0.495052;
  e := 0;
  f := 0;
  spherical := 1
  post_heat := 0.05
  post_heat_theta_period := 1
  post_heat_theta_phase := 0
  post_heat_theta_amp := 1
  post_heat_phi_period := 1
  post_heat_phi_phase := 0
  post_heat_phi_amp := 0
  post_heat_r_period := 1
  post_heat_r_phase := 0
  post_heat_r_amp := 0
end;

Flame.FinalXformEnabled := True;
SetActiveTransform(transforms);

randomAngle := DegToRad(randomRange(0,270));
                                               
transform.coefs[0,0] := cos(randomAngle);
transform.coefs[0,1] := sin(randomAngle);
transform.coefs[1,0] := cos(randomAngle + (PI / 2));
transform.coefs[1,1] := sin(randomAngle + (PI / 2));

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

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

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

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

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

ListFile(INSTALLPATH + 'smoflower3d.flame');
UpdateFlame := True;