pbSpin script for Apophysis (spiral fractal maker!) 

// (c)2004 by Piotr Borys
// utak3r (at) o2 (dot) pl
//
// Feel free to use it for your own.
// If you will make some modifications,
// or some very cool stuff with it,
// don't hesitate dropping me a note :)
DeleteFile(INSTALLPATH + 'pbSpinned.flame');
for j := 0 to FileCount - 1 do
begin
LoadFlame(j);
ShowStatus('Spinning ' + IntToStr(j + 1) + ' of ' + IntToSTr(FileCount));
// transormations count
n := NXFORMS;
// rotation angle variable
a := 2;
// scale variable
s := 0.95;
// translate variable
t := 0.5;
// weight variable
w := 1;
// iteration variable
i := 0;
// OK, here we go...
// first, existing triangles...
for i := 0 to Transforms - 1 do
begin
SetActiveTransform(i);
Transform.Weight := w;
w := w - 0.05;
Scale(s);
s := s - 0.05;
Rotate(i * a);
a := a * 1.5;
end;
// then we can add some more triangles
while Transforms < n do
begin
inc(i);
AddTransform;
s := s - 0.05;
Scale(s);
Rotate(i * a);
a := a * 1.5;
Transform.Weight := w;
w := w * 0.5;
end;
for i := 0 to Transforms - 1 do
begin
SetActiveTransform(i);
Transform.Color := i / (Transforms - 1);
end
Flame.Name := 'pbs-' + Flame.Name;
CalculateBounds;
SaveFlame(INSTALLPATH + 'pbSpinned.flame');
end;
ListFile(INSTALLPATH + 'pbSpinned.flame');
UpdateFlame := False;