//
// pbKaleidoscope 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 :)
//

  if Transforms > NXFORMS-4 then
  begin
    d := Transforms - NXFORMS + 4;
    for i := 0 to d-1 do
    begin
      SetActiveTransform(NXFORMS-1-i);
      DeleteTransform;
    end;
  end;
  SetActiveTransform(0);

  t := random * 5;

  AddSymmetry(-1);
  Translate(t, 0);

  AddSymmetry(-1);
  Rotate(180);
  Translate(0, -t);

  AddSymmetry(0);
  Rotate(180);
  Translate(t, -t);

  ResetLocation := True;

  for i := 0 to Transforms - 1 do
  begin
    SetActiveTransform(i);
    Transform.Color := i / (Transforms - 1);
  end

  CalculateBounds;