#include <sstream> /* std::ostringstream */
#include "tfxparam.h"
#include "stdfx.h"
#include "tparamset.h"
 
#include "ino_common.h"
//------------------------------------------------------------
class ino_level_rgba : public TStandardRasterFx
{
	FX_PLUGIN_DECLARATION(ino_level_rgba)
	TRasterFxPort m_input;
	TRasterFxPort m_refer;
 
	TRangeParamP m_red_in;
	TRangeParamP m_red_out;
	TDoubleParamP m_red_gamma;
	TRangeParamP m_gre_in;
	TRangeParamP m_gre_out;
	TDoubleParamP m_gre_gamma;
	TRangeParamP m_blu_in;
	TRangeParamP m_blu_out;
	TDoubleParamP m_blu_gamma;
	TRangeParamP m_alp_in;
	TRangeParamP m_alp_out;
	TDoubleParamP m_alp_gamma;
 
	TBoolParamP m_anti_alias;
	TIntEnumParamP m_ref_mode;
 
public:
	ino_level_rgba()
		: m_red_in(DoublePair(
			  0.0 * ino::param_range(), 1.0 * ino::param_range())),
		  m_red_out(DoublePair(
			  0.0 * ino::param_range(), 1.0 * ino::param_range())),
		  m_red_gamma(1.0 * ino::param_range()), m_gre_in(DoublePair(
													 0.0 * ino::param_range(), 1.0 * ino::param_range())),
		  m_gre_out(DoublePair(
			  0.0 * ino::param_range(), 1.0 * ino::param_range())),
		  m_gre_gamma(1.0 * ino::param_range()), m_blu_in(DoublePair(
													 0.0 * ino::param_range(), 1.0 * ino::param_range())),
		  m_blu_out(DoublePair(
			  0.0 * ino::param_range(), 1.0 * ino::param_range())),
		  m_blu_gamma(1.0 * ino::param_range()), m_alp_in(DoublePair(
													 0.0 * ino::param_range(), 1.0 * ino::param_range())),
		  m_alp_out(DoublePair(
			  0.0 * ino::param_range(), 1.0 * ino::param_range())),
		  m_alp_gamma(1.0 * ino::param_range())
 
		  ,
		  m_anti_alias(true), m_ref_mode(new TIntEnumParam(0, "Red"))
	{
		addInputPort("Source", this->m_input);
		addInputPort("Reference", this->m_refer);
 
		bindParam(this, "red_in", this->m_red_in);
		bindParam(this, "red_out", this->m_red_out);
		bindParam(this, "red_gamma", this->m_red_gamma);
		bindParam(this, "gre_in", this->m_gre_in);
		bindParam(this, "gre_out", this->m_gre_out);
		bindParam(this, "gre_gamma", this->m_gre_gamma);
		bindParam(this, "blu_in", this->m_blu_in);
		bindParam(this, "blu_out", this->m_blu_out);
		bindParam(this, "blu_gamma", this->m_blu_gamma);
		bindParam(this, "alp_in", this->m_alp_in);
		bindParam(this, "alp_out", this->m_alp_out);
		bindParam(this, "alp_gamma", this->m_alp_gamma);
 
		bindParam(this, "anti_alias", this->m_anti_alias);
		bindParam(this, "reference", this->m_ref_mode);
 
		this->m_red_in->getMin()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_red_in->getMax()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_red_out->getMin()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_red_out->getMax()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_red_gamma->setValueRange(
			0.1 * ino::param_range(), 10.0 * ino::param_range()); /* red_gamma値 */
		this->m_gre_in->getMin()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_gre_in->getMax()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_gre_out->getMin()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_gre_out->getMax()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_gre_gamma->setValueRange(
			0.1 * ino::param_range(), 10.0 * ino::param_range()); /* gre_gamma値 */
		this->m_blu_in->getMin()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_blu_in->getMax()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_blu_out->getMin()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_blu_out->getMax()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_blu_gamma->setValueRange(
			0.1 * ino::param_range(), 10.0 * ino::param_range()); /* blu_gamma値 */
		this->m_alp_in->getMin()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_alp_in->getMax()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_alp_out->getMin()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_alp_out->getMax()->setValueRange(
			0.0 * ino::param_range(), 1.0 * ino::param_range());
		this->m_alp_gamma->setValueRange(
			0.1 * ino::param_range(), 10.0 * ino::param_range()); /* alp_gamma値 */
 
		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");
	}
	bool doGetBBox(double frame, TRectD &bBox, const TRenderSettings &info)
	{
		if (this->m_input.isConnected()) {
			return this->m_input->doGetBBox(frame, bBox, info);
		} else {
			bBox = TRectD();
			return false;
		}
	}
	bool canHandle(const TRenderSettings &info, double frame)
	{
		return true;
	}
	void doCompute(
		TTile &tile, double frame, const TRenderSettings &rend_sets);
};
FX_PLUGIN_IDENTIFIER(ino_level_rgba, "inoLevelrgbaFx");
//------------------------------------------------------------
#include "igs_levels.h"
void ino_level_rgba::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");
	}
 
	/* ------ 動作パラメータを得る ---------------------------- */
	DoublePair v_red_in = this->m_red_in->getValue(frame);
	DoublePair v_red_out = this->m_red_out->getValue(frame);
	double red_gamma = this->m_red_gamma->getValue(frame) /
					   ino::param_range();
	v_red_in.first /= ino::param_range();
	v_red_in.second /= ino::param_range();
	v_red_out.first /= ino::param_range();
	v_red_out.second /= ino::param_range();
 
	DoublePair v_gre_in = this->m_gre_in->getValue(frame);
	DoublePair v_gre_out = this->m_gre_out->getValue(frame);
	double gre_gamma = this->m_gre_gamma->getValue(frame) /
					   ino::param_range();
	v_gre_in.first /= ino::param_range();
	v_gre_in.second /= ino::param_range();
	v_gre_out.first /= ino::param_range();
	v_gre_out.second /= ino::param_range();
 
	DoublePair v_blu_in = this->m_blu_in->getValue(frame);
	DoublePair v_blu_out = this->m_blu_out->getValue(frame);
	double blu_gamma = this->m_blu_gamma->getValue(frame) /
					   ino::param_range();
	v_blu_in.first /= ino::param_range();
	v_blu_in.second /= ino::param_range();
	v_blu_out.first /= ino::param_range();
	v_blu_out.second /= ino::param_range();
 
	DoublePair v_alp_in = this->m_alp_in->getValue(frame);
	DoublePair v_alp_out = this->m_alp_out->getValue(frame);
	double alp_gamma = this->m_alp_gamma->getValue(frame) /
					   ino::param_range();
	v_alp_in.first /= ino::param_range();
	v_alp_in.second /= ino::param_range();
	v_alp_out.first /= ino::param_range();
	v_alp_out.second /= ino::param_range();
 
	const bool anti_alias_sw = this->m_anti_alias->getValue();
	const int ref_mode = this->m_ref_mode->getValue();
 
	/* ------ 画像生成 ---------------------------------------- */
	this->m_input->compute(tile, frame, rend_sets);
 
	/*------ 参照画像生成 --------------------------------------*/
	TTile reference_tile;
	bool reference_sw = false;
	if (this->m_refer.isConnected()) {
		reference_sw = true;
		this->m_refer->allocateAndCompute(
			reference_tile, tile.m_pos, TDimensionI(/* Pixel単位 */
													tile.getRaster()->getLx(), tile.getRaster()->getLy()),
			tile.getRaster(), frame, rend_sets);
	}
 
	/* ------ (app_begin)log記憶 ------------------------------ */
	const bool log_sw = ino::log_enable_sw();
 
	if (log_sw) {
		std::ostringstream os;
		os << "params"
		   << "  red_in_min " << v_red_in.first
		   << "  red_in_max " << v_red_in.second
		   << "  red_out_min " << v_red_out.first
		   << "  red_out_max " << v_red_out.second
		   << "  red_gamma " << red_gamma
		   << "  gre_in_min " << v_gre_in.first
		   << "  gre_in_max " << v_gre_in.second
		   << "  gre_out_min " << v_gre_out.first
		   << "  gre_out_max " << v_gre_out.second
		   << "  gre_gamma " << gre_gamma
		   << "  blu_in_min " << v_blu_in.first
		   << "  blu_in_max " << v_blu_in.second
		   << "  blu_out_min " << v_blu_out.first
		   << "  blu_out_max " << v_blu_out.second
		   << "  blu_gamma " << blu_gamma
		   << "  alp_in_min " << v_alp_in.first
		   << "  alp_in_max " << v_alp_in.second
		   << "  alp_out_min " << v_alp_out.first
		   << "  alp_out_max " << v_alp_out.second
		   << "  alp_gamma " << alp_gamma
		   << "  anti_alias " << anti_alias_sw
		   << "  reference " << ref_mode
		   << "   tile w " << tile.getRaster()->getLx()
		   << "  h " << tile.getRaster()->getLy()
		   << "  pixbits " << ino::pixel_bits(tile.getRaster())
		   << "   frame " << frame;
		if (reference_sw) {
			os
				<< "  reference_tile.m_pos " << reference_tile.m_pos
				<< "  reference_tile_getLx " << reference_tile.getRaster()->getLx()
				<< "  y " << reference_tile.getRaster()->getLy();
		}
	}
	/* ------ fx処理 ------------------------------------------ */
	try {
		TRasterP in_ras = tile.getRaster();
 
		in_ras->lock();
 
		TRasterGR8P in_gr8(
			in_ras->getLy(), in_ras->getLx() * ino::channels() *
								 ((TRaster64P)in_ras ? sizeof(unsigned short) : sizeof(unsigned char)));
		in_gr8->lock();
		ino::ras_to_arr(in_ras, ino::channels(), in_gr8->getRawData());
 
		const TRasterP refer_ras = (reference_sw ? reference_tile.getRaster() : nullptr);
		igs::levels::change(
			in_gr8->getRawData()
 
				,
			in_ras->getLy(), in_ras->getLx() // Not use in_ras->getWrap()
			,
			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
 
			,
			v_red_in.first, v_red_in.second, v_gre_in.first, v_gre_in.second, v_blu_in.first, v_blu_in.second, v_alp_in.first, v_alp_in.second, red_gamma, gre_gamma, blu_gamma, alp_gamma, v_red_out.first, v_red_out.second, v_gre_out.first, v_gre_out.second, v_blu_out.first, v_blu_out.second, v_alp_out.first, v_alp_out.second
 
			,
			true // clamp_sw
			,
			true // alpha_rendering_sw
			,
			anti_alias_sw // --> add_blend_sw, default is true
			);
 
		ino::arr_to_ras(in_gr8->getRawData(), ino::channels(), in_ras, 0);
		in_gr8->unlock();
 
		in_ras->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;
	}
}