#include <sstream> /* std::ostringstream */
#include "tfxparam.h"
#include "tparamset.h" // TPointParamP
#include "stdfx.h"
#include "tparamuiconcept.h" //add 20140130

#include "ino_common.h"
#include "igs_rotate_blur.h"

//------------------------------------------------------------
class ino_spin_blur : public TStandardRasterFx
{
	FX_PLUGIN_DECLARATION(ino_spin_blur)
	TRasterFxPort m_input;
	TRasterFxPort m_refer;

	TPointParamP m_center;
	TDoubleParamP m_blur;
	TDoubleParamP m_radius;
	TIntEnumParamP m_type;
	TBoolParamP m_alpha_rendering;
	TBoolParamP m_anti_alias;
	TIntEnumParamP m_ref_mode;

public:
	ino_spin_blur()
		: m_center(TPointD(0.0, 0.0)), m_blur(1), m_radius(0.0), m_type(new TIntEnumParam(0, "Accelerator")), m_alpha_rendering(true), m_anti_alias(false), m_ref_mode(new TIntEnumParam(0, "Red"))
	{
		this->m_center->getX()->setMeasureName("fxLength");
		this->m_center->getY()->setMeasureName("fxLength");
		this->m_radius->setMeasureName("fxLength");

		addInputPort("Source", this->m_input);
		addInputPort("Reference", this->m_refer);

		bindParam(this, "center", this->m_center);
		bindParam(this, "blur", this->m_blur);
		bindParam(this, "radius", this->m_radius);
		bindParam(this, "type", this->m_type);
		bindParam(this, "alpha_rendering",
				  this->m_alpha_rendering);
		bindParam(this, "anti_alias", this->m_anti_alias);
		bindParam(this, "reference", this->m_ref_mode);

		this->m_radius->setValueRange(
			0, (std::numeric_limits<double>::max)());
		/* 拡大のしすぎを防ぐためにMaxを制限する */
		this->m_blur->setValueRange(0.0, 180.0);
		this->m_type->addItem(1, "Uniform");
		this->m_ref_mode->addItem(1, "Green");
		this->m_ref_mode->addItem(2, "Blue");
		this->m_ref_mode->addItem(3, "Alpha");
		this->m_ref_mode->addItem(4, "Luminance");
		this->m_ref_mode->addItem(-1, "Nothing");
	}
	//------------------------------------------------------------
	TPointD get_render_center(
		const double frame, const TPointD &pos, const TAffine affine)
	{
		/*--- 表示画像の中心をゼロとしたミリメートル単位の位置 ---*/
		TPointD center = this->m_center->getValue(frame);
		/*--- 単位変換(mm --> render用pixel) ---*/
		center = center * ino::pixel_per_mm();
		/*--- Affine変換(Geometry&Shrink&原点を中心から左下へ) ---*/
		center = affine * center;
		/*--- カメラ座標をrender画像座標の原点に ---*/
		return center - pos;
	}
	int get_render_int_margin(
		const double frame, const TRectD &bBox, const TAffine affine, TPointD center)
	{
		/*--- 単位変換(mm-->render用pixel)と長さ(scale)変換 ---*/
		const double scale = ino::pixel_per_mm() * sqrt(fabs(affine.det()));
		/*--- margin計算...Twist時正確でない ---*/
		return igs::rotate_blur::reference_margin(
			static_cast<int>(ceil(bBox.getLy())), static_cast<int>(ceil(bBox.getLx())), center.x, center.y, this->m_blur->getValue(frame), this->m_radius->getValue(frame) * scale, ((0 < this->m_type->getValue()) ? 0.0
																																																					: (bBox.getLy() / 2.0)),
			(this->m_anti_alias->getValue() ? 4 : 1));
	}
	void get_render_enlarge(
		const double frame, const TAffine affine, TRectD &bBox)
	{
		TPointD center(this->get_render_center(
			frame, bBox.getP00(), affine));
		int margin = this->get_render_int_margin(
			frame, bBox, affine, center);
		if (0 < margin) {
			/* 拡大のしすぎを防ぐテキトーな制限 */
			if (4096 < margin) {
				margin = 4096;
			}
			bBox = bBox.enlarge(margin);
		}
	}
	//------------------------------------------------------------
	bool doGetBBox(
		double frame, TRectD &bBox, const TRenderSettings &info)
	{
		if (!this->m_input.isConnected()) {
			bBox = TRectD();
			return false;
		}
		const bool ret = this->m_input->doGetBBox(frame, bBox, info);
		this->get_render_enlarge(frame, info.m_affine, bBox);
		return ret;
	}
	int getMemoryRequirement(
		const TRectD &rect, double frame, const TRenderSettings &info)
	{
		TRectD bBox(rect);
		this->get_render_enlarge(frame, info.m_affine, bBox);
		return TRasterFx::memorySize(bBox, info.m_bpp);
	}
	void transform(
		double frame, int port, const TRectD &rectOnOutput, const TRenderSettings &infoOnOutput, TRectD &rectOnInput, TRenderSettings &infoOnInput)
	{
		rectOnInput = rectOnOutput;
		infoOnInput = infoOnOutput;
		this->get_render_enlarge(
			frame, infoOnOutput.m_affine, rectOnInput);
	}
	bool canHandle(const TRenderSettings &info, double frame)
	{
		//return false; // toonz has geometry control
		//return true;
		/* 2012-11-14: trueのとき、Fx処理がジオメトリ変換の最後にまとめられてしまう。 */
		return m_blur->getValue(frame) == 0 ? true : isAlmostIsotropic(info.m_affine);
	}
	void doCompute(
		TTile &tile, double frame, const TRenderSettings &ri);

	//add 20140130
	void getParamUIs(TParamUIConcept *&concepts, int &length)
	{
		concepts = new TParamUIConcept[length = 2];

		concepts[0].m_type = TParamUIConcept::POINT;
		concepts[0].m_label = "Center";
		concepts[0].m_params.push_back(m_center);

		concepts[1].m_type = TParamUIConcept::RADIUS;
		concepts[1].m_label = "Radius";
		concepts[1].m_params.push_back(m_radius);
		concepts[1].m_params.push_back(m_center);
	}
	//add 20140130
};
FX_PLUGIN_IDENTIFIER(ino_spin_blur, "inoSpinBlurFx");
//--------------------------------------------------------------------
namespace
{
void fx_(
	const TRasterP in_ras // with margin
	,
	const int margin

	/* ここではinとrefは同サイズで使用している */
	,
	const TRasterP refer_ras // no margin
	,
	const int ref_mode

	,
	TRasterP out_ras // no margin

	,
	const double xp, const double yp, const int type, const double blur, const double radius, const bool alpha_rendering_sw, const bool anti_alias_sw)
{
	TRasterGR8P in_gr8(
		in_ras->getLy(), in_ras->getLx() * ino::channels() *
							 ((TRaster64P)in_ras ? sizeof(unsigned short) : sizeof(unsigned char)));
	in_gr8->lock();

	igs::rotate_blur::convert(
		in_ras->getRawData() // BGRA
		,
		0 /* margin機能は使っていない、のでinとref画像は同サイズ */

		,
		(((0 <= ref_mode) && refer_ras) ? refer_ras->getRawData() : 0) // BGRA
		,
		(((0 <= ref_mode) && refer_ras) ? ino::bits(refer_ras) : 0), ref_mode

		,
		in_gr8->getRawData() // BGRA

		,
		in_ras->getLy(), in_ras->getLx(), ino::channels(), ino::bits(out_ras)

															   ,
		xp + margin, yp + margin, blur /*degree*/, radius, ((0 < type) ? 0.0 : (out_ras->getLy() / 2.0))

															   ,
		(anti_alias_sw ? 4 : 1), alpha_rendering_sw);

	ino::arr_to_ras(
		in_gr8->getRawData(), ino::channels(), out_ras, margin);
	in_gr8->unlock();
}
}
//------------------------------------------------------------
void ino_spin_blur::doCompute(
	TTile &tile, double frame, const TRenderSettings &ri)
{
	/*------ 接続していなければ処理しない ----------------------*/
	if (!this->m_input.isConnected()) {
		tile.getRaster()->clear(); /* 塗りつぶしクリア */
		return;
	}
	/*------ サポートしていないPixelタイプはエラーを投げる -----*/
	if (!((TRaster32P)tile.getRaster()) &&
		!((TRaster64P)tile.getRaster())) {
		throw TRopException("unsupported input pixel type");
	}
	/*------ パラメータを得る ----------------------------------*/
	const double scale = ino::pixel_per_mm() * sqrt(fabs(ri.m_affine.det()));
	const double blur = this->m_blur->getValue(frame);
	const double radius = this->m_radius->getValue(frame) * scale;
	const int type = this->m_type->getValue();
	const bool alpha_rend_sw = this->m_alpha_rendering->getValue();
	const bool anti_alias_sw = this->m_anti_alias->getValue();
	const int ref_mode = this->m_ref_mode->getValue();

	TPointD center = this->m_center->getValue(frame);
	TPointD render_center(this->get_render_center(
		frame, tile.m_pos, ri.m_affine));
	/*------ 入力画像の範囲を得る ------------------------------*/
	TRectD bBox = TRectD(
		tile.m_pos /* Render画像上(Pixel単位)の位置 */
		,
		TDimensionD(/* Render画像上(Pixel単位)のサイズ */
					tile.getRaster()->getLx(), tile.getRaster()->getLy()));
	/*------ 入力画像のエリアの拡大 ----------------------------*/
	int margin = this->get_render_int_margin(
		frame, bBox, ri.m_affine, render_center);
	if (0 < margin) {
		/* 拡大のしすぎを防ぐテキトーな制限 */
		if (4096 < margin) {
			margin = 4096;
		}
		bBox = bBox.enlarge(margin);
	}
	/*------ 入力画像生成 --------------------------------------*/
	TTile in_enlarge_tile;
	this->m_input->allocateAndCompute(
		in_enlarge_tile, bBox.getP00(), TDimensionI(/* Pixel単位で四捨五入 */
													static_cast<int>(bBox.getLx() + 0.5), static_cast<int>(bBox.getLy() + 0.5)),
		tile.getRaster(), frame, ri);
	/*------ 参照画像生成 --------------------------------------*/
	TTile reference_tile;
	bool reference_sw = false;
	if (this->m_refer.isConnected()) {
		reference_sw = true;
		this->m_refer->allocateAndCompute(
			reference_tile, bBox.getP00(), TDimensionI(/* Pixel単位で四捨五入 */
													   static_cast<int>(bBox.getLx() + 0.5), static_cast<int>(bBox.getLy() + 0.5)),
			tile.getRaster(), frame, ri);
	}
	/* ------ 保存すべき画像メモリを塗りつぶしクリア ---------- */
	tile.getRaster()->clear(); /* 塗りつぶしクリア */
	/* ------ (app_begin)log記憶 ------------------------------ */
	const bool log_sw = ino::log_enable_sw();

	if (log_sw) {
		std::ostringstream os;
		os << "params"
		   << "  cx " << center.x
		   << "  cy " << center.y
		   << "  blur " << blur
		   << "  radius " << radius
		   << "  type " << type
		   << "  reference " << ref_mode
		   << "  alpha_rendering " << alpha_rend_sw
		   << "  anti_alias " << anti_alias_sw
		   << "  rend_cx " << render_center.x
		   << "  rend_cy " << render_center.y
		   << "  tx " << tile.m_pos.x
		   << "  ty " << tile.m_pos.y
		   << "  tw " << tile.getRaster()->getLx()
		   << "  th " << tile.getRaster()->getLy()
		   << "  tb " << ino::pixel_bits(tile.getRaster())
		   << "  margin " << margin
		   << "  bx0 " << bBox.x0
		   << "  by0 " << bBox.y0
		   << "  bx1 " << bBox.x1
		   << "  by1 " << bBox.y1
		   << "  ix " << in_enlarge_tile.m_pos.x
		   << "  iy " << in_enlarge_tile.m_pos.y
		   << "  iw " << in_enlarge_tile.getRaster()->getLx()
		   << "  ih " << in_enlarge_tile.getRaster()->getLy();
		if (reference_sw) {
			os
				<< "  rx " << reference_tile.m_pos.x
				<< "  ry " << reference_tile.m_pos.y
				<< "  rw " << reference_tile.getRaster()->getLx()
				<< "  rh " << reference_tile.getRaster()->getLy();
		}
		os
			<< "  frame " << frame
			<< "  ri_aff_det " << ri.m_affine.det()
			<< "  shrink_x " << ri.m_shrinkX
			<< "  shrink_y " << ri.m_shrinkY;
	}
	/* ------ fx処理 ------------------------------------------ */
	try {
		tile.getRaster()->lock();
		fx_(
			in_enlarge_tile.getRaster(), margin

			,
			(reference_sw ? reference_tile.getRaster() : nullptr), ref_mode

			,
			tile.getRaster()

				,
			render_center.x, render_center.y, type, blur, radius, alpha_rend_sw, anti_alias_sw);
		tile.getRaster()->unlock();
	}
	/* ------ error処理 --------------------------------------- */
	catch (std::bad_alloc &e) {
		tile.getRaster()->unlock();
		if (log_sw) {
			std::string str("std::bad_alloc <");
			str += e.what();
			str += '>';
		}
		throw;
	} catch (std::exception &e) {
		tile.getRaster()->unlock();
		if (log_sw) {
			std::string str("exception <");
			str += e.what();
			str += '>';
		}
		throw;
	} catch (...) {
		tile.getRaster()->unlock();
		if (log_sw) {
			std::string str("other exception");
		}
		throw;
	}
}