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

fixed wrong calc-function selection

Browse Source
This commit is contained in:
zueuk 2006-06-02 12:31:47 +00:00
parent fd6268da71
commit c1e02e3731
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
2.10/Source/varJuliaN.pas
View File

@ -66,10 +66,13 @@ end;
///////////////////////////////////////////////////////////////////////////////
procedure TVariationJulian.GetCalcFunction(var f: TCalcFunction);
begin
if cn = 1/4 then f := CalcPower2
else if cn = -1/4 then f := CalcPowerMinus2
else if cn = 1/2 then f := CalcPower1
else if cn = -1/2 then f := CalcPowerMinus1
if c = 1 then begin
if N = 2 then f := CalcPower2
else if N = -2 then f := CalcPowerMinus2
else if N = 1 then f := CalcPower1
else if N = -1 then f := CalcPowerMinus1
else f := CalcFunction;
end
else f := CalcFunction;
end;

11
2.10/Source/varJuliaScope.pas
View File

@ -67,10 +67,13 @@ end;
///////////////////////////////////////////////////////////////////////////////
procedure TVariationJuliaScope.GetCalcFunction(var f: TCalcFunction);
begin
if cn = 1/4 then f := CalcPower2
else if cn = -1/4 then f := CalcPowerMinus2
else if cn = 1/2 then f := CalcPower1
else if cn = -1/2 then f := CalcPowerMinus1
if c = 1 then begin
if N = 2 then f := CalcPower2
else if N = -2 then f := CalcPowerMinus2
else if N = 1 then f := CalcPower1
else if N = -1 then f := CalcPowerMinus1
else f := CalcFunction;
end
else f := CalcFunction;
end;