Update of /cvsroot/apophysis/2.10/Source
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv23196
Modified Files:
BaseVariation.pas varGenericPlugin.pas
Log Message:
added builtin variation counter
Index: BaseVariation.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/BaseVariation.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** BaseVariation.pas 28 Feb 2008 15:46:54 -0000 1.8
--- BaseVariation.pas 20 Apr 2009 07:42:36 -0000 1.9
***************
*** 40,43 ****
--- 40,45 ----
TVariationLoader = class
public
+ firstVariableIndex: integer;
+
function GetName: string; virtual; abstract;
function GetInstance: TBaseVariation; virtual; abstract;
***************
*** 96,100 ****
begin
if GetVariable(Name, value) then
! Result := Format('%.6g', [value])
else
Result := '';
--- 98,102 ----
begin
if GetVariable(Name, value) then
! Result := FloatToStr(value) //Format('%.6g', [value])
else
Result := '';
Index: varGenericPlugin.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/varGenericPlugin.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** varGenericPlugin.pas 11 Aug 2008 16:43:47 -0000 1.9
--- varGenericPlugin.pas 20 Apr 2009 07:42:36 -0000 1.10
***************
*** 231,235 ****
PluginData : TPluginData;
begin
! NumBuiltinVars := NRLOCVAR + GetNrRegisteredVariations;
// Try to find regular files matching *.dll in the plugins dir
if FindFirst('.\Plugins\*.dll', faAnyFile, searchResult) = 0 then
--- 231,236 ----
PluginData : TPluginData;
begin
! NumBuiltinVariations := NRLOCVAR + GetNrRegisteredVariations;
! NumBuiltinVariables := GetNrVariableNames;
// Try to find regular files matching *.dll in the plugins dir
if FindFirst('.\Plugins\*.dll', faAnyFile, searchResult) = 0 then
|