//
// pbSpin2 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', 'Number of additional transforms :', n);
// rotation angle
a := 10;
InputQuery('Script parameter question', 'Rotation angle :', a);

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


  // the half number of additional transforms
  x := (n-Transforms)/2;

  for i := Transforms to Transforms+x-1 do
  begin
    AddTransform;
    Transform.a := Transform.a/2;
    Transform.d := Transform.d/2;
    Rotate(a*i);
  end;

  for i := Transforms to Transforms+x-1 do
  begin
    AddTransform;
    Transform.a := -Transform.a/2;
    Transform.d := -Transform.d/2;
    Rotate(-a*i);
  end;

  Flame.Name := 'pbs-' + Flame.Name;
  CalculateBounds;
  ResetLocation := true;
  SaveFlame(INSTALLPATH + 'pbSpinned.flame');
end;

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