Sierpinski Carpet Batch Script by Caboclo
Open full image in new tab Members remain the original copyright holder in all their materials here at Renderosity. Use of any of their material inconsistent with the terms and conditions set forth is prohibited and is considered an infringement of the copyrights of the respective holders unless specially stated otherwise.
Description
COPY AND PASTE IN THE WINDOW SCRIPT:
{SierpinskiCarpet Script Batch- for Apophysis 2.05 or higher
by Mauricio Leonardi - Caboclo -
http://artefractal.vilabol.uol.com.br/sica.html
07/25/2007
}
begin
V_FILENAME := 'SierpinskiCarpet.flame';
V_SCRIPT_NAME := 'SierpinskiCarpet Maker';
V_BATCH := 1;
V_TOTAL := 1;
V_CLEAR := 1;
if V_BATCH = 1 then
begin
if FileExists(INSTALLPATH + V_FILENAME) then
begin
DeleteFile(INSTALLPATH + V_FILENAME);
end
V_TOTAL := Options.BatchSize;
end
for i := 1 to V_TOTAL do
begin
ShowStatus('Processing ' + IntToStr(i) + ' of ' + IntToStr(Options.BatchSize));
RandomFlame(0);
BatchIndex := BatchIndex + 1;
if V_CLEAR = 1 then
begin
clear;
addTransform;
end
Clear;
AddTransform;
AddTransform;
AddTransform;
AddTransform;
SetActiveTransform(0);
Scale(0.5);
Transform.Color := 0.5;
SetActiveTransform(1);
Translate(0.5, 0);
Scale(0.5)
SetActiveTransform(2);
Translate(0.5, -0.5);
Scale(0.5);
SetActiveTransform(3);
Translate(0,-0.5);
Scale(0.5);
for j := 0 to Transforms - 1 do
begin
SetActiveTransform(i);
Transform.Color := j / (Transforms - 1);
Transform.Weight := 1 / Transforms;
end
if V_BATCH = 1 then
begin
Flame.Name := ' SiCa-' + DateCode + '-' + IntToStr(BatchIndex);
CalculateBounds;
UpdateFlame := True;
Flame.x := 0.5;
Flame.y := -0.5;
Flame.scale := 20;
Flame.Zoom := 2;
SaveFlame(INSTALLPATH + V_FILENAME);
UpdateFlame := True;
end;
end
if V_BATCH = 1 then
begin
ListFile(INSTALLPATH + V_FILENAME);
UpdateFlame := True;
Flame.x := 0.5;
Flame.y := -0.5;
Flame.scale := 20;
Flame.Zoom := 2;
end
end
{End SierpinskiCarpet Script - for Apophysis 2.05 or higher
by Mauricio Leonardi - Caboclo - mauricioleonardi@hotmail.com
}
Comments (2)
Richardphotos
thanks very much for the script.an awesome collage
Gaiadriel
Beautiful collage. Makes me want to become a rug merchant :)