- function TOctreeNode.NumPolysInNode(const Polygons :TTriangleData; StoreFoundInNode : Boolean): integer;
- var PolyCount,i,j,k : integer;
- begin
- PolyCount := 0;
- for i := 0 to high(Polygons) do
- if PolyInNode(Polygons[i]) then
- inc(PolyCount);
- if StoreFoundInNode then
- begin
- SetLength(Polys,PolyCount);
- PolyCount := 0;
- for i := 0 to high(Polygons) do
- if PolyInNode(Polygons[i]) then
- begin
- inc(PolyCount);
- Polys[PolyCount-1] := Polygons[i];
- end;
- end;
- result := PolyCount;
- end;