#include <iomanip>
#include <itkCommand.h>
#include <itkImage.h>
#include <itkImageFileReader.h>
#include <itkImageFileWriter.h>
#include <itkBinaryThresholdImageFilter.h>

#include <fpa/Image/MoriRegionGrow.h>

// -------------------------------------------------------------------------
static const unsigned int VDim = 3;
typedef short                                             TPixel;
typedef itk::Image< TPixel, VDim >                        TImage;
typedef itk::ImageFileReader< TImage >                    TReader;
typedef itk::ImageFileWriter< TImage >                    TWriter;
typedef fpa::Image::MoriRegionGrow< TImage, TImage >      TFilter;
typedef itk::BinaryThresholdImageFilter< TImage, TImage > TThreshold;

// -------------------------------------------------------------------------
class ShowProgressObject
{
public:
  ShowProgressObject( itk::ProcessObject* o )
    {
      this->m_Process = o;
    }
  void ShowProgress( )
    {
      std::cerr
        << "\rProgress " << std::fixed << std::setprecision( 2 )
        << ( this->m_Process->GetProgress( ) * 100 )
        << " %" << std::flush;
    }
  itk::ProcessObject::Pointer m_Process;
};

// -------------------------------------------------------------------------
int main( int argc, char* argv[] )
{
  // Get arguments
  if( argc < 7 + VDim )
  {
    std::cerr
      << "Usage: " << argv[ 0 ]
      << " input_image output_image auxiliary_image lower upper delta";
    for( unsigned int i = 0; i < VDim; ++i )
      std::cerr << " s_" << i;
    std::cerr << std::endl;
    return( 1 );

  } // fi
  std::string input_image_filename = argv[ 1 ];
  std::string output_image_filename = argv[ 2 ];
  std::string auxiliary_image_filename = argv[ 3 ];
  TPixel lower = std::atof( argv[ 4 ] );
  TPixel upper = std::atof( argv[ 5 ] );
  TPixel delta = std::atof( argv[ 6 ] );

  TReader::Pointer reader = TReader::New( );
  reader->SetFileName( input_image_filename );

  TFilter::Pointer filter = TFilter::New( );
  filter->SetInput( reader->GetOutput( ) );
  filter->SetThresholdRange( lower, upper, delta );
  TImage::IndexType seed;
  for( int i = 0; i < VDim; ++i )
    seed[ i ] = std::atoi( argv[ i + 7 ] );
  filter->AddSeed( seed );

  // to test ProgressReporter
  ShowProgressObject progressWatch( filter );
  typedef itk::SimpleMemberCommand< ShowProgressObject > CommandType;
  CommandType::Pointer command = CommandType::New();
  command->SetCallbackFunction( &progressWatch,
                                &ShowProgressObject::ShowProgress );
  filter->AddObserver( itk::ProgressEvent( ), command );
  filter->Update( );

  TThreshold::Pointer threshold = TThreshold::New( );
  threshold->SetInput( filter->GetOutput( ) );
  threshold->SetInsideValue( 255 );
  threshold->SetOutsideValue( 0 );
  threshold->SetLowerThreshold( 0 );
  threshold->SetUpperThreshold( filter->GetOptimumThreshold( ) );
  
  TWriter::Pointer writer = TWriter::New( );
  writer->SetInput( threshold->GetOutput( ) );
  writer->SetFileName( output_image_filename );

  TWriter::Pointer aux_writer = TWriter::New( );
  aux_writer->SetInput( filter->GetOutput( ) );
  aux_writer->SetFileName( auxiliary_image_filename );
  try
  {
    writer->Update( );
    aux_writer->Update( );
  }
  catch( std::exception& err )
  {
    std::cerr << "ERROR: " << err.what( ) << std::endl;
    return( 1 );

  } // yrt

  // Show data
  TFilter::TCurve curve = filter->GetCurve( );
  for( TFilter::TCurveData data: curve )
  {
    std::cout << data.XValue << " " << data.YValue << " " << data.Diff1 << std::endl;
  }
  std::cerr
    << std::endl
    << "# Opt: "
    << curve[ filter->GetOptimumThreshold( ) ].XValue
    << "("
    << filter->GetOptimumThreshold( )
    << ")"
    << std::endl;
  return( 0 );
}

// eof - $RCSfile$