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

unpacking the selected varants is now done here

Browse Source
This commit is contained in:
ronaldhordijk 2005-06-01 07:20:37 +00:00
parent e3939a0237
commit 66381de71b
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
2.10/Source/Regstry.pas
View File

@ -26,7 +26,17 @@ procedure SaveSettings;
implementation implementation
uses Windows, SysUtils, Forms, Registry, Global, Dialogs; uses Windows, SysUtils, Forms, Registry, Global, Dialogs, XForm;
procedure UnpackVariations(v: integer);
{ Unpacks the variation options form an integer }
var
i: integer;
begin
for i := 0 to NVARS - 1 do
Variations[i] := boolean(v shr i and 1);
end;
procedure ReadSettings; procedure ReadSettings;
var var
@ -265,6 +275,8 @@ begin
begin begin
VariationOptions := 262143; VariationOptions := 262143;
end; end;
UnpackVariations(VariationOptions);
if Registry.ValueExists('MinNodes') then if Registry.ValueExists('MinNodes') then
begin begin
MinNodes := Registry.ReadInteger('MinNodes'); MinNodes := Registry.ReadInteger('MinNodes');
@ -504,6 +516,7 @@ begin
SymmetryType := 0; SymmetryType := 0;
SymmetryOrder := 4; SymmetryOrder := 4;
VariationOptions := 262143; VariationOptions := 262143;
UnpackVariations(VariationOptions);
MinNodes := 2; MinNodes := 2;
MaxNodes := 10; MaxNodes := 10;
MinHue := 0; MinHue := 0;