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

 medInria

 Copyright (c) INRIA 2013 - 2018. All rights reserved.
 See LICENSE.txt for details.
 
  This software is distributed WITHOUT ANY WARRANTY; without even
  the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  PURPOSE.

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

#include <iostream>

#include <itkCommand.h>
#include <itkDCMTKImageIO.h>
#include <itkImageFileReader.h>
#include <itkImageFileWriter.h>

#include <vtkViewImage2D.h>
#include <vtkViewImage3D.h>
#include <vtkRenderer.h>
#include <vtkRenderWindow.h>
#include <vtkRenderWindowInteractor.h>
#include <vtkImageReslice.h>
#include <vtkImageMapToWindowLevelColors.h>
#include <vtkImageMapToColors.h>
#include <vtkImageActor.h>
#include <vtkCallbackCommand.h>

#include <time.h>

namespace itk
{

    class SliceReadCommand : public Command
    {
        
    public:
        typedef SliceReadCommand               Self;
        typedef Command                        Superclass;
        typedef itk::SmartPointer<Self>        Pointer;
        typedef itk::SmartPointer<const Self>  ConstPointer;

        itkTypeMacro( SliceReadCommand, Command );
        itkNewMacro(Self);
        
        typedef itk::Image< short, 3> ImageType;
        
        void Execute(Object *caller, const EventObject &event);
        void Execute(const Object *caller, const EventObject &event);
        
        itkSetObjectMacro (Image, ImageType);
        itkGetObjectMacro (Image, ImageType);

        void SetView (vtkViewImage2D* view)
        { m_View = view; }
    
    protected:
        SliceReadCommand(){ this->ImageNotSet = 1; };
        virtual ~SliceReadCommand(){};

    private:
        ImageType::Pointer m_Image;
        vtkViewImage2D*    m_View;
        int ImageNotSet;
    
    };


    void SliceReadCommand::Execute (Object *caller, const EventObject &event)
    {
        DCMTKImageIO *po = dynamic_cast<DCMTKImageIO *>(caller);
        if (! po) return;
     
        if( typeid(event) == typeid ( itk::SliceReadEvent )  )
        {
	  std::cout << "Slice read" << std::endl;
            //qDebug() << "Slice read";
            if( this->ImageNotSet ){
                m_View->SetITKImage ( m_Image );
                m_View->ResetCurrentPoint();
                m_View->ResetZoom();
                m_View->SetWindow (2320);
                m_View->SetLevel (1138);
                this->ImageNotSet = 0;
            }
            //m_View->GetImageReslice()->Modified();
            m_View->GetWindowLevel()->Modified();
            m_View->GetRenderWindow()->InvokeEvent ( m_View->GetRenderWindow()->GetEventPending() );
            m_View->GetRenderWindowInteractor()->Render();
       
            //qDebug() << "Rendered!";
        }
    }


    void SliceReadCommand::Execute (const Object *caller, const EventObject &event)
    {
        DCMTKImageIO *po = dynamic_cast<DCMTKImageIO *>(const_cast<Object *>(caller) );
        if (! po) return;
     
        if( typeid(event) == typeid ( SliceReadEvent  )  )
        {
            //qDebug() << "Slice read";
            if( this->ImageNotSet ){
                m_View->SetITKImage ( m_Image );
                m_View->ResetCurrentPoint();
                m_View->ResetZoom();
                m_View->SetWindow (2320);
                m_View->SetLevel (1138);
                this->ImageNotSet = 0;
            }
            m_View->GetWindowLevel()->Modified();
            m_View->GetRenderWindow()->InvokeEvent ( m_View->GetRenderWindow()->GetEventPending() );
            m_View->GetRenderWindow()->Render();
  
        }
    }
  
}


/*
typedef itk::Image<short, 3>   ImageType;
typedef itk::ImageFileReader<ImageType> ImageReaderType;
static ImageReaderType::Pointer reader    = 0;
static int                      readImage = 0;
*/



int itkDCMTKReaderTest(int narg, char* arg[])
{

    if( narg<2 )
    {
        std::cerr << "Usage: " << arg[0] << " dicom1 dicom2 ...\n";
        return -1;
    }
  
    std::vector<std::string> fileNames;
    for( int i=1; i<narg; i++){
        std::cout << "Inserting: " << arg[i] << std::endl;
        fileNames.push_back ( arg[i] );
    }
  
  
    itk::DCMTKImageIO::Pointer io = itk::DCMTKImageIO::New();
    io->SetFileNames ( fileNames );
    /*
      typedef itk::Image<unsigned short, 3> ImageType;
      typedef itk::ImageFileReader<ImageType> ImageReaderType;
    */
    /*ImageReaderType::Pointer */

    try
    {
      io->ReadImageInformation();
    }
    catch (itk::ExceptionObject &e)
    {
      std::cerr << e;
      return -1;
    }





    vtkViewImage2D* view = vtkViewImage2D::New();
    vtkRenderWindowInteractor* iren = vtkRenderWindowInteractor::New();
    vtkRenderWindow* rwin = vtkRenderWindow::New();
    vtkRenderer* renderer = vtkRenderer::New();
    iren->SetRenderWindow (rwin);
    rwin->AddRenderer (renderer);
    view->SetRenderWindow ( rwin );
    view->SetRenderer ( renderer );
    view->SetBackgroundColor (0.0, 0.0, 0.0);
    view->Show2DAxisOff();
    view->CursorFollowMouseOn();
    view->SetInterpolationMode(0);

    view->SetLeftButtonInteractionStyle   (vtkViewImage2D::ZOOM_INTERACTION);
    view->SetMiddleButtonInteractionStyle (vtkViewImage2D::SELECT_INTERACTION);
    view->SetWheelInteractionStyle        (vtkViewImage2D::SELECT_INTERACTION);
    view->SetRightButtonInteractionStyle  (vtkViewImage2D::WINDOW_LEVEL_INTERACTION);





    
    switch (io->GetComponentType())
    {
	case itk::ImageIOBase::CHAR:
	  {
	    typedef itk::Image<char, 3> ImageType;
	    itk::ImageFileReader<ImageType>::Pointer reader = itk::ImageFileReader<ImageType>::New();
	    reader->SetImageIO ( io );
	    reader->SetFileName ( arg[1] );
	    try
	    {
	      reader->Update();
	    }
	    catch (itk::ExceptionObject &e)
	    {
	      std::cerr <<e;
	      view->Delete();
	      iren->Delete();
	      renderer->Delete();
	      rwin->Delete();
	      return -1;
	    }
	    ImageType::Pointer image = reader->GetOutput();
	    //image->DisconnectPipeline();
	    view->SetITKImage ( image );
	    std::cout << image << std::endl;
	    break;
	  }

	  case itk::ImageIOBase::UCHAR:
	  {
	    typedef itk::Image<unsigned char, 3> ImageType;
	    itk::ImageFileReader<ImageType>::Pointer reader = itk::ImageFileReader<ImageType>::New();
	    reader->SetImageIO ( io );
	    reader->SetFileName ( arg[1] );
	    try
	    {
	      reader->Update();
	    }
	    catch (itk::ExceptionObject &e)
	    {
	      std::cerr <<e;
	      view->Delete();
	      iren->Delete();
	      renderer->Delete();
	      rwin->Delete();
	      return -1;
	    }
	    ImageType::Pointer image = reader->GetOutput();
	    //image->DisconnectPipeline();
	    view->SetITKImage ( image );
	    std::cout << image << std::endl;
	    break;
	  }

	case itk::ImageIOBase::SHORT:
	  {
	    typedef itk::Image<short, 3> ImageType;
	    itk::ImageFileReader<ImageType>::Pointer reader = itk::ImageFileReader<ImageType>::New();
	    reader->SetImageIO ( io );
	    reader->SetFileName ( arg[1] );
	    try
	    {
	      reader->Update();
	    }
	    catch (itk::ExceptionObject &e)
	    {
	      std::cerr <<e;
	      view->Delete();
	      iren->Delete();
	      renderer->Delete();
	      rwin->Delete();
	      return -1;
	    }
	    ImageType::Pointer image = reader->GetOutput();
	    //image->DisconnectPipeline();
	    view->SetITKImage ( image );
	    std::cout << image << std::endl;
	    break;
	  }

	  case itk::ImageIOBase::USHORT:
	  {
	    typedef itk::Image<unsigned short, 3> ImageType;
	    itk::ImageFileReader<ImageType>::Pointer reader = itk::ImageFileReader<ImageType>::New();
	    reader->SetImageIO ( io );
	    reader->SetFileName ( arg[1] );
	    try
	    {
	      reader->Update();
	    }
	    catch (itk::ExceptionObject &e)
	    {
	      std::cerr <<e;
	      view->Delete();
	      iren->Delete();
	      renderer->Delete();
	      rwin->Delete();
	      return -1;
	    }
	    ImageType::Pointer image = reader->GetOutput();
	    //image->DisconnectPipeline();
	    view->SetITKImage ( image );
	    std::cout << image << std::endl;
	    break;
	  }


	default:
	  {
	    std::cout << "Unsupported type: " << io->GetComponentTypeAsString ( io->GetComponentType()) << std::endl;
	    view->Delete();
	    iren->Delete();
	    renderer->Delete();
	    rwin->Delete();
	    return -1;
	  }
	  
	  
    }
    

    /*
      itk::SliceReadCommand::Pointer command = itk::SliceReadCommand::New();
      command->SetImage ( reader->GetOutput() );
      command->SetView ( view );
      io->AddObserver (itk::SliceReadEvent(), command);      
    */
    std::cout << "Threads: " << io->GetNumberOfThreads() /* << " Elapsed time:" << (double)(t2-t1)/(double)(CLOCKS_PER_SEC)*/ << std::endl;
  

    view->ResetCurrentPoint();
    view->ResetZoom();
    view->SetWindow (2320);
    view->SetLevel (1138);

    iren->Initialize();
    iren->Start();

    /*
      clock_t t1 = clock();
      try
      {
      reader->Update();
      }
      catch (itk::ExceptionObject &e)
      {
      std::cerr << e;
      view->Delete();
      iren->Delete();
      renderer->Delete();
      rwin->Delete();
      return -1;
      }
      clock_t t2 = clock();
  
  
      std::cout << "Threads: " << io->GetNumberOfThreads() << " Elapsed time:" << (double)(t2-t1)/(double)(CLOCKS_PER_SEC) << std::endl;

      image->DisconnectPipeline();
      std::cout << image << std::endl;
    */

    //iren->Start();


    view->Delete();
    iren->Delete();
    renderer->Delete();
    rwin->Delete();
  
    /*  
 
        typedef itk::ImageFileWriter<ImageType> WriterType;
        WriterType::Pointer writer = WriterType::New();
        writer->SetFileName ("test.nii.gz");
        writer->SetInput ( image );
        writer->Update();

    */
  
    return 0;  
}