#include "display/nr-filter-component-transfer.h"

#include "display/nr-filter-units.h"

#include "display/nr-filter-utils.h"

#include "libnr/nr-pixblock.h"

#include "libnr/nr-blit.h"

#include <math.h>

namespace NR {

FilterComponentTransfer::FilterComponentTransfer()

{

}

FilterPrimitive * FilterComponentTransfer::create() {

return new FilterComponentTransfer();

}

FilterComponentTransfer::~FilterComponentTransfer()

{}

int FilterComponentTransfer::render(FilterSlot &slot, FilterUnits const &/*units*/) {

NRPixBlock *in = slot.get(_input);

if (!in) {

g_warning("Missing source image for feComponentTransfer (in=%d)", _input);

return 1;

}

int x0=in->area.x0;

int x1=in->area.x1;

int y0=in->area.y0;

int y1=in->area.y1;

NRPixBlock *out = new NRPixBlock;

nr_pixblock_setup_fast(out, NR_PIXBLOCK_MODE_R8G8B8A8N, x0, y0, x1, y1, true);

// this primitive is defined for non-premultiplied RGBA values,

// thus convert them to that format before blending

bool free_in_on_exit = false;

if (in->mode != NR_PIXBLOCK_MODE_R8G8B8A8N) {

NRPixBlock *original_in = in;

in = new NRPixBlock;

nr_pixblock_setup_fast(in, NR_PIXBLOCK_MODE_R8G8B8A8N,

original_in->area.x0, original_in->area.y0,

original_in->area.x1, original_in->area.y1,

false);

nr_blit_pixblock_pixblock(in, original_in);

free_in_on_exit = true;

}

unsigned char *in_data = NR_PIXBLOCK_PX(in);

unsigned char *out_data = NR_PIXBLOCK_PX(out);

(void)in_data;

(void)out_data;

int size = 4 * (y1-y0) * (x1-x0);

int i;

for (int color=0;color<4;color++){

int _vsize = tableValues[color].size();

std::vector<gdouble> _tableValues = tableValues[color];

double _intercept = intercept[color];

double _slope = slope[color];

double _amplitude = amplitude[color];

double _exponent = exponent[color];

double _offset = offset[color];

switch(type[color]){

case COMPONENTTRANSFER_TYPE_IDENTITY:

for(i=color;i<size;i+=4){

out_data[i]=in_data[i];

}

break;

case COMPONENTTRANSFER_TYPE_TABLE:

if (_vsize==0){

for(i=color;i<size;i+=4){

out_data[i]=in_data[i];

}

} else {

for(i=color;i<size;i+=4){

int k = (int)(((_vsize-1) * (double)in_data[i])/256);

double dx = ((_vsize-1) * (double)in_data[i])/256 - k;

out_data[i] = CLAMP_D_TO_U8(256 * (_tableValues[k] + dx * (_tableValues[k+1] - _tableValues[k]) ));

}

}

break;

case COMPONENTTRANSFER_TYPE_DISCRETE:

if (_vsize==0){

for(i=color;i<size;i+=4){

out_data[i] = in_data[i];

}

} else {

for(i=color;i<size;i+=4){

out_data[i] = CLAMP_D_TO_U8(256 * _tableValues[(int)((_vsize-1)*(double)in_data[i]/256)] );

}

}

break;

case COMPONENTTRANSFER_TYPE_LINEAR:

for(i=color;i<size;i+=4){

out_data[i] = CLAMP_D_TO_U8(256 * (_slope * (double)in_data[i]/256 + _intercept));

}

break;

case COMPONENTTRANSFER_TYPE_GAMMA:

for(i=color;i<size;i+=4){

out_data[i] = CLAMP_D_TO_U8(256 * (_amplitude * pow((double)in_data[i]/256, _exponent) + _offset));

}

break;

}

}

if (free_in_on_exit) {

nr_pixblock_release(in);

delete in;

}

out->empty = FALSE;

slot.set(_output, out);

return 0;

}

void FilterComponentTransfer::area_enlarge(NRRectL &/*area*/, Matrix const &/*trans*/)

{

}

} /* namespace NR */