Генерирование Bounding Volume для Frustrum culling

var
  Bounds: array[0..7] of TVertex;

procedure TZObject.UpdateBounds;
var
  minX, maxX: single;
  minY, maxY: single;
  minZ, maxZ: single;
  i: integer;

begin
  if (FNumPoints > 0) then
  begin
    minX := FPoints[0].X;
    minY := FPoints[0].Y;
    minZ := FPoints[0].Z;
    maxX := minX;
    maxY := minY;
    maxZ := minZ;

    for i := 1 to (FNumPoints - 1) do
    begin
      with FPoints[i] do
      begin
        minX := Minf(X, minX);
        maxX := Maxf(X, maxX);
        minY := Minf(Y, minY);
        maxY := Maxf(Y, maxY);
        minZ := Minf(Z, minZ);
        maxZ := Maxf(Z, maxZ);
      end;
    end;//for

    //Размеры объекта
    FSize.SX := Abs(MaxX - minX);
    FSize.SY := Abs(MaxY - minY);
    FSize.SZ := Abs(MaxZ - minZ);

    //Прямоугольник описывающий объект
    Bounds[0] := Vec3(minX, minY, minZ);
    Bounds[1] := Vec3(minX, maxY, minZ);
    Bounds[2] := Vec3(maxX, maxY, minZ);
    Bounds[3] := Vec3(maxX, minY, minZ);
    Bounds[4] := Vec3(minX, minY, maxZ);
    Bounds[5] := Vec3(minX, maxY, maxZ);
    Bounds[6] := Vec3(maxX, maxY, maxZ);
    Bounds[7] := Vec3(maxX, minY, maxZ);

    //Выравниваем базовую точку в центр объекта
    FPos^.X := minX + (FSize.SX * 0.5);
    FPos^.Y := minY + (FSize.SY * 0.5);
    FPos^.Z := minZ + (FSize.SZ * 0.5);
  end
  else
  begin
    FSize.SX := 0.0;
    FSize.SY := 0.0;
    FSize.SZ := 0.0;

    FPos^ := Zero;
  end;
end;