{
  Rotate Post Transforms v.0.1
  Rotate every Post Transforms in a cretain number of steps.

  by Exper - exper.3drecursions.com

  v.0.1 4/05/2007

  Released under GPL License - http://www.gnu.org/copyleft/gpl.html
}

tmp := [ [0,0], [0,0], [0,0]];
tpost := 0;
frames := 50;

while not Stopped do
begin
 fstep := 360 /frames;
 for i := 0 to Transforms - 1 do
 begin
  SetActiveTransform(i);
  with Transform do
  begin
   tpost:=0;
   if(post[0,0]<>1) then tpost:=1;
   if(post[0,1]<>0) then tpost:=1;
   if(post[1,0]<>0) then tpost:=1;
   if(post[1,1]<>1) then tpost:=1;
   if(post[2,0]<>0) then tpost:=1;
   if(post[2,1]<>0) then tpost:=1;
  end;
  if(tpost=1) then
  begin
   for x:=0 to 2 do
   begin
    tmp[x,0] := transform.coefs[x,0];
    tmp[x,1] := transform.coefs[x,1];
   end;
   for x:=0 to 2 do
   begin
    transform.coefs[x,0] := transform.post[x,0];
    transform.coefs[x,1] := transform.post[x,1];
   end;
   Rotate(fstep);
   for x:=0 to 2 do
   begin
    transform.post[x,0] := transform.coefs[x,0];
    transform.post[x,1] := transform.coefs[x,1];
   end;
   for x:=0 to 2 do
   begin
    transform.coefs[x,0] := tmp[x,0];
    transform.coefs[x,1] := tmp[x,1];
   end;
  end;
 end;
 Preview;
end;