//
// pbSpin 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);

  // 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

  CalculateBounds;