Fixed Randomize gradient in batch bug
This commit is contained in:
parent
e94ae65746
commit
4bf05f3509
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user