/*=========================================================================
 *
 *  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.
 *
 *=========================================================================*/
#include "itkBinShrinkImageFilter.h"
#include "itkPhysicalPointImageSource.h"
#include "itkVectorImage.h"
#include "itkImageRegionConstIterator.h"

namespace
{

// This function checks that all values in an image are equivalent to
// the physical point of the image.
template <typename TImageType>
bool
CheckValueIsPhysicalPoint(const TImageType * img)
{

  using IteratorType = itk::ImageRegionConstIterator<TImageType>;
  IteratorType it(img, img->GetBufferedRegion());

  bool match = true;

  typename TImageType::PointType pt;
  img->TransformIndexToPhysicalPoint(it.GetIndex(), pt);
  while (!it.IsAtEnd())
  {
    for (unsigned int i = 0; i < TImageType::ImageDimension; ++i)
    {
      img->TransformIndexToPhysicalPoint(it.GetIndex(), pt);
      if (!itk::Math::FloatAlmostEqual(pt[i], it.Get()[i]))
      {
        typename TImageType::PointType::VectorType diff;
        for (unsigned int j = 0; j < TImageType::ImageDimension; ++j)
        {
          diff[j] = pt[j] - it.Get()[j];
        }

        std::cout << "Index: " << it.GetIndex() << " Point: " << pt << " Value: " << it.Get() << " Difference:" << diff
                  << std::endl;
        match = false;
      }
    }

    ++it;
  }
  return match;
}

} // namespace

int
itkBinShrinkImageFilterTest2(int, char *[])
{

  constexpr unsigned int ImageDimension = 2;

  using PixelType = itk::Vector<double, ImageDimension>;
  using ImageType = itk::Image<PixelType, ImageDimension>;

  using SourceType = itk::PhysicalPointImageSource<ImageType>;
  auto source = SourceType::New();

  SourceType::SizeValueType size[] = { 512, 509 };
  source->SetSize(size);

  float origin[] = { 1.1f, 2.22f };
  source->SetOrigin(origin);

  unsigned int factors[] = { 1, 1 };
  bool         pass = true;

  for (unsigned int xf = 1; xf < 5; ++xf)
  {
    factors[0] = xf;
    for (unsigned int yf = 1; yf < 5; ++yf)
    {
      factors[1] = yf;

      std::cout << "Testing with shrink factors:" << xf << ' ' << yf << std::endl;

      using FilterType = itk::BinShrinkImageFilter<ImageType, ImageType>;
      auto shrink = FilterType::New();

      shrink->SetInput(source->GetOutput());

      std::cout << "Testing with shrink factors:" << xf << ' ' << yf << std::endl;
      shrink->SetShrinkFactors(factors);
      shrink->UpdateLargestPossibleRegion();
      if (!CheckValueIsPhysicalPoint(shrink->GetOutput()))
      {
        pass = false;
        std::cout << "== Failed with shrink factors " << factors[0] << ' ' << factors[1] << " == " << std::endl;
      }
    }
  }

  if (pass)
  {
    return EXIT_SUCCESS;
  }
  else
  {
    return EXIT_FAILURE;
  }
}
