/*=========================================================================
 *
 *  Copyright UMC Utrecht and contributors
 *
 *  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
 *
 *        http://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 _itkErodeMaskImageFilter_hxx
#define _itkErodeMaskImageFilter_hxx

#include "itkErodeMaskImageFilter.h"
#include "itkParabolicErodeImageFilter.h"
// #include "itkThresholdImageFilter.h"

namespace itk
{

/**
 * ************* GenerateData *******************
 */

template <typename TImage>
void
ErodeMaskImageFilter<TImage>::GenerateData()
{
  /** Typedefs. */
  // typedef itk::ThresholdImageFilter<InputImageType> ThresholdFilterType;
  using ErodeFilterType = itk::ParabolicErodeImageFilter<InputImageType, OutputImageType>;
  using RadiusType = typename ErodeFilterType::RadiusType;
  using ScalarRealType = typename ErodeFilterType::ScalarRealType;

  /** Get the correct radius. */
  RadiusType     radiusarray;
  ScalarRealType radius = 0.0;
  ScalarRealType schedule = 0.0;
  for (unsigned int i = 0; i < InputImageDimension; ++i)
  {
    schedule = static_cast<ScalarRealType>(this->GetSchedule()[this->GetResolutionLevel()][i]);
    if (!this->GetIsMovingMask())
    {
      radius = schedule + 1.0;
    }
    else
    {
      radius = 2.0 * schedule + 1.0;
    }
    // Very specific computation for the parabolic erosion filter:
    radius = radius * radius / 2.0 + 1.0;

    radiusarray.SetElement(i, radius);
  }

  /** Threshold the data first. Every voxel with intensity >= 1 is used.
  // Not needed since IsInside of a mask checks for != 0.
  auto threshold = ThresholdFilterType::New();
  threshold->ThresholdAbove(  itk::NumericTraits<InputPixelType>::OneValue() );
  threshold->SetOutsideValue( itk::NumericTraits<InputPixelType>::OneValue() );
  threshold->SetInput( this->GetInput() ); */

  /** Create and run the erosion filter. */
  auto erosion = ErodeFilterType::New();
  erosion->SetUseImageSpacing(false);
  erosion->SetScale(radiusarray);
  // erosion->SetInput( threshold->GetOutput() );
  erosion->SetInput(this->GetInput());
  erosion->Update();

  /** Graft the output of the mini-pipeline back onto the filter's output.
   * this copies back the region ivars and meta-data.
   */
  this->GraftOutput(erosion->GetOutput());

} // end GenerateData()


} // end namespace itk

#endif
