#include "tools/tool.h"

#include "tools/toolutils.h"

#include "tools/cursors.h"

#include "tstroke.h"

#include "tstrokeutil.h"

#include "tstrokedeformations.h"

#include "tmathutil.h"

#include "tproperty.h"

#include "drawutil.h"

#include "tcurveutil.h"

#include "toonz/tobjecthandle.h"

#include "toonz/txshlevelhandle.h"

#include "toonz/tstageobject.h"

using namespace ToolUtils;

// For Qt translation support

#include <qcoreapplication></qcoreapplication>

//=============================================================================

namespace

{

/*

 Controlla se il primo punto della prima sotto_stroke

 e' interno al cerchio, nel caso la stroke successiva

 deve essere quella esterna e cosi' via, basta allora

 fissare un contatore in modo da prendere le stroke

 alternativamente (interne/esterne).

*/

void selectStrokeToMove(const ArrayOfStroke &v,

						const TPointD ¢er,

						double radius,

						ArrayOfStroke &toMove)

{

	if (v.empty())

		return;

	UINT counter;

	if (tdistance2(v.front()->getPoint(0), center) < sq(radius))

		counter = 0;

	else

		counter = 1;

	do {

		toMove.push_back(v[counter]);

		counter += 2;

	} while (counter < v.size());

}

//=============================================================================

/*

inline  double computeStep(const TQuadratic& quad, double invOfPixelSize)

{  

  double step = std::numeric_limits<double>::max();</double>

  TPointD A = quad.getP0() - 2.0*quad.getP1() + quad.getP2(); // 2*A is the acceleration of the curve

  double  A_len = norm(A);

  if (A_len > 0)  step = TConsts::sqrt2 * sqrt(invOfPixelSize/A_len); 

  return  step;

}

*/

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

void drawQuadratic(const TQuadratic &quad, double pixelSize)

{

	double m_min_step_at_normal_size = computeStep(quad, pixelSize);

	// It draws the curve as a linear piecewise approximation

	double invSqrtScale = 1.0;

	// First of all, it computes the control circles of the curve in screen coordinates

	TPointD scP0 = quad.getP0();

	TPointD scP1 = quad.getP1();

	TPointD scP2 = quad.getP2();

	TPointD A = scP0 - 2 * scP1 + scP2;

	TPointD B = scP0 - scP1;

	double h;

	h = invSqrtScale * m_min_step_at_normal_size;

	double h2 = h * h;

	TPointD P = scP0, D2 = 2 * h2 * A, D1 = A * h2 - 2 * B * h;

	if (h < 0 || isAlmostZero(h))

		return;

	// It draws the whole curve, using forward differencing

	glBegin(GL_LINE_STRIP); // The curve starts from scP0

	glVertex2d(scP0.x, scP0.y);

	for (double t = h; t < 1; t = t + h) {

		P = P + D1;

		D1 = D1 + D2;

		glVertex2d(P.x, P.y);

	}

	glVertex2d(scP2.x, scP2.y); // The curve ends in scP2

	glEnd();

}

} // namespace

//=============================================================================

// MagnetTool

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

class MagnetTool : public TTool

{

	Q_DECLARE_TR_FUNCTIONS(MagnetTool)

	bool m_active;

	TPointD

		m_startingPos;

	TPointD

		m_oldPos,

		m_pointAtMouseDown,

		m_pointAtMove;

	DoublePair m_extremes;

	int m_cursorId;

	double m_pointSize;

	TUndo *m_undo;

	typedef struct {

		TStroke *m_parent;

		ArrayOfStroke m_splitted;

		ArrayOfStroke m_splittedToMove;

	} strokeCollection;

	vector<strokecollection> m_strokeToModify;</strokecollection>

	//vector<strokeinfo>  m_info;</strokeinfo>

	vector<tstroke *=""> m_strokeHit, m_oldStrokesArray;</tstroke>

	vector<int> m_changedStrokes;</int>

	vector<vector<int> *> m_hitStrokeCorners, m_strokeToModifyCorners;</vector<int>

	TDoubleProperty m_toolSize;

	TPropertyGroup m_prop;

public:

	MagnetTool()

		: TTool("T_Magnet"), m_active(false), m_pointSize(-1), m_oldStrokesArray(), m_toolSize("Size:", 0, 100, 20) // W_ToolOptions_MagnetTool

	{

		bind(TTool::Vectors);

		m_prop.bind(m_toolSize);

	}

	ToolType getToolType() const { return TTool::LevelWriteTool; }

	void updateTranslation()

	{

		m_toolSize.setQStringName(tr("Size:"));

	}

	void onEnter()

	{

		if ((TVectorImageP)getImage(false))

			m_cursorId = ToolCursor::MagnetCursor;

		else

			m_cursorId = ToolCursor::CURSOR_NO;

		double x = m_toolSize.getValue();

		double minRange = 1;

		double maxRange = 100;

		double minSize = 10;

		double maxSize = 100;

		m_pointSize = (x - minRange) / (maxRange - minRange) * (maxSize - minSize) + minSize;

	}

	void onLeave()

	{

		m_pointSize = -1;

	}

	void leftButtonDown(const TPointD &pos, const TMouseEvent &e)

	{

		TPointD p(pos);

		m_oldPos = pos;

		m_pointAtMouseDown = p;

		m_startingPos = p;

		m_active = false;

		TVectorImageP vi = TImageP(getImage(true));

		if (!vi)

			return;

		QMutexLocker lock(vi->getMutex());

		m_active = true;

		m_pointAtMove = m_pointAtMouseDown = p;

		m_strokeHit.clear();

		m_changedStrokes.clear();

		m_strokeToModify.clear();

		vector<tstroke *=""> strokeUndo;</tstroke>

		TStroke *ref;

		m_hitStrokeCorners.clear();

		m_strokeToModifyCorners.clear();

		UINT i = 0;

		for (; i < vi->getStrokeCount(); ++i) {

			if (!vi->inCurrentGroup(i))

				continue;

			TStroke *stroke = vi->getStroke(i);

			ref = stroke;

			//  calcola le intersezioni

			vector<double> intersections;</double>

			intersect(*ref, p, m_pointSize, intersections);

			if (intersections.empty()) {

				if (increaseControlPoints(*ref,

										  TStrokePointDeformation(p, m_pointSize))) {

					m_changedStrokes.push_back(i);

					m_strokeHit.push_back(ref);

					vector<int> *corners = new vector<int>;</int></int>

					corners->push_back(0);

					detectCorners(ref, 20, *corners);

					corners->push_back(ref->getChunkCount());

					m_hitStrokeCorners.push_back(corners);

					ref->disableComputeOfCaches();

					strokeUndo.push_back(ref);

				}

			} else {

				strokeUndo.push_back(ref);

				MagnetTool::strokeCollection sc;

				sc.m_parent = ref;

				splitStroke(*sc.m_parent, intersections, sc.m_splitted);

				selectStrokeToMove(sc.m_splitted,

								   p,

								   m_pointSize,

								   sc.m_splittedToMove);

				for (UINT ii = 0; ii < sc.m_splittedToMove.size(); ++ii) {

					TStroke *temp = sc.m_splittedToMove[ii];

					bool test = increaseControlPoints(*temp, TStrokePointDeformation(p, m_pointSize));

					assert(test);

					vector<int> *corners = new vector<int>;</int></int>

					corners->push_back(0);

					detectCorners(temp, 20, *corners);

					corners->push_back(temp->getChunkCount());

					m_strokeToModifyCorners.push_back(corners);

				}

				m_strokeToModify.push_back(sc);

				m_changedStrokes.push_back(i);

			}

		}

		m_oldStrokesArray.resize(m_changedStrokes.size());

		for (i = 0; i < m_changedStrokes.size(); i++)

			m_oldStrokesArray[i] = new TStroke(*(vi->getStroke(m_changedStrokes[i])));

		if (!strokeUndo.empty()) {

			if (TTool::getApplication()->getCurrentObject()->isSpline())

				m_undo = new UndoPath(getXsheet()->getStageObject(getObjectId())->getSpline());

			else {

				TXshSimpleLevel *sl = TTool::getApplication()->getCurrentLevel()->getSimpleLevel();

				assert(sl);

				TFrameId id = getCurrentFid();

				m_undo = new UndoModifyListStroke(sl, id, strokeUndo);

			}

		}

		invalidate();

		// vi->validateRegionEdges(ref, true);

	};

	void leftButtonDrag(const TPointD &p, const TMouseEvent &)

	{

		if (!m_active)

			return;

		//      double dx = p.x - m_pointAtMouseDown.x;

		double pixelSize = getPixelSize();

		if (tdistance2(p, m_oldPos) < 9.0 * pixelSize * pixelSize)

			return;

		m_oldPos = p;

		m_pointAtMouseDown = p;

		//double sc = exp(0.001 * (double)dx);

		TVectorImageP vi = TImageP(getImage(true));

		if (!vi)

			return;

		QMutexLocker lock(vi->getMutex());

		TPointD

			offset = p - m_pointAtMove;

		/*

      if( tdistance2(m_pointAtMouseDown, p ) > sq(m_pointSize * 0.5) ) // reincremento

      {

      leftButtonUp(p);

      lefrightButtonDown(p);

      }

    */

		UINT i, j;

		for (i = 0; i < m_strokeHit.size(); ++i)

			modifyControlPoints(*m_strokeHit[i],

								TStrokePointDeformation(offset, m_pointAtMouseDown, m_pointSize * 0.7));

		for (i = 0; i < m_strokeToModify.size(); ++i)

			for (j = 0; j < m_strokeToModify[i].m_splittedToMove.size(); ++j) {

				TStroke *temp = m_strokeToModify[i].m_splittedToMove[j];

				modifyControlPoints(*temp, TStrokePointDeformation(offset, m_pointAtMouseDown, m_pointSize * 0.7));

			}

		m_pointAtMove = p;

		invalidate();

	};

	void mouseMove(const TPointD &p, const TMouseEvent &e)

	{

		m_pointAtMove = p;

		double pixelSize = getPixelSize();

		if (tdistance2(p, m_oldPos) < 9.0 * pixelSize * pixelSize)

			return;

		m_oldPos = p;

		invalidate();

	}

	void leftButtonUp(const TPointD &, const TMouseEvent &)

	{

		if (!m_active)

			return;

		m_active = false;

		m_pointAtMouseDown = m_pointAtMove = TConsts::napd;

		TStroke *ref;

		TVectorImageP vi = TImageP(getImage(true));

		if (!vi)

			return;

		QMutexLocker lock(vi->getMutex());

		UINT i, j;

		for (i = 0; i < m_strokeHit.size(); ++i) {

			ref = m_strokeHit[i];

			ref->enableComputeOfCaches();

			ref->reduceControlPoints(getPixelSize() * ReduceControlPointCorrection, *(m_hitStrokeCorners[i]));

			// vi->validateRegionEdges(ref, false);

		}

		clearPointerContainer(m_hitStrokeCorners);

		m_hitStrokeCorners.clear();

		UINT count = 0;

		for (i = 0; i < m_strokeToModify.size(); ++i) {

			// recupero la stroke collection

			MagnetTool::strokeCollection &sc = m_strokeToModify[i];

			for (j = 0; j < sc.m_splittedToMove.size(); ++j) {

				ref = sc.m_splittedToMove[j];

				ref->enableComputeOfCaches();

				ref->reduceControlPoints(getPixelSize() * ReduceControlPointCorrection, *(m_strokeToModifyCorners[count++]));

			}

			// ricostruisco una stroke con quella data

			ref = merge(sc.m_splitted);

			if (sc.m_parent->isSelfLoop()) {

				int cpCount = ref->getControlPointCount();

				TThickPoint p1 = ref->getControlPoint(0);

				TThickPoint p2 = ref->getControlPoint(cpCount - 1);

				TThickPoint midP = (p1 + p2) * 0.5;

				ref->setControlPoint(0, midP);

				ref->setControlPoint(cpCount - 1, midP);

				ref->setSelfLoop(true);

			}

			sc.m_parent->swapGeometry(*ref);

			delete ref;							  // elimino la curva temporanea

			clearPointerContainer(sc.m_splitted); // pulisco le stroke trovate con lo split

			sc.m_splittedToMove.clear();		  // pulisco il contenitore ( le stroke

												  // che erano contenute qua sono state

												  // eliminate nella clearPointer....

		}

		clearPointerContainer(m_strokeToModifyCorners);

		m_strokeToModifyCorners.clear();

		for (i = 0; i < vi->getStrokeCount(); ++i) {

			ref = vi->getStroke(i);

			ref->invalidate();

		}

		vi->notifyChangedStrokes(m_changedStrokes, m_oldStrokesArray);

		notifyImageChanged();

		if (m_undo)

			TUndoManager::manager()->add(m_undo);

		m_undo = 0;

		clearPointerContainer(m_oldStrokesArray);

		m_oldStrokesArray.clear();

		invalidate();

	};

	void draw()

	{

		TVectorImageP vi = TImageP(getImage(true));

		if (!vi)

			return;

		//TAffine viewMatrix = getViewer()->getViewMatrix();

		//glPushMatrix();

		//tglMultMatrix(viewMatrix);

		if (m_pointSize > 0) {

			tglColor(TPixel32::Red);

			tglDrawCircle(m_pointAtMove, m_pointSize);

		}

		if (!m_active) {

			//glPopMatrix();

			return;

		}

		TPointD delta = m_pointAtMouseDown - m_startingPos;

		//    glPushMatrix();

		//tglMultMatrix(m_referenceMatrix);

		if (!m_strokeHit.empty())

			for (UINT i = 0; i < m_strokeHit.size(); ++i)

				drawStrokeCenterline(*m_strokeHit[i], getPixelSize());

		tglColor(TPixel32::Red);

		UINT i, j;

		for (i = 0; i < m_strokeToModify.size(); ++i)

			for (j = 0; j < m_strokeToModify[i].m_splittedToMove.size(); ++j) {

				TStroke *temp = m_strokeToModify[i].m_splittedToMove[j];

				drawStrokeCenterline(*temp, getPixelSize());

			}

		//    glPopMatrix();

		//glPopMatrix();

	}

	void onActivate()

	{

		//        getApplication()->editImageOrSpline();

	}

	TPropertyGroup *getProperties(int targetType)

	{

		return &m_prop;

	}

	int getCursorId() const { return m_cursorId; }

} magnetTool;

//TTool *getMagnetTool() {return &magnetTool;}