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

final preparations for the 2.03c

Browse Source
This commit is contained in:
zueuk
2006-01-06 16:29:02 +00:00
parent e3d705bd3d
commit 3325cac7de
7 changed files with 45 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
2.10/Source/Main.pas
View File

@ -2115,7 +2115,7 @@ function TMainForm.UPRString(cp1: TControlPoint; Entry: string): string;
{ Returns a string containing an Ultra Fractal parameter set for copying
or saving to file }
var
IterDensity, m, j: integer;
IterDensity, m, i, j: integer;
scale, a, b, c, d, e, f, p: double;
GradStrings, Strings: TStringList;
rept, cby, smap, sol: string;
@ -4054,7 +4054,7 @@ begin
if TagName = 'color' then
begin
// diable generating pallete
if Parsecp.cmapindex = -2 then
//if Parsecp.cmapindex = -2 then
Parsecp.cmapindex := -1;
i := StrToInt(Attributes.value('index'));
@ -4067,6 +4067,7 @@ begin
if TagName = 'colors' then
begin
ParseCompactcolors(Parsecp, StrToInt(Attributes.value('count')), Attributes.value('data'));
Parsecp.cmapindex := -1;
end;
if TagName = 'symmetry' then
begin