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

Parameterized variations

Browse Source
This commit is contained in:
ronaldhordijk
2005-09-11 10:30:54 +00:00
parent 41a160f51c
commit ab49c4053a
19 changed files with 1007 additions and 302 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
2.10/Source/RndFlame.pas
View File

@ -28,7 +28,7 @@ function RandomFlame(SourceCP: TControlPoint= nil; algorithm: integer = 0): TCon
implementation
uses
SysUtils, Global, cmap, MyTypes, GradientHlpr, XForm;
SysUtils, Global, cmap, MyTypes, GradientHlpr, XFormMan;
///////////////////////////////////////////////////////////////////////////////
procedure RandomGradient(SourceCP, DestCP: TControlPoint);
@ -86,7 +86,7 @@ begin
RandSeed := MainSeed;
VarPossible := false;
for j := 0 to NRVISVAR - 1 do begin
for j := 0 to NRVAR - 1 do begin
VarPossible := VarPossible or Variations[j];
end;
@ -96,11 +96,11 @@ begin
if VarPossible then begin
repeat
a := random(NRVISVAR);
a := random(NRVAR);
until Variations[a];
repeat
b := random(NRVISVAR);
b := random(NRVAR);
until Variations[b];
end else begin
a := 0;