[Apophysis-cvs-commits] 2.10/Source XFormMan.pas,1.12,1.13

[Peter S. <zu...@us...>]

Update of /cvsroot/apophysis/2.10/Source
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv23800

Modified Files:
	XFormMan.pas 
Log Message:
added builtin variation counter

Index: XFormMan.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/XFormMan.pas,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** XFormMan.pas	28 Jul 2008 04:02:37 -0000	1.12
--- XFormMan.pas	20 Apr 2009 07:48:06 -0000	1.13
***************
*** 10,14 ****
  
  var
!   NumBuiltinVars: integer;
  
  function NrVar: integer;
--- 10,15 ----
  
  var
!   NumBuiltinVariations: integer;
!   NumBuiltinVariables: integer;
  
  function NrVar: integer;
***************
*** 93,101 ****
  var
    i: integer;
  begin
    VariationList.Add(Variation);
  
!   for i := 0 to Variation.GetNrVariables - 1 do
!     VariableNames.Add(Variation.GetVariableNameAt(i))
  end;
  
--- 94,110 ----
  var
    i: integer;
+   newvars: integer;
  begin
    VariationList.Add(Variation);
  
!   newvars := Variation.GetNrVariables;
!   if newvars > 0 then begin
!     Variation.firstVariableIndex := VariableNames.Count;
! 
!     for i := 0 to newvars-1 do
!       VariableNames.Add(Variation.GetVariableNameAt(i));
!   end
!   else
!     Variation.firstVariableIndex := -1;
  end;