ROSE-script

.... created with this script and a little effort are guaranted;)

There are many roses in OFG for example here 

Rose. Fractal created by Krys. Used Apophysis7 and script written by Smolalit.

// Script written by Smolalit

//smolalit.ru

SaveFlame(INSTALLPATH + 'smolalit.flame');

DeleteFile(INSTALLPATH + 'smolalit.flame');

 

for M := 0 to Options.BatchSize - 1 do

begin

ShowStatus('Processing ' + IntToStr(M) + ' of ' + IntToStr(Options.BatchSize));

RandomFlame(0);

BatchIndex := BatchIndex + 1;

Clear;

Flame.Width := 512;

Flame.Height := 512;

Flame.Gamma := 3;

Flame.Brightness := 5;

Flame.Scale := 25;

Flame.Pitch := 0;

Flame.Yaw := 0;

Flame.Perspective := 0;

Flame.DOF := 0;

Flame.x := 0;

Flame.y := 0;

{ Transform 1 }

AddTransform;

with Transform do

begin

 linear := 0;

 linear3D := 0;

 flatten := 1;

 gaussian_blur := 0.5;

 Weight := 0.5

 color := random

end;

{ Transform 2 }

AddTransform;

with Transform do

begin

  a := 1 + random/10;

  b := 0 - random/10;

  c := 0 - random/10;

  d := 1;

  e := 0;

  f := 0;

 linear := 1;

 linear3D := 0;

 spherical := 0.1 + random;

 cross := 0.02 + random/5;

 Weight := 5;

 color := random;

 translate (0,-0.6 + random*1.2);

 Rotate(random*360);

 Scale(1+random);

end;

{ Final Transform }

SetActiveTransform(transforms);

Flame.FinalXformEnabled := True;

with Transform do begin

 linear := 0;

 linear3D := 0;

  julia3D :=2

  julia3D_power := -2

end;

Flame.Name:= 'smolalit-' + DateCode + '-' + IntToStr(BatchIndex);

BatchIndex := BatchIndex;

SaveFlame(INSTALLPATH + 'smolalit.flame');

end; 

ListFile(INSTALLPATH + 'smolalit.flame'); 

UpdateFlame := True;