//-----------------------------------------------
// Modified Plastic Batch Script
//-----------------------------------------------
// Remodified by Tom Hendriks (tomix) 2007.07.11
//    http://www.tomixart.com
//    tomix@tomixart.com
// Modified by Elizabeth Tomchek (etomchek) 2006.11.11
//    http://www.5thdimensionstudios.com
//    lizbeth5782apo@aol.com
// Original script by Trystian Hilton 2006.06.26
//    http://trystianity.deviantART.com
//    trystianity@gmail.com
//-----------------------------------------------

if CurrentFile = INSTALLPATH + 'apoBatch_plastic.flame' then exit;
DeleteFile(INSTALLPATH + 'apoBatch_plastic.flame');
for j := 0 to FileCount - 1 do
begin
  LoadFlame(j);
  ShowStatus('Processing ' + IntToStr(j + 1) + ' of ' + IntToSTr(FileCount));

  Clear;
  AddTransform;
  Transform.linear := 0;
  Transform.ex := 0.4;
  Transform.noise := 0.3;
  Transform.blur := 0.3;
  Scale(0.5 * random);
  Transform.Weight := 0.015;
  Transform.Color := 0;
  Transform.Symmetry := -0.8;

  AddTransform;
  Transform.linear :=0.9;
  Transform.spherical := 0.1;
  Scale(-0.025);
  Transform.Weight := 0.985;
  Transform.Color := 1;
  Transform.Symmetry := 0.8;
  Translate(random,random);
  Rotate(random);

//  AddTransform;
//  SetActiveTransform(transforms);
//  DeleteTransform;

  ResetLocation := True;
  CalculateBounds;
  UpdateFlame := True;
  Flame.Name := Flame.Name+'p';
  CalculateBounds;
  SaveFlame(INSTALLPATH + 'apoBatch_plastic.flame');
end;
ListFile(INSTALLPATH + 'apoBatch_plastic.flame');
UpdateFlame := False;