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

check on new variants

Browse Source
This commit is contained in:
ronaldhordijk 2005-10-02 07:31:01 +00:00
parent 18cd8123b0
commit 9fd05b7c31
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
2.10/Source/ControlPoint.pas
View File

@ -1686,18 +1686,19 @@ end;
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
function TControlPoint.HasNewVariants: boolean; function TControlPoint.HasNewVariants: boolean;
var var
i: integer; i,v: integer;
begin begin
Result := false; Result := false;
for i:= 0 to NXFORMS -1 do begin for i:= 0 to NXFORMS - 1 do begin
if (xform[i].vars[18] > 0) or if xform[i].density = 0 then
(xform[i].vars[19] > 0) or break;
(xform[i].vars[20] > 0) or
(xform[i].vars[21] > 0) then begin for v := 23 to NrVar - 1 do
Result := True; result := Result or (xform[i].vars[v] > 0);
Exit;
end; if result then
break;
end; end;
end; end;
@ -1841,7 +1842,6 @@ begin
Break; Break;
end; end;
end; end;
Result := i;
end; end;
function TControlPoint.TrianglesFromCP(var Triangles: TTriangles): integer; function TControlPoint.TrianglesFromCP(var Triangles: TTriangles): integer;