Fixed Randomize gradient in batch bug

This commit is contained in:
ronaldhordijk 2005-06-23 18:21:44 +00:00
parent e94ae65746
commit 4bf05f3509

View File

@ -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;