#include <sstream> /* std::ostringstream */</sstream>

#include "tfxparam.h"

#include "stdfx.h"

#include "ino_common.h"

namespace

{

const double smoothing_edge_ = 1.0;

}

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

class ino_maxmin : public TStandardRasterFx

{

	FX_PLUGIN_DECLARATION(ino_maxmin)

	TRasterFxPort m_input;

	TRasterFxPort m_refer;

	TIntEnumParamP m_max_min_select;

	TDoubleParamP m_radius;

	TDoubleParamP m_polygon_number;

	TDoubleParamP m_degree;

	TBoolParamP m_alpha_rendering;

	TIntEnumParamP m_ref_mode;

public:

	ino_maxmin()

		: m_max_min_select(new TIntEnumParam(0, "Max")), m_radius(1.0)

		  /*	1mmにしたければ 1.0 * 640. / 12. / 25.4 とする

			0.35    = mm = ユーザ指定の初期値

			640/12  = 53.33333 = toonz独自の係数 =tunit.cpp参照

			25.4    = mm/inch

		*/

		  ,

		  m_polygon_number(2.0), m_degree(0.0), m_alpha_rendering(true)

		  ,

		  m_ref_mode(new TIntEnumParam())

	{

		this->m_radius->setMeasureName("fxLength");

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

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

		bindParam(this, "max_min_select", this->m_max_min_select);

		bindParam(this, "radius", this->m_radius);

		bindParam(this, "polygon_number", this->m_polygon_number);

		bindParam(this, "degree", this->m_degree);

		bindParam(this, "alpha_rendering",

				  this->m_alpha_rendering);

		bindParam(this, "reference", this->m_ref_mode);

		this->m_max_min_select->addItem(1, "Min");

		this->m_radius->setValueRange(0.0, 100.0);

		this->m_polygon_number->setValueRange(2.0, 16.0);

		this->m_degree->setValueRange(

			0.0,

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

		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(

				ino::pixel_per_mm() * (this->m_radius->getValue(frame) + smoothing_edge_));

			if (0.0 < margin) {

				bBox = bBox.enlarge(margin);

			}

			return ret;

		} else {

			bBox = TRectD();

			return false;

		}

	}

	bool canHandle(const TRenderSettings &info, double frame)

	{

		return true;

	}

	int getMemoryRequirement(

		const TRectD &rect, double frame, const TRenderSettings &info)

	{

		const double radius =

			(this->m_radius->getValue(frame) + smoothing_edge_) * ino::pixel_per_mm() * sqrt(fabs(info.m_affine.det())) / ((info.m_shrinkX + info.m_shrinkY) / 2.0);

		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_maxmin, "inoMaxMinFx");

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

#include "igs_maxmin.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 int min_sw, const double radius, const double smoothing_edge, const int npolygon, const double degree, const bool alp_rend_sw

	,

	const int nthread)

{

	TRasterGR8P out_gr8(

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

							 ((TRaster64P)in_ras ? sizeof(unsigned short) : sizeof(unsigned char)));

	out_gr8->lock();

	igs::maxmin::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

		,

		radius, smoothing_edge // smooth_outer_range

		,

		npolygon, degree + 180.0

		,

		min_sw, alp_rend_sw, false

		,

		nthread);

	ino::arr_to_ras(

		out_gr8->getRawData(), ino::channels(), out_ras, margin);

	out_gr8->unlock();

}

}

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

void ino_maxmin::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");

	}

	/* ------ Pixel単位で動作パラメータを得る ----------------- */

	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);

	/* 動作パラメータを得る */

	const int min_sw = this->m_max_min_select->getValue(); // 0,1

	const double radius = this->m_radius->getValue(frame) *

						  mm2scale_shrink_pixel;

	const int npolygon = this->m_polygon_number->getValue(frame);

	const double degree = this->m_degree->getValue(frame);

	const bool alp_rend_sw = this->m_alpha_rendering->getValue();

	const int ref_mode = this->m_ref_mode->getValue();

	/* 	tcomposer(RenderManager)でRenderingするときはthreadは1つ、

		toonz(Desktop)でPreview,Outputするなら-1を指定

		-1は自動でthread数を決めCPUを最大に使い高速化 */

	const int nthread = -1;

	/* ------ 参照マージン含めた画像生成 ---------------------- */

	/* Rendering画像のBBox値 --> Pixel単位のdouble値 */

	/*	typedef TRectT<double> TRectD;</double>

		inline TRectT<double>::TRectT(</double>

			const TPointT<double> &bottomLeft</double>

			, const TDimensionT<double> &d</double>

		)	: 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 + smoothing_edge_) + 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"

		   << "  min_sw " << min_sw

		   << "  radius " << radius

		   << "  npolygon " << npolygon

		   << "  degree " << degree

		   << "  alp_rend_sw " << alp_rend_sw

		   << "  smoothing_edge " << smoothing_edge_

		   << "  nthread " << nthread

		   << "  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

			,

			min_sw, radius, smoothing_edge_, npolygon, degree, alp_rend_sw

			,

			nthread);

		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;

	}

}