/*=========================================================================
 *
 *  Copyright NumFOCUS
 *
 *  Licensed under the Apache License, Version 2.0 (the "License");
 *  you may not use this file except in compliance with the License.
 *  You may obtain a copy of the License at
 *
 *         https://www.apache.org/licenses/LICENSE-2.0.txt
 *
 *  Unless required by applicable law or agreed to in writing, software
 *  distributed under the License is distributed on an "AS IS" BASIS,
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 *  See the License for the specific language governing permissions and
 *  limitations under the License.
 *
 *=========================================================================*/
#ifndef itkExtensionVelocitiesImageFilter_hxx
#define itkExtensionVelocitiesImageFilter_hxx

#include "itkImageRegionIterator.h"
#include "itkIndex.h"

namespace itk
{
/**
 *
 */
template <typename TLevelSet, typename TAuxValue, unsigned int VAuxDimension>
ExtensionVelocitiesImageFilter<TLevelSet, TAuxValue, VAuxDimension>::ExtensionVelocitiesImageFilter()
{
  m_Locator = LocatorType::New();
  m_Marcher = FastMarchingImageFilterType::New();

  this->ProcessObject::SetNumberOfRequiredInputs(VAuxDimension + 1);
  this->ProcessObject::SetNumberOfRequiredOutputs(VAuxDimension + 1);

  for (unsigned int k = 0; k < VAuxDimension; ++k)
  {
    AuxImagePointer ptr;
    ptr = AuxImageType::New();
    this->ProcessObject::SetNthOutput(k + 1, ptr.GetPointer());
  }
}

/**
 *
 */
template <typename TLevelSet, typename TAuxValue, unsigned int VAuxDimension>
void
ExtensionVelocitiesImageFilter<TLevelSet, TAuxValue, VAuxDimension>::SetInputVelocityImage(const AuxImageType * ptr,
                                                                                           unsigned int         idx)
{
  if (idx >= VAuxDimension)
  {
    return;
  }

  this->ProcessObject::SetNthInput(idx + 1, const_cast<AuxImageType *>(ptr));
}

/**
 *
 */
template <typename TLevelSet, typename TAuxValue, unsigned int VAuxDimension>
auto
ExtensionVelocitiesImageFilter<TLevelSet, TAuxValue, VAuxDimension>::GetInputVelocityImage(unsigned int idx)
  -> const AuxImageType *
{
  if (idx >= VAuxDimension || this->GetNumberOfIndexedInputs() < idx + 2)
  {
    return nullptr;
  }

  return dynamic_cast<AuxImageType *>(this->ProcessObject::GetInput(idx + 1));
}

/**
 *
 */
template <typename TLevelSet, typename TAuxValue, unsigned int VAuxDimension>
auto
ExtensionVelocitiesImageFilter<TLevelSet, TAuxValue, VAuxDimension>::GetOutputVelocityImage(unsigned int idx)
  -> AuxImageType *
{
  if (idx >= VAuxDimension || this->GetNumberOfIndexedOutputs() < idx + 2)
  {
    return nullptr;
  }

  return itkDynamicCastInDebugMode<AuxImageType *>(this->ProcessObject::GetOutput(idx + 1));
}

/**
 *
 */
template <typename TLevelSet, typename TAuxValue, unsigned int VAuxDimension>
void
ExtensionVelocitiesImageFilter<TLevelSet, TAuxValue, VAuxDimension>::EnlargeOutputRequestedRegion(
  DataObject * itkNotUsed(output))
{
  // This filter requires all of the output images in the buffer.
  for (unsigned int j = 0; j < this->GetNumberOfIndexedOutputs(); ++j)
  {
    if (this->ProcessObject::GetOutput(j))
    {
      this->ProcessObject::GetOutput(j)->SetRequestedRegionToLargestPossibleRegion();
    }
  }
}

/**
 *
 */
template <typename TLevelSet, typename TAuxValue, unsigned int VAuxDimension>
void
ExtensionVelocitiesImageFilter<TLevelSet, TAuxValue, VAuxDimension>::AllocateOutput()
{
  this->Superclass::AllocateOutput();

  // allocate memory for the output images
  for (unsigned int k = 0; k < VAuxDimension; ++k)
  {
    AuxImagePointer output = this->GetOutputVelocityImage(k);
    output->SetBufferedRegion(output->GetRequestedRegion());
    output->Allocate();
  }

  // set the marcher output size
  LevelSetPointer outputPtr = this->GetOutput();
  m_Marcher->SetOutputSize(outputPtr->GetRequestedRegion().GetSize());
}

/**
 *
 */
template <typename TLevelSet, typename TAuxValue, unsigned int VAuxDimension>
void
ExtensionVelocitiesImageFilter<TLevelSet, TAuxValue, VAuxDimension>::GenerateDataFull()
{
  LevelSetConstPointer inputPtr = this->GetInput();
  LevelSetPointer      outputPtr = this->GetOutput();
  LevelSetPointer      tempLevelSet = m_Marcher->GetOutput();

  double levelSetValue = this->GetLevelSetValue();

  // define iterators
  using LocalLevelSetImageType = typename LevelSetType::LevelSetImageType;
  using IteratorType = ImageRegionIterator<LocalLevelSetImageType>;
  using ConstIteratorType = ImageRegionConstIterator<LocalLevelSetImageType>;

  ConstIteratorType inputIt(inputPtr, inputPtr->GetBufferedRegion());
  IteratorType      outputIt(outputPtr, outputPtr->GetBufferedRegion());

  IteratorType tempIt;

  using AuxIteratorType = ImageRegionIterator<AuxImageType>;

  AuxIteratorType auxTempIt[VAuxDimension];
  AuxIteratorType auxOutputIt[VAuxDimension];

  for (unsigned int k = 0; k < VAuxDimension; ++k)
  {
    AuxImagePointer ptr = this->GetOutputVelocityImage(k);
    auxOutputIt[k] = AuxIteratorType(ptr, ptr->GetBufferedRegion());
  }

  this->UpdateProgress(0.0);

  // locate the level set
  m_Locator->SetInputLevelSet(inputPtr);
  for (unsigned int k = 0; k < VAuxDimension; ++k)
  {
    m_Locator->SetAuxImage(this->GetInputVelocityImage(k), k);
  }
  m_Locator->SetLevelSetValue(levelSetValue);
  m_Locator->Locate();

  this->UpdateProgress(0.33);

  // march outward
  m_Marcher->SetTrialPoints(m_Locator->GetOutsidePoints());
  m_Marcher->SetAuxiliaryTrialValues(m_Locator->GetModifiableAuxOutsideValues());
  m_Marcher->Update();

  tempIt = IteratorType(tempLevelSet, tempLevelSet->GetBufferedRegion());

  for (unsigned int k = 0; k < VAuxDimension; ++k)
  {
    AuxImagePointer ptr;
    ptr = m_Marcher->GetAuxiliaryImage(k);
    auxTempIt[k] = AuxIteratorType(ptr, ptr->GetBufferedRegion());
  }

  double value;

  inputIt.GoToBegin();
  outputIt.GoToBegin();
  tempIt.GoToBegin();
  for (unsigned int k = 0; k < VAuxDimension; ++k)
  {
    auxOutputIt[k].GoToBegin();
    auxTempIt[k].GoToBegin();
  }

  while (!inputIt.IsAtEnd())
  {
    value = static_cast<double>(inputIt.Get());
    if (value - levelSetValue > 0)
    {
      outputIt.Set(tempIt.Get());

      for (unsigned int k = 0; k < VAuxDimension; ++k)
      {
        auxOutputIt[k].Set(auxTempIt[k].Get());
      }
    }

    ++inputIt;
    ++outputIt;
    ++tempIt;
    for (unsigned int k = 0; k < VAuxDimension; ++k)
    {
      ++(auxTempIt[k]);
      ++(auxOutputIt[k]);
    }
  }

  this->UpdateProgress(0.66);

  // march inward
  m_Marcher->SetTrialPoints(m_Locator->GetInsidePoints());
  m_Marcher->SetAuxiliaryTrialValues(m_Locator->GetModifiableAuxInsideValues());
  m_Marcher->Update();

  inputIt.GoToBegin();
  outputIt.GoToBegin();
  tempIt.GoToBegin();
  for (unsigned int k = 0; k < VAuxDimension; ++k)
  {
    auxOutputIt[k].GoToBegin();
    auxTempIt[k].GoToBegin();
  }

  while (!inputIt.IsAtEnd())
  {
    value = static_cast<double>(inputIt.Get());
    if (value - levelSetValue <= 0)
    {
      value = static_cast<double>(tempIt.Get());
      outputIt.Set(-1.0 * value);

      for (unsigned int k = 0; k < VAuxDimension; ++k)
      {
        auxOutputIt[k].Set(auxTempIt[k].Get());
      }
    }

    ++inputIt;
    ++outputIt;
    ++tempIt;
    for (unsigned int k = 0; k < VAuxDimension; ++k)
    {
      ++(auxTempIt[k]);
      ++(auxOutputIt[k]);
    }
  }
}

/**
 *
 */
template <typename TLevelSet, typename TAuxValue, unsigned int VAuxDimension>
void
ExtensionVelocitiesImageFilter<TLevelSet, TAuxValue, VAuxDimension>::GenerateDataNarrowBand()
{
  LevelSetConstPointer inputPtr = this->GetInput();
  LevelSetPointer      outputPtr = this->GetOutput();
  LevelSetPointer      tempLevelSet = m_Marcher->GetOutput();

  double levelSetValue = this->GetLevelSetValue();
  double outputBandwidth = this->GetOutputNarrowBandwidth();
  double inputBandwidth = this->GetInputNarrowBandwidth();

  // define iterators
  using LocalLevelSetImageType = typename LevelSetType::LevelSetImageType;
  using IteratorType = ImageRegionIterator<LocalLevelSetImageType>;
  using ConstIteratorType = ImageRegionConstIterator<LocalLevelSetImageType>;

  ConstIteratorType inputIt(inputPtr, inputPtr->GetBufferedRegion());

  IteratorType outputIt(outputPtr, outputPtr->GetBufferedRegion());

  PixelType posInfinity;
  PixelType negInfinity;

  posInfinity = NumericTraits<PixelType>::max();
  negInfinity = NumericTraits<PixelType>::NonpositiveMin();

  // set all internal pixels to minus infinity and
  // all external pixels to positive infinity
  double value;

  inputIt.GoToBegin();
  outputIt.GoToBegin();

  while (!inputIt.IsAtEnd())
  {
    value = static_cast<double>(inputIt.Get());
    if (value - levelSetValue <= 0)
    {
      outputIt.Set(negInfinity);
    }
    else
    {
      outputIt.Set(posInfinity);
    }

    ++inputIt;
    ++outputIt;
  }

  // set all auxiliary images to zero
  TAuxValue zeroPixel;
  zeroPixel = 0.0;

  using AuxIteratorType = ImageRegionIterator<AuxImageType>;

  AuxIteratorType auxOutputIt[VAuxDimension];

  for (unsigned int k = 0; k < VAuxDimension; ++k)
  {
    AuxImagePointer ptr = this->GetOutputVelocityImage(k);
    auxOutputIt[k] = AuxIteratorType(ptr, ptr->GetBufferedRegion());
    auxOutputIt[k].GoToBegin();
  }
  while (!auxOutputIt[0].IsAtEnd())
  {
    for (unsigned int k = 0; k < VAuxDimension; ++k)
    {
      auxOutputIt[k].Set(zeroPixel);
      ++(auxOutputIt[k]);
    }
  }

  AuxImagePointer tempAuxImage[VAuxDimension];
  AuxImagePointer outputAuxImage[VAuxDimension];
  for (unsigned int k = 0; k < VAuxDimension; ++k)
  {
    tempAuxImage[k] = m_Marcher->GetAuxiliaryImage(k);
    outputAuxImage[k] = this->GetOutputVelocityImage(k);
  }

  // create a new output narrowband container
  NodeContainerPointer outputNB = NodeContainer::New();
  this->SetOutputNarrowBand(outputNB);

  this->UpdateProgress(0.0);

  // locate the level set
  m_Locator->SetInputLevelSet(inputPtr);
  for (unsigned int k = 0; k < VAuxDimension; ++k)
  {
    m_Locator->SetAuxImage(this->GetInputVelocityImage(k), k);
  }
  m_Locator->SetLevelSetValue(levelSetValue);

  if (this->GetNarrowBanding() && this->GetInputNarrowBand())
  {
    m_Locator->NarrowBandingOn();
    m_Locator->SetNarrowBandwidth(inputBandwidth);
    m_Locator->SetInputNarrowBand(this->GetInputNarrowBand());
  }
  else
  {
    m_Locator->NarrowBandingOff();
  }

  m_Locator->Locate();

  this->UpdateProgress(0.33);

  // march outward
  double stoppingValue = (outputBandwidth / 2.0) + 2.0;
  m_Marcher->SetStoppingValue(stoppingValue);
  m_Marcher->CollectPointsOn();
  m_Marcher->SetTrialPoints(m_Locator->GetOutsidePoints());
  m_Marcher->SetAuxiliaryTrialValues(m_Locator->GetModifiableAuxOutsideValues());
  m_Marcher->Update();

  NodeContainerPointer procPoints = m_Marcher->GetProcessedPoints();

  typename NodeContainer::ConstIterator pointsIt;
  typename NodeContainer::ConstIterator pointsEnd;

  pointsIt = procPoints->Begin();
  pointsEnd = procPoints->End();

  NodeType  node;
  PixelType inPixel;

  for (; pointsIt != pointsEnd; ++pointsIt)
  {
    node = pointsIt.Value();
    inPixel = inputPtr->GetPixel(node.GetIndex());

    value = static_cast<double>(inPixel);
    if (value - levelSetValue > 0)
    {
      inPixel = tempLevelSet->GetPixel(node.GetIndex());
      outputPtr->SetPixel(node.GetIndex(), inPixel);
      outputNB->InsertElement(outputNB->Size(), node);

      for (unsigned int k = 0; k < VAuxDimension; ++k)
      {
        outputAuxImage[k]->SetPixel(node.GetIndex(), tempAuxImage[k]->GetPixel(node.GetIndex()));
      }
    }
  }

  this->UpdateProgress(0.66);

  // march inward
  m_Marcher->SetTrialPoints(m_Locator->GetInsidePoints());
  m_Marcher->SetAuxiliaryTrialValues(m_Locator->GetModifiableAuxInsideValues());
  m_Marcher->Update();

  procPoints = m_Marcher->GetProcessedPoints();
  pointsIt = procPoints->Begin();
  pointsEnd = procPoints->End();

  for (; pointsIt != pointsEnd; ++pointsIt)
  {
    node = pointsIt.Value();
    inPixel = inputPtr->GetPixel(node.GetIndex());

    value = static_cast<double>(inPixel);
    if (value - levelSetValue <= 0)
    {
      inPixel = tempLevelSet->GetPixel(node.GetIndex());
      value = static_cast<double>(inPixel);
      inPixel = -1.0 * value;
      outputPtr->SetPixel(node.GetIndex(), inPixel);
      node.SetValue(node.GetValue() * -1.0);
      outputNB->InsertElement(outputNB->Size(), node);

      for (unsigned int k = 0; k < VAuxDimension; ++k)
      {
        outputAuxImage[k]->SetPixel(node.GetIndex(), tempAuxImage[k]->GetPixel(node.GetIndex()));
      }
    }
  }
}
} // namespace itk

#endif
