//-----------------------------------------------------------------------------
//  pinchtool.cpp
//
//  ChangeLog:
//
//    24/04/2005  Fab
//                  Refactoring:
//                    - removed unused headers
//                    - changed zero finder algorithm (secant vs bisection)
//    22/05/2005  Fab
//                  Added header file.
//                  Added adapting dragger.
//
//    12/06/2005  Fab
//                  Changed deformator API.
//                  Added designer for dragger.
//
//-----------------------------------------------------------------------------
#ifdef _DEBUG
#define _STLP_DEBUG 1
#endif

#include "tools/toolutils.h"
#include "tools/toolhandle.h"
#include "tools/cursors.h"
#include "tdebugmessage.h"
#include "tgeometry.h"
#include "tgl.h"
#include "tproperty.h"
#include "tstream.h"
#include "tstrokeutil.h"
#include "tthreadmessage.h"
#include "tools/pinchtool.h"

#include "toonz/tobjecthandle.h"
#include "toonz/txshlevelhandle.h"
#include "toonz/tstageobject.h"

#include "ext/StrokeDeformation.h"
#include "ext/SmoothDeformation.h"
#include "ext/OverallDesigner.h"
#include "ext/ExtUtil.h"
#include "ext/Selector.h"
#include "ext/CornerDeformation.h"
#include "ext/StraightCornerDeformation.h"
#include "ext/StrokeDeformation.h"

#include <memory>
#include <algorithm>

using namespace ToolUtils;
using namespace ToonzExt;

// viene usato??
class TGlobalChange;

namespace
{

struct GLMatrixGuard {
	GLMatrixGuard() { glPushMatrix(); }
	~GLMatrixGuard() { glPopMatrix(); }
};

} // namespace

//-----------------------------------------------------------------------------

PinchTool::PinchTool()
	: TTool("T_Pinch"), m_active(false), m_cursorEnabled(false), m_draw(false), m_undo(0), m_showSelector(true), m_toolRange("Size:", 1.0, 1000.0, 500.0) // W_ToolOptions_PinchTool
	  ,
	  m_toolCornerSize("Corner:", 1.0, 180.0, 160.0) // W_ToolOptions_PinchCorner
	  ,
	  m_autoOrManual("Manual", false) // W_ToolOptions_PinchManual
	  ,
	  m_deformation(new ToonzExt::StrokeDeformation), m_selector(500, 10, 1000)
{
	bind(TTool::Vectors);

	m_prop.bind(m_toolCornerSize);
	m_prop.bind(m_autoOrManual);
	m_prop.bind(m_toolRange);

	CornerDeformation::instance()->setCursorId(ToolCursor::PinchWaveCursor);
	SmoothDeformation::instance()->setCursorId(ToolCursor::PinchCursor);
	StraightCornerDeformation::instance()->setCursorId(ToolCursor::PinchAngleCursor);
	assert(m_deformation && "Can not create a deformation CATASTROFIC!!!");

	TMouseEvent dummy;
	updateInterfaceStatus(dummy);
	m_autoOrManual.setId("Manual");
}

//-----------------------------------------------------------------------------

PinchTool::~PinchTool()
{
	delete m_deformation;
	m_deformation = 0;
}

//-----------------------------------------------------------------------------

void PinchTool::updateTranslation()
{
	m_toolRange.setQStringName(tr("Size:"));
	m_toolCornerSize.setQStringName(tr("Corner:"));
	m_autoOrManual.setQStringName(tr("Manual"));
}

//-----------------------------------------------------------------------------

TStroke *PinchTool::getClosestStroke(const TPointD &pos, double &w) const
{
	TVectorImageP vi = TImageP(getImage(false));
	if (!vi)
		return 0;
	double dist = 0;
	UINT index;
	if (vi->getNearestStroke(pos, w, index, dist, true))
		return vi->getStroke(index);
	else
		return 0;
}

//-----------------------------------------------------------------------------

void PinchTool::updateInterfaceStatus(const TMouseEvent &event)
{
	assert(getPixelSize() > 0 && "Pixel size is lower than 0!!!");

	m_status.isManual_ = m_autoOrManual.getValue();
	m_status.pixelSize_ = getPixelSize();
	m_status.cornerSize_ = (int)m_toolCornerSize.getValue();
	m_status.lengthOfAction_ = m_toolRange.getValue();
	m_status.deformerSensibility_ = 0.01 * getPixelSize();

	m_status.key_event_ = ContextStatus::NONE;

	// mutual exclusive
	if (event.isCtrlPressed())
		m_status.key_event_ = ContextStatus::CTRL;
	if (event.isShiftPressed())
		m_status.key_event_ = ContextStatus::SHIFT;

	// TODO:  **DEVE** essere fatto dentro la costruzione di TMouseEvent
	// nel codice di Toonz/Tab/ecc. **NON** ci devono essere ifdef MACOSX se e' possibile
	// evitarlo. Qua sotto ci deve essere solo if(event.isShiftPressed)
	/*#ifdef MACOSX
  if(event.isLockPressed() )
#else*/
	if (event.isAltPressed())
		//#endif
		m_status.key_event_ = ContextStatus::ALT;

	m_selector.setStroke(0);
	m_selector.setVisibility(m_status.isManual_ && m_showSelector);
	m_selector.setLength(m_status.lengthOfAction_);
}

//-----------------------------------------------------------------------------

void PinchTool::updateStrokeStatus(TStroke *stroke, double w)
{
	assert(stroke && "Stroke is null!!!");
	assert(0.0 <= w && w <= 1.0 && "Stroke's parameter is out of range [0,1]!!!");

	if (!stroke || w < 0.0 || w > 1.0)
		return;

	// start update the status
	m_status.stroke2change_ = stroke;
	m_status.w_ = w;

	assert(stroke->getLength() >= 0.0 && "Wrong length in stroke!!!");
}

//-----------------------------------------------------------------------------

int PinchTool::updateCursor() const
{
	if (!(TVectorImageP)getImage(false))
		return ToolCursor::CURSOR_NO;

	return m_deformation->getCursorId();
}

//---------------------------------------------------------------------------

void PinchTool::leftButtonDown(const TPointD &pos,
							   const TMouseEvent &event)
{
	m_curr = m_down = pos;

	if (!m_active &&
		!m_selector.isSelected()) {
		m_active = false;

		assert(m_undo == 0);

		StrokeDeformation *
			deformation = m_deformation;

		TVectorImageP
			vi = TImageP(getImage(true));

		if (!vi)
			return;

		m_active = true;

		ContextStatus
			*status = &m_status;

		// reset status
		status->init();

		double
			w,
			dist2;

		// find nearest stroke
		if (vi->getNearestStroke(m_down,
								 w,
								 m_n,
								 dist2, true)) {

			TStroke
				*stroke = vi->getStroke(m_n);
			assert(stroke && "Not valid stroke found!!!");
			if (!stroke)
				return;

			updateStrokeStatus(stroke,
							   w);

			// set parameters from sliders
			updateInterfaceStatus(event);

			deformation->activate(status);

			// stroke can be changed (replaced by another) during deformation activate
			if (TTool::getApplication()->getCurrentObject()->isSpline())
				m_undo = new ToolUtils::UndoPath(getXsheet()->getStageObject(getObjectId())->getSpline());
			else {
				TXshSimpleLevel *sl = TTool::getApplication()->getCurrentLevel()->getSimpleLevel();
				assert(sl);
				TFrameId id = getCurrentFid();
				m_undo = new UndoModifyStrokeAndPaint(sl, id, m_n);
			}
		}
	}

	m_selector.mouseDown(m_curr);
	m_prev = m_curr;

	invalidate();
}

//-----------------------------------------------------------------------------

void PinchTool::leftButtonDrag(const TPointD &pos,
							   const TMouseEvent &e)
{
	m_curr = pos;

	if (m_selector.isSelected()) {
		m_selector.mouseDrag(m_curr);
		TDoubleProperty::Range
			prop_range = m_toolRange.getRange();
		double
			val_in_range = m_selector.getLength();

		// set value in range
		val_in_range = std::max(std::min(val_in_range, prop_range.second), prop_range.first);
		try {
			m_toolRange.setValue(val_in_range);
			TTool::getApplication()->getCurrentTool()->notifyToolChanged();
		} catch (TDoubleProperty::RangeError &) {
			m_toolRange.setValue((prop_range.first + prop_range.second) * 0.5);
			TTool::getApplication()->getCurrentTool()->notifyToolChanged();
		}

		m_selector.setLength(m_toolRange.getValue());
	} else {
		TVectorImageP
			vi(getImage(true));

		ContextStatus
			*status = &m_status;
		if (!vi ||
			!status->stroke2change_ ||
			!m_active)
			return;

		QMutexLocker lock(vi->getMutex());

		//assert( status->stroke2change_->getLength() >= 0.0 );

		StrokeDeformation *
			deformation = m_deformation;

		TPointD
			delta = m_curr - m_prev;

		deformation->update(delta);
	}

	m_prev = m_curr;

	//moveCursor(pos);
	invalidate();
}

//-----------------------------------------------------------------------------

void PinchTool::leftButtonUp(const TPointD &pos,
							 const TMouseEvent &e)
{

	if (!m_active ||
		m_selector.isSelected())
		return;

	m_active = false;

	TVectorImageP
		vi(getImage(true));

	ContextStatus
		*status = &m_status;

	if (!vi ||
		!status->stroke2change_) {
		delete m_undo;
		m_undo = 0;
		return;
	}

	// if mouse position is unchanged doesn't modify current stroke
	if (areAlmostEqual(m_down,
					   pos,
					   PickRadius * status->pixelSize_)) {
		assert(m_undo);
		delete m_undo;
		m_undo = 0;

// to avoid red line tool on stroke
#ifdef _WIN32
		invalidate(status->stroke2change_->getBBox().enlarge(status->pixelSize_ * 13));
#else
		invalidate();
#endif
		m_deformation->deactivate();
		status->stroke2change_ = 0;
		return;
	}

	QMutexLocker lock(vi->getMutex());

	TStroke *deactivateStroke = m_deformation->deactivate();
	deactivateStroke->outlineOptions() = status->stroke2change_->outlineOptions();
	replaceStroke(status->stroke2change_,
				  deactivateStroke,
				  m_n,
				  vi);

	status->stroke2change_ = 0;

	vi->notifyChangedStrokes(m_n);

#ifdef _DEBUG
	vi->checkIntersections();
#endif
	invalidate();
#ifdef _DEBUG
	vi->checkIntersections();
#endif

	moveCursor(pos);

	notifyImageChanged();

	assert(m_undo);
	TUndoManager::manager()->add(m_undo);
	m_undo = 0;
}

//-----------------------------------------------------------------------------

void PinchTool::onEnter()
{
	m_draw = true;
	// per sicurezza
	//m_status.stroke2change_ = 0;
	//m_selector.setStroke(0);
}

//-----------------------------------------------------------------------------

void PinchTool::onLeave()
{
	if (!m_active)
		m_draw = false;
	m_status.stroke2change_ = 0;

	// Abbiamo dovuto commentarlo perche' stranamente
	// l'onLeave viene chiamata anche quando viene premuto il tasto del mouse
	// per iniziare a fare drag utilizzando il Selector
	// setStroke al suo interno resetta lo status del Selector (lo mette a NONE)

	//  m_selector.setStroke(0);

	m_deformation->reset();
}

//-----------------------------------------------------------------------------

void PinchTool::onImageChanged()
{
	m_status.stroke2change_ = 0;
	m_deformation->reset();

	double w = 0;
	TStroke *stroke = getClosestStroke(convert(m_lastMouseEvent.m_pos), w);
	if (stroke) {

		// set parameters from sliders
		updateInterfaceStatus(m_lastMouseEvent);

		// update information about current stroke
		updateStrokeStatus(stroke, w);
	}

	m_selector.setStroke(stroke);
	invalidate();
}

//-----------------------------------------------------------------------------

void PinchTool::draw()
{
	GLMatrixGuard guard;

	TVectorImageP img(getImage(true));
	if (!img || img->getStrokeCount() == 0) //Controllo che il numero degli stroke nell'immagine sia != 0
		return;
	if (!m_draw)
		return;

	ContextStatus *
		status = &m_status;
	if (!status)
		return;

	StrokeDeformation *
		deformation = m_deformation;

	OverallDesigner
	designer((int)m_curr.x,
			 (int)m_curr.y);

	// m_active == true means that a button down is done (drag)
	if (!m_active) {
		if (m_cursorEnabled) {
			glColor3d(1, 0, 1);
			if (m_cursor.thick > 0)
				tglDrawCircle(m_cursor,
							  m_cursor.thick);
			tglDrawCircle(m_cursor,
						  m_cursor.thick + 4 * status->pixelSize_);
		}
	}

	// internal deformer can be changed during draw
	if (!m_selector.isSelected())
		deformation->draw(&designer);

	m_selector.draw(&designer);
	CHECK_ERRORS_BY_GL;
}

//-----------------------------------------------------------------------------

void PinchTool::invalidateCursorArea()
{
	double r = m_cursor.thick + 6;
	TPointD d(r, r);
	invalidate(TRectD(m_cursor - d, m_cursor + d));
}

//-----------------------------------------------------------------------------

void PinchTool::mouseMove(const TPointD &pos,
						  const TMouseEvent &event)
{
	if (m_active)
		return;

	if (!m_draw)
		m_draw = true;

	ContextStatus *status = &m_status;
	m_curr = pos;

	const int pixelRange = 3;
	if (abs(m_lastMouseEvent.m_pos.x - event.m_pos.x) < pixelRange &&
		abs(m_lastMouseEvent.m_pos.y - event.m_pos.y) < pixelRange &&
		m_lastMouseEvent.getModifiersMask() == event.getModifiersMask())
		return;

	m_lastMouseEvent = event;
	double w = 0;
	TStroke *stroke = getClosestStroke(pos, w);
	if (stroke) {
		// set parameters from sliders
		updateInterfaceStatus(event);

		// update information about current stroke
		updateStrokeStatus(stroke, w);

		// retrieve the currect m_deformation and
		// prepare to design and modify
		if (m_deformation)
			m_deformation->check(status);

		m_selector.setStroke(stroke);
		m_selector.mouseMove(m_curr);
	} else {
		m_status.stroke2change_ = 0;
		m_selector.setStroke(0);
		return;
	}

	m_prev = m_curr;
	m_cursorEnabled = moveCursor(pos);

	if (m_cursorEnabled)
		invalidate();

	//  TNotifier::instance()->notify(TToolChange());
}

//-----------------------------------------------------------------------------

bool PinchTool::keyDown(int key,
						TUINT32 flags,
						const TPoint &pos)
{
	if (!m_active)
		m_deformation->reset();

#if 0
  char c = (char)key;
  if(c == 'p' ||
     c == 'P' )
  {
    TVectorImageP vimage(getImage());      
    if(!vimage)
      return false;
    
    char  fileName[] = {"c:\\toonz_input.sdd"};
    ofstream  out_file(fileName);
    if(!out_file)
    {
      cerr<<"Error on opening: "<<fileName<<endl;
      return false;
    }
    
    out_file<<"# VImage info\n";
    out_file<<"# Number of stroke:\n";
    const int max_number_of_strokes = vimage->getStrokeCount();
    out_file<<max_number_of_strokes<<endl;
    int number_of_strokes = 0;
    const int cp_for_row=3;
    while( number_of_strokes<max_number_of_strokes)
    {
      TStroke* ref = vimage->getStroke(number_of_strokes);
      out_file<<endl;
      out_file<<"# Number of control points for stroke:\n";
      const int max_number_of_cp = ref->getControlPointCount();
      out_file<<max_number_of_cp <<endl;
      out_file<<"# Control Points:\n";
      int number_of_cp=0;
      while( number_of_cp<max_number_of_cp )
      {
        out_file<<ref->getControlPoint(number_of_cp)<<" ";
        if(!((number_of_cp+1)%cp_for_row)) // add a new line after ten points
          out_file<<endl;
        number_of_cp++;
      }
      out_file<<endl;
      number_of_strokes++;
    }
  }
#endif
	return true;
}

//-----------------------------------------------------------------------------

bool PinchTool::moveCursor(const TPointD &pos)
{
	double w = 0.0;
	TStroke *stroke = getClosestStroke(pos, w);
	if (!stroke)
		return false;

	m_cursor = stroke->getThickPoint(w);
	return true;
}

//-----------------------------------------------------------------------------

void PinchTool::onActivate()
{
	//  getApplication()->editImageOrSpline();
	//  TNotifier::instance()->attach(this);
	// per sicurezza
	m_status.stroke2change_ = 0;
	m_selector.setStroke(0);
}

//-----------------------------------------------------------------------------

void PinchTool::onDeactivate()
{
	m_draw = false;
	delete m_undo;
	m_undo = 0;
	m_active = false;
	m_deformation->reset();
	//  TNotifier::instance()->detach(this);
}

//-----------------------------------------------------------------------------

void PinchTool::update(const TGlobalChange &)
{
	m_cursor = TConsts::natp;
	m_selector.setStroke(0);
	m_selector.setVisibility(m_autoOrManual.getValue() && m_showSelector);
	if (m_deformation)
		delete m_deformation->deactivate();
	// per sicurezza
	m_status.stroke2change_ = 0;
}

//-----------------------------------------------------------------------------

static PinchTool pinchTool;