//
// pbClone script for Apophysis
// (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 :)
//

X := 3;
Xy := 0;
Y := 3;
Yx := 0;
a := 0;
InputQuery('Script question', 'Main horizontal shift', X);
InputQuery('Script question', 'Additional horizontal shift', Xy);
InputQuery('Script question', 'Main vertical shift', Y);
InputQuery('Script question', 'Additional vertical shift', Yx);
InputQuery('Script question', 'Rotation angle', a);

// Delete old cloned flames
DeleteFile(INSTALLPATH + 'pbCloned.flame');
for j := 0 to FileCount - 1 do
begin
  LoadFlame(j);
  ShowStatus('Cloning ' + IntToStr(j + 1) + ' of ' + IntToSTr(FileCount));

  // ensure that we have 2 free transforms to use
  if Transforms > NXFORMS-2 then
  begin
    d := Transforms - NXFORMS + 2;
    for i := 0 to d-1 do
    begin
      SetActiveTransform(NXFORMS-1-i);
      DeleteTransform;
    end;
  end;
  SetActiveTransform(0);

  AddTransform;
  Transform.e := Transform.e + X;
  Transform.f := Transform.f + Xy;
  Rotate(a);
  Transform.Weight := Transform.Weight + 0.1;

  AddTransform;
  Transform.f := Transform.f - Y;
  Transform.e := Transform.e - Yx;
  Rotate(a);
  Transform.Weight := Transform.Weight + 0.1;
  Transform.Symmetry := -1;

  // Set colors and weights for each transform
  for i := 0 to Transforms - 1 do
  begin
    SetActiveTransform(i);
    Transform.Color := i/Transforms;
    Transform.Weight := 1/Transforms;
  end

  // Do some cleaning stuff
  Flame.Name := 'pbc-' + Flame.Name;
  CalculateBounds;
  ResetLocation := true;
  SaveFlame(INSTALLPATH + 'pbCloned.flame');
end;

// And voila! Here it is! Enjoy :)
ListFile(INSTALLPATH + 'pbCloned.flame');
UpdateFlame := False;