Background will remain the same (depending on options)

2005-06-26 06:49:09 +00:00
parent b732ae3b0d
commit d6efa3a794
2 changed files with 20 additions and 7 deletions
--- a/2.10/Source/Main.pas
+++ b/2.10/Source/Main.pas
@ -661,10 +661,23 @@ var
  r, s, theta, phi: double;
  skip: boolean;
 *)
+var
+  sourceCP: TControlPoint;
 begin
-  cp1.Free;
-  cp1 := nil;
-  cp1 := RandomFlame(MainCP, alg);
+  if assigned(MainCP) then
+    sourceCP := MainCP.Clone
+  else
+    SourceCP := nil;
+
+  if assigned(cp1) then begin
+    cp1.Free;
+    cp1 := nil;
+  end;
+  cp1 := RandomFlame(sourceCP, alg);
+
+  if assigned(sourceCP) then
+    sourceCP.Free;
+
 (*
  Min := randMinTransforms;
  Max := randMaxTransforms;