/*=========================================================================

  Program:   Visualization Toolkit
  Module:    vtkExtractSelectedFrustum.cxx

  Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen
  All rights reserved.
  See Copyright.txt or http://www.kitware.com/Copyright.htm for details.

     This software is distributed WITHOUT ANY WARRANTY; without even
     the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
     PURPOSE.  See the above copyright notice for more information.

=========================================================================*/

#include "vtkExtractSelectedFrustum.h"

#include "vtkCell.h"
#include "vtkCellArray.h"
#include "vtkCellData.h"
#include "vtkDoubleArray.h"
#include "vtkIdList.h"
#include "vtkImplicitFunction.h"
#include "vtkInformation.h"
#include "vtkInformationVector.h"
#include "vtkLine.h"
#include "vtkMath.h"
#include "vtkObjectFactory.h"
#include "vtkPlane.h"
#include "vtkPlanes.h"
#include "vtkPointData.h"
#include "vtkPoints.h"
#include "vtkSelection.h"
#include "vtkSelectionNode.h"
#include "vtkSignedCharArray.h"
#include "vtkTimerLog.h"
#include "vtkUnstructuredGrid.h"
#include "vtkVoxel.h"

VTK_ABI_NAMESPACE_BEGIN
vtkStandardNewMacro(vtkExtractSelectedFrustum);
vtkCxxSetObjectMacro(vtkExtractSelectedFrustum, Frustum, vtkPlanes);

// set to 4 to ignore the near and far planes which are almost always passed
#define MAXPLANE 6

//------------------------------------------------------------------------------
vtkExtractSelectedFrustum::vtkExtractSelectedFrustum(vtkPlanes* f)
{
  this->SetNumberOfInputPorts(2);

  this->ShowBounds = 0;

  this->FieldType = 0;
  this->ContainingCells = 0;
  this->InsideOut = 0;

  this->NumRejects = 0;
  this->NumIsects = 0;
  this->NumAccepts = 0;

  this->ClipPoints = vtkPoints::New();
  this->ClipPoints->SetNumberOfPoints(8);
  double verts[32] = // an inside out unit cube - which selects nothing
    { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0, 0.0, 0.0, 1.0, 0.0, 0.0, 0.0, 1.0, 1.0, 0.0, 1.0, 0.0, 0.0,
      0.0, 1.0, 0.0, 1.0, 0.0, 1.0, 1.0, 0.0, 0.0, 1.0, 1.0, 1.0, 0.0 };
  this->Frustum = f;
  if (this->Frustum)
  {
    this->Frustum->Register(this);
  }
  else
  {
    this->Frustum = vtkPlanes::New();
    this->CreateFrustum(verts);
  }
}

//------------------------------------------------------------------------------
vtkExtractSelectedFrustum::~vtkExtractSelectedFrustum()
{
  this->Frustum->Delete();
  this->ClipPoints->Delete();
}

//------------------------------------------------------------------------------
// Overload standard modified time function. If implicit function is modified,
// then this object is modified as well.
vtkMTimeType vtkExtractSelectedFrustum::GetMTime()
{
  vtkMTimeType mTime = this->MTime.GetMTime();
  vtkMTimeType impFuncMTime;

  if (this->Frustum != nullptr)
  {
    impFuncMTime = this->Frustum->GetMTime();
    mTime = (impFuncMTime > mTime ? impFuncMTime : mTime);
  }

  return mTime;
}

//------------------------------------------------------------------------------
void vtkExtractSelectedFrustum::CreateFrustum(double verts[32])
{
  // for debugging
  for (int i = 0; i < 8; i++)
  {
    this->ClipPoints->SetPoint(i, &verts[i * 4]);
  }
  this->ClipPoints->Modified();

  vtkPoints* points = vtkPoints::New();
  points->SetNumberOfPoints(6);

  vtkDoubleArray* norms = vtkDoubleArray::New();
  norms->SetNumberOfComponents(3);
  norms->SetNumberOfTuples(6);

  // left
  this->ComputePlane(0, &verts[0 * 4], &verts[2 * 4], &verts[3 * 4], points, norms);
  // right
  this->ComputePlane(1, &verts[7 * 4], &verts[6 * 4], &verts[4 * 4], points, norms);
  // bottom
  this->ComputePlane(2, &verts[5 * 4], &verts[4 * 4], &verts[0 * 4], points, norms);
  // top
  this->ComputePlane(3, &verts[2 * 4], &verts[6 * 4], &verts[7 * 4], points, norms);
  // near
  this->ComputePlane(4, &verts[6 * 4], &verts[2 * 4], &verts[0 * 4], points, norms);
  // far
  this->ComputePlane(5, &verts[1 * 4], &verts[3 * 4], &verts[7 * 4], points, norms);

  this->Frustum->SetPoints(points);
  this->Frustum->SetNormals(norms);
  points->Delete();
  norms->Delete();
}

//------------------------------------------------------------------------------
void vtkExtractSelectedFrustum::ComputePlane(
  int idx, double v0[3], double v1[3], double v2[3], vtkPoints* points, vtkDoubleArray* norms)
{
  points->SetPoint(idx, v0[0], v0[1], v0[2]);

  double e0[3];
  e0[0] = v1[0] - v0[0];
  e0[1] = v1[1] - v0[1];
  e0[2] = v1[2] - v0[2];

  double e1[3];
  e1[0] = v2[0] - v0[0];
  e1[1] = v2[1] - v0[1];
  e1[2] = v2[2] - v0[2];

  double n[3];
  vtkMath::Cross(e0, e1, n);
  vtkMath::Normalize(n);

  norms->SetTuple(idx, n);
}

//------------------------------------------------------------------------------
// needed because parent class sets output type to input type
// and we sometimes want to change it to make an UnstructuredGrid regardless of
// input type
int vtkExtractSelectedFrustum::RequestDataObject(
  vtkInformation* req, vtkInformationVector** inputVector, vtkInformationVector* outputVector)
{
  vtkInformation* inInfo = inputVector[0]->GetInformationObject(0);
  if (!inInfo)
  {
    return 0;
  }

  vtkDataSet* input = vtkDataSet::SafeDownCast(inInfo->Get(vtkDataObject::DATA_OBJECT()));
  if (input && this->ShowBounds)
  {
    vtkInformation* info = outputVector->GetInformationObject(0);
    vtkDataSet* output = vtkDataSet::GetData(info);
    if (!output || !output->IsA("vtkUnstructuredGrid"))
    {
      vtkUnstructuredGrid* newOutput = vtkUnstructuredGrid::New();
      info->Set(vtkDataObject::DATA_OBJECT(), newOutput);
      newOutput->Delete();
    }
  }

  return this->Superclass::RequestDataObject(req, inputVector, outputVector);
}

//------------------------------------------------------------------------------
int vtkExtractSelectedFrustum::RequestData(vtkInformation* vtkNotUsed(request),
  vtkInformationVector** inputVector, vtkInformationVector* outputVector)
{
  // If we have a vtkSelection on the second input, use its frustum.
  if (this->GetNumberOfInputConnections(1) == 1)
  {
    vtkInformation* selInfo = inputVector[1]->GetInformationObject(0);
    vtkSelection* sel = vtkSelection::SafeDownCast(selInfo->Get(vtkDataObject::DATA_OBJECT()));
    vtkSelectionNode* node = nullptr;
    if (sel->GetNumberOfNodes() == 1)
    {
      node = sel->GetNode(0);
    }
    if (node && node->GetContentType() == vtkSelectionNode::FRUSTUM)
    {
      vtkDoubleArray* corners = vtkArrayDownCast<vtkDoubleArray>(node->GetSelectionList());
      this->CreateFrustum(corners->GetPointer(0));
      if (node->GetProperties()->Has(vtkSelectionNode::INVERSE()))
      {
        this->SetInsideOut(node->GetProperties()->Get(vtkSelectionNode::INVERSE()));
      }
      if (node->GetProperties()->Has(vtkSelectionNode::FIELD_TYPE()))
      {
        this->SetFieldType(node->GetProperties()->Get(vtkSelectionNode::FIELD_TYPE()));
      }
      if (node->GetProperties()->Has(vtkSelectionNode::CONTAINING_CELLS()))
      {
        this->SetContainingCells(node->GetProperties()->Get(vtkSelectionNode::CONTAINING_CELLS()));
      }
    }
  }

  if (!this->Frustum)
  {
    // if we don't have a frustum, quietly select nothing
    return 1;
  }

  if (this->Frustum->GetNumberOfPlanes() != 6)
  {
    vtkErrorMacro(<< "Frustum must have six planes.");
    return 0;
  }

  // get the input and output
  vtkInformation* inInfo = inputVector[0]->GetInformationObject(0);
  vtkInformation* outInfo = outputVector->GetInformationObject(0);
  vtkDataSet* input = vtkDataSet::SafeDownCast(inInfo->Get(vtkDataObject::DATA_OBJECT()));

  vtkUnstructuredGrid* outputUG =
    vtkUnstructuredGrid::SafeDownCast(outInfo->Get(vtkDataObject::DATA_OBJECT()));

  if (this->ShowBounds && !this->PreserveTopology)
  {
    // for debugging, shows rough outline of the selection frustum
    // only valid if CreateFrustum was called
    outputUG->Allocate(1); // allocate storage for geometry/topology
    vtkLine* linesRays = vtkLine::New();
    linesRays->GetPointIds()->SetId(0, 0);
    linesRays->GetPointIds()->SetId(1, 1);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());
    linesRays->GetPointIds()->SetId(0, 2);
    linesRays->GetPointIds()->SetId(1, 3);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());
    linesRays->GetPointIds()->SetId(0, 4);
    linesRays->GetPointIds()->SetId(1, 5);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());
    linesRays->GetPointIds()->SetId(0, 6);
    linesRays->GetPointIds()->SetId(1, 7);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());

    linesRays->GetPointIds()->SetId(0, 0);
    linesRays->GetPointIds()->SetId(1, 2);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());

    linesRays->GetPointIds()->SetId(0, 2);
    linesRays->GetPointIds()->SetId(1, 6);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());
    linesRays->GetPointIds()->SetId(0, 6);
    linesRays->GetPointIds()->SetId(1, 4);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());
    linesRays->GetPointIds()->SetId(0, 4);
    linesRays->GetPointIds()->SetId(1, 0);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());

    linesRays->GetPointIds()->SetId(0, 1);
    linesRays->GetPointIds()->SetId(1, 3);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());

    linesRays->GetPointIds()->SetId(0, 3);
    linesRays->GetPointIds()->SetId(1, 7);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());
    linesRays->GetPointIds()->SetId(0, 7);
    linesRays->GetPointIds()->SetId(1, 5);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());
    linesRays->GetPointIds()->SetId(0, 5);
    linesRays->GetPointIds()->SetId(1, 1);
    outputUG->InsertNextCell(linesRays->GetCellType(), linesRays->GetPointIds());

    outputUG->SetPoints(this->ClipPoints);
    linesRays->Delete();
    return 1;
  }

  double bounds[6];
  vtkIdType i;
  double x[3];
  input->GetBounds(bounds);
  if (!this->OverallBoundsTest(bounds))
  {
    return 1;
  }

  vtkIdType ptId, numPts, newPointId;
  vtkIdType numCells, cellId, newCellId, numCellPts;
  vtkIdType* pointMap;
  vtkCell* cell;
  vtkIdList* cellPts;
  vtkIdList* newCellPts;
  int isect;

  vtkSignedCharArray* pointInArray = vtkSignedCharArray::New();
  vtkSignedCharArray* cellInArray = vtkSignedCharArray::New();
  vtkPoints* newPts = vtkPoints::New();

  /*
  int NUMCELLS = 0;
  int NUMPTS = 0;
  cerr << "{" << endl;
  vtkTimerLog *timer = vtkTimerLog::New();
  timer->StartTimer();
  */

  vtkDataSet* outputDS = vtkDataSet::SafeDownCast(outInfo->Get(vtkDataObject::DATA_OBJECT()));

  vtkPointData* pd = input->GetPointData();
  vtkCellData* cd = input->GetCellData();
  vtkPointData* outputPD = outputDS->GetPointData();
  vtkCellData* outputCD = outputDS->GetCellData();

  numPts = input->GetNumberOfPoints();
  numCells = input->GetNumberOfCells();
  pointMap = new vtkIdType[numPts]; // maps old point ids into new
  newCellPts = vtkIdList::New();
  newCellPts->Allocate(VTK_CELL_SIZE);

  vtkIdTypeArray* originalCellIds = nullptr;
  vtkIdTypeArray* originalPointIds = nullptr;

  signed char flag = this->InsideOut ? 1 : -1;

  if (this->PreserveTopology)
  {
    // the output is a copy of the input, with two new arrays defined
    outputDS->ShallowCopy(input);

    pointInArray->SetNumberOfComponents(1);
    pointInArray->SetNumberOfTuples(numPts);
    for (i = 0; i < numPts; i++)
    {
      pointInArray->SetValue(i, flag);
    }
    pointInArray->SetName("vtkInsidedness");
    outputPD->AddArray(pointInArray);
    outputPD->SetScalars(pointInArray);

    cellInArray->SetNumberOfComponents(1);
    cellInArray->SetNumberOfTuples(numCells);
    for (i = 0; i < numCells; i++)
    {
      cellInArray->SetValue(i, flag);
    }
    cellInArray->SetName("vtkInsidedness");
    outputCD->AddArray(cellInArray);
    outputCD->SetScalars(cellInArray);
  }
  else
  {
    // the output is a new unstructured grid
    outputUG->Allocate(numCells / 4); // allocate storage for geometry/topology
    newPts->Allocate(numPts / 4, numPts);
    outputPD->SetCopyGlobalIds(1);
    outputPD->CopyFieldOff("vtkOriginalPointIds");
    outputPD->CopyAllocate(pd);

    if ((this->FieldType == vtkSelectionNode::CELL) || this->PreserveTopology ||
      this->ContainingCells)
    {
      outputCD->SetCopyGlobalIds(1);
      outputCD->CopyFieldOff("vtkOriginalCellIds");
      outputCD->CopyAllocate(cd);

      originalCellIds = vtkIdTypeArray::New();
      originalCellIds->SetNumberOfComponents(1);
      originalCellIds->SetName("vtkOriginalCellIds");
      outputCD->AddArray(originalCellIds);
      originalCellIds->Delete();
    }

    originalPointIds = vtkIdTypeArray::New();
    originalPointIds->SetNumberOfComponents(1);
    originalPointIds->SetName("vtkOriginalPointIds");
    outputPD->AddArray(originalPointIds);
    originalPointIds->Delete();
  }

  flag = -flag;

  vtkIdType updateInterval;

  if (this->FieldType == vtkSelectionNode::CELL)
  {
    // cell based isect test, a cell is inside if any part of it is inside the
    // frustum, a point is inside if it belongs to an inside cell, or is not
    // in any cell but is inside the frustum

    updateInterval = numCells / 1000 + 1;

    // initialize all points to say not looked at
    for (ptId = 0; ptId < numPts; ptId++)
    {
      pointMap[ptId] = -1;
    }

    /*
    timer->StopTimer();
    cerr << "  PTINIT " << timer->GetElapsedTime() << endl;
    timer->StartTimer();
    */
    // Loop over all cells to see whether they are inside.
    for (cellId = 0; cellId < numCells; cellId++)
    {
      if (!(cellId % updateInterval)) // manage progress reports
      {
        this->UpdateProgress(static_cast<double>(cellId) / numCells);
        if (this->CheckAbort())
        {
          break;
        }
      }

      input->GetCellBounds(cellId, bounds);

      cell = input->GetCell(cellId);
      cellPts = cell->GetPointIds();
      numCellPts = cell->GetNumberOfPoints();
      newCellPts->Reset();

      isect = this->ABoxFrustumIsect(bounds, cell);
      if ((isect == 1 && flag == 1) || (isect == 0 && flag == -1))
      {
        /*
        NUMCELLS++;
        */

        // intersects, put all of the points inside
        for (i = 0; i < numCellPts; i++)
        {
          ptId = cellPts->GetId(i);
          newPointId = pointMap[ptId];
          if (newPointId < 0)
          {
            /*
            NUMPTS++;
            */

            input->GetPoint(ptId, x);
            if (this->PreserveTopology)
            {
              pointInArray->SetValue(ptId, flag);
              newPointId = ptId;
            }
            else
            {
              newPointId = newPts->InsertNextPoint(x);
              outputPD->CopyData(pd, ptId, newPointId);
              originalPointIds->InsertNextValue(ptId);
            }
            pointMap[ptId] = newPointId;
          }
          newCellPts->InsertId(i, newPointId);
        }

        if (this->PreserveTopology)
        {
          cellInArray->SetValue(cellId, flag);
        }
        else
        {
          // special handling for polyhedron cells
          if (vtkUnstructuredGrid::SafeDownCast(input) && cell->GetCellType() == VTK_POLYHEDRON)
          {
            newCellPts->Reset();
            vtkUnstructuredGrid::SafeDownCast(input)->GetFaceStream(cellId, newCellPts);
            vtkUnstructuredGrid::ConvertFaceStreamPointIds(newCellPts, pointMap);
          }
          newCellId = outputUG->InsertNextCell(cell->GetCellType(), newCellPts);
          outputCD->CopyData(cd, cellId, newCellId);
          originalCellIds->InsertNextValue(cellId);
        }
      }

      /*
        if (isect == -1) //complete reject, remember these points are outside
        {
        for (i=0; i < numCellPts; i++)
          {
          ptId = cellPts->GetId(i);
          pointMap[ptId] = -2;
          }
        }
      */
    } // for all cells

    /*
    timer->StopTimer();
    cerr << "  CLIN " << timer->GetElapsedTime() << endl;
    timer->StartTimer();
    cerr << "  AFTERCELL NUMPTS = " << NUMPTS << endl;
    */

    // there could be some points that are not used by any cell
    for (ptId = 0; ptId < numPts; ptId++)
    {
      if (pointMap[ptId] == -1) // point wasn't attached to a cell
      {
        input->GetPoint(ptId, x);
        if ((this->Frustum->EvaluateFunction(x) * flag) < 0.0)
        {
          /*
          NUMPTS++;
          */
          if (this->PreserveTopology)
          {
            pointInArray->SetValue(ptId, flag);
          }
          else
          {
            newPointId = newPts->InsertNextPoint(x);
            outputPD->CopyData(pd, ptId, newPointId);
            originalPointIds->InsertNextValue(ptId);
          }
        }
      }
    }
  }

  else // this->FieldType == vtkSelectionNode::POINT
  {
    // point based isect test

    updateInterval = numPts / 1000 + 1;

    // run through points and decide which ones are inside
    for (ptId = 0; ptId < numPts; ptId++)
    {

      if (!(ptId % updateInterval)) // manage progress reports
      {
        this->UpdateProgress(static_cast<double>(ptId) / numPts);
        if (this->CheckAbort())
        {
          break;
        }
      }

      input->GetPoint(ptId, x);
      pointMap[ptId] = -1;
      if ((this->Frustum->EvaluateFunction(x) * flag) < 0.0)
      {
        /*
        NUMPTS++;
        */
        if (this->PreserveTopology)
        {
          newPointId = ptId;
          pointInArray->SetValue(ptId, flag);
        }
        else
        {
          newPointId = newPts->InsertNextPoint(x);
          outputPD->CopyData(pd, ptId, newPointId);
          originalPointIds->InsertNextValue(ptId);
        }
        pointMap[ptId] = newPointId;
      }
    }

    /*
    timer->StopTimer();
    cerr << "  PTIN " << timer->GetElapsedTime() << endl;
    timer->StartTimer();
    */

    if (this->PreserveTopology)
    {
      // we have already created a copy of the input and marked points as
      // being in or not
      if (this->ContainingCells)
      {
        // mark the cells that have at least one point inside as being in
        for (cellId = 0; cellId < numCells; cellId++)
        {
          cell = input->GetCell(cellId);
          cellPts = cell->GetPointIds();
          numCellPts = cell->GetNumberOfPoints();
          for (i = 0; i < numCellPts; i++)
          {
            ptId = cellPts->GetId(i);
            newPointId = pointMap[ptId];
            if (newPointId >= 0)
            {
              cellInArray->SetValue(cellId, flag);
              break;
            }
          }
        }
      }
    }
    else
    {
      if (this->ContainingCells)
      {
        vtkIdType* pointMap2 = new vtkIdType[numPts]; // maps old point ids into new
        memcpy(pointMap2, pointMap, numPts * sizeof(vtkIdType));

        // run through cells and accept those with any point inside
        for (cellId = 0; cellId < numCells; cellId++)
        {
          cell = input->GetCell(cellId);
          cellPts = cell->GetPointIds();
          numCellPts = cell->GetNumberOfPoints();
          newCellPts->Reset();

          isect = 0;
          for (i = 0; i < numCellPts; i++)
          {
            ptId = cellPts->GetId(i);
            newPointId = pointMap[ptId];
            if (newPointId >= 0)
            {
              isect = 1;
              break; // this cell won't be inserted
            }
          }
          if (isect)
          {
            for (i = 0; i < numCellPts; i++)
            {
              ptId = cellPts->GetId(i);
              newPointId = pointMap[ptId];
              if (newPointId < 0)
              {
                // this vertex wasn't inside
                newPointId = pointMap2[ptId];
                if (newPointId < 0)
                {
                  // we haven't encountered it before, add it and remember
                  input->GetPoint(ptId, x);
                  newPointId = newPts->InsertNextPoint(x);
                  outputPD->CopyData(pd, ptId, newPointId);
                  originalPointIds->InsertNextValue(ptId);
                  pointMap2[ptId] = newPointId;
                }
              }
              newCellPts->InsertId(i, newPointId);
            }
            // special handling for polyhedron cells
            if (vtkUnstructuredGrid::SafeDownCast(input) && cell->GetCellType() == VTK_POLYHEDRON)
            {
              newCellPts->Reset();
              vtkUnstructuredGrid::SafeDownCast(input)->GetFaceStream(cellId, newCellPts);
              vtkUnstructuredGrid::ConvertFaceStreamPointIds(newCellPts, pointMap2);
            }
            newCellId = outputUG->InsertNextCell(cell->GetCellType(), newCellPts);
            outputCD->CopyData(cd, cellId, newCellId);
            originalCellIds->InsertNextValue(cellId);
          }
        }
        delete[] pointMap2;
      }
      else
      {
        // produce a new vtk_vertex cell for each accepted point
        for (ptId = 0; ptId < newPts->GetNumberOfPoints(); ptId++)
        {
          newCellPts->Reset();
          newCellPts->InsertId(0, ptId);
          outputUG->InsertNextCell(VTK_VERTEX, newCellPts);
        }
      }
    }
  }

  /*
  cerr << "  REJECTS " << this->NumRejects << " ";
  this->NumRejects = 0;
  cerr << "  ACCEPTS " << this->NumAccepts << " ";
  this->NumAccepts = 0;
  cerr << "  ISECTS " << this->NumIsects << endl;
  this->NumIsects = 0;
  cerr << "  @END NUMPTS = " << NUMPTS << endl;
  cerr << "  @END NUMCELLS = " << NUMCELLS << endl;
  timer->StopTimer();
  cerr << "  " << timer->GetElapsedTime() << endl;
  timer->Delete();
  cerr << "}" << endl;
  */

  // Update ourselves and release memory
  delete[] pointMap;
  newCellPts->Delete();
  pointInArray->Delete();
  cellInArray->Delete();

  if (!this->PreserveTopology)
  {
    outputUG->SetPoints(newPts);
  }
  newPts->Delete();
  outputDS->Squeeze();

  return 1;
}

//------------------------------------------------------------------------------
int vtkExtractSelectedFrustum::OverallBoundsTest(double* bounds)
{
  vtkIdType i;
  double x[3];

  // find the near and far vertices to each plane for quick in/out tests
  for (i = 0; i < MAXPLANE; i++)
  {
    this->Frustum->GetNormals()->GetTuple(i, x);
    int xside = (x[0] > 0) ? 1 : 0;
    int yside = (x[1] > 0) ? 1 : 0;
    int zside = (x[2] > 0) ? 1 : 0;
    this->np_vertids[i][0] = (1 - xside) * 4 + (1 - yside) * 2 + (1 - zside);
    this->np_vertids[i][1] = xside * 4 + yside * 2 + zside;
  }

  vtkVoxel* vox = vtkVoxel::New();
  vtkPoints* p = vox->GetPoints();
  p->SetPoint(0, bounds[0], bounds[2], bounds[4]);
  p->SetPoint(1, bounds[1], bounds[2], bounds[4]);
  p->SetPoint(2, bounds[0], bounds[3], bounds[4]);
  p->SetPoint(3, bounds[1], bounds[3], bounds[4]);
  p->SetPoint(4, bounds[0], bounds[2], bounds[5]);
  p->SetPoint(5, bounds[1], bounds[2], bounds[5]);
  p->SetPoint(6, bounds[0], bounds[3], bounds[5]);
  p->SetPoint(7, bounds[1], bounds[3], bounds[5]);

  int rc;
  rc = this->ABoxFrustumIsect(bounds, vox);
  vox->Delete();
  return (rc > 0);
}

//------------------------------------------------------------------------------
// Intersect the cell (with its associated bounds) with the clipping frustum.
// Return 1 if at least partially inside, 0 otherwise.
// Also return a distance to the near plane.
int vtkExtractSelectedFrustum::ABoxFrustumIsect(double* bounds, vtkCell* cell)
{
  if (bounds[0] > bounds[1] || bounds[2] > bounds[3] || bounds[4] > bounds[5])
  {
    return this->IsectDegenerateCell(cell);
  }

  // convert bounds to 8 vertices
  double verts[8][3];
  verts[0][0] = bounds[0];
  verts[0][1] = bounds[2];
  verts[0][2] = bounds[4];
  verts[1][0] = bounds[0];
  verts[1][1] = bounds[2];
  verts[1][2] = bounds[5];
  verts[2][0] = bounds[0];
  verts[2][1] = bounds[3];
  verts[2][2] = bounds[4];
  verts[3][0] = bounds[0];
  verts[3][1] = bounds[3];
  verts[3][2] = bounds[5];
  verts[4][0] = bounds[1];
  verts[4][1] = bounds[2];
  verts[4][2] = bounds[4];
  verts[5][0] = bounds[1];
  verts[5][1] = bounds[2];
  verts[5][2] = bounds[5];
  verts[6][0] = bounds[1];
  verts[6][1] = bounds[3];
  verts[6][2] = bounds[4];
  verts[7][0] = bounds[1];
  verts[7][1] = bounds[3];
  verts[7][2] = bounds[5];

  int intersect = 0;

  // reject if any plane rejects the entire bbox
  for (int pid = 0; pid < MAXPLANE; pid++)
  {
    vtkPlane* plane = this->Frustum->GetPlane(pid);
    double dist;
    int nvid;
    int pvid;
    nvid = this->np_vertids[pid][0];
    dist = plane->EvaluateFunction(verts[nvid]);
    if (dist > 0.0)
    {
      /*
      this->NumRejects++;
      */
      return 0;
    }
    pvid = this->np_vertids[pid][1];
    dist = plane->EvaluateFunction(verts[pvid]);
    if (dist > 0.0)
    {
      intersect = 1;
      break;
    }
  }

  // accept if entire bbox is inside all planes
  if (!intersect)
  {
    /*
    this->NumAccepts++;
    */
    return 1;
  }

  // otherwise we have to do clipping tests to decide if actually insects
  /*
  this->NumIsects++;
  */
  vtkCell* face;
  vtkCell* edge;
  vtkPoints* pts = nullptr;
  double* vertbuffer;
  int maxedges = 16;
  // be ready to resize if we hit a polygon with many vertices
  vertbuffer = new double[3 * maxedges * 3];
  double* vlist = &vertbuffer[0 * maxedges * 3];
  double* wvlist = &vertbuffer[1 * maxedges * 3];
  double* ovlist = &vertbuffer[2 * maxedges * 3];

  int nfaces = cell->GetNumberOfFaces();
  if (nfaces < 1)
  {
    // some 2D cells have no faces, only edges
    int nedges = cell->GetNumberOfEdges();
    if (nedges < 1)
    {
      // VTK_LINE and VTK_POLY_LINE have no "edges" -- the cells
      // themselves are edges.  We catch them here and assemble the
      // list of vertices by hand because the code below assumes that
      // GetNumberOfEdges()==0 means a degenerate cell containing only
      // points.
      if (cell->GetCellType() == VTK_LINE)
      {
        nedges = 2;
        vtkPoints* points = cell->GetPoints();
        points->GetPoint(0, &vlist[0 * 3]);
        points->GetPoint(1, &vlist[1 * 3]);
      }
      else if (cell->GetCellType() == VTK_POLY_LINE)
      {
        nedges = cell->GetPointIds()->GetNumberOfIds();
        vtkPoints* points = cell->GetPoints();
        if (nedges + 4 > maxedges)
        {
          delete[] vertbuffer;
          maxedges = (nedges + 4) * 2;
          vertbuffer = new double[3 * maxedges * 3];
          vlist = &vertbuffer[0 * maxedges * 3];
          wvlist = &vertbuffer[1 * maxedges * 3];
          ovlist = &vertbuffer[2 * maxedges * 3];
        }
        for (vtkIdType i = 0; i < cell->GetNumberOfPoints(); ++i)
        {
          points->GetPoint(i, &vlist[i * 3]);
        }
      }
      else
      {
        delete[] vertbuffer;
        return this->IsectDegenerateCell(cell);
      }
    }
    if (nedges + 4 > maxedges)
    {
      delete[] vertbuffer;
      maxedges = (nedges + 4) * 2;
      vertbuffer = new double[3 * maxedges * 3];
      vlist = &vertbuffer[0 * maxedges * 3];
      wvlist = &vertbuffer[1 * maxedges * 3];
      ovlist = &vertbuffer[2 * maxedges * 3];
    }
    edge = cell->GetEdge(0);
    if (edge)
    {
      pts = edge->GetPoints();
      pts->GetPoint(0, &vlist[0 * 3]);
      pts->GetPoint(1, &vlist[1 * 3]);
    }
    switch (cell->GetCellType())
    {
      case VTK_PIXEL:
      {
        edge = cell->GetEdge(2);
        pts = edge->GetPoints();
        pts->GetPoint(0, &vlist[3 * 3]);
        pts->GetPoint(1, &vlist[2 * 3]);
        break;
      }
      case VTK_QUAD:
      {
        edge = cell->GetEdge(2);
        pts = edge->GetPoints();
        pts->GetPoint(0, &vlist[2 * 3]);
        pts->GetPoint(1, &vlist[3 * 3]);
        break;
      }
      case VTK_TRIANGLE:
      {
        edge = cell->GetEdge(1);
        pts = edge->GetPoints();
        pts->GetPoint(1, &vlist[2 * 3]);
        break;
      }
      case VTK_LINE:
      case VTK_POLY_LINE:
      {
        break;
      }
      default:
      {
        for (int e = 1; e < nedges - 1; e++)
        {
          edge = cell->GetEdge(e);
          pts = edge->GetPoints();
          pts->GetPoint(1, &vlist[(e + 1) * 3]); // get second point of the edge
        }
        break;
      }
    }
    if (this->FrustumClipPolygon(nedges, vlist, wvlist, ovlist))
    {
      delete[] vertbuffer;
      return 1;
    }
  }
  else
  {

    // go around edges of each face and clip to planes
    // if nothing remains at the end, then we do not intersect and reject
    for (int f = 0; f < nfaces; f++)
    {
      face = cell->GetFace(f);

      int nedges = face->GetNumberOfEdges();
      if (nedges < 1)
      {
        if (this->IsectDegenerateCell(face))
        {
          delete[] vertbuffer;
          return 1;
        }
        continue;
      }
      if (nedges + 4 > maxedges)
      {
        delete[] vertbuffer;
        maxedges = (nedges + 4) * 2;
        vertbuffer = new double[3 * maxedges * 3];
        vlist = &vertbuffer[0 * maxedges * 3];
        wvlist = &vertbuffer[1 * maxedges * 3];
        ovlist = &vertbuffer[2 * maxedges * 3];
      }
      edge = face->GetEdge(0);
      pts = edge->GetPoints();
      pts->GetPoint(0, &vlist[0 * 3]);
      pts->GetPoint(1, &vlist[1 * 3]);
      switch (face->GetCellType())
      {
        case VTK_PIXEL:
          edge = face->GetEdge(2);
          pts = edge->GetPoints();
          pts->GetPoint(0, &vlist[3 * 3]);
          pts->GetPoint(1, &vlist[2 * 3]);
          break;
        case VTK_QUAD:
        {
          edge = face->GetEdge(2);
          pts = edge->GetPoints();
          pts->GetPoint(0, &vlist[2 * 3]);
          pts->GetPoint(1, &vlist[3 * 3]);
          break;
        }
        case VTK_TRIANGLE:
        {
          edge = face->GetEdge(1);
          pts = edge->GetPoints();
          pts->GetPoint(1, &vlist[2 * 3]);
          break;
        }
        case VTK_LINE:
        {
          break;
        }
        default:
        {
          for (int e = 1; e < nedges - 1; e++)
          {
            edge = cell->GetEdge(e);
            pts = edge->GetPoints();
            pts->GetPoint(1, &vlist[(e + 1) * 3]); // get second point of the edge
          }
          break;
        }
      }
      if (this->FrustumClipPolygon(nedges, vlist, wvlist, ovlist))
      {
        delete[] vertbuffer;
        return 1;
      }
    }
  }

  delete[] vertbuffer;
  return 0;
}

//------------------------------------------------------------------------------
// handle degenerate cells by testing each point, if any in, then in
int vtkExtractSelectedFrustum::IsectDegenerateCell(vtkCell* cell)
{
  vtkIdType npts = cell->GetNumberOfPoints();
  vtkPoints* pts = cell->GetPoints();
  double x[3];
  for (vtkIdType i = 0; i < npts; i++)
  {
    pts->GetPoint(i, x);
    if (this->Frustum->EvaluateFunction(x) < 0.0)
    {
      return 1;
    }
  }
  return 0;
}

//------------------------------------------------------------------------------
// clips the polygon against the frustum
// if there is no intersection, returns 0
// if there is an intersection, returns 1
// update ovlist to contain the resulting clipped vertices
int vtkExtractSelectedFrustum::FrustumClipPolygon(
  int nverts, double* ivlist, double* wvlist, double* ovlist)
{
  int nwverts = nverts;
  memcpy(wvlist, ivlist, nverts * sizeof(double) * 3);

  int noverts = 0;
  int pid;
  for (pid = 0; pid < MAXPLANE; pid++)
  {
    noverts = 0;
    this->PlaneClipPolygon(nwverts, wvlist, pid, noverts, ovlist);
    if (noverts == 0)
    {
      return 0;
    }
    memcpy(wvlist, ovlist, noverts * sizeof(double) * 3);
    nwverts = noverts;
  }

  return 1;
}

//------------------------------------------------------------------------------
// clips a polygon against the numbered plane, resulting vertices are stored
// in ovlist, noverts
void vtkExtractSelectedFrustum::PlaneClipPolygon(
  int nverts, double* ivlist, int pid, int& noverts, double* ovlist)
{
  int vid;
  // run around the polygon and clip to this edge
  for (vid = 0; vid < nverts - 1; vid++)
  {
    this->PlaneClipEdge(&ivlist[vid * 3], &ivlist[(vid + 1) * 3], pid, noverts, ovlist);
  }
  this->PlaneClipEdge(&ivlist[(nverts - 1) * 3], &ivlist[0 * 3], pid, noverts, ovlist);
}

//------------------------------------------------------------------------------
// clips a line segment against the numbered plane.
// intersection point and the second vertex are added to overts if on or inside
void vtkExtractSelectedFrustum::PlaneClipEdge(
  double* V0, double* V1, int pid, int& noverts, double* overts)
{
  double t = 0.0;
  double ISECT[3];
  int rc = vtkPlane::IntersectWithLine(V0, V1, this->Frustum->GetNormals()->GetTuple(pid),
    this->Frustum->GetPoints()->GetPoint(pid), t, ISECT);

  if (rc)
  {
    overts[noverts * 3 + 0] = ISECT[0];
    overts[noverts * 3 + 1] = ISECT[1];
    overts[noverts * 3 + 2] = ISECT[2];
    noverts++;
  }

  vtkPlane* plane = this->Frustum->GetPlane(pid);

  if (plane->EvaluateFunction(V1) < 0.0)
  {
    overts[noverts * 3 + 0] = V1[0];
    overts[noverts * 3 + 1] = V1[1];
    overts[noverts * 3 + 2] = V1[2];
    noverts++;
  }
}

//------------------------------------------------------------------------------
void vtkExtractSelectedFrustum::PrintSelf(ostream& os, vtkIndent indent)
{
  this->Superclass::PrintSelf(os, indent);

  os << indent << "Frustum: " << static_cast<void*>(this->Frustum) << "\n";

  os << indent << "ClipPoints: " << this->ClipPoints << "\n";

  os << indent << "FieldType: " << (this->FieldType ? "On\n" : "Off\n");

  os << indent << "ContainingCells: " << (this->ContainingCells ? "On\n" : "Off\n");

  os << indent << "ShowBounds: " << (this->ShowBounds ? "On\n" : "Off\n");

  os << indent << "InsideOut: " << (this->InsideOut ? "On\n" : "Off\n");
}
VTK_ABI_NAMESPACE_END
