// TnzBase includes
#include "trasterfx.h"

#include "ttzpimagefx.h"

//**********************************************************************************************
//    Global  functions
//**********************************************************************************************

void parseIndexes(string indexes, vector<string> &items)
{
#ifdef _WIN32
	char seps[] = " ,;";
	char *token;
	if (indexes == "all" || indexes == "All" || indexes == "ALL")
		indexes = "0-4095";
	char *context = 0;
	token = strtok_s((char *)(indexes.c_str()), seps, &context);
	while (token != NULL) {
		items.push_back(token);
		token = strtok_s(NULL, seps, &context);
	}
#else
	char seps[] = " ,;";
	char *token;
	if (indexes == "all" || indexes == "All" || indexes == "ALL")
		indexes = "0-4095";
	token = strtok((char *)(indexes.c_str()), seps);
	while (token != NULL) {
		items.push_back(token);
		token = strtok(NULL, seps);
	}
#endif
}

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

void insertIndexes(vector<string> items, PaletteFilterFxRenderData *t)
{
#ifdef _WIN32
	for (int i = 0; i < (int)items.size(); i++) {
		char *starttoken, *endtoken;
		char subseps[] = "-";
		string tmp = items[i];
		char *context = 0;
		starttoken = strtok_s((char *)tmp.c_str(), subseps, &context);
		endtoken = strtok_s(NULL, subseps, &context);
		if (!endtoken && isInt(starttoken)) {
			int index;
			index = toInt(starttoken);
			t->m_colors.insert(index);
		} else {
			if (isInt(starttoken) && isInt(endtoken)) {
				int start, end;
				start = toInt(starttoken);
				end = toInt(endtoken);
				for (int i = start; i <= end; i++)
					t->m_colors.insert(i);
			}
		}
	}
#else
	for (int i = 0; i < (int)items.size(); i++) {
		char *starttoken, *endtoken;
		char subseps[] = "-";
		string tmp = items[i];
		starttoken = strtok((char *)tmp.c_str(), subseps);
		endtoken = strtok(NULL, subseps);
		if (!endtoken && isInt(starttoken)) {
			int index;
			index = toInt(starttoken);
			t->m_colors.insert(index);
		} else {
			if (isInt(starttoken) && isInt(endtoken)) {
				int start, end;
				start = toInt(starttoken);
				end = toInt(endtoken);
				for (int i = start; i <= end; i++)
					t->m_colors.insert(i);
			}
		}
	}
#endif
}

//**********************************************************************************************
//    ExternalPaletteFxRenderData  implementation
//**********************************************************************************************

ExternalPaletteFxRenderData::ExternalPaletteFxRenderData(TPaletteP palette, const string &name)
	: m_palette(palette), m_name(name)
{
}

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

bool ExternalPaletteFxRenderData::operator==(const TRasterFxRenderData &data) const
{
	return false; // non sono capace. non ho i pezzi per browsare nell'albero da qui.
}

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

string ExternalPaletteFxRenderData::toString() const
{
	return m_name;
}

//**********************************************************************************************
//    PaletteFilterFxRenderData  implementation
//**********************************************************************************************

PaletteFilterFxRenderData::PaletteFilterFxRenderData()
{
	m_keep = false;
	m_type = eApplyToInksAndPaints;
}

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

bool PaletteFilterFxRenderData::operator==(const TRasterFxRenderData &data) const
{
	const PaletteFilterFxRenderData *theData = dynamic_cast<const PaletteFilterFxRenderData *>(&data);
	if (!theData)
		return false;

	return (theData->m_colors == m_colors && theData->m_type == m_type && theData->m_keep == m_keep);
}

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

string PaletteFilterFxRenderData::toString() const
{
	string alias;
	std::set<int>::const_iterator it = m_colors.begin();
	for (; it != m_colors.end(); ++it)
		alias += ::toString(*it);
	alias += "keep=" + ::toString((int)m_keep);
	alias += "type=" + ::toString(m_type);
	return alias;
}

//**********************************************************************************************
//    SandorFxRenderData  implementation
//**********************************************************************************************

SandorFxRenderData::SandorFxRenderData(Type type, int argc, const char *argv[], int border, int shrink,
									   const TRectD &controllerBBox, const TRasterP &controller)
	: m_type(type), m_border(border), m_shrink(shrink), m_blendParams(), m_callParams(), m_contourParams(), m_argc(argc), m_controllerBBox(controllerBBox), m_controller(controller), m_controllerAlias()
{
	for (int i = 0; i < argc; i++)
		m_argv[i] = argv[i];
}

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

bool SandorFxRenderData::operator==(const TRasterFxRenderData &data) const
{
	const SandorFxRenderData *theData = dynamic_cast<const SandorFxRenderData *>(&data);
	if (!theData)
		return false;

	if (m_type == BlendTz)
		return (theData->m_blendParams.m_colorIndex == m_blendParams.m_colorIndex &&
				theData->m_blendParams.m_noBlending == m_blendParams.m_noBlending &&
				theData->m_blendParams.m_amount == m_blendParams.m_amount &&
				theData->m_blendParams.m_smoothness == m_blendParams.m_smoothness);

	if (m_type == Calligraphic || m_type == OutBorder)
		return (theData->m_callParams.m_colorIndex == m_callParams.m_colorIndex &&
				theData->m_callParams.m_thickness == m_callParams.m_thickness &&
				theData->m_callParams.m_doWDiagonal == m_callParams.m_doWDiagonal &&
				theData->m_callParams.m_noise == m_callParams.m_noise &&
				theData->m_callParams.m_horizontal == m_callParams.m_horizontal &&
				theData->m_callParams.m_vertical == m_callParams.m_vertical &&
				theData->m_callParams.m_accuracy == m_callParams.m_accuracy &&
				theData->m_callParams.m_upWDiagonal == m_callParams.m_upWDiagonal);

	if (m_type == ArtAtContour)
		return (theData->m_contourParams.m_density == m_contourParams.m_density &&
				theData->m_contourParams.m_colorIndex == m_contourParams.m_colorIndex &&
				theData->m_contourParams.m_keepLine == m_contourParams.m_keepLine &&
				theData->m_contourParams.m_maxOrientation == m_contourParams.m_maxOrientation &&
				theData->m_contourParams.m_maxDistance == m_contourParams.m_maxDistance &&
				theData->m_contourParams.m_maxSize == m_contourParams.m_maxSize &&
				theData->m_contourParams.m_minOrientation == m_contourParams.m_minOrientation &&
				theData->m_contourParams.m_minDistance == m_contourParams.m_minDistance &&
				theData->m_contourParams.m_minSize == m_contourParams.m_minSize &&
				theData->m_contourParams.m_randomness == m_contourParams.m_randomness &&
				theData->m_contourParams.m_keepColor == m_contourParams.m_keepColor &&
				theData->m_contourParams.m_includeAlpha == m_contourParams.m_includeAlpha &&
				theData->m_controllerAlias == m_controllerAlias);

	return false;
}

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

string SandorFxRenderData::toString() const
{
	string alias;
	if (m_type == BlendTz) {
		alias += ::toString(m_blendParams.m_colorIndex) + " ";
		alias += ::toString(m_blendParams.m_smoothness) + " ";
		alias += ::toString(m_blendParams.m_amount) + " ";
		alias += ::toString(m_blendParams.m_noBlending);
		return alias;
	}

	if (m_type == Calligraphic || m_type == OutBorder) {
		alias += ::toString(m_callParams.m_colorIndex) + " ";
		alias += ::toString(m_callParams.m_noise) + " ";
		alias += ::toString(m_callParams.m_accuracy) + " ";
		alias += ::toString(m_callParams.m_upWDiagonal) + " ";
		alias += ::toString(m_callParams.m_vertical) + " ";
		alias += ::toString(m_callParams.m_upWDiagonal) + " ";
		alias += ::toString(m_callParams.m_horizontal) + " ";
		alias += ::toString(m_callParams.m_thickness);
		return alias;
	}

	if (m_type == ArtAtContour) {
		alias += ::toString(m_contourParams.m_maxSize) + " ";
		alias += ::toString(m_contourParams.m_minSize) + " ";
		alias += ::toString(m_contourParams.m_maxOrientation) + " ";
		alias += ::toString(m_contourParams.m_minOrientation) + " ";
		alias += ::toString(m_contourParams.m_randomness) + " ";
		alias += ::toString(m_contourParams.m_maxDistance) + " ";
		alias += ::toString(m_contourParams.m_minDistance) + " ";
		alias += ::toString(m_contourParams.m_density) + " ";
		alias += ::toString(m_contourParams.m_keepLine) + " ";
		alias += ::toString(m_contourParams.m_keepColor) + " ";
		alias += ::toString(m_contourParams.m_includeAlpha) + " ";
		alias += ::toString(m_contourParams.m_colorIndex) + " ";
		alias += m_controllerAlias;
		return alias;
	}

	return alias;
}

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

TRectD SandorFxRenderData::getBBoxEnlargement(const TRectD &bbox)
{
	switch (m_type) {
	case BlendTz: {
		//Nothing happen, unless we have color 0 among the blended ones. In such case,
		//we have to enlarge the bbox proportionally to the amount param.
		vector<string> items;
		string indexes = std::string(m_argv[0]);
		parseIndexes(indexes, items);
		PaletteFilterFxRenderData paletteFilterData;
		insertIndexes(items, &paletteFilterData);

		if (paletteFilterData.m_colors.size() > 0 && *paletteFilterData.m_colors.begin() == 0)
			return bbox.enlarge(m_blendParams.m_amount);

		return bbox;
	}

		CASE Calligraphic : __OR OutBorder:
		{
			return bbox.enlarge(m_callParams.m_thickness);
		}

		CASE ArtAtContour:
		{
			return bbox.enlarge(
				tmax(tceil(m_controllerBBox.getLx()), tceil(m_controllerBBox.getLy())) * m_contourParams.m_maxSize);
		}

	DEFAULT : {
		assert(false);
		return bbox;
	}
	}
}