#include "traster.h"

#include "trop.h"

#include "tpixelgr.h"

#ifdef _WIN32

#include <emmintrin.h></emmintrin.h>

#include <malloc.h></malloc.h>

#endif

namespace

{

#ifdef _WIN32

template <class t=""></class>

struct BlurPixel {

	T b;

	T g;

	T r;

	T m;

};

#else

template <class t=""></class>

struct BlurPixel {

	T r;

	T g;

	T b;

	T m;

};

#endif

//===================================================================

#define MIN(x, y) ((x) < (y) ? (x) : (y))

#define LOAD_COL_CODE                  \

                                       \

	buffer += x;                       \

	pix = col + by1;                   \

                                       \

	for (i = by1; i < ly + by1; i++) { \

		*pix++ = *buffer;              \

		buffer += lx;                  \

	}                                  \

                                       \

	pix += by2;                        \

	left_val = col[0];                 \

	right_val = *(pix - 1);            \

	col--;                             \

                                       \

	for (i = 0; i < brad; i++) {       \

		*col-- = left_val;             \

		*pix++ = right_val;            \

	}

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

#define BLUR_CODE(round_fac, channel_type)                                  \

	pix1 = row1;                                                            \

	pix2 = row1 - 1;                                                        \

                                                                            \

	sigma1.r = pix1->r;                                                     \

	sigma1.g = pix1->g;                                                     \

	sigma1.b = pix1->b;                                                     \

	sigma1.m = pix1->m;                                                     \

	pix1++;                                                                 \

                                                                            \

	sigma2.r = sigma2.g = sigma2.b = sigma2.m = 0.0;                        \

	sigma3.r = sigma3.g = sigma3.b = sigma3.m = 0.0;                        \

                                                                            \

	for (i = 1; i < brad; i++) {                                            \

		sigma1.r += pix1->r;                                                \

		sigma1.g += pix1->g;                                                \

		sigma1.b += pix1->b;                                                \

		sigma1.m += pix1->m;                                                \

                                                                            \

		sigma2.r += pix2->r;                                                \

		sigma2.g += pix2->g;                                                \

		sigma2.b += pix2->b;                                                \

		sigma2.m += pix2->m;                                                \

                                                                            \

		sigma3.r += i * (pix1->r + pix2->r);                                \

		sigma3.g += i * (pix1->g + pix2->g);                                \

		sigma3.b += i * (pix1->b + pix2->b);                                \

		sigma3.m += i * (pix1->m + pix2->m);                                \

                                                                            \

		pix1++;                                                             \

		pix2--;                                                             \

	}                                                                       \

                                                                            \

	rsum = (sigma1.r + sigma2.r) * coeff - sigma3.r * coeffq + (round_fac); \

	gsum = (sigma1.g + sigma2.g) * coeff - sigma3.g * coeffq + (round_fac); \

	bsum = (sigma1.b + sigma2.b) * coeff - sigma3.b * coeffq + (round_fac); \

	msum = (sigma1.m + sigma2.m) * coeff - sigma3.m * coeffq + (round_fac); \

                                                                            \

	row2->r = (channel_type)(rsum);                                         \

	row2->g = (channel_type)(gsum);                                         \

	row2->b = (channel_type)(bsum);                                         \

	row2->m = (channel_type)(msum);                                         \

	row2++;                                                                 \

                                                                            \

	sigma2.r += row1[-brad].r;                                              \

	sigma2.g += row1[-brad].g;                                              \

	sigma2.b += row1[-brad].b;                                              \

	sigma2.m += row1[-brad].m;                                              \

                                                                            \

	pix1 = row1 + brad;                                                     \

	pix2 = row1;                                                            \

	pix3 = row1 - brad;                                                     \

	pix4 = row1 - brad + 1;                                                 \

                                                                            \

	desigma.r = sigma1.r - sigma2.r;                                        \

	desigma.g = sigma1.g - sigma2.g;                                        \

	desigma.b = sigma1.b - sigma2.b;                                        \

	desigma.m = sigma1.m - sigma2.m;                                        \

                                                                            \

	for (i = 1; i < length; i++) {                                          \

		desigma.r += pix1->r - 2 * pix2->r + pix3->r;                       \

		desigma.g += pix1->g - 2 * pix2->g + pix3->g;                       \

		desigma.b += pix1->b - 2 * pix2->b + pix3->b;                       \

		desigma.m += pix1->m - 2 * pix2->m + pix3->m;                       \

                                                                            \

		rsum += (desigma.r + diff * (pix1->r - pix4->r)) * coeffq;          \

		gsum += (desigma.g + diff * (pix1->g - pix4->g)) * coeffq;          \

		bsum += (desigma.b + diff * (pix1->b - pix4->b)) * coeffq;          \

		msum += (desigma.m + diff * (pix1->m - pix4->m)) * coeffq;          \

                                                                            \

		row2->r = (channel_type)(rsum);                                     \

		row2->g = (channel_type)(gsum);                                     \

		row2->b = (channel_type)(bsum);                                     \

		row2->m = (channel_type)(msum);                                     \

		row2++;                                                             \

		pix1++, pix2++, pix3++, pix4++;                                     \

	}

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

template <typename pixel_dst,="" pixel_src,="" t="" typename=""></typename>

inline void blur_code(

	PIXEL_SRC *row1, PIXEL_DST *row2,

	int length,

	float coeff, float coeffq,

	int brad, float diff,

	float round_fac)

{

	int i;

	T rsum, gsum, bsum, msum;

	BlurPixel<t> sigma1, sigma2, sigma3, desigma;</t>

	PIXEL_SRC *pix1, *pix2, *pix3, *pix4;

	pix1 = row1;

	pix2 = row1 - 1;

	sigma1.r = pix1->r;

	sigma1.g = pix1->g;

	sigma1.b = pix1->b;

	sigma1.m = pix1->m;

	pix1++;

	sigma2.r = sigma2.g = sigma2.b = sigma2.m = 0.0;

	sigma3.r = sigma3.g = sigma3.b = sigma3.m = 0.0;

	for (i = 1; i < brad; i++) {

		sigma1.r += pix1->r;

		sigma1.g += pix1->g;

		sigma1.b += pix1->b;

		sigma1.m += pix1->m;

		sigma2.r += pix2->r;

		sigma2.g += pix2->g;

		sigma2.b += pix2->b;

		sigma2.m += pix2->m;

		sigma3.r += i * (pix1->r + pix2->r);

		sigma3.g += i * (pix1->g + pix2->g);

		sigma3.b += i * (pix1->b + pix2->b);

		sigma3.m += i * (pix1->m + pix2->m);

		pix1++;

		pix2--;

	}

	rsum = (sigma1.r + sigma2.r) * coeff - sigma3.r * coeffq + (round_fac);

	gsum = (sigma1.g + sigma2.g) * coeff - sigma3.g * coeffq + (round_fac);

	bsum = (sigma1.b + sigma2.b) * coeff - sigma3.b * coeffq + (round_fac);

	msum = (sigma1.m + sigma2.m) * coeff - sigma3.m * coeffq + (round_fac);

	row2->r = rsum;

	row2->g = gsum;

	row2->b = bsum;

	row2->m = msum;

	row2++;

	sigma2.r += row1[-brad].r;

	sigma2.g += row1[-brad].g;

	sigma2.b += row1[-brad].b;

	sigma2.m += row1[-brad].m;

	pix1 = row1 + brad;

	pix2 = row1;

	pix3 = row1 - brad;

	pix4 = row1 - brad + 1;

	desigma.r = sigma1.r - sigma2.r;

	desigma.g = sigma1.g - sigma2.g;

	desigma.b = sigma1.b - sigma2.b;

	desigma.m = sigma1.m - sigma2.m;

	for (i = 1; i < length; i++) {

		desigma.r += pix1->r - 2 * pix2->r + pix3->r;

		desigma.g += pix1->g - 2 * pix2->g + pix3->g;

		desigma.b += pix1->b - 2 * pix2->b + pix3->b;

		desigma.m += pix1->m - 2 * pix2->m + pix3->m;

		rsum += (desigma.r + diff * (pix1->r - pix4->r)) * coeffq;

		gsum += (desigma.g + diff * (pix1->g - pix4->g)) * coeffq;

		bsum += (desigma.b + diff * (pix1->b - pix4->b)) * coeffq;

		msum += (desigma.m + diff * (pix1->m - pix4->m)) * coeffq;

		row2->r = rsum;

		row2->g = gsum;

		row2->b = bsum;

		row2->m = msum;

		row2++;

		pix1++, pix2++, pix3++, pix4++;

	}

}

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

#ifdef _WIN32

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

template <class class="" p="" t,=""></class>

inline void blur_code_SSE2(

	T *row1, BlurPixel
 *row2,

	int length,

	float coeff, float coeffq,

	int brad, float diff,

	float round_fac)

{

	static float two = 2;

	static __m128i zeros = _mm_setzero_si128();

	static __m128 twos = _mm_load_ps1(&two);

	int i;

	__m128 sigma1, sigma2, sigma3, desigma;

	T *pix1, *pix2, *pix3, *pix4;

	pix1 = row1;

	pix2 = row1 - 1;

	//

	__m128i piPix1 = _mm_cvtsi32_si128(*(DWORD *)pix1);

	__m128i piPix2 = _mm_cvtsi32_si128(*(DWORD *)pix2);

	piPix1 = _mm_unpacklo_epi8(piPix1, zeros);

	piPix2 = _mm_unpacklo_epi8(piPix2, zeros);

	piPix1 = _mm_unpacklo_epi16(piPix1, zeros);

	piPix2 = _mm_unpacklo_epi16(piPix2, zeros);

	sigma1 = _mm_cvtepi32_ps(piPix1);

	//

	pix1++;

	float zero = 0;

	sigma2 = _mm_load1_ps(&zero);

	sigma3 = _mm_load1_ps(&zero);

	for (i = 1; i < brad; i++) {

		piPix1 = _mm_unpacklo_epi8(_mm_cvtsi32_si128(*(DWORD *)pix1), zeros);

		piPix2 = _mm_unpacklo_epi8(_mm_cvtsi32_si128(*(DWORD *)pix2), zeros);

		__m128 pPix1 = _mm_cvtepi32_ps(_mm_unpacklo_epi16(piPix1, zeros));

		__m128 pPix2 = _mm_cvtepi32_ps(_mm_unpacklo_epi16(piPix2, zeros));

		sigma1 = _mm_add_ps(sigma1, pPix1);

		sigma2 = _mm_add_ps(sigma2, pPix2);

		__m128i pii = _mm_unpacklo_epi8(_mm_cvtsi32_si128(i), zeros);

		__m128 pi = _mm_cvtepi32_ps(_mm_unpacklo_epi16(pii, zeros));

		pPix1 = _mm_add_ps(pPix1, pPix2);

		pPix1 = _mm_mul_ps(pi, pPix1);		// i*(pix1 + pix2)

		sigma3 = _mm_add_ps(sigma3, pPix1); // sigma3 += i*(pix1 + pix2)

		pix1++;

		pix2--;

	}

	__m128 pCoeff = _mm_load1_ps(&coeff);

	__m128 pCoeffq = _mm_load1_ps(&coeffq);

	__m128 pRoundFac = _mm_load1_ps(&round_fac);

	__m128 pDiff = _mm_load1_ps(&diff);

	// sum = (sigma1 + sigma2)*coeff - sigma3*coeffq + round_fac

	__m128 sum = _mm_add_ps(sigma1, sigma2);

	sum = _mm_mul_ps(sum, pCoeff);

	__m128 sum2 = _mm_mul_ps(sigma3, pCoeffq);

	sum2 = _mm_add_ps(sum2, pRoundFac);

	sum = _mm_sub_ps(sum, sum2);

	/*

	__m128i isum = _mm_cvtps_epi32(sum);

  isum = _mm_packs_epi32(isum, zeros);

  isum = _mm_packs_epi16(isum, zeros);

  *(DWORD*)row2 = _mm_cvtsi128_si32(isum);      

*/

	_mm_store_ps((float *)row2, sum);

	row2++;

	__m128i piPixMin = _mm_unpacklo_epi8(_mm_cvtsi32_si128(*(DWORD *)(row1 - brad)), zeros);

	__m128 pPixMin = _mm_cvtepi32_ps(_mm_unpacklo_epi16(piPixMin, zeros));

	sigma2 = _mm_add_ps(sigma2, pPixMin);

	/*

  sigma2.r += row1[-brad].r;

  sigma2.g += row1[-brad].g;

  sigma2.b += row1[-brad].b;

  sigma2.m += row1[-brad].m;

*/

	pix1 = row1 + brad;

	pix2 = row1;

	pix3 = row1 - brad;

	pix4 = row1 - brad + 1;

	desigma = _mm_sub_ps(sigma1, sigma2);

	for (i = 1; i < length; i++) {

		piPix1 = _mm_unpacklo_epi8(_mm_cvtsi32_si128(*(DWORD *)pix1), zeros);

		piPix2 = _mm_unpacklo_epi8(_mm_cvtsi32_si128(*(DWORD *)pix2), zeros);

		__m128i piPix3 = _mm_unpacklo_epi8(_mm_cvtsi32_si128(*(DWORD *)pix3), zeros);

		__m128i piPix4 = _mm_unpacklo_epi8(_mm_cvtsi32_si128(*(DWORD *)pix4), zeros);

		__m128 pPix1 = _mm_cvtepi32_ps(_mm_unpacklo_epi16(piPix1, zeros));

		__m128 pPix2 = _mm_cvtepi32_ps(_mm_slli_epi32(_mm_unpacklo_epi16(piPix2, zeros), 1));

		__m128 pPix3 = _mm_cvtepi32_ps(_mm_unpacklo_epi16(piPix3, zeros));

		__m128 pPix4 = _mm_cvtepi32_ps(_mm_unpacklo_epi16(piPix4, zeros));

		// desigma += pix1 - 2*pix2 + pix3

		__m128 tmp = _mm_sub_ps(pPix3, pPix2);

		tmp = _mm_add_ps(tmp, pPix1);

		desigma = _mm_add_ps(desigma, tmp);

		// sum += (desigma + diff*(pix1 - pix4))*coeffq

		tmp = _mm_sub_ps(pPix1, pPix4);

		tmp = _mm_mul_ps(tmp, pDiff);

		tmp = _mm_add_ps(desigma, tmp);

		tmp = _mm_mul_ps(tmp, pCoeffq);

		sum = _mm_add_ps(sum, tmp);

		/*

	  isum = _mm_cvtps_epi32(sum);

    isum = _mm_packs_epi32(isum, zeros);

    isum = _mm_packs_epi16(isum, zeros);

    *(DWORD*)row2 = _mm_cvtsi128_si32(isum);      

*/

		_mm_store_ps((float *)row2, sum);

		row2++;

		pix1++, pix2++, pix3++, pix4++;

	}

}

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

template <class class="" p="" t,=""></class>

inline void blur_code_SSE2(

	BlurPixel
 *row1, T *row2,

	int length,

	float coeff, float coeffq,

	int brad, float diff,

	float round_fac)

{

	int i;

	float two = 2;

	__m128i zeros = _mm_setzero_si128();

	__m128 twos = _mm_load_ps1(&two);

	__m128 sigma1, sigma2, sigma3, desigma;

	BlurPixel
 *pix1, *pix2, *pix3, *pix4;

	pix1 = row1;

	pix2 = row1 - 1;

	__m128 pPix1 = _mm_load_ps((float *)pix1);

	__m128 pPix2 = _mm_load_ps((float *)pix2);

	// sigma1 = *pix1

	sigma1 = pPix1;

	pix1++;

	float zero = 0;

	sigma2 = _mm_load1_ps(&zero);

	sigma3 = _mm_load1_ps(&zero);

	for (i = 1; i < brad; i++) {

		pPix1 = _mm_load_ps((float *)pix1);

		pPix2 = _mm_load_ps((float *)pix2);

		sigma1 = _mm_add_ps(sigma1, pPix1);

		sigma2 = _mm_add_ps(sigma2, pPix2);

		__m128i pii = _mm_unpacklo_epi8(_mm_cvtsi32_si128(i), zeros);

		__m128 pi = _mm_cvtepi32_ps(_mm_unpacklo_epi16(pii, zeros));

		pPix1 = _mm_add_ps(pPix1, pPix2);

		pPix1 = _mm_mul_ps(pi, pPix1);		// i*(pix1 + pix2)

		sigma3 = _mm_add_ps(sigma3, pPix1); // sigma3 += i*(pix1 + pix2)

		pix1++;

		pix2--;

	}

	__m128 pCoeff = _mm_load1_ps(&coeff);

	__m128 pCoeffq = _mm_load1_ps(&coeffq);

	//  __m128 pRoundFac = _mm_load1_ps(&round_fac);

	__m128 pDiff = _mm_load1_ps(&diff);

	// sum = (sigma1 + sigma2)*coeff - sigma3*coeffq + round_fac

	__m128 sum = _mm_add_ps(sigma1, sigma2);

	sum = _mm_mul_ps(sum, pCoeff);

	__m128 sum2 = _mm_mul_ps(sigma3, pCoeffq);

	//sum2 = _mm_add_ps(sum2, pRoundFac);

	sum = _mm_sub_ps(sum, sum2);

	// converte i canali da float a char

	__m128i isum = _mm_cvtps_epi32(sum);

	isum = _mm_packs_epi32(isum, zeros);

	//isum = _mm_packs_epi16(isum, zeros);

	isum = _mm_packus_epi16(isum, zeros);

	*(DWORD *)row2 = _mm_cvtsi128_si32(isum);

	row2++;

	// sigma2 += row1[-brad]

	__m128 pPixMin = _mm_load_ps((float *)(row1 - brad));

	sigma2 = _mm_add_ps(sigma2, pPixMin);

	pix1 = row1 + brad;

	pix2 = row1;

	pix3 = row1 - brad;

	pix4 = row1 - brad + 1;

	desigma = _mm_sub_ps(sigma1, sigma2);

	for (i = 1; i < length; i++) {

		__m128 pPix1 = _mm_load_ps((float *)pix1);

		__m128 pPix2 = _mm_load_ps((float *)pix2);

		__m128 pPix3 = _mm_load_ps((float *)pix3);

		__m128 pPix4 = _mm_load_ps((float *)pix4);

		pPix2 = _mm_mul_ps(pPix2, twos);

		// desigma += pix1 - 2*pix2 + pix3

		__m128 tmp = _mm_sub_ps(pPix3, pPix2);

		tmp = _mm_add_ps(tmp, pPix1);

		desigma = _mm_add_ps(desigma, tmp);

		// sum += (desigma + diff*(pix1 - pix4))*coeffq

		tmp = _mm_sub_ps(pPix1, pPix4);

		tmp = _mm_mul_ps(tmp, pDiff);

		tmp = _mm_add_ps(desigma, tmp);

		tmp = _mm_mul_ps(tmp, pCoeffq);

		sum = _mm_add_ps(sum, tmp);

		// converte i canali da float a char

		__m128i isum = _mm_cvtps_epi32(sum);

		isum = _mm_packs_epi32(isum, zeros);

		//isum = _mm_packs_epi16(isum, zeros);  // QUESTA RIGA E' SBAGLIATA

		//assert(false);

		isum = _mm_packus_epi16(isum, zeros);

		*(DWORD *)row2 = _mm_cvtsi128_si32(isum);

		row2++;

		pix1++, pix2++, pix3++, pix4++;

	}

}

#endif // _WIN32

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

#define STORE_COL_CODE(crop_val)                                           \

	{                                                                      \

		int i, val;                                                        \

		double ampl;                                                       \

		buffer += x;                                                       \

                                                                           \

		ampl = 1.0 + blur / 15.0;                                          \

                                                                           \

		if (backlit)                                                       \

			for (i = ((dy >= 0) ? 0 : -dy); i < MIN(ly, r_ly - dy); i++) { \

				val = troundp(col[i].r * ampl);                            \

				buffer->r = (val > crop_val) ? crop_val : val;             \

				val = troundp(col[i].g * ampl);                            \

				buffer->g = (val > crop_val) ? crop_val : val;             \

				val = troundp(col[i].b * ampl);                            \

				buffer->b = (val > crop_val) ? crop_val : val;             \

				val = troundp(col[i].m * ampl);                            \

				buffer->m = (val > crop_val) ? crop_val : val;             \

				buffer += wrap;                                            \

			}                                                              \

		else                                                               \

			for (i = ((dy >= 0) ? 0 : -dy); i < MIN(ly, r_ly - dy); i++) { \

				*buffer = col[i];                                          \

				buffer += wrap;                                            \

			}                                                              \

	}

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

template <class t=""></class>

void store_colRgb(T *buffer, int wrap, int r_ly, T *col,

				  int ly, int x, int dy, int backlit, double blur)

{

	int val = T::maxChannelValue;

	if (val == 255)

		STORE_COL_CODE(204)

	else if (val == 65535)

		STORE_COL_CODE(204 * 257)

	else

		assert(false);

}

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

template <class t=""></class>

void store_colGray(T *buffer, int wrap, int r_ly, T *col,

				   int ly, int x, int dy, int backlit, double blur)

{

	int i;

	double ampl;

	buffer += x;

	ampl = 1.0 + blur / 15.0;

	for (i = ((dy >= 0) ? 0 : -dy); i < MIN(ly, r_ly - dy); i++) {

		*buffer = col[i];

		buffer += wrap;

	}

}

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

template <class p=""></class>

void load_colRgb(BlurPixel
 *buffer, BlurPixel
 *col,

				 int lx, int ly, int x, int brad, int by1, int by2)

{

	int i;

	BlurPixel
 *pix, left_val, right_val;

	LOAD_COL_CODE

}

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

void load_channel_col32(float *buffer, float *col,

						int lx, int ly, int x, int brad, int by1, int by2)

{

	int i;

	float *pix, left_val, right_val;

	LOAD_COL_CODE

}

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

template <class class="" p="" q,="" t,=""></class>

void do_filtering_chan(BlurPixel
 *row1, T *row2, int length,

					   float coeff, float coeffq, int brad, float diff, bool useSSE)

{

#ifdef _WIN32

	if (useSSE && T::maxChannelValue == 255)

		blur_code_SSE2<t, p="">(row1, row2, length, coeff, coeffq, brad, diff, 0.5);</t,>

	else

#endif

	{

		int i;

		P rsum, gsum, bsum, msum;

		BlurPixel
 sigma1, sigma2, sigma3, desigma;

		BlurPixel
 *pix1, *pix2, *pix3, *pix4;

		BLUR_CODE((P)0.5, Q)

	}

}

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

template <class t=""></class>

void do_filtering_channel_float(T *row1, float *row2,

								int length,

								float coeff, float coeffq,

								int brad, float diff)

{

	int i;

	float sum;

	float sigma1, sigma2, sigma3, desigma;

	T *pix1, *pix2, *pix3, *pix4;

	pix1 = row1;

	pix2 = row1 - 1;

	sigma1 = pix1->value;

	pix1++;

	sigma2 = 0.0;

	sigma3 = 0.0;

	for (i = 1; i < brad; i++) {

		sigma1 += pix1->value;

		sigma2 += pix2->value;

		sigma3 += i * (pix1->value + pix2->value);

		pix1++;

		pix2--;

	}

	sum = (sigma1 + sigma2) * coeff - sigma3 * coeffq;

	*row2 = sum;

	row2++;

	sigma2 += row1[-brad].value;

	pix1 = row1 + brad;

	pix2 = row1;

	pix3 = row1 - brad;

	pix4 = row1 - brad + 1;

	desigma = sigma1 - sigma2;

	for (i = 1; i < length; i++) {

		desigma += pix1->value - 2 * pix2->value + pix3->value;

		sum += (desigma + diff * (pix1->value - pix4->value)) * coeffq;

		*row2 = sum;

		row2++;

		pix1++, pix2++, pix3++, pix4++;

	}

}

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

template <class t=""></class>

void do_filtering_channel_gray(float *row1, T *row2, int length,

							   float coeff, float coeffq, int brad, float diff)

{

	int i;

	float sum;

	float sigma1, sigma2, sigma3, desigma;

	float *pix1, *pix2, *pix3, *pix4;

	pix1 = row1;

	pix2 = row1 - 1;

	sigma1 = *pix1;

	pix1++;

	sigma2 = 0.0;

	sigma3 = 0.0;

	for (i = 1; i < brad; i++) {

		sigma1 += *pix1;

		sigma2 += *pix2;

		sigma3 += i * (*pix1 + *pix2);

		pix1++;

		pix2--;

	}

	sum = (sigma1 + sigma2) * coeff - sigma3 * coeffq + 0.5F;

	row2->setValue((int)sum);

	row2++;

	sigma2 += row1[-brad];

	pix1 = row1 + brad;

	pix2 = row1;

	pix3 = row1 - brad;

	pix4 = row1 - brad + 1;

	desigma = sigma1 - sigma2;

	for (i = 1; i < length; i++) {

		desigma += *pix1 - 2 * (*pix2) + (*pix3);

		sum += (desigma + diff * (*pix1 - *pix4)) * coeffq;

		row2->setValue((int)sum);

		row2++;

		pix1++, pix2++, pix3++, pix4++;

	}

}

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

template <class t=""></class>

void load_rowRgb(TRasterPT<t> &rin, T *row, int lx, int y, int brad,</t>

				 int bx1, int bx2)

{

	int i;

	T *buf32, *pix;

	T left_val, right_val;

	pix = row + bx1;

	{

		rin->lock();

		buf32 = rin->pixels(y);

		for (i = 0; i < lx; i++)

			*pix++ = *buf32++;

		rin->unlock();

	}

	pix += bx2;

	left_val = *row;

	right_val = *(pix - 1);

	row--;

	for (i = 0; i < brad; i++) /* pixels equal to the ones of border of image are added   */

	{						   /* to avoid a black blur to get into the picture.          */

		*row-- = left_val;

		*pix++ = right_val;

	}

}

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

template <class t=""></class>

void load_rowGray(TRasterPT<t> &rin, T *row, int lx, int y, int brad,</t>

				  int bx1, int bx2)

{

	int i;

	T *buf8, *pix;

	T left_val, right_val;

	pix = row + bx1;

	buf8 = (T *)(rin->pixels(y));

	for (i = 0; i < lx; i++)

		*pix++ = *buf8++;

	pix += bx2;

	left_val = *row;

	right_val = *(pix - 1);

	row--;

	for (i = 0; i < brad; i++) /* pixels equal to the ones of border of image are added   */

	{						   /* to avoid a black blur to get into the picture.          */

		*row-- = left_val;

		*pix++ = right_val;

	}

}

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

template <class class="" p="" t,=""></class>

void do_filtering_floatRgb(T *row1, BlurPixel
 *row2, int length,

						   float coeff, float coeffq, int brad, float diff, bool useSSE)

{

/*

  int i;

  float rsum, gsum, bsum,  msum;

  CASM_FPIXEL sigma1, sigma2, sigma3, desigma;

  TPixel32 *pix1, *pix2, *pix3, *pix4;

  BLUR_CODE(0, unsigned char)

*/

#ifdef _WIN32

	if (useSSE)

		blur_code_SSE2<t, p="">(row1, row2, length, coeff, coeffq, brad, diff, 0);</t,>

	else

#endif

		blur_code<t, blurpixel<p="">, P>(row1, row2, length, coeff, coeffq, brad, diff, 0);</t,>

}

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

template <class class="" p="" q,="" t,=""></class>

void doBlurRgb(TRasterPT<t> &dstRas, TRasterPT<t> &srcRas, double blur, int dx, int dy, bool useSSE)</t></t>

{

	int i, lx, ly, llx, lly, brad;

	float coeff, coeffq, diff;

	int bx1 = 0, by1 = 0, bx2 = 0, by2 = 0;

	brad = (int)ceil(blur); /* number of pixels involved in the filtering */

	//int border = brad*2; // per sicurezza

	coeff = (float)(blur / (brad - brad * brad + blur * (2 * brad - 1))); /*sum of the weights of triangolar filter.              */

	coeffq = (float)(coeff / blur);

	diff = (float)(blur - brad);

	lx = srcRas->getLx();

	ly = srcRas->getLy();

	if ((lx == 0) || (ly == 0))

		return;

	llx = lx + bx1 + bx2;

	lly = ly + by1 + by2;

	T *row1, *col2, *buffer;

	BlurPixel
 *row2, *col1, *fbuffer;

	TRasterGR8P r1;

#ifdef _WIN32

	if (useSSE) {

		fbuffer = (BlurPixel
 *)_aligned_malloc(llx * ly * sizeof(BlurPixel
), 16);

		row1 = (T *)_aligned_malloc((llx + 2 * brad) * sizeof(T), 16);

		col1 = (BlurPixel
 *)_aligned_malloc((lly + 2 * brad) * sizeof(BlurPixel
), 16);

		col2 = (T *)_aligned_malloc(lly * sizeof(T), 16);

	} else

#endif

	{

		TRasterGR8P raux(llx * sizeof(BlurPixel
), ly);

		r1 = raux;

		r1->lock();

		fbuffer = (BlurPixel
 *)r1->getRawData(); //new CASM_FPIXEL [llx *ly];

		row1 = new T[llx + 2 * brad];

		col1 = new BlurPixel
[lly + 2 * brad];

		col2 = new T[lly];

	}

	if ((!fbuffer) || (!row1) || (!col1) || (!col2)) {

		if (!useSSE)

			r1->unlock();

		return;

	}

	row2 = fbuffer;

	try {

		for (i = 0; i < ly; i++) {

			load_rowRgb<t>(srcRas, row1 + brad, lx, i, brad, bx1, bx2);</t>

			do_filtering_floatRgb<t>(row1 + brad, row2, llx, coeff, coeffq, brad, diff, useSSE);</t>

			row2 += llx;

		}

		dstRas->lock();

		buffer = (T *)dstRas->getRawData();

		if (dy >= 0)

			buffer += (dstRas->getWrap()) * dy;

		for (i = (dx >= 0) ? 0 : -dx; i < tmin(llx, dstRas->getLx() - dx); i++) {

			load_colRgb
(fbuffer, col1 + brad, llx, ly, i, brad, by1, by2);

			do_filtering_chan<t, p="" q,="">(col1 + brad, col2, lly, coeff, coeffq, brad, diff, useSSE);</t,>

			store_colRgb<t>(buffer, dstRas->getWrap(), dstRas->getLy(), col2, lly, i + dx, dy, 0, blur);</t>

		}

		dstRas->unlock();

	} catch (...) {

		dstRas->clear();

	}

#ifdef _WIN32

	if (useSSE) {

		_aligned_free(col2);

		_aligned_free(col1);

		_aligned_free(row1);

		_aligned_free(fbuffer);

	} else

#endif

	{

		delete[] col2;

		delete[] col1;

		delete[] row1;

		r1->unlock();

	}

}

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

template <class t=""></class>

void doBlurGray(TRasterPT<t> &dstRas, TRasterPT<t> &srcRas, double blur, int dx, int dy)</t></t>

{