Parameterized variations

2005-09-11 10:30:54 +00:00
parent 41a160f51c
commit ab49c4053a
19 changed files with 1007 additions and 302 deletions
--- a/2.10/Source/XFormMan.pas
+++ b/2.10/Source/XFormMan.pas
@ -0,0 +1,115 @@
+unit XFormMan;
+
+interface
+
+uses
+  BaseVariation;
+
+const
+  NRLOCVAR = 27;
+
+function NrVar: integer;
+function Varnames(const index: integer): String;
+procedure RegisterVariation(Variation: TBaseVariationClass);
+function GetNrRegisteredVariations: integer;
+function GetRegisteredVariation(const Index: integer): TBaseVariationClass;
+function GetNrVariableNames: integer;
+function GetVariableNameAt(const Index: integer): string;
+
+implementation
+
+uses
+  Classes;
+
+var
+  VariationList: TList;
+  VariableNames: TStringlist;
+
+///////////////////////////////////////////////////////////////////////////////
+function NrVar: integer;
+begin
+  Result := NRLOCVAR + VariationList.Count;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+function Varnames(const index: integer): String;
+const
+  cvarnames: array[0..NRLOCVAR-1] of string = (
+    'linear',
+    'sinusoidal',
+    'spherical',
+    'swirl',
+    'horseshoe',
+    'polar',
+    'handkerchief',
+    'heart',
+    'disc',
+    'spiral',
+    'hyperbolic',
+    'diamond',
+    'ex',
+    'julia',
+    'bent',
+    'waves',
+    'fisheye',
+    'popcorn',
+    'exponential',
+    'power',
+    'cosine',
+    'rings',
+    'fan',
+    'triblob',
+    'daisy',
+    'checkers',
+    'crot'
+    );
+begin
+  if Index < NRLOCVAR then
+    Result := cvarnames[Index]
+  else
+    Result := TBaseVariationClass(VariationList[Index - NRLOCVAR]).GetName;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+procedure RegisterVariation(Variation: TBaseVariationClass);
+var
+  i: integer;
+begin
+  VariationList.Add(Variation);
+
+  for i := 0 to Variation.GetNrVariables - 1 do
+    VariableNames.Add(Variation.GetVariableNameAt(i))
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+function GetNrRegisteredVariations: integer;
+begin
+  Result := VariationList.count;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+function GetRegisteredVariation(const Index: integer): TBaseVariationClass;
+begin
+  Result := TBaseVariationClass(VariationList[Index]);
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+function GetNrVariableNames: integer;
+begin
+  Result := VariableNames.Count;
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+function GetVariableNameAt(const Index: integer): string;
+begin
+  Result := VariableNames[Index];
+end;
+
+///////////////////////////////////////////////////////////////////////////////
+initialization
+  VariationList := TList.Create;
+  VariableNames := TStringlist.create;
+finalization
+  VariableNames.Free;
+  VariationList.Free;
+end.