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

added several CalcFunctions for varJuliaN

Browse Source
This commit is contained in:
zueuk
2006-03-18 17:57:33 +00:00
parent 85bc00513e
commit a9aeab94ad
2 changed files with 201 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
2.10/Source/BaseVariation.pas
View File

@ -1,6 +1,10 @@
unit BaseVariation;
interface
type
TCalcFunction = procedure of object;
type
TBaseVariation = class
protected
@ -22,6 +26,7 @@ type
procedure Prepare; virtual;
procedure CalcFunction; virtual; abstract;
procedure GetCalcFunction(var Delphi_Suxx: TCalcFunction); virtual;
end;
TBaseVariationClass = class of TBaseVariation;
@ -61,4 +66,9 @@ begin
end;
///////////////////////////////////////////////////////////////////////////////
procedure TBaseVariation.GetCalcFunction(var Delphi_Suxx: TCalcFunction);
begin
Delphi_Suxx := CalcFunction;
end;
end.