Resize On load

2005-07-23 09:07:12 +00:00
parent 50f0a5b954
commit cd9ed111dd
2 changed files with 9 additions and 7 deletions
--- a/2.10/Source/RndFlame.pas
+++ b/2.10/Source/RndFlame.pas
@ -279,7 +279,10 @@ var
  r, s, theta, phi: double;
  skip: boolean;
 begin
-  Result := TControlPoint.Create;
+  if Assigned(SourceCP) then
+    Result := SourceCP.clone
+  else
+    Result := TControlPoint.Create;

  Min := randMinTransforms;
  Max := randMaxTransforms;