Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
76 lines (67 sloc) 1.45 KB
// 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;
You can’t perform that action at this time.