{
  Scale Post Transforms v.0.1
  Scale 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;
scalevalue := 1.1;

while not Stopped do
begin
 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;
   Scale(scalevalue);
   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;