#include "setsaveboxtool.h"

#include "tgl.h"

#include "tundo.h"

#include "trop.h"

#include "toonz/toonzimageutils.h"

#include "toonz/txshlevelhandle.h"

#include "toonz/txsheethandle.h"

#include "toonz/ttileset.h"

#include "toonz/txshsimplelevel.h"

#include "toonz/preferences.h"

#include "tools/toolutils.h"

#include "tools/cursors.h"

using namespace ToolUtils;

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

namespace

{

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

class SetSaveboxUndo : public TRasterUndo

{

	TRect m_modifiedSavebox;

	TRect m_originalSavebox;

public:

	SetSaveboxUndo(TTileSetCM32 *tileSet,

				   const TRect &modifiedSavebox,

				   const TRect &originalSavebox,

				   TXshSimpleLevel *level, const TFrameId &frameId)

		: TRasterUndo(tileSet, level, frameId, false, false, 0), m_modifiedSavebox(modifiedSavebox), m_originalSavebox(originalSavebox)

	{

	}

	void redo() const

	{

		TToonzImageP ti = getImage();

		if (!ti)

			return;

		TTool::getApplication()->getCurrentXsheet()->notifyXsheetChanged();

		ti->getRaster()->clearOutside(m_modifiedSavebox);

		ti->setSavebox(m_modifiedSavebox);

		notifyImageChanged();

	}

	void undo() const

	{

		TRasterUndo::undo();

		TToonzImageP ti = getImage();

		if (!ti)

			return;

		ti->setSavebox(m_originalSavebox);

	}

	int getSize() const

	{

		return TRasterUndo::getSize() + sizeof(this) + 100;

	}

	~SetSaveboxUndo()

	{

	}

	QString getHistoryString()

	{

		return QObject::tr("Set Save Box : (X%1,Y%2,W%3,H%4)->(X%5,Y%6,W%7,H%8)")

			.arg(QString::number(m_originalSavebox.x0))

			.arg(QString::number(m_originalSavebox.y0))

			.arg(QString::number(m_originalSavebox.getLx()))

			.arg(QString::number(m_originalSavebox.getLy()))

			.arg(QString::number(m_modifiedSavebox.x0))

			.arg(QString::number(m_modifiedSavebox.y0))

			.arg(QString::number(m_modifiedSavebox.getLx()))

			.arg(QString::number(m_modifiedSavebox.getLy()));

	}

};

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

} //namespace

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

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

// SetSaveboxTool

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

SetSaveboxTool::SetSaveboxTool(TTool *tool)

	: m_tool(tool), m_pos(), m_modifiedRect()

{

}

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

TToonzImage *SetSaveboxTool::getImage()

{

	TImageP image = m_tool->getImage(true);

	if (!image)

		return 0;

	TToonzImageP ti = TToonzImageP(image);

	if (!ti)

		return 0;

	return ti.getPointer();

}

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

int SetSaveboxTool::getDragType(const TPointD &pos)

{

	TToonzImageP image = getImage();

	if (!image)

		return eNone;

	TRectD bbox = ToonzImageUtils::convertRasterToWorld(convert(image->getBBox()), image);

	int ret = 0;

	int dx = tmin(fabs(bbox.x0 - pos.x), fabs(bbox.x1 - pos.x));

	int dy = tmin(fabs(bbox.y0 - pos.y), fabs(bbox.y1 - pos.y));

	double maxDist = 5 * m_tool->getPixelSize();

	if (dx > maxDist && dy > maxDist)

		return (bbox.contains(pos)) ? eMoveRect : eNone;

	if (dx <= maxDist && pos.y >= bbox.y0 - maxDist && pos.y <= bbox.y1 + maxDist) {

		if (areAlmostEqual(dx, fabs(bbox.x0 - pos.x), maxDist))

			ret = eMoveLeft;

		else if (areAlmostEqual(dx, fabs(bbox.x1 - pos.x), maxDist))

			ret = eMoveRight;

	} else if (dy <= maxDist && pos.x >= bbox.x0 - maxDist && pos.x <= bbox.x1 + maxDist) {

		if (areAlmostEqual(dy, fabs(bbox.y0 - pos.y), maxDist))

			return eMoveDown;

		else

			return eMoveUp;

	} else

		return eNone;

	if (dy > maxDist)

		return ret;

	return (areAlmostEqual(dy, fabs(bbox.y0 - pos.y), maxDist)) ? ret | eMoveDown : ret | eMoveUp;

}

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

int SetSaveboxTool::getCursorId(const TPointD &pos)

{

	int dragType = getDragType(pos);

	switch (dragType) {

	case eMoveRect:

		return ToolCursor::MoveCursor;

		CASE eMoveLeft : __OR eMoveRight : return ToolCursor::ScaleHCursor;

		CASE eMoveDown : __OR eMoveUp : return ToolCursor::ScaleVCursor;

		CASE eMoveLeft | eMoveUp : __OR eMoveRight | eMoveDown : return ToolCursor::ScaleInvCursor;

		CASE eMoveLeft | eMoveDown : __OR eMoveRight | eMoveUp : return ToolCursor::ScaleCursor;

	DEFAULT:

		return ToolCursor::StrokeSelectCursor;

	}

	return ToolCursor::StrokeSelectCursor;

}

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

void SetSaveboxTool::leftButtonDown(const TPointD &pos)

{

	TToonzImageP image = getImage();

	if (!image)

		return;

	m_modifiedRect = ToonzImageUtils::convertRasterToWorld(convert(image->getBBox()), image);

	m_pos = pos;

	m_movementType = (SetSaveboxTool::Moviment)getDragType(pos);

}

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

void SetSaveboxTool::leftButtonDrag(const TPointD &pos)

{

	TToonzImageP image = getImage();

	if (!image)

		return;

	if (m_movementType == eNone)

		return;

	if (m_movementType == eMoveRect)

		m_modifiedRect = m_modifiedRect + (pos - m_pos);

	else {

		if (m_movementType & eMoveLeft)

			m_modifiedRect.x0 += pos.x - m_pos.x;

		if (m_movementType & eMoveRight)

			m_modifiedRect.x1 += pos.x - m_pos.x;

		if (m_movementType & eMoveDown)

			m_modifiedRect.y0 += pos.y - m_pos.y;

		if (m_movementType & eMoveUp)

			m_modifiedRect.y1 += pos.y - m_pos.y;

	}

	m_pos = pos;

}

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

void SetSaveboxTool::leftButtonUp(const TPointD &pos)

{

	TToonzImageP image = getImage();

	if (!image)

		return;

	m_pos = TPointD();

	TRectD originalSavebox = image->getBBox();

	TRect savebox = ToonzImageUtils::convertWorldToRaster(m_modifiedRect, image);

	if (savebox.isEmpty()) {

		m_modifiedRect = TRectD();

		return;

	}

	TRasterCM32P ras = image->getRaster();

	TTileSetCM32 *tileSet = new TTileSetCM32(ras->getSize());

	tileSet->add(ras, image->getSavebox());

	/*-- 以下を有効にすると、SaveBoxの外の絵のデータが失われる --*/

	//ras->clearOutside(savebox);

	//if(Preferences::instance()->isMinimizeSaveboxAfterEditing())

	//	TRop::computeBBox(ras, savebox);

	image->setSavebox(savebox);

	TXshSimpleLevel *level = m_tool->getApplication()->getCurrentLevel()->getSimpleLevel();

	TUndoManager::manager()->add(new SetSaveboxUndo(tileSet, savebox, convert(originalSavebox), level, m_tool->getCurrentFid()));

	m_modifiedRect = TRectD();

	m_tool->notifyImageChanged();

}

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

void SetSaveboxTool::draw()

{

	TToonzImageP image = getImage();

	if (!image)

		return;

	TRectD bbox;

	if (m_modifiedRect == TRectD())

		bbox = ToonzImageUtils::convertRasterToWorld(convert(image->getBBox()), image);

	else

		bbox = m_modifiedRect;

	drawRect(bbox * image->getSubsampling(), TPixel32::Black, 0x5555, true);

	tglColor(TPixel32(90, 90, 90));

	double pixelSize = m_tool->getPixelSize();

	TPointD p00 = bbox.getP00();

	TPointD p11 = bbox.getP11();

	TPointD p01 = bbox.getP01();

	TPointD p10 = bbox.getP10();

	TPointD p11_01 = (bbox.getP11() + bbox.getP01()) * 0.5;

	TPointD p11_10 = (bbox.getP11() + bbox.getP10()) * 0.5;

	TPointD p00_01 = (bbox.getP00() + bbox.getP01()) * 0.5;

	TPointD p00_10 = (bbox.getP00() + bbox.getP10()) * 0.5;

	TPointD size(pixelSize * 4, pixelSize * 4);

	tglDrawRect(TRectD(p00 - size, p00 + size));

	tglDrawRect(TRectD(p11 - size, p11 + size));

	tglDrawRect(TRectD(p01 - size, p01 + size));

	tglDrawRect(TRectD(p10 - size, p10 + size));

	tglDrawRect(TRectD(p11_01 - size, p11_01 + size));

	tglDrawRect(TRectD(p11_10 - size, p11_10 + size));

	tglDrawRect(TRectD(p00_01 - size, p00_01 + size));

	tglDrawRect(TRectD(p00_10 - size, p00_10 + size));

}