#ifdef _WIN32
#pragma warning(disable : 4996)
#include "windows.h"
#endif
#include <vector>

#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <sys/types.h>
#include <sys/timeb.h>
#include <string.h>
#include <math.h>

#include "Params.h"
#include "YOMBParam.h"
#include "YOMBInputParam.h"
#include "InputParam.h"
#include "STColSelPic.h"
#include "BlurMatrix.h"
#include "SDirection.h"
#include "SDef.h"
#include "CallCircle.h"
#include "CallParam.h"
//#include "tmsg.h"

using namespace std;

#ifdef __cplusplus

extern "C" {
#endif

#define P(d) tmsg_info(" - %d -\n", d)
#define COPY_RASTER(inr, outr, border) tP.copy_raster(inr, outr, border, border, inr->lx - border - 1, inr->ly - border - 1, 0, 0)

// ----- CALLIGRAPH for UCHAR pixels (range 0-255) --------------------------
void calligraphUC(const RASTER *inr, RASTER *outr, CCallParam &par,
				  const int border, bool isOutBorder) //throw(SMemAllocError,SWriteRasterError)
{
	try {
		SRECT rect = {border, border, inr->lx - border - 1, inr->ly - border - 1};
		SPOINT p = {0, 0};

		CSTColSelPic<UC_PIXEL> ipUC;
		ipUC.read(inr);
		ipUC.initSel();
		// Selection of pixels using CM
		int nbSel = ipUC.makeSelectionCMAP(par.m_ink, par.m_paint);
		if (nbSel > 0) {

			// Calculation of 'DIRECTION MAP'
			double fSize = par.m_accuracy / 5.0;
			fSize = D_CUT(fSize, 1.0, 20.0);
			//			CSDirection dir(ipUC.m_lX,ipUC.m_lY,ipUC.m_sel,I_ROUND(fSize));
			// Only on border (thickness of border is 3 )
			CSDirection dir(ipUC.m_lX, ipUC.m_lY, ipUC.m_sel.get(), I_ROUND(fSize), 3);
			dir.doDir();

			// Calculation of 'RADIUS MAP' based on the 'DIRECTION MAP'
			// doRadius(rH,rLR,rV,rRL,radiusBlur)
			fSize = par.m_accuracy / 10.0;
			fSize = D_CUT(fSize, 1.0, 10.0);
			;
			dir.doRadius(par.m_rH, par.m_rLR, par.m_rV, par.m_rRL, I_ROUND(fSize));
			dir.getResult(ipUC.m_sel.get());

			// Draws the circles
			CCallCircle cc(par.m_thickness);
			cc.draw(ipUC, (par.m_ink.m_nb == 1), par.m_randomness);

			//			ipUC.showSelection();
		}
		if (isOutBorder)
			ipUC.writeOutBorder(inr, border, outr, rect, p);
		else
			ipUC.write(outr, rect, p);

	} catch (SMemAllocError) {
		//	SMemAllocError();
	} catch (SWriteRasterError) {
		//SWriteRasterError();
	}
}

// ----- CALLIGRAPH for USHORT pixels (range 0-65535) ------------------------
void calligraphUS(const RASTER *inr, RASTER *outr, CCallParam &par,
				  const int border, bool isOutBorder) //throw(SMemAllocError,SWriteRasterError)
{
	try {
		SRECT rect = {border, border, inr->lx - border - 1, inr->ly - border - 1};
		SPOINT p = {0, 0};

		CSTColSelPic<US_PIXEL> ipUS;
		ipUS.read(inr);
		ipUS.initSel();
		// Selection of pixels using CM
		int nbSel = ipUS.makeSelectionCMAP(par.m_ink, par.m_paint);
		if (nbSel > 0) {

			// Calculation of 'DIRECTION MAP'
			double fSize = par.m_accuracy / 5.0;
			fSize = D_CUT(fSize, 1.0, 20.0);
			//			CSDirection dir(ipUS.m_lX,ipUS.m_lY,ipUS.m_sel,I_ROUND(fSize));
			// Only on border (thickness of border is 3 )
			CSDirection dir(ipUS.m_lX, ipUS.m_lY, ipUS.m_sel.get(), I_ROUND(fSize), 3);
			dir.doDir();

			// Calculation of 'RADIUS MAP' based on the 'DIRECTION MAP'
			// doRadius(rH,rLR,rV,rRL,radiusBlur)
			fSize = par.m_accuracy / 10.0;
			fSize = D_CUT(fSize, 1.0, 10.0);
			;
			dir.doRadius(par.m_rH, par.m_rLR, par.m_rV, par.m_rRL, I_ROUND(fSize));
			dir.getResult(ipUS.m_sel.get());

			// Draws the circles
			CCallCircle cc(par.m_thickness);
			cc.draw(ipUS, (par.m_ink.m_nb == 1), par.m_randomness);

			//			ipUC.showSelection();
		}
		if (isOutBorder)
			ipUS.writeOutBorder(inr, border, outr, rect, p);
		else
			ipUS.write(outr, rect, p);

	} catch (SMemAllocError) {
		//SMemAllocError();
	} catch (SWriteRasterError) {
		//SWriteRasterError();
	}
}

int calligraph(const RASTER *inr, RASTER *outr, const int border,
			   int argc, const char *argv[], const int shrink, bool isOutBorder)
{
	// The input raster must be RAS_CM16 or RAS_CM32!!!!
	CSTPic<UC_PIXEL> tP;
	if (inr->type != RAS_CM32) {
		COPY_RASTER(inr, outr, border);
		return 0;
	}
	try {
		CCallParam callP(argc, argv, shrink);
		if (!callP.isOK()) {
			COPY_RASTER(inr, outr, border);
			return 0;
		}
		srand(10);
		if (outr->type == RAS_RGBM) {
			calligraphUC(inr, outr, callP, border, isOutBorder);
		} else if (outr->type == RAS_RGBM64) {
			calligraphUS(inr, outr, callP, border, isOutBorder);
		} else {
			COPY_RASTER(inr, outr, border);
			return 0;
		}
	} catch (SMemAllocError e) {
		e.debug_print();
		COPY_RASTER(inr, outr, border);
		return 0;
	} catch (SWriteRasterError e) {
		e.debug_print();
		COPY_RASTER(inr, outr, border);
		return 0;
	}
	return 1;
}

#ifdef __cplusplus
}
#endif