From 4bf05f35095805f336a86b28f91ef5ddf4e05bb6 Mon Sep 17 00:00:00 2001
From: ronaldhordijk <ronaldhordijk>
Date: Thu, 23 Jun 2005 18:21:44 +0000
Subject: [PATCH] Fixed Randomize gradient in batch bug

---
 2.10/Source/RndFlame.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/2.10/Source/RndFlame.pas b/2.10/Source/RndFlame.pas
index b2fe6a5..7111df8 100644
--- 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;