//
// pbSpiralized script for Apophysis
// (c)2004-2005 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 :)
//

// Transforms number limit
n := NXFORMS;
InputQuery('Script parameter question', 'Transforms number limit :', n);


DeleteFile(INSTALLPATH + 'pbSpiralized.flame');
for j := 0 to FileCount - 1 do
begin
  LoadFlame(j);
  ShowStatus('Spiralizing ' + IntToStr(j + 1) + ' of ' + IntToSTr(FileCount));

  i := 0;
  a := 10;
  s := 1;
  while Transforms < n do
  begin
    inc(i);
    AddTransform;
    Rotate(i * a);
    Scale(s);
    s := s * 0.8;
  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 + 'pbSpiralized.flame');
end;

ListFile(INSTALLPATH + 'pbSpiralized.flame');
UpdateFlame := False;