diff --git a/2.10/Source/varJuliaN.pas b/2.10/Source/varJuliaN.pas index 292e7a9..454f6ea 100644 --- a/2.10/Source/varJuliaN.pas +++ b/2.10/Source/varJuliaN.pas @@ -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; diff --git a/2.10/Source/varJuliaScope.pas b/2.10/Source/varJuliaScope.pas index 1fe99cc..930872b 100644 --- a/2.10/Source/varJuliaScope.pas +++ b/2.10/Source/varJuliaScope.pas @@ -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;