#include <sstream> /* std::ostringstream */
#include "tfxparam.h"
#include "stdfx.h"

#include "ino_common.h"
//------------------------------------------------------------
class ino_median : public TStandardRasterFx
{
	FX_PLUGIN_DECLARATION(ino_median)
	TRasterFxPort m_input;
	TRasterFxPort m_refer;

	TDoubleParamP m_radius;
	TIntEnumParamP m_channel;

	TIntEnumParamP m_ref_mode;

public:
	ino_median()
		: m_radius(0.35 * 640. / 12. / 25.4)
		  /*	= 0.73490813648293963254
			0.35	= mm = ユーザ指定の初期値
			640/12	= 53.33333 = toonz独自の係数 =tunit.cpp参照
			25.4	= mm/inch
		*/
		  ,
		  m_channel(new TIntEnumParam()), m_ref_mode(new TIntEnumParam())
	{
		this->m_radius->setMeasureName("fxLength");

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

		bindParam(this, "radius", this->m_radius);
		bindParam(this, "channel", this->m_channel);
		bindParam(this, "reference", this->m_ref_mode);

		this->m_radius->setValueRange(0, 100.0 * 640. / 12. / 25.4);
		/* 最小値は0mm,最大値は100mm */

		this->m_channel->addItem(0, "Red");
		this->m_channel->addItem(1, "Green");
		this->m_channel->addItem(2, "Blue");
		this->m_channel->addItem(3, "Alpha");
		this->m_channel->addItem(4, "All");
		this->m_channel->setDefaultValue(4);
		this->m_channel->setValue(4);

		this->m_ref_mode->addItem(0, "Red");
		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");
		this->m_ref_mode->setDefaultValue(0);
		this->m_ref_mode->setValue(0);
	}
	bool doGetBBox(
		double frame, TRectD &bBox, const TRenderSettings &info)
	{
		if (this->m_input.isConnected()) {
			const bool ret = this->m_input->doGetBBox(frame, bBox, info);
			const double margin = ceil(this->m_radius->getValue(frame));
			if (0.0 < margin) {
				bBox = bBox.enlarge(margin);
			}
			return ret;
		} else {
			bBox = TRectD();
			return false;
		}
	}
	bool canHandle(const TRenderSettings &rend_sets, double frame)
	{
		return true;
	}
	int getMemoryRequirement(
		const TRectD &rect, double frame, const TRenderSettings &info)
	{
		const double radius = this->m_radius->getValue(frame);
		return TRasterFx::memorySize(
			rect.enlarge(ceil(radius) + 0.5), info.m_bpp);
	}
	void doCompute(
		TTile &tile, double frame, const TRenderSettings &rend_sets);
};
FX_PLUGIN_IDENTIFIER(ino_median, "inoMedianFx")
//------------------------------------------------------------
#include "igs_median_filter_smooth.h"
namespace
{
void fx_(
	const TRasterP in_ras // with margin
	,
	const int margin, TRasterP out_ras // no margin

	,
	const TRasterP refer_ras, const int ref_mode

	,
	const double radius, const int channel)
{
	TRasterGR8P out_gr8(
		in_ras->getLy(), in_ras->getLx() * ino::channels() *
							 ((TRaster64P)in_ras ? sizeof(unsigned short) : sizeof(unsigned char)));
	out_gr8->lock();

	igs::median_filter_smooth::convert(
		in_ras->getRawData() // BGRA
		,
		out_gr8->getRawData()

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

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

		,
		channel, radius, 0 /* 0=Spread:外は淵のピクセル値が続いているとする */
		);

	ino::arr_to_ras(
		out_gr8->getRawData(), ino::channels(), out_ras, margin);
	out_gr8->unlock();
}
}
//------------------------------------------------------------
void ino_median::doCompute(
	TTile &tile, double frame, const TRenderSettings &rend_sets)
{
	/* ------ 接続していなければ処理しない -------------------- */
	if (!this->m_input.isConnected()) {
		tile.getRaster()->clear(); /* 塗りつぶしクリア */
		return;
	}

	/* ------ サポートしていないPixelタイプはエラーを投げる --- */
	if (!((TRaster32P)tile.getRaster()) &&
		!((TRaster64P)tile.getRaster())) {
		throw TRopException("unsupported input pixel type");
	}

	/* ------ 単位変換用スケーリング --------------------------
	外積(面積)
		rend_sets.m_affine.det() = a11*a22-a12*a21 // double
	シュリンク値
		rend_sets.m_shrinkX // int
		rend_sets.m_shrinkY // int
	*/
	const double mm2scale_shrink_pixel =
		ino::pixel_per_mm() * sqrt(fabs(rend_sets.m_affine.det())) / ((rend_sets.m_shrinkX + rend_sets.m_shrinkY) / 2.0);

	/* ------ Pixel単位で動作パラメータを得る ----------------- */
	const double radius = this->m_radius->getValue(frame) * mm2scale_shrink_pixel;
	/* 動作パラメータを得る */
	const int channel = this->m_channel->getValue();
	const int ref_mode = this->m_ref_mode->getValue();

	/* ------ 参照マージン含めた画像生成 ---------------------- */
	/* Rendering画像のBBox値 --> Pixel単位のdouble値 */
	/*	typedef TRectT<double> TRectD;
		inline TRectT<double>::TRectT(
			const TPointT<double> &bottomLeft
			, const TDimensionT<double> &d
		)	: x0(bottomLeft.x)
			, y0(bottomLeft.y)
			, x1(bottomLeft.x+d.lx)
			, y1(bottomLeft.y+d.ly)
		{}
	*/
	TRectD enlarge_rect = TRectD(
		tile.m_pos /* TPointD */
		,
		TDimensionD(/* int --> doubleにしてセット */
					tile.getRaster()->getLx(), tile.getRaster()->getLy()));
	/* BBoxの拡大 Pixel単位 */
	const int enlarge_pixel = (int)(ceil(radius) + 0.5);
	enlarge_rect = enlarge_rect.enlarge(enlarge_pixel);

	/*	void TRasterFx::allocateAndCompute(
			TTile &tile, 
			const TPointD &pos, const TDimension &size, 
			const TRasterP &templateRas, double frame,
			const TRenderSettings &info
		) {
			if (templateRas) {
		tile.getRaster() = templateRas->create(size.lx, size.ly);
			} else {
		tile.getRaster() = TRaster32P(size.lx, size.ly);
			}
		tile.m_pos = pos;
			compute(tile, frame, info);
		}
	*/
	TTile enlarge_tile;
	this->m_input->allocateAndCompute(
		enlarge_tile, enlarge_rect.getP00(), TDimensionI(/* Pixel単位のdouble -> intにしてセット */
														 (int)(enlarge_rect.getLx() + 0.5), (int)(enlarge_rect.getLy() + 0.5)),
		tile.getRaster(), frame, rend_sets);

	/*------ 参照画像生成 --------------------------------------*/
	TTile ref_tile;
	bool ref_sw = false;
	if (this->m_refer.isConnected()) {
		ref_sw = true;
		this->m_refer->allocateAndCompute(
			ref_tile, enlarge_tile.m_pos, TDimensionI(/* Pixel単位 */
													  enlarge_tile.getRaster()->getLx(), enlarge_tile.getRaster()->getLy()),
			enlarge_tile.getRaster(), frame, rend_sets);
	}
	/* ------ 保存すべき画像メモリを塗りつぶしクリア ---------- */
	tile.getRaster()->clear(); /* 塗りつぶしクリア */

	/* ------ (app_begin)log記憶 ------------------------------ */
	const bool log_sw = ino::log_enable_sw();

	if (log_sw) {
		std::ostringstream os;
		os << "params"
		   << "  radius " << radius
		   << "  channel " << channel
		   << "  ref_mode " << ref_mode
		   << "   tile w " << tile.getRaster()->getLx()
		   << "  h " << tile.getRaster()->getLy()
		   << "  pixbits " << ino::pixel_bits(tile.getRaster())
		   << "   frame " << frame
		   << "   rand_sets affine_det " << rend_sets.m_affine.det()
		   << "  shrink x " << rend_sets.m_shrinkX
		   << "  y " << rend_sets.m_shrinkY;
		if (ref_sw) {
			os
				<< "  ref_tile.m_pos " << ref_tile.m_pos
				<< "  ref_tile_getLx " << ref_tile.getRaster()->getLx()
				<< "  y " << ref_tile.getRaster()->getLy();
		}
	}
	/* ------ fx処理 ------------------------------------------ */
	try {
		tile.getRaster()->lock();
		const TRasterP refer_ras = (ref_sw ? ref_tile.getRaster() : nullptr);
		fx_(
			enlarge_tile.getRaster() // in with margin
			,
			enlarge_pixel // margin
			,
			tile.getRaster() // out with no margin

			,
			refer_ras, ref_mode

			,
			radius, channel);
		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;
	}
}