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); procedure TVariationJulian.GetCalcFunction(var f: TCalcFunction);
begin begin
if cn = 1/4 then f := CalcPower2 if c = 1 then begin
else if cn = -1/4 then f := CalcPowerMinus2 if N = 2 then f := CalcPower2
else if cn = 1/2 then f := CalcPower1 else if N = -2 then f := CalcPowerMinus2
else if cn = -1/2 then f := CalcPowerMinus1 else if N = 1 then f := CalcPower1
else if N = -1 then f := CalcPowerMinus1
else f := CalcFunction;
end
else f := CalcFunction; else f := CalcFunction;
end; end;

11
2.10/Source/varJuliaScope.pas
View File

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