Fixed Randomize gradient in batch bug

2005-06-23 18:21:44 +00:00
parent e94ae65746
commit 4bf05f3509
1 changed files with 2 additions and 1 deletions
--- a/2.10/Source/RndFlame.pas
+++ b/2.10/Source/RndFlame.pas
@ -280,7 +280,6 @@ var
  skip: boolean;
 begin
  Result := TControlPoint.Create;
-  RandomGradient(SourceCP, Result);

  Min := randMinTransforms;
  Max := randMaxTransforms;
@ -407,6 +406,8 @@ begin
      continue;
  until not Result.BlowsUP(5000) and (Result.xform[0].density <> 0);

+  RandomGradient(SourceCP, Result);
+
  Result.brightness := defBrightness;
  Result.gamma := defGamma;
  Result.vibrancy := defVibrancy;