mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed Randomize gradient in batch bug

Browse Source
This commit is contained in:
ronaldhordijk 2005-06-23 18:21:44 +00:00
parent e94ae65746
commit 4bf05f3509
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2.10/Source/RndFlame.pas
View File

@ -280,7 +280,6 @@ var
skip: boolean; skip: boolean;
begin begin
Result := TControlPoint.Create; Result := TControlPoint.Create;
RandomGradient(SourceCP, Result);
Min := randMinTransforms; Min := randMinTransforms;
Max := randMaxTransforms; Max := randMaxTransforms;
@ -407,6 +406,8 @@ begin
continue; continue;
until not Result.BlowsUP(5000) and (Result.xform[0].density <> 0); until not Result.BlowsUP(5000) and (Result.xform[0].density <> 0);
RandomGradient(SourceCP, Result);
Result.brightness := defBrightness; Result.brightness := defBrightness;
Result.gamma := defGamma; Result.gamma := defGamma;
Result.vibrancy := defVibrancy; Result.vibrancy := defVibrancy;