#include "toonz/tcamera.h"
#include "toonz/stage.h"
#include "tstream.h"
#include "texception.h"
 
//=============================================================================
// TCamera
 
TCamera::TCamera()
	: m_size(12, 9), m_res(768, 576), m_xPrevalence(true)
{
}
 
//-------------------------------------------------------------------
 
void TCamera::setSize(const TDimensionD &size, bool preserveDpi, bool preserveAR)
{
 
	double currAR = getAspectRatio();
	TPointD currDpi = getDpi();
	m_size.lx = size.lx;
	if (preserveAR)
		m_size.ly = m_size.lx / currAR; //WARNING! if also preserveDpi==true, the AR could lose precision...
	else
		m_size.ly = size.ly;
 
	if (!preserveDpi)
		return;
 
	m_res.lx = troundp(currDpi.x * m_size.lx);
	m_res.ly = troundp(currDpi.y * m_size.ly);
	m_size.lx = m_res.lx / currDpi.x;
	if (preserveAR) //&& currDpi.x==currDpi.y)
	{
		double aux = m_size.lx / currAR - m_res.ly / currDpi.y;
		m_size.ly = m_size.lx / currAR;
	} else
		m_size.ly = m_res.ly / currDpi.y;
}
 
//-------------------------------------------------------------------
 
double TCamera::getAspectRatio() const
{
	return m_size.lx / m_size.ly;
}
 
//-------------------------------------------------------------------
 
void TCamera::setRes(const TDimension &res)
{
	assert(res.lx > 0);
	assert(res.ly > 0);
 
	if (m_res != res) {
		m_res = res;
		m_interestRect = TRect();
	}
}
 
//-------------------------------------------------------------------
 
TPointD TCamera::getDpi() const
{
	TPointD dpi;
	if (m_size.lx > 0 && m_size.ly > 0) {
		dpi.x = m_res.lx / m_size.lx;
		dpi.y = m_res.ly / m_size.ly;
	}
	return dpi;
}
 
//-------------------------------------------------------------------
 
bool TCamera::isPixelSquared() const
{
	return areAlmostEqual(m_res.lx * m_size.ly, m_res.ly * m_size.lx);
}
 
//-------------------------------------------------------------------
 
TAffine TCamera::getStageToCameraRef() const
{
	return TAffine(
		m_res.lx / (Stage::inch * m_size.lx), 0, 0.5 * m_res.lx,
		0, m_res.ly / (Stage::inch * m_size.ly), 0.5 * m_res.ly);
}
 
//-------------------------------------------------------------------
 
TAffine TCamera::getCameraToStageRef() const
{
	const double factor = Stage::inch;
 
	TDimensionD cameraSize = getSize();
	cameraSize.lx *= factor;
	cameraSize.ly *= factor;
	TPointD center(0.5 * cameraSize.lx, 0.5 * cameraSize.ly);
 
	return TAffine(
		factor * m_size.lx / (double)m_res.lx, 0, -center.x,
		0, factor * m_size.ly / (double)m_res.ly, -center.y);
}
 
//-------------------------------------------------------------------
 
TRectD TCamera::getStageRect() const
{
	TDimensionD cameraSize = getSize();
	const double factor = Stage::inch;
	cameraSize.lx *= factor;
	cameraSize.ly *= factor;
	TRectD rect(cameraSize);
	rect -= 0.5 * (rect.getP00() + rect.getP11());
	return rect;
}
 
//-------------------------------------------------------------------
 
void TCamera::setInterestRect(const TRect &rect)
{
	//Not using the TRect's common intersection. Unfortunately, in case
	//the rect's coordinates have lx or ly < 0, the intersection returns
	//the default (empty) rect. We want to maintain the coordinates instead.
	//m_interestRect = rect * TRect(m_res);
 
	m_interestRect.x0 = tmax(rect.x0, 0);
	m_interestRect.y0 = tmax(rect.y0, 0);
	m_interestRect.x1 = tmin(rect.x1, m_res.lx - 1);
	m_interestRect.y1 = tmin(rect.y1, m_res.ly - 1);
}
 
//-------------------------------------------------------------------
 
TRectD TCamera::getInterestStageRect() const
{
	return getCameraToStageRef() * TRectD(m_interestRect.x0, m_interestRect.y0, m_interestRect.x1 + 1, m_interestRect.y1 + 1);
}
 
//-------------------------------------------------------------------
 
void TCamera::setInterestStageRect(const TRectD &rect)
{
	TRectD cameraInterestRectD(
		getStageToCameraRef() * rect);
 
	setInterestRect(TRect(
		tfloor(cameraInterestRectD.x0),
		tfloor(cameraInterestRectD.y0),
		tceil(cameraInterestRectD.x1) - 1,
		tceil(cameraInterestRectD.y1) - 1));
}
 
//-------------------------------------------------------------------
 
void TCamera::saveData(TOStream &os) const
{
	os.child("cameraSize") << m_size.lx << m_size.ly;
	os.child("cameraRes") << m_res.lx << m_res.ly;
	os.child("cameraXPrevalence") << (int)m_xPrevalence;
	os.child("interestRect") << m_interestRect.x0 << m_interestRect.y0 << m_interestRect.x1 << m_interestRect.y1;
}
 
//-------------------------------------------------------------------
 
void TCamera::loadData(TIStream &is)
{
	string tagName;
	while (is.matchTag(tagName)) {
		if (tagName == "cameraSize" || tagName == "size")
			is >> m_size.lx >> m_size.ly;
		else if (tagName == "cameraRes" || tagName == "res")
			is >> m_res.lx >> m_res.ly;
		else if (tagName == "cameraXPrevalence") {
			int xPrevalence;
			is >> xPrevalence;
			m_xPrevalence = (bool)xPrevalence;
		} else if (tagName == "interestRect") {
			is >> m_interestRect.x0 >> m_interestRect.y0 >> m_interestRect.x1 >> m_interestRect.y1;
		} else
			throw TException("TCamera::loadData. unexpected tag: " + tagName);
		is.matchEndTag();
	}
}