/*
 * Copyright 2011, Blender Foundation.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 * Contributor: 
 *		Jeroen Bakker 
 *		Monique Dewanchand
 */

#include "COM_VariableSizeBokehBlurOperation.h"
#include "BLI_math.h"

extern "C" {
	#include "RE_pipeline.h"
}

VariableSizeBokehBlurOperation::VariableSizeBokehBlurOperation() : NodeOperation() {
	this->addInputSocket(COM_DT_COLOR);
	this->addInputSocket(COM_DT_COLOR, COM_SC_NO_RESIZE); // do not resize the bokeh image.
	this->addInputSocket(COM_DT_VALUE);
	this->addOutputSocket(COM_DT_COLOR);
	this->setComplex(true);

	this->inputProgram = NULL;
	this->inputBokehProgram = NULL;
	this->inputSizeProgram = NULL;
	this->maxBlur = 32.0f;
	this->threshold = 0.0f;
}


void VariableSizeBokehBlurOperation::initExecution() {
	this->inputProgram = getInputSocketReader(0);
	this->inputBokehProgram = getInputSocketReader(1);
	this->inputSizeProgram = getInputSocketReader(2);
	QualityStepHelper::initExecution(COM_QH_INCREASE);
}

void VariableSizeBokehBlurOperation::executePixel(float* color, int x, int y, MemoryBuffer *inputBuffers[], void* data) {
	float tempColor[4];
	float readColor[4];
	float bokeh[4];
	tempColor[0] = 0;
	tempColor[1] = 0;
	tempColor[2] = 0;
	tempColor[3] = 0;
	float tempSize[4];
	float overallmultiplyerr = 0;
	float overallmultiplyerg = 0;
	float overallmultiplyerb = 0;

	int miny = y - maxBlur;
	int maxy = y + maxBlur;
	int minx = x - maxBlur;
	int maxx = x + maxBlur;
	{
		inputProgram->read(readColor, x, y, COM_PS_NEAREST, inputBuffers);
		tempColor[0] += readColor[0];
		tempColor[1] += readColor[1];
		tempColor[2] += readColor[2];
		overallmultiplyerr += 1;
		overallmultiplyerg += 1;
		overallmultiplyerb += 1;
		
		for (int ny = miny ; ny < maxy ; ny += QualityStepHelper::getStep()) {
			for (int nx = minx ; nx < maxx ; nx += QualityStepHelper::getStep()) {
				if (nx >=0 && nx < this->getWidth() && ny >= 0 && ny < getHeight()) {
					inputSizeProgram->read(tempSize, nx, ny, COM_PS_NEAREST, inputBuffers);
					float size = tempSize[0];
					size += this->threshold;
					float dx = nx - x;
					float dy = ny - y;
					if (nx == x && ny == y) {
						/* pass */
					}
					else if (size>=  fabs(dx) && size >= fabs(dy)) {
						float u = 256+ dx*256/size;
						float v = 256+ dy*256/size;
						inputBokehProgram->read(bokeh, u, v, COM_PS_NEAREST, inputBuffers);
						inputProgram->read(readColor, nx, ny, COM_PS_NEAREST, inputBuffers);
						tempColor[0] += bokeh[0] * readColor[0];
						tempColor[1] += bokeh[1] * readColor[1];
						tempColor[2] += bokeh[2]* readColor[2];
						overallmultiplyerr += bokeh[0];
						overallmultiplyerg += bokeh[1];
						overallmultiplyerb += bokeh[2];
					}
				}
			}
		}
		color[0] = tempColor[0]*(1.0/overallmultiplyerr);
		color[1] = tempColor[1]*(1.0/overallmultiplyerg);
		color[2] = tempColor[2]*(1.0/overallmultiplyerb);
		color[3] = 1.0f;
	}

}

void VariableSizeBokehBlurOperation::deinitExecution() {
	this->inputProgram = NULL;
	this->inputBokehProgram = NULL;
	this->inputSizeProgram = NULL;
}

bool VariableSizeBokehBlurOperation::determineDependingAreaOfInterest(rcti *input, ReadBufferOperation *readOperation, rcti *output) {
	rcti newInput;
	rcti bokehInput;

	newInput.xmax = input->xmax + maxBlur+2;
	newInput.xmin = input->xmin - maxBlur+2;
	newInput.ymax = input->ymax + maxBlur-2;
	newInput.ymin = input->ymin - maxBlur-2;
	bokehInput.xmax = 512;
	bokehInput.xmin = 0;
	bokehInput.ymax = 512;
	bokehInput.ymin = 0;

	NodeOperation* operation = getInputOperation(2);
	if (operation->determineDependingAreaOfInterest(&newInput, readOperation, output) ) {
		return true;
	}
	operation = getInputOperation(1);
	if (operation->determineDependingAreaOfInterest(&bokehInput, readOperation, output) ) {
		return true;
	}
	operation = getInputOperation(0);
	if (operation->determineDependingAreaOfInterest(&newInput, readOperation, output) ) {
		return true;
	}
	return false;
}