ROSE GARDEN-script

 

Fractal created by Krys. She used APO and this script.

// Created by Deborah Walker

// http://dwalker1047.deviantart.com/

// Deb's Rose Garden Script

// Requires wedge plugin

BG := 1;

If not InputQuery('Background Colour?', 'Black(1) or White(2)', BG) then Exit;

error := 1;

If BG = 1 then error := 0;

If BG = 2 then error := 0;

If not (error = 0) then ShowMessage('Background Colour must be 1 or 2. Defaulted to 1.');

If not (error = 0) then BG := 1;

RG := 1;

If not InputQuery('Random Gradient?', 'Yes(1) or No, use the current one(2)', RG) then Exit;

error := 1;            

If RG = 1 then error := 0;

If RG = 2 then error := 0;

If not (error = 0) then ShowMessage('Random Gradient must be 1 or 2. Defaulted to 1.');

If not (error = 0) then RG := 1;

    if RG = 1 then

      RandomFlame(0);

    Clear;

AddTransform

With Transform do

Begin

variation [0] := 0;

eyefish := 0.099;

bubble := 0.1;

pre_blur := 1;

julian := 0.007;

julian_power := 9;

julian_dist := 1.5;

wedge := 0.03;

wedge_angle := 1.5625;

wedge_hole := 0;

wedge_count := randomrange (3, 6);

wedge_swirl := 6;

transform.coefs[0,0] := -0.672338 //x0

transform.coefs[0,1] := 0.749244 //x1

transform.coefs[1,0] := -0.749244 //y0

transform.coefs[1,1] := -0.672338 //y1

transform.coefs[2,0] := -0.376992 //o0

transform.coefs[2,1] := -0.286956 //o1

color := random;

Weight := 0.5;

End

AddTransform

With Transform do

Begin

Transform.Variation[0] := 0;

spherical := -0.25;

swirl := 0.02;

bubble := 0.1;

pre_blur := 2;

wedge := 0.06;

wedge_angle := 2.5708;

wedge_hole := 0;

wedge_count := randomrange (3, 9);

wedge_swirl := 5;

transform.coefs[0,0] := -0.383024 //x0

transform.coefs[0,1] := -0.530396 //x1

transform.coefs[2,0] := 0.530396 //y0

transform.coefs[2,1] := -0.683024 //y1

transform.coefs[3,0] := 0.643977 //o0

transform.coefs[3,1] := 0.185739 //o1

color := random;

Weight := 0.05;

End;

AddTransform

With Transform do

Begin

Transform.Variation[0] := 0;

julia3D := 1 + random/15;

julia3D_power := -2;

transform.coefs[0,0] := 0.045931 //x0

transform.coefs[0,3] := -0.998945 //x1

transform.coefs[1,0] := 0.998945 //y0

transform.coefs[1,3] := 0.045931 //y1

transform.coefs[2,0] := 0.797277 //o0

transform.coefs[2,3] := -0.794721 //o1

color := random;

Weight := 0.5;

end;

AddTransform

With Transform do

Begin

Transform.Variation[0] := 0;

julia3D := 1 + random/30;

julia3D_power := 2;

transform.coefs[0,0] := 0.999542 //x0

transform.coefs[0,1] := -0.03026 //x1

transform.coefs[1,0] := 0.03026 //y0

transform.coefs[1,1] := 0.999542 //y1

transform.coefs[2,0] := -0.586717 //o0

transform.coefs[2,1] := 0.272914 //o1

color := random;

Weight := 0.5;

end;

AddTransform

With Transform do

Begin

Transform.Variation[0] := 0;

bubble := -0.061;

pre_blur := 3;

julia3D := 1 + random/45;

julia3D_power := 5;

ztranslate := 0.09;

transform.coefs[0,0] := 3.0 //x0

transform.coefs[0,1] := 0.0 //x1

transform.coefs[1,0] := -0.046679 //y0

transform.coefs[1,1] := 1.046679 //y1

transform.coefs[2,0] := -0.0 //o0

transform.coefs[2,1] := 0.0; //o1

color := random;

Weight := 0.1;

end;

AddTransform

With Transform do

Begin

Transform.Variation[0] := 01;

bubble := -0.041;

pre_blur := 2;

julia3D := 1 + random/75;

julia3D_power := 2;

ztranslate := 0.07;

transform.coefs[0,0] := 1.0 //x0

transform.coefs[0,1] := 0.0 //x1

transform.coefs[1,0] := -0.046679 //y0

transform.coefs[1,1] := 0.046679 //y1

transform.coefs[2,0] := -0.0 //o0

transform.coefs[2,1] := 0.0; //o1

color := random;

Weight := 0.1;

end;

Flame.gamma := 5;

Flame.brightness := 8;

Flame.x := 0;

Flame.y := 0.2;

Flame.pitch := (PI/180)*(RandomRange(100, 401)/10)

flame.yaw :=(PI/180)*(RandomRange(-3600, 3600)/10); //random 360 degrees

Flame.perspective := 0.15;

flame.scale := 20 + random/2;

//Set Transform Colours

For i := 0 to Transforms - 1 do

begin

   SetActiveTransform(i);

   Transform.Color := random;

end;

flame.gamma := 4

if BG = 1 then

  flame.brightness := 35

if BG = 2 then

  flame.brightness := 20

flame.x := 0;

flame.y := 0;

flame.scale := 9;

//Set Background Colour

if BG = 1 then

 Flame.Background[0] := 0;

if BG = 1 then

 Flame.Background[1] := 0;

if BG = 1 then

 Flame.Background[2] := 0;

if BG = 2 then

 Flame.Background[0] := 255;

if BG = 2 then

 Flame.Background[1] := 255;

if BG = 2 then

 Flame.Background[2] := 255;