[Apophysis-cvs-commits] 2.10/Source ControlPoint.pas,1.14,1.15

[Ronald H. <ron...@us...>]

Update of /cvsroot/apophysis/2.10/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25748/Source

Modified Files:
	ControlPoint.pas 
Log Message:
check on new variants

Index: ControlPoint.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/Source/ControlPoint.pas,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** ControlPoint.pas	29 Sep 2005 14:11:29 -0000	1.14
--- ControlPoint.pas	2 Oct 2005 07:31:01 -0000	1.15
***************
*** 1687,1702 ****
  function TControlPoint.HasNewVariants: boolean;
  var
!   i: integer;
  begin
    Result := false;
  
!   for i:= 0 to NXFORMS -1 do begin
!     if (xform[i].vars[18] > 0) or
!        (xform[i].vars[19] > 0) or
!        (xform[i].vars[20] > 0) or
!        (xform[i].vars[21] > 0) then begin
!       Result := True;
!       Exit;
!     end;
    end;
  end;
--- 1687,1703 ----
  function TControlPoint.HasNewVariants: boolean;
  var
!   i,v: integer;
  begin
    Result := false;
  
!   for i:= 0 to NXFORMS - 1 do begin
!     if xform[i].density = 0 then
!       break;
! 
!     for v := 23 to NrVar - 1 do
!       result := Result or (xform[i].vars[v] > 0);
! 
!     if result then
!       break;
    end;
  end;
***************
*** 1842,1846 ****
      end;
    end;
-   Result := i;
  end;
  
--- 1843,1846 ----